Gruppe
Extern
Problem
Alle geöffneten Tasks sollen über den Word-Tasks-Befehl in diese Tabelle eingelesen werden. In der Entwicklungsumgebung muss ein Verweis zur Microsoft Word Object Library hergestellt sein.
StandardModule: Modul1
Sub CreateMsgTasks()
Dim appWord As Object
Dim iCounter As Integer
Set appWord = CreateObject("Word.Application")
For iCounter = 1 To appWord.Tasks.Count
Cells(iCounter, 1) = appWord.Tasks(iCounter)
Next iCounter
Set appWord = Nothing
End Sub