Formatierung per Makro suchen und ändern

16/09/2009 - 15:57 von Dietmar Krawinkel | Report spam
Hallo zusammen,

ich muß vorweg schicken, dass ich ein VBA-Neuling bin!

Ich möchte in Word 2003 ein Dokument nach einer bestimmten
Formatierung
(Arial, Fett, 16 Pt) durchsuchen und eine neue Formatvorlage (z.B.
nummerierte Überschrift 1) zuordnen.

Das funktioniert manuell gut mit Suchen, Format suchen, Markieren,
neue Formatvorlage zuordnen
Zeichne ich ein entsprechendes Makro auf, funktioniert dieses nicht
mehr, da vermulich bei der Erstellung des Makros nicht die gesuchte
Formatierung ins Makro geschrieben wird.

Gibt es vielleicht noch eine andere Möglichkeit?
Wie müsste ein entsprechender VBA-Code aussehen?

Habe bereits mit Autoformat bzw. Formatvorlagenkatalog experimentiert,
jedoch ohne Erfolg.

Gruß
Dietmar
 

Lesen sie die antworten

#1 Thomas Gahler
18/09/2009 - 23:17 | Warnen spam
Hallo Dietmar

ich muß vorweg schicken, dass ich ein VBA-Neuling bin!


Willkommen


Ich möchte in Word 2003 ein Dokument nach einer bestimmten
Formatierung
(Arial, Fett, 16 Pt) durchsuchen und eine neue Formatvorlage (z.B.
nummerierte Überschrift 1) zuordnen.


Machen die nachstehenden Zeilen was du suchst?


Sub Demo1()
Dim rng As Word.Range

Set rng = ActiveDocument.Range

With rng.Find
'Suchen
.ClearFormatting
With .Font
.Bold = True
.Size = 16
.Bold = True
End With
.Text = ""
'Ersetzen
With .Replacement
.ClearFormatting
.Style = ActiveDocument.Styles(wdStyleHeading1)
End With
.Replacement.Text = ""
'Allgemeine Einstellungen
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
'Ausführen
.Execute Replace:=wdReplaceAll
End With
End Sub


Das funktioniert manuell gut mit Suchen, Format suchen, Markieren,
neue Formatvorlage zuordnen
Zeichne ich ein entsprechendes Makro auf, funktioniert dieses nicht
mehr, da vermulich bei der Erstellung des Makros nicht die gesuchte
Formatierung ins Makro geschrieben wird.


Hier ist der Makrorekorder leider fehlerhaft :-(



Thomas Gahler
MVP für Word
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows Vista (SP2), Office 2007 (SP1)

Ähnliche fragen