Thema Datum  Von Nutzer Rating
Antwort
24.09.2018 08:24:49 Tom
NotSolved
24.09.2018 08:29:57 Gast67581
NotSolved
24.09.2018 08:47:17 Tom
NotSolved
Blau zusammengefügtes WordDokument; Überschriften formatieren
 24.09.2018 10:11:38 Gast39553
NotSolved

Ansicht des Beitrags:
Von:
Gast39553		 Datum:
24.09.2018 10:11:38		 Views:
449		 Rating:
     
Antwort:
  Ja
Thema:
zusammengefügtes WordDokument; Überschriften formatieren

es kommt auf jedes Zeichen an, ohne Datei musst du dir den Rest selbst schreiben:

 

Sub Tom()
With ActiveDocument.Paragraphs
    For i = 1 To .Count
    Debug.Print
         If InStr(1, .Item(i).Range.Text, Chr(9)) > 0 Then
            Tr = Chr(9)
        Else
            Tr = Chr(32)
        End If
        
        Kap = Split(.Item(i).Range.Text, Tr)(0)
        If IsNumeric(Kap) Then
            Select Case Len(Kap)
                Case 1
                    E1 = E1 + 1
                    E2 = 0
                    E3 = 0
                    .Item(i).Style = ("Überschrift 1")
                Case 3
                     E2 = E2 + 1
                     E3 = 0
                    .Item(i).Style = ("Überschrift 2")
                Case 6
                     E3 = E3 + 1
                    .Item(i).Style = ("Überschrift 3")
            End Select
        End If
         
    Next i
End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
24.09.2018 08:24:49 Tom
NotSolved
24.09.2018 08:29:57 Gast67581
NotSolved
24.09.2018 08:47:17 Tom
NotSolved
Blau zusammengefügtes WordDokument; Überschriften formatieren
 24.09.2018 10:11:38 Gast39553
NotSolved