Hallo zusammen,

ich möchte für einen Freund einen Text konvertieren, den er in Word 2007 erstellt hat. Es handelt sich um eine Übersetzung, bei der er die Worte, die im Grundtext nicht stehen in kursiv gesetzt hat. Das Programm, in das ich importieren möchte, braucht statt dessen eine eckige Klammer for und nach den kursiven Zeichen
Beispieltext --> [Beispiel]text

Ich hab im Forum nichts wirklich passendes gefunden, hat jmd eine Idee/ ein Script?

Hallöchen, kaot.
(Netter Nick)

Suchen/Ersetzen mit Platzhaltern ist theoretisch möglich, halte ich aber für knifflig.
Daher am einfachsten mit diesem Makro:

Code

Sub maskiere() 
     
With Selection 
    .HomeKey unit:=wdStory 
    With .Find 
        .ClearFormatting 
        .MatchWildcards = False 
        .Text = "" 
        .Font.Italic = True 
        .Execute 
    End With 
     
    Do While .Find.Found 
        .Font.Italic = False 
        .InsertAfter "]" 
        .InsertBefore "[" 
        .Collapse wdCollapseEnd 
        .Find.Execute 
    Loop 
     
End With 
 
End Sub 

;-)

Viele Grüße,
Murphy