Hallo,
kann mir Bitte jemand helfen? Ich bin noch sehr neu was VBA angeht. Was mache ich falsch?:
Set myrange = ActiveDocument.TablesOfFigures
With myrange.Find.Replacement.Execute
Font.Bold = True
Font.Italic = True
replaceWith:
.Font.Bold = True
.Font.Italic = False
End With
Der Fehler ist wahrscheinlich offensichtlich. Für mich aber leider nicht.
Danke im Voraus!
MfG
|