Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Schriften ersetzen
zurück: Suchformular (Zugriff Excel DB) u. Ausgabe Seriendruckfelder weiter: Text in vorhandene Zeile mit Text einfügen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
schoen99
VBA-Anfänger


Verfasst am:
06. Sep 2007, 22:33
Rufname:
Wohnort: Grünstadt

Schriften ersetzen - Schriften ersetzen

Nach oben
       Version: Office 2003

Hi Leute,

bräuchte mal wieder dringend Eure Hilfe.

Kann mir vielleicht jemand sagen wie ich in Word VBA nach bestimmten Schriften in einem Dokument suchen lassen kann und diese automatisch durch eine anderen definierte Schrift ersetzen kann ?

Hab hier schon gesucht wie ein verrückter finde aber irgendwie keine lösung.

Danke für Eure Hilfe schonmal im voraus.

Gruß
schoen99
CHF
Word-VBA Professional


Verfasst am:
07. Sep 2007, 07:18
Rufname:


AW: Schriften ersetzen - AW: Schriften ersetzen

Nach oben
       Version: Office 2003

Hi,
zeichne dir das doch mal mit dem Makrorekorder auf und schau in den Code Wink

_________________
Gruß

CHF

Bitte keine Anfragen per PN!
Fragen gehören ins Forum!
>
schoen99
VBA-Anfänger


Verfasst am:
07. Sep 2007, 07:39
Rufname:
Wohnort: Grünstadt

AW: Schriften ersetzen - AW: Schriften ersetzen

Nach oben
       Version: Office 2003

Hab ich schon aber der zeichnet nicht die Schriftänderung mit auf leider.

Weißt du noch einen anderen Weg ?

Gruß
schoen99
CHF
Word-VBA Professional


Verfasst am:
07. Sep 2007, 08:11
Rufname:

AW: Schriften ersetzen - AW: Schriften ersetzen

Nach oben
       Version: Office 2003

Code:
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = ""
    .Font.Name = "Arial"
    .Replacement.Text = ""
    .Replacement.Font.Name = "Verdana"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll

_________________
Gruß

CHF

Bitte keine Anfragen per PN!
Fragen gehören ins Forum!
>
schoen99
VBA-Anfänger


Verfasst am:
07. Sep 2007, 12:30
Rufname:
Wohnort: Grünstadt


AW: Schriften ersetzen - AW: Schriften ersetzen

Nach oben
       Version: Office 2003

Danke es klappt jetzt allerdings muss ich nicht .Name machen sondern .NameAscii

Code:
Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find
    .Text = ""
    .Font.NameAscii = "Arial"
    .Replacement.Text = ""
    .Replacement.Font.NameAscii = "Verdana"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
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 Formate: Gerade durch typografische Anführungszeichen ersetzen 2 Lepo 118 15. März 2014, 15:55
Lepo Gerade durch typografische Anführungszeichen ersetzen
Keine neuen Beiträge Word Formate: suchen und ersetzen auswahl löschen 0 gast1804 284 18. Okt 2011, 15:13
gast1804 suchen und ersetzen auswahl löschen
Keine neuen Beiträge Word Formate: Ganze Seite ersetzen 3 jetrca 1021 12. Jan 2011, 15:07
hyba Ganze Seite ersetzen
Keine neuen Beiträge Word Formate: Begriff ersetzen 8 rumburak 498 17. Nov 2010, 09:12
CHF Begriff ersetzen
Keine neuen Beiträge Word Formate: Frage zur "Ersetzen"-Funktion 2 Merkur 1230 22. Dez 2009, 14:39
Merkur Frage zur "Ersetzen"-Funktion
Keine neuen Beiträge Word Formate: Formatvorlage für Beschriftung ersetzen 0 Lischen16 406 12. Okt 2009, 08:14
Lischen16 Formatvorlage für Beschriftung ersetzen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word Formate: Suchen/Ersetzen von Textblöcken in Word 2 Lovic 2425 03. Jul 2009, 19:48
Lisa Suchen/Ersetzen von Textblöcken in Word
Keine neuen Beiträge Word Formate: Ersetzen von Leerzeichen durch geschütztes Leerzeichen 0 Gast 3839 09. Sep 2008, 10:27
Gast Ersetzen von Leerzeichen durch geschütztes Leerzeichen
Keine neuen Beiträge Word VBA Programmierung (Makros): Suchen und Ersetzen von Sonderzeichen mit Word Makro 5 Mr 10424 30. Jan 2007, 13:14
CHF Suchen und Ersetzen von Sonderzeichen mit Word Makro
Keine neuen Beiträge Word Formate: Absatzbuchstabe ersetzen - nur wie? 1 Annö 3546 31. Aug 2006, 09:09
Hübi Absatzbuchstabe ersetzen - nur wie?
Keine neuen Beiträge Word Serienbriefe: Felder in Zieldatei entgültig gegen ihre Inhalte ersetzen 2 mtc 911 23. Mai 2006, 15:32
mtc Felder in Zieldatei entgültig gegen ihre Inhalte ersetzen
Keine neuen Beiträge Word Formate: Schriften aus Word extrahieren 3 Gast 1719 12. März 2006, 12:55
Gast Schriften aus Word extrahieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen