VBA/Word hinzufügen von Aufzählungszeichen, Nummerierung etc

Zocke ich mit VBA-code, ermöglicht die automatische Erstellung von word-Dokumenten. In dem folgenden Beispiel, ich Schreibe ein Wort-Absatz 6-mal. Um bestimmte Formatierungen (Aufzählungszeichen, Nummerierung, setzen von text in Tabellen etc...) erscheint es notwendig, einen zweiten pass und eine Formatierung nach text erstellt wird. Kann das getan werden, in einem einzigen Durchgang wie VBA erlaubt es uns, mit Fett oder Kursiv?

Beispiel:
- toggle-Nummerierung
- write line

Sub Sample()
    Dim oWordApp As Object, oWordDoc As Object
    Dim i As Integer


    '~~> Establish an Word application object
    On Error Resume Next
    Set oWordApp = GetObject(, "Word.Application")

    If Err.Number <> 0 Then
        Set oWordApp = CreateObject("Word.Application")
    End If
    Err.Clear
    On Error GoTo 0

    oWordApp.Visible = True

    Set oWordDoc = oWordApp.Documents.Add

    With oWordDoc
        For i = 0 To 5
            .Content.InsertAfter ("Paragraph " & i)
            .Content.InsertParagraphAfter
        Next

        ' Yields execution so that the operating system can process other events.
        DoEvents

        ' why does this have to be done after creating text? 
        .Paragraphs(1).Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior

        .Paragraphs(2).Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior

    End With

    Set oWordApp = Nothing
    Set oWordDoc = Nothing
End Sub

Beispiel aus Excel VBA zum erstellen von nummerierten Liste in Word

Schreibe einen Kommentar