Ich habe ein Dokument voller Textfelder in Arial. Ich würde dieses Dokument aber gerne komplett in eine andere Schriftart setzen, ohne jedes Textfeld einzeln anklicken zu müssen. Alles Markieren hat nichts geholfen, da dabei nur ein Teil des Dokuments, also praktisch der unbeschriebene markiert wird. Wie kann man alles auf einmal markieren?
Gruß!
Chris
Ersetzen (Erweitert - Format - Zeichen …)
klappt auf jeden Fall.
Reinhard
Hallo Christopher
Vorausgesetzt alle Textfelder befinden sich im Haupteil des Dokumentes also nicht z.B. in der Kopf-/Fusszeile, ist dies mit dem folgendem Makro zu bewerkstelligen:
Sub SchriftartInTextfeldernÄndern()
Dim TF As Shape
For Each TF In ActiveDocument.Shapes
If TF.Type = msoTextBox Then
TF.TextFrame.TextRange.Font.Name = „Times New Roman“
End If
Next
End Sub
Sind auch Textfelder in der Kopf-/Fusszeile, muss das Makro um ein paar Zeilen erweitert werden. Melden Sie sich in diesem Falle nochmals.
Gruss
S. Widmer
Ersetzen (Erweitert - Format - Zeichen
…)
klappt auf jeden Fall.Reinhard
Genau so gehts, danke!!! Auch danke an Dich, Silvia, aber mit Makros komme ich nicht so zurecht. Mit Ersetzen geht’s natürlich einfacher!
Gruß!
Chris