Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Script: Erstes Wort nach Punkt und Doppelpunkt groß
zurück: Makro einer eingebetteten Datei starten weiter: If Abfrage von Excel zu Word 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
Born
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2014, 11:19
Rufname:

Script: Erstes Wort nach Punkt und Doppelpunkt groß - Script: Erstes Wort nach Punkt und Doppelpunkt groß

Nach oben
       Version: Office 2013

Hallo,

ich korrigiere gerade sehr viele Texte, die mit Spracherkennung verschriftet wurden. Dabei würde mir ein Script, das den ersten Buchstaben nach einem Punkt oder Doppelpunkt (Normalerweise Satzanfang) groß schreibt sehr helfen.

ACHTUNG: Ich kann NICHT die übliche Vorgehensweise "Alles auswählen - Ersten Buchstaben im Satz großschreiben" benutzen, weil die Texte zahlreiche andere Formatierungen enthalten, die dadurch zerstört würden.

Also nur: Alle Worte nach Punkt oder Doppelpunkt in dem gesamten Dokument prüfen, ob groß geschrieben. Falls nein, mach groß.

Hat jemand eine Idee?

Gruß und Dank,

Marlon
Miss Marple
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2014, 13:19
Rufname:
Wohnort: 52° 15' 53" N, 10° 31' 26" E

AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß - AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß

Nach oben
       Version: Office 2013

Hi,

sollte tun ...
Code:
Sub CapsAfterColonAndFullStop()
    With Selection.Find
        .ClearFormatting
        .Text = ": ([a-z])"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
        While .Found
            Selection.Range.Case = wdUpperCase
            Selection.Collapse Direction:=wdCollapseEnd
            .Execute
        Wend
        .Text = ". ([a-z])"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
        While .Found
            Selection.Range.Case = wdUpperCase
            Selection.Collapse Direction:=wdCollapseEnd
            .Execute
        Wend
    End With
End Sub


Gesucht wird nach Doppelpunkt+Leerzeichen+Buchstabe, bzw. Punkt+Leerzeichen+Buchstabe. Doppelpunkt und Punkt ohne anschließendes Leerzeichen werden ignoriert.

Hoffe, das hilft
MM
Born
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2014, 19:07
Rufname:

AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß - AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß

Nach oben
       Version: Office 2013

Hallo MM,

superschön, vielen Dank. Dein Skript ist mir eine große Hilfe. Ich arbeit in Excel viel mit VBA. Ist schön, das mal hier zu erleben. Fast wie ein Heimspiel. ABer eben nicht ganz.
Eine Bitte hätte ich noch: Bei Beginn eines neuen Absatzes sollte das erste Wort auch großgeschrieben sein. Gibt es da noch eine Hilfe?

Herzlichen Gruß,

Marlon
Miss Marple
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2014, 19:45
Rufname:
Wohnort: 52° 15' 53" N, 10° 31' 26" E

AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß - AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß

Nach oben
       Version: Office 2013

Jepp, gibt es:
Code:
Sub FirstCharacterUpperCase()
Dim oPara As Paragraph

    For Each oPara In ActiveDocument.Paragraphs
        oPara.Range.Characters.First.Case = wdUpperCase
    Next
   
End Sub


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


Verfasst am:
29. Apr 2014, 19:54
Rufname:

AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß - AW: Script: Erstes Wort nach Punkt und Doppelpunkt groß

Nach oben
       Version: Office 2013

Erste Sahne. Vielen Dank.

Marlon
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: Seitenrand unten ist zu groß 4 sunacat 102 23. Apr 2014, 23:25
Barbett Seitenrand unten ist zu groß
Keine neuen Beiträge Word Formate: Wie groß ist ein pt? 10 CB|Burner| 52986 30. März 2013, 17:19
G.O.Tuhls Wie groß ist ein pt?
Keine neuen Beiträge Word Formate: Unterschiedliche Schriftgröße im selben Wort 1 Montanita 183 28. Jan 2013, 14:09
G.O.Tuhls Unterschiedliche Schriftgröße im selben Wort
Keine neuen Beiträge Word Formate: Word, Zeilenabstand "einfach" und "einfach + 3 syncmaster950p 1106 14. Jan 2013, 17:52
Gast Word, Zeilenabstand "einfach" und "einfach +
Keine neuen Beiträge Word Formate: Word zieht Zeichen zu einem komischen Wort zusammen???? 2 katawuschel 1397 06. Jan 2012, 15:14
G.O.Tuhls Word zieht Zeichen zu einem komischen Wort zusammen????
Keine neuen Beiträge Word Formate: Office 2011 Absatz zu groß? 4 Tim91 790 08. Okt 2011, 19:26
Tim91 Office 2011 Absatz zu groß?
Keine neuen Beiträge Word Formate: V mit Punkt kleine Frage 1 abc-noob 1305 19. Aug 2011, 12:00
G.O.Tuhls V mit Punkt kleine Frage
Keine neuen Beiträge Word Formate: Formatvorlage Überschrift mit Punkt gekennzeichnet 1 soeboe 2732 26. Apr 2011, 14:42
Löwi Formatvorlage Überschrift mit Punkt gekennzeichnet
Keine neuen Beiträge Word Formate: Überschriftennummerierung ohne abschließenden "Punkt&qu 3 konhead 492 28. März 2010, 19:49
konhead Überschriftennummerierung ohne abschließenden "Punkt&qu
Keine neuen Beiträge Word Formate: 1000er Trennzeichen im Diagramm Ändern (von Punkt auf Komma) 0 Cassidy20 2304 15. Dez 2009, 18:51
Cassidy20 1000er Trennzeichen im Diagramm Ändern (von Punkt auf Komma)
Keine neuen Beiträge Word Formate: Ein Wort vertikal über die ganze Seite 2 Geenie 1106 10. Nov 2009, 10:27
Geenie Ein Wort vertikal über die ganze Seite
Keine neuen Beiträge Word Formate: Fuß- und Kopfzeilen werden übermäßig groß 0 :Script 1910 10. März 2009, 13:10
:Script Fuß- und Kopfzeilen werden übermäßig groß
 

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