Feldfunktionen in Word mit Suche / Ersetze einfügen

07/12/2008 - 09:50 von kleist | Report spam
Hallo Leute,
ich habe ein großes Word-Dokument mit über 1.000 Absàtzen. Am Ende
jedes Absatzes soll eine automatische Numerierung eingefügt werden.
Das passiert mit der Feldfunktion
{seq absatz \# "00000"}
Nachdem ich diese Feldfunktion für den ersten Absatz erstellt habe,
gehe ich Absatz für Absatz durch das Dokument und kopiere sie ein.
Eine ziemlich nervige und zeitaufwendige Sache.
Schöner wàre es, wenn ich die Feldfunktion z. B. über Suche / Ersetze
einfügen könnte, also etwa:
Suche ABSATZMARKE, ersetze durch Feldfunktion + ABSATZMARKE, und zwar
durch das ganze Dokument.
Weiß zufàllig jemand, wie so etwas geht?
Danke für jeden Hinweis.
Heinrich (HvK)
 

Lesen sie die antworten

#1 Michael Franke
07/12/2008 - 11:51 | Warnen spam
Hallo Heinrich,

Hallo Leute,
ich habe ein großes Word-Dokument mit über 1.000 Absàtzen. Am Ende
jedes Absatzes soll eine automatische Numerierung eingefügt werden.
Das passiert mit der Feldfunktion
{seq absatz \# "00000"}
Nachdem ich diese Feldfunktion für den ersten Absatz erstellt habe,
gehe ich Absatz für Absatz durch das Dokument und kopiere sie ein.
Eine ziemlich nervige und zeitaufwendige Sache.
Schöner wàre es, wenn ich die Feldfunktion z. B. über Suche / Ersetze
einfügen könnte, also etwa:
Suche ABSATZMARKE, ersetze durch Feldfunktion + ABSATZMARKE, und zwar
durch das ganze Dokument.
Weiß zufàllig jemand, wie so etwas geht?
Danke für jeden Hinweis.
Heinrich (HvK)



probier das mal mit folgender Prozedur:

Sub FeldfunktionEinfügen()
Dim strQuote As String
Dim rng As Range
Dim fld As Field
Dim par As Paragraph
strQuote = Chr$(34)
For Each par In ThisDocument.Paragraphs
Set rng = par.Range
rng.Collapse direction:=wdCollapseEnd
rng.MoveEnd Unit:=wdCharacter, Count:=-1
Set fld = rng.Fields.Add(rng, wdFieldSequence, "Absatz \# " &
strQuote & "00000" & strQuote)
Next
Set rng = Nothing
Set fld = Nothing
End Sub

Hat bei mir in einem Testlauf gut funktioniert.
Gruß, Michael

Ähnliche fragen