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
Du musst angemeldet sein, um einen Kommentar abzugeben.
Kann man offensichtlich tun Sie es. Es gibt einige Möglichkeiten, aber ich glaube, die unterhalb Lösung geben Ihnen einen Anhaltspunkt, wie
Document.Range(start,end)
Eigenschaft.Ich hatte etwas Mühe, das hinzufügen von Aufzählungszeichen, also hier ist der code, der für mich gearbeitet.
Beachten Sie, dass dies erfordert das hinzufügen einer Referenz zu
Microsoft Word 15.0 Object Library
Diese wird es tun...