Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Word Schriftart ändern(Makro)
zurück: Buchstabe mit Kreis drumherum weiter: Formeleditor Schriftart ändern?? 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
MicroFon
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Okt 2010, 11:01
Rufname:

Word Schriftart ändern(Makro) - Word Schriftart ändern(Makro)

Nach oben
       Version: Office 2003

Hallo,
ich möchte, dass nur das Feld "ActiveDocument.FormFields("Text2").Result" einen neuen Fontwert erhält. Bei der u.g. Version wird aber das ganze Dokument geändert.

Sub Makro1()

If ActiveDocument.FormFields("Text2").Result = "" Then
With Selection.Find
.ClearFormatting
.Font.Size = "10"
.Replacement.ClearFormatting
.Replacement.Font.Size = "2"
.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 If
End Sub


Hoffentlich kann mir jemand helfen!

Gruß
Jürgen
KeepCoolMan
VBA-NonExpert ;) Office 2010


Verfasst am:
18. Okt 2010, 16:06
Rufname: Thomas
Wohnort: Celle

AW: Word Schriftart ändern(Makro) - AW: Word Schriftart ändern(Makro)

Nach oben
       Version: Office 2003

Hi MicroFon,

das liegt wahrscheinlich daran, das du nichts selektiert hast.
Wenn du nur Text2 ändern willst, dann kannst du dir den Umweg über das Find-Objekt sparen. Mach's einfach so:
Code:
    With ActiveDocument.FormFields("Text1")
        If .Result = "" Then
            .Select
            Selection.Font.Size = 2
        End If
    End With


Oder hab ich etwas falsch verstanden?

Gruß
Thomas

_________________
Gruß Thomas

Ich freue mich über Feedback, Kritik und Verbesserungsvorschläge...
Wer will, findet Möglichkeiten; wer nicht will, findet Gründe! :: Unt wär Rächdshraibfela fint, daaf sie behaltn!
MicroFon
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Okt 2010, 20:17
Rufname:


AW: Word Schriftart ändern(Makro) - AW: Word Schriftart ändern(Makro)

Nach oben
       Version: Office 2003

Hallo KeepCoolMan,

toll, genau so.

Danke für die schnelle Hilfe

Gruß

Jürgen
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: Feldfunktionen in mehreren Serienbriefen gleichzeitig ändern 10 SBG 795 24. Nov 2011, 08:59
SBG Feldfunktionen in mehreren Serienbriefen gleichzeitig ändern
Keine neuen Beiträge Word Serienbriefe: Datenquellen ändern 0 Kojiro 1001 22. Aug 2011, 11:46
Kojiro Datenquellen ändern
Keine neuen Beiträge Word Serienbriefe: Schriftart unterschiedl. nach Einfügen der Seriendruckfelder 3 BenC 1837 28. Jul 2011, 01:21
charlybrown Schriftart unterschiedl. nach Einfügen der Seriendruckfelder
Keine neuen Beiträge Word Serienbriefe: .CustomDocumentProperties Namen ändern und neuorganisieren 3 boomshalek 2127 06. Jul 2011, 13:52
boomshalek .CustomDocumentProperties Namen ändern und neuorganisieren
Keine neuen Beiträge Word Serienbriefe: SQL Befehl Pfad ändern 1 doschtinator 1912 10. Mai 2011, 15:48
doschtinator SQL Befehl Pfad ändern
Keine neuen Beiträge Word Serienbriefe: Speicherort von Datenquelle und Serienbrief ändern 2 Joe1075 2328 06. Mai 2011, 10:27
Gast Speicherort von Datenquelle und Serienbrief ändern
Keine neuen Beiträge Word Serienbriefe: Durch Seriendruck Schattierung bedingt ändern 1 SirSten 1508 26. Mai 2009, 09:08
SirSten Durch Seriendruck Schattierung bedingt ändern
Keine neuen Beiträge Word Serienbriefe: Schriftart in Serienbrief 3 Moleka 3738 07. Nov 2008, 10:49
Gast Schriftart in Serienbrief
Keine neuen Beiträge Word Serienbriefe: Seriendruck, Textfelder und Fabren ändern 1 Unbreakable 1505 05. Apr 2007, 14:33
Unbreakable Seriendruck, Textfelder und Fabren ändern
Keine neuen Beiträge Word Serienbriefe: bei Kontrollkästchen Wahr/Falsch-Ausgabewert ändern 2 Barthalomeo 2311 02. Apr 2007, 18:06
Barthalomeo bei Kontrollkästchen Wahr/Falsch-Ausgabewert ändern
Keine neuen Beiträge Word Formate: Überschrift ändern 3 LaJ 1110 08. Apr 2006, 11:53
LaJ Überschrift ändern
Keine neuen Beiträge Word Formate: wie immer eine best. Schriftart beibehalten? 1 rockscientist01 1408 07. März 2006, 19:39
Hübi wie immer eine best. Schriftart beibehalten?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS