Forum des Access-Tutorials

suchen und ersetzen - ein Teil des ersetzenden Wortes kursiv (VBA)

papa342001, Sonntag, 14. Januar 2018, 09:31 (vor 39 Tagen)

Hallo Zusammen,
benötige ein Marko für Word 2016, welches einen Teil des ersetzenden Wortes über die Suchen und Ersetzen Funktion kursiv darstellt.
Beispiel:
Ich suche das Wort Autobahn und möchte es ersetzen durch das Wort Autobahn, wobei das Teilwort bahn kursiv dargestellt wird.
Kann mir hier jemand weiterhelfen?
Für die Mühe im Voraus besten Dank.

suchen und ersetzen - ein Teil des ersetzenden Wortes kursiv

Martin Asal, Dienstag, 16. Januar 2018, 09:14 (vor 37 Tagen) @ papa342001

möglicherweise hilft dir das hier:

 
Sub suche()
Dim dlg As Dialog
 
Set dlg = Application.Dialogs(wdDialogEditReplace)
 
dlg.Find = "Autobahn"
dlg.Replace = "Autobahn"
dlg.Show
 
End Sub


Im "Replace"-Feld kannst du dann "bahn" markieren und unten, mit dem Button "Format" die Formatierung wie gewünscht einstellen.

Martin

RSS-Feed dieser Diskussion
RSS Einträge  RSS Threads   Kontakt
powered by my little forum