10.09.2024, 19:31
Hallo fremoikaner,
Mit X7 funktioniert Dein Code.
Ich nehme an, dass X3 Die CQL-Query nicht richtig
auswerten kann und deswegen alles ersetzt.
Du kannst versuchen Die Überprüfung der zu ersetzenden Schriftart in die Schleife zu packen:
Das könnte den Ablauf etwas langsamer machen,
aber vielleicht kommt X3 damit zurecht.
Gruß
Koter
Mit X7 funktioniert Dein Code.
Ich nehme an, dass X3 Die CQL-Query nicht richtig
auswerten kann und deswegen alles ersetzt.
Du kannst versuchen Die Überprüfung der zu ersetzenden Schriftart in die Schleife zu packen:
Code:
Sub textFont1a()
Dim p As Page, s As Shape, sr As ShapeRange
Dim i&, f$, fNew$
f = "Arial" 'your font to find
fNew = "1451_Eng_DB" 'new font
i = ActivePage.Index
For Each p In ActiveDocument.Pages
p.Activate
Set sr = ActivePage.Shapes.FindShapes(Type:=cdrTextShape) 'alle Texte suchen
For Each s In sr
If s.Text.Story.Font = f Then 'Schriftart prüfen
s.Text.Story.Font = fNew
End If
Next s
Next p
ActiveDocument.Pages(i).Activate
End Sub
Das könnte den Ablauf etwas langsamer machen,
aber vielleicht kommt X3 damit zurecht.
Gruß
Koter