![](https://images.gutefrage.net/media/default/user/8_nmmslarge.png?v=1551279448000)
![](https://images.gutefrage.net/media/default/user/12_nmmslarge.png?v=1551279448000)
So schwer ist das nicht:
Dim xlApp As Object
Set xlApp = CreateObject("Word.Application")
xlApp.Documents.Add
xlApp.Visible = True
PS. Wenn du Word VBA mit eingebunden hast (Extras | Verweise |Mircrosoft Word Object Library), kannst du auch so definieren.
Dim xlApp As Word.Application
Set xlApp = CreateObject("Word.Application")
xlApp.Documents.Add
xlApp.Visible = True
(Dann hast du die Autovervollständigung etc.)