|
Die genannten Methoden gibt es auch in Word. Im Code kann man also auf die gleiche Weise damit Daten manipulieren, wie bereits hier gezeigt.
Auf das Suchen nach Ausdrücken, wurde bisher nicht eingegangen. Hier gibt es in Word, gegenüber Excel, naütlich leichte Unterschiede. In beiden Fällen geschieht das jedoch mittels der Klasse Range.
Das hier ist die einfachste Form einer Suche. Man iteriert einfach über alle Wörter im Dokument.
Dim rngWord As Word.Range
Dim strReplace As String
strReplace = "567890"
For Each rngWord In ThisDocument.Content.Words
If Left$(rngWord.Text, 2) = "KL" And rngWord.Characters.Count > 2 Then
' Die Range kann am Ende nicht darstellbare Zeichen mit einschließen.
' Hiermit kann man diese Zeichen ausschließen - z.B. vbLf und vbCr
Call rngWord.MoveEndWhile(vbLf & vbCr, wdBackward)
rngWord.Text = "KL" & strReplace
End If
Next
In Word liefert ThisDocument.Content eine Instanz von Range und diese bietet eine Eigenschaft an, mit deren Hilfe man über alle Wörter im Dokument iterieren kann - Words und jene ist widerum eine Auflistung von Range Instanzen.
Grüße
PS: Wie gehabt, ungetesteter Code. (Ich hab aktuell weder Excel noch Word zur Verfügung)
PPS: Wenn du Crostposting betreibst, gehört ein Link zum anderen Post mit dazu - genau so steht es im Abschnitt nahe des "Beitrag hinzufügen"-Buttons auf dieser Seite beschrieben. Man müsste blind sein, dass nicht zu sehen.
|