|
Hallo zusammen,
ich suche für mein Problem schon länger eine Lösung und versuche es mal über einen Forenbeitrag.
Kurz zu meinem Makro an sich:
Das Makro öffnet eine Worddatei, welche als Vorlage dient. Danach werden in einer Schleife alle vom User markierten Dokumente geöffnet und in die Vorlagen Datei gekopiert. Das funktioniert auch einwandfrei, damit bin ich zufrieden. Allerdings möchte ich nun eine Zusatzfunktion mit einbauen, sodass der User über Checkboxen noch ein paar Kriterien auswählen kann. Daraufhin soll in den Dokumenten bestimmt markierter Text entfernt oder eben beibehalten werden.
Hier der aktuelle Codeschnipsel:
...
appWordSource.ActiveDocument.Select
If Sheets("Tabelle1").OLEObjects("CheckBox1" & i).Object.Value = True Then
With ActiveDocument.Selection.Find
.MatchWildcards = True
.Text = "Textanfang*Textende"
.Execute
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
End If
...
Das Problem das ich habe ist, dass der Text nicht gelöscht wird. Er greift regulär auf das Dokument zu, die Selection kann ich auch sehen, allerdings wird durch die If-Bedingung gerannt ohne etwas zutun.
Ich beschäftige mich erst seit knapp einem Jahr mit VBA und wäre für jeden Hilfe dankbar.
Viele Grüße
Rallus
|