Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formatvorlagen suchen und ersetzen mit Makro
zurück: Autom.Zeilenabstand in 2010 abstellen weiter: Längere Abhandlung mit Seitenzahlen um eine Seite ergänzen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
zausel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Okt 2007, 15:44
Rufname:

Formatvorlagen suchen und ersetzen mit Makro - Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo rundherum,
ich muss in mehreren Dokumenten Formatvorlagen suchen und ersetzen. Zu Fuß funktioniert das mit der Funktion: Bearbeiten/Ersetzen/Format/Formatvorlage einwandfrei. Diese Aktion zeichne ich dann in einem Makro auf um sie öfters ausführen zu können. Wenn ich dieses Makro ausführe, bekomme ich zwar keine Fehlermeldung, ersetzt wird jedoch auch nichts. Lediglich der Eintrag im "Suchen" und im "Ersetzen" Feld ist beim nächsten Aufruf dieser Funktion um eine Rahmenangabe erweitert. Übrigens funktioniert das Ganze bei Text suchen und ersetzen auch im Makro einwandfrei. Was mache ich falsch? Da ich keine Makrokenntnisse habe, muss ich mich auf die Aufzeichnungsfunktion beschränken.
Gruß Michael
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
31. Okt 2007, 19:18
Rufname:
Wohnort: Leipzig


AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Michael,

das lässt sich leider nicht aufzeichnen. Man kann den aufgezeichneten Code aber anpassen:
Code:
Sub SuchenErsetzenFuerFV()
       
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
    End With
   
    With Selection.Find
        .Text = ""
        .Style = ActiveDocument.Styles("Textkörper")  'Hier die Suchvorlage eingeben
        .Replacement.Text = ""
        .Replacement.Style = ActiveDocument.Styles("Standardeinzug") 'und hier den Ersatz
        .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

Hier lasse ich jetzt die Formatvorlage "Textkörper" durch "Standardeinzug" ersetzen.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
zausel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Jan 2008, 09:05
Rufname:

AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Lisa,

vielen Dank für deine schnelle Lösung! Ich hatte bis jetzt leider keine Gelegenheit es zu testen (Der Jahresendeallesmussfertigwerdenstress Wink ). Aber eben gerade habe ich es an einem kleinen Beispiel ausprobiert. Es funktioniert! Danke Very Happy
elukas
Im Profil kannst Du frei den Rang ändern


Verfasst am:
01. Nov 2010, 13:16
Rufname:

AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Lisa,

der Script ist genial... eine Sache wäre noch toll... wie kann man zusätzlich im Absatz die fetten Wörter in eine andere Formatvorlage ändern...

Der gesamte Absatz hat das Format - Ü2 Absatz
das fette Wort - Ü2 Absatz fett
ein kursives Wort - Ü2 Absatz kursiv
ein unterstrichenes Wort - Ü2 Absatz unterstrichen


Code:
With Selection.Find
        .Text = ""
        .Style = ActiveDocument.Styles("Ü2 Absatz")  'Hier die Suchvorlage eingeben

        wie kann man das Format+fett ansteuern

        .Replacement.Text = ""
        .Replacement.Style = ActiveDocument.Styles("Ü2 Absatz fett") 'und hier den Ersatz
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll


für jede Hilfe bin ich sehr dankbar
elukas
Gast



Verfasst am:
03. Jan 2011, 10:30
Rufname:


AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo elukas,

mit diesem Code findest den fetten Text:
With ActiveDocument.Content.Find
.Font.Bold = True
End With

der Rest sollte weiterhin so funktionieren

ciao max
Gast



Verfasst am:
03. Jan 2011, 12:30
Rufname:

AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Max und alle hier Anwesenden,

Prosit Neujahr 2011

das werd ich mir heute Abend mal ansehen...

danke schon mal
Liebe Grüße
elukas
elukas
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Jan 2011, 13:48
Rufname:

AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Max und Lisa,

leider hab ich es nicht hinbekommen... irgendwie muss das doch gehen oder funktioniert das definitiv nicht?

Man muss doch in einem Dokument auffindbar machen und in ein Format umwandeln können:

fettes Wort > Stilfett
kursives Wort > Stilkursiv
unterstrichenes Wort > Stilunterstrichen

liebe Grüße
elukas
elukas
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Jan 2011, 17:39
Rufname:

AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Freunde,

