VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Alle geöffneten Tasks auslesen

Gruppe

Extern

Bereich

Word

Thema

Alle geöffneten Tasks auslesen

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Word