|
Hallo zusammen und hallo nobody,
ich habe die Idee, einen Zwischenschritt über eine Textmarke zu gehen.
Bei einer textmarke kann ich hinreichend Text einfügen.
Ich muss aber erst einen Suchstring einfügen, da in mein "Hauptdoc" ein Baustein eingefügt wird und zwar mehrfach. Beim zweiten mal wäre dann die Textmarke dort nicht merh vorhanden.
Dass mach ich mit einer for viz to... :
Call SetzungenBookmark("YYYTEXT_BEREICH", "tmBEREICH_" & viz)
-->
Sub SetzungenBookmark(ByVal txtSuch As String, ByVal txtErsetz As String)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = txtSuch
' MsgBox (txtSuch & " " & txtErsetz)
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=txtErsetz
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Nur dass die Bookmark nicht bei dem Suchtext sondern (vermutlich) da gesetzt wird wo der Cursor gerade steht, wenn das Makro aufgerufen wird...
Wie krige ich bitte das BM da hin, wo der txtSuch ist ??
Danke
FG
|