hab es mit dieser Möglichkeit fast hinbekommen leider macht er auch die Überschriften dann in diesem Stil... wie kann ich das verhindern vielleicht hat jemand eine Idee.

Ich denke man müsste alle Überschriften übergehen also auslassen können das wäre die einfachste Lösung...

Code:
With ActiveDocument.Range.Find
    .Text = ""
    .Font.Bold = True 'hier werden alle fetten Wörter gesucht
    .MatchCase = True
    .MatchWholeWord = True
    .Format = True
    .Replacement.Style = ActiveDocument.Styles("993_Fett") ' hier werden sie ersetzt
    .Execute Replace:=wdReplaceAll
  End With


lg elukas
elukas
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Jan 2011, 18:09
Rufname:


AW: Formatvorlagen suchen und ersetzen mit Makro - AW: Formatvorlagen suchen und ersetzen mit Makro

Nach oben
       Version: Office 2003

Hallo Leute,

ich hab eine etwas umständlichere Lösung...

Code:
With ActiveDocument.Range.Find
    .Text = ""
    .Font.Bold = True 'hier werden alle fetten Wörter gesucht
    .Style = ActiveDocument.Styles("Absatzstil") 'hier wird der Absatzstil der dursucht wird eingegeben
    .MatchCase = True
    .MatchWholeWord = True
    .Format = True
    .Replacement.Style = ActiveDocument.Styles("993_Fett") ' hier werden sie ersetzt
    .Execute Replace:=wdReplaceAll
  End With


wenn man mehrere Absatzstile verwendet muss man für jeden das einzeln machen funktioniert wunderbar... schön wäre es halt umgekehrt gewesen

lg elukas
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Makro, Seiten an verschiedene Drucker 2 hankfrittes 78 01. Apr 2014, 07:12
Gast Serienbrief mit Makro, Seiten an verschiedene Drucker
Keine neuen Beiträge Word Serienbriefe: Einbinden Textmarken und Makro aus DOT-Datei in Serienbrief 0 hurganator 690 21. Feb 2012, 10:36
hurganator Einbinden Textmarken und Makro aus DOT-Datei in Serienbrief
Keine neuen Beiträge Word Serienbriefe: Makro automatisch nach Erstellung des Serienbriefs starten. 2 multimania 774 16. Mai 2011, 18:55
Gast Makro automatisch nach Erstellung des Serienbriefs starten.
Keine neuen Beiträge Word Serienbriefe: Platzhalter in Word aus Tabelle in Excel ersetzen 1 Alex aus MUC 4916 24. Jun 2007, 22:00
Alex aus MUC Platzhalter in Word aus Tabelle in Excel ersetzen
Keine neuen Beiträge Word Formate: Text in bestimmter Formatvorlage suchen 2 angoraschaf 3405 14. Mai 2007, 13:38
Werner72 Text in bestimmter Formatvorlage suchen
Keine neuen Beiträge Word Formate: Formatvorlagen einfügen 1 Kesina 5437 01. März 2007, 14:38
Hübi Formatvorlagen einfügen
Keine neuen Beiträge Word Formate: Rückgängig machen des Ersetzen eines Word Dokuments 2 Gast 7050 27. Feb 2007, 16:49
Gast Rückgängig machen des Ersetzen eines Word Dokuments
Keine neuen Beiträge Word Serienbriefe: Serienfeld durch anderes ersetzen, wenn Feld leer ist 4 nikos58 4334 27. Feb 2007, 13:30
nikos58 Serienfeld durch anderes ersetzen, wenn Feld leer ist
Keine neuen Beiträge Word Serienbriefe: Suchen von Feldinhalt in Serienbrief findet nichts 4 Smiley 3912 08. Nov 2006, 18:38
Ina Suchen von Feldinhalt in Serienbrief findet nichts
Keine neuen Beiträge Word Formate: Suchen und Ersetzen von Zahlen 1 wepsy 1887 25. Aug 2006, 22:15
Hübi Suchen und Ersetzen von Zahlen
Keine neuen Beiträge Word Formate: Schriftgröße bei allen Formatvorlagen um 0,5 pt verkleinert 0 africandude 1485 23. Aug 2006, 17:32
africandude Schriftgröße bei allen Formatvorlagen um 0,5 pt verkleinert
Keine neuen Beiträge Word Formate: Word Formatvorlagen für Tabellen 2 buchnase 4139 03. Aug 2006, 12:06
buchnase Word Formatvorlagen für Tabellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln