Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle geöffneten Tasks auslesen

Gruppe

Word

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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