|
Guten Tag aus Wien, ich möchte eine Worddatei zeilenweise einlesen und am Beginn und Ende jeder Zeile einen Text einfügen. Die Sinnhaftigkeit ist der vielen Freizeit in der Coronakrise geschuldet, danke fürs Verständnis und eure Hilfe!
ich habe nach etlichen Googleaktionen das gefunden, hat mir bei einem anderen Problem geholfen. Aber für das oben beschriebene erscheint es mir nicht als Lösungsansatz :-(.
.
.
.
appWord.Documents.Open "Dateiname"
With appWord.Selection.Find
.Text = "2019"
.Replacement.Text = "2020"
.Forward = True
.Wrap = wdFindContinue
End With
appWord.Selection.Find.Execute Replace:=wdReplaceAll, MatchCase:=True
appWord.ActiveDocument.Close Savechanges:=True
.
.
.
|