Html-tags durch Zeichenformattierung ersetzen

28/11/2007 - 13:47 von Hans List | Report spam
Hallo Leute,

dtieses Makro funktioniert an und für sich gut:

Sub test()
ResetSearch

'cursief-codes vervangen door opmaak
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = "\<i\>(*)\</i\>"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

ResetSearch

End Sub

Wenn zwischen dem <i> und </i> jedoch ein {REF...}-Feld steht, wird
dieses Feld nicht kursiviert.

Wer weiss eine Lösung?

Danke!

Hans List
 

Lesen sie die antworten

#1 Helmut Weber
28/11/2007 - 14:10 | Warnen spam
Hallo Hans,

versuchs mal mit dem Textretrievalmode-Objekt:

Sub Test44()
With ActiveDocument.Range.TextRetrievalMode
.IncludeFieldCodes = True
End With
End Sub

Kann's aber jetzt nicht testen.



Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen