Word VBA, Formatvorlage ersetzen

[drambeldier]

Liebe ExpertInnen,

ich ändere in einem Dokument per Bearbeiten > Ersetzen eine Formatvorlage und zeichne den Vorgang als Makro auf. Versuche ich, den Makro aufzurufen, passiert nichts, die Formatvorlagen im Dokument bleiben unverändert.

Den Makro habe ich nach dem Aufzeichnen noch parametrisiert, ansonsten ist er exakt so aufgezeichnet worden:

Sub Formatvorlage\_ersetzen(vorher As String, nachher As String)

 Selection.Find.ClearFormatting
 Selection.Find.Style = ActiveDocument.Styles(vorher)
 Selection.Find.ParagraphFormat.Borders.Shadow = False
 Selection.Find.Replacement.ClearFormatting
 Selection.Find.Replacement.Style = ActiveDocument.Styles(nachher)
 Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False
 With Selection.Find
 .Text = ""
 .Replacement.Text = ""
 .Forward = True
 .Wrap = wdFindContinue
 .Format = True
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Wer weiß was?

Gruß Ralf

[Reinhard_fb8cb7]

Hallo Ralf,

Wer weiß was?

Ich eher wenig

Auf den ertsn Blick vertshe ich einiges am Code nicht so ganz.
Mit
.Text = „“
.Replacement.Text = „“

ersetzt du Nichts durch Nichts!?
Was bringt das und wenn das so ist, braucht man sicher die ganzen Match-Dinger auch nicht.

Was steht denn in Vorher und nacher wenn du die Sub startest? Sind das in Word eingebaute Namen von Formatvorlagen oder eigene durch dich erstellte und benannte Formatvorlagen?

Auch wenn dein Code anscheinend derzeit kein Ergebnis, zeigt der nachstehende Code zumindest das gleiche Nichtergebnis?
Also könnte man ihn genausogut auch so schreiben und ggfs. paar Befehle rauswerfen um ihn übersichtlicher zu machen?

Option Explicit
'
Sub Formatvorlage\_ersetzen(vorher As String, nachher As String)
With Selection.Find
 .ClearFormatting
 .Style = ActiveDocument.Styles(vorher)
 .ParagraphFormat.Borders.Shadow = False
 .Replacement.ClearFormatting
 .Replacement.Style = ActiveDocument.Styles(nachher)
 .Replacement.ParagraphFormat.Borders.Shadow = False
 .Text = ""
 .Replacement.Text = ""
 .Forward = True
 .Wrap = wdFindContinue
 .Format = True
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
 .Execute Replace:=wdReplaceAll
End With
End Sub

Gruß
Reinhard

[drambeldier]

Moin, Reinhard,

Auf den ertsn Blick vertshe ich einiges am Code nicht so ganz.
Mit
.Text = „“
.Replacement.Text = „“

ersetzt du Nichts durch Nichts!?

ich nicht, Word macht das so Wenn ich mit der Maske Bearbeiten > Ersetzen arbeite, sieht das nicht anders aus - in den Feldern Suchen nach und Ersetzen durch scheint nichts zu stehen, Word ersetzt die Formatvorlagen dennoch.

Was steht denn in Vorher und nacher wenn du die Sub startest?

Die Namen der Formatvorlagen, eine heißt STANDARD, die andere ist von mir erstellt und in der Auswahlleiste verfügbar.

Auch wenn dein Code anscheinend derzeit kein Ergebnis, zeigt
der nachstehende Code zumindest das gleiche Nichtergebnis?

So isset.

Also könnte man ihn genausogut auch so schreiben und ggfs.
paar Befehle rauswerfen um ihn übersichtlicher zu machen?

Na ja - übersichtlicher… So lang da eine Zeile nach der anderen kommt, find ich das nicht so komplex, auch wenn ich nicht so recht weiß, wozu die Zeilen gut sind.

Die Parameter werden jedenfalls sauber übergeben, ich hab noch eine Msgbox dazwischengesetzt. Sie werden sogar richtig ausgewertet: Wenn ich eine nicht vorhandene Formatvorlage einsetze, kriege ich brav den Laufzeitfehler 5941, „Das angeforderte Element ist in der Sammlung nicht vorhanden“.

Gruß Ralf

[Reinhard_fb8cb7]

Word Faq von Rene probst
Hallo Ralf,

Rene hatte mal eine Klasse Seite zu Word, auch mit Vba Besipielen, leider gibt es die Seite(n) nicht mehr

Aber schau mal hier:

http://spotlight-wissen.de/lisp/pages/messages/amsw-…

und lade da die zip runter und den Entzipper. keine Ahnung warum da nicht normale Zipper Programme genommen wurden.

Zur Nor kann ich mal bei mir rumkramen, ich meine ich habe sie auch damals runtergeladen und zumindest versucht zu entzippen.

Ist auf jeden Fall eine wahre Fundgrube bei Word-Problemen.

Gruß
Reinhard

[MOD] - Tippfehler entfernt.

[Reinhard_fb8cb7]

das web ist voll von Suchanzeigen nach Probstens WordFAQs. Im
archive gibt es sie noch:
http://web.archive.org/web/20070503124443/mypage.blu…,
aber leider nicht am Stück

Sehr schade darum

Hallo Ralf,

per Email gings irgendwie nicht, entweder war deinem yahoo oder meinem gmx da was zu groß.

Schau mal hier: http://www.badongo.com/file/10703729
und hier: http://www.badongo.com/file/10703668

Es ist nicht gesgt daß da eine lösung für dein problem ist, aber man sollte die pdfs haben *find*

Gruß
Reinhard