Makro Suchen und Ersetzen HTML-Tags Formatvorlage

21/08/2007 - 13:46 von Chris | Report spam
Hallo,

habe ein Makro erstellt um aus (eigenen) HTML-Steuerzeichen
Wordformatierungen zu erzeugen (und umgekehrt).

Aus <U1>Überschrift1</U1> wird der Text zwischen den Tags mit der
Standardformatvorlage "Überschrift 1" formatiert. Komisch ist nur, dass das
gesamte Dokument mit Überschrift 1 formatiert wird und nicht nur der Text
zwischen den Tags !??

Hier ein Auschnitt:

With ActiveDocument.Range.Find
'HTML-Tag U1 finden und ersetzen
.ClearFormatting
.Replacement.ClearFormatting
.Format = True
.MatchWildcards = True
.Text = "(\<U1\>)(*)(\</U1\>)"
.Replacement.Text = "\2"
.Replacement.Style =
ActiveDocument.Styles(WdBuiltinStyle.wdStyleHeading1)
.Execute Replace:=wdReplaceAll
End With

Die HTML-Tags für die Überschriften werden wie folgt erzeugt:

Dim oRange, oWord As Range

Set oRange = ActiveDocument.Range(ActiveDocument.Range.Start,
ActiveDocument.Range.End)

For Each oWord In oRange.Words

Dim str As String

Select Case oWord.Style

Case ActiveDocument.Styles(WdBuiltinStyle.wdStyleHeading1)

str = oWord.Text

oWord.Text = "<U1>" + str + "</U1>"

oWord.Style =
ActiveDocument.Styles(WdBuiltinStyle.wdStyleNormal)

str = ""

End Select

Next

Mfg
Chris
 

Lesen sie die antworten

#1 Christian Freßdorf
22/08/2007 - 10:44 | Warnen spam
Hallo Chris,

Du hast vermutlich in der Formatvorlage die Option
"automatisch aktualisieren" markiert.
Entfern die Option und teste es erneut.


Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen