Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textabschnitte fett formatieren
zurück: Datensätze von Exel in Word importieren weiter: in beschriftete Etikettentabelle Text hinzüfügen 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
Andi63
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2014, 07:08
Rufname:

Textabschnitte fett formatieren - Textabschnitte fett formatieren

Nach oben
       Version: Office 2010

Hallo zusammen,

ich bräuchte Eure Hilfe. Ich sollte einen Makro haben, der in einem mehrseitigen Worddokument nach Doppelpunkten sucht.

Wenn ein Doppelpunkt gefunden wird, sollte ich entscheiden können, ob
1. nichts geschieht oder
2. der Text von diesem Doppelpunkt zurück bis an den Anfang der aktuellen Zeile fett formatiert wird.

Vielen Dank für Eure Hilfe
Andi
Miss Marple
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2014, 08:33
Rufname:
Wohnort: 52° 15' 53" N, 10° 31' 26" E

AW: Textabschnitte fett formatieren - AW: Textabschnitte fett formatieren

Nach oben
       Version: Office 2010

Moin,

sollte funktionieren:
Code:
Sub FindAndFormat()
Dim rngFindRange As Range

    Application.ScreenUpdating = False
    Set rngFindRange = ActiveDocument.Content
    rngFindRange.Collapse direction:=wdCollapseStart
       
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With rngFindRange.Find
        .Text = ":"
        .Forward = True
        .MatchCase = True
        .Wrap = wdFindStop
            Do While rngFindRange.Find.Execute = True
                rngFindRange.Select
                If MsgBox("Fett markieren?", vbYesNo) = 6 Then
                    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
                    Selection.Font.Bold = True
                End If
            Loop
    End With

    Selection.HomeKey Unit:=wdStory
    MsgBox "Fertig!"
    Application.ScreenUpdating = True

End Sub


Soll auch der Doppelpunkt fett formatiert werden, fügst du vor der Zeile
Code:
    Selection.HomeKey Unit:=wdLine, Extend:=wdExtend

die folgende Zeile ein:
Code:
    Selection.Collapse wdCollapseEnd


Gruß
MM
Andi63
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2014, 10:24
Rufname:


AW: Textabschnitte fett formatieren - AW: Textabschnitte fett formatieren

Nach oben
       Version: Office 2010

Das funktioniert ganz hervorragend !!!

Vielen herzlichen Dank - das hat mir mehrere Stunden Arbeit erspart !!!
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: Word Seriendruckfeld: Zahl bzw. Betrag formatieren 7 JoeM 13091 31. Jul 2013, 15:27
Schwabenfischer Word Seriendruckfeld: Zahl bzw. Betrag formatieren
Keine neuen Beiträge Word Serienbriefe: Seriendruckfeld als Hyperlink formatieren 1 Alex br. 1419 25. Jan 2013, 12:22
Know-iT Seriendruckfeld als Hyperlink formatieren
Keine neuen Beiträge Word Serienbriefe: Seriendruckfeld in Abhängigkeit formatieren 1 Stoxx 506 03. Aug 2010, 17:28
charlybrown Seriendruckfeld in Abhängigkeit formatieren
Keine neuen Beiträge Word Serienbriefe: Querverweis-Felder formatieren 1 itmoves 1010 26. Apr 2010, 14:10
itmoves Querverweis-Felder formatieren
Keine neuen Beiträge Word Serienbriefe: Sereienbriefe Bedingungsfeld formatieren 9 UwSchl 2117 31. Jan 2010, 17:19
Gast Sereienbriefe Bedingungsfeld formatieren
Keine neuen Beiträge Word Serienbriefe: Dokumentenvariable formatieren 0 Gourmetkoch 690 31. Dez 2009, 11:47
Gourmetkoch Dokumentenvariable formatieren
Keine neuen Beiträge Word Formate: Kopierten Text formatieren 2 Kocky 1312 11. Feb 2009, 16:55
Schneewittchen Kopierten Text formatieren
Keine neuen Beiträge Word Formate: Word 2003 kann nicht "nicht fett" akzeptieren 3 alei 1700 04. Nov 2008, 23:39
cbc042 Word 2003 kann nicht "nicht fett" akzeptieren
Keine neuen Beiträge Word Formate: Fußnoten formatieren 0 Gast 699 26. Okt 2008, 12:56
Gast Fußnoten formatieren
Keine neuen Beiträge Word Formate: Grafik formatieren - Rahmen um Bild legen 1 marcel87 16240 23. Okt 2008, 18:24
Wolfgang 1958 Grafik formatieren - Rahmen um Bild legen
Keine neuen Beiträge Word Formate: Formatieren einer Gliederung 3 schneggele 4244 12. Sep 2008, 11:50
Seppo Formatieren einer Gliederung
Keine neuen Beiträge Word Formate: 30 Seiten-Word-Doc in 15 Seiten-Heft formatieren 2 lancer86 1496 07. Jul 2008, 16:07
Gast 30 Seiten-Word-Doc in 15 Seiten-Heft formatieren
 

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