Excel VBA zum erstellen von nummerierten Liste in Word

Ich versuche, mit VBA-code in Excel zum erstellen einer nummerierten Liste in ein Word-Dokument.

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add

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

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

Set wrdApp = Nothing
Set wrdDoc = Nothing

Wenn ich diese ausführe bekomme ich eine Fehlermeldung:

Methode 'ApplyListTemplateWithLevel' des Objekts 'ListFormat' ist fehlgeschlagen

Ich habe die Microsoft Word 12.0 Object Library in der Excel-VBA-Verweise Liste.

Getestet habe ich den code in Excel 2010 in Word 2010. es funktioniert perfekt... Testen in 2007
Verdammt! Mein Vista auf VMWare konfigurieren der updates. Wird Zeit dauern bis ich die testen kann das oben...
Schließlich es getestet in Office 2007. Es arbeitet gerade fein.
OK danke, noch nicht für mich arbeiten, also werde warten, um zu sehen, ob jemand irgendwelche Ideen hat.
was passiert, wenn Sie die Zeile hinzufügen DoEvents für die Zeile die den Fehler verursacht?

InformationsquelleAutor ploddingOn | 2012-04-26

  1. 1

    Ok habe das problem gefunden. Ich umgehend in eine Freunde-Maschine zu überprüfen. Ich habe den gleichen Fehler wie du, wenn es andere word-Dokumente öffnen. Wenn keine anderen word-Dokumente geöffnet sind, dann ist dein code funktioniert einfach gut.

    Versuchen, diesen code. Es latebinds mit der Word-Anwendung, so dass Sie nicht brauchen eine Referenz Hinzugefügt werden.

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

    '~~> 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

        DoEvents

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

    Set oWordApp = Nothing
    Set oWordDoc = Nothing
End Sub
    Es funktionierte - wunderbar! Ihrer Zeit sehr geschätzt.

    InformationsquelleAutor Siddharth Rout

Schreibe einen Kommentar