Office 365: Word Report aus Eingebettete Wordvorlage in Excel erstellen

[Davidoff99]

Hallo liebe Forums Mitglieder,
aus einem Excel soll ein Word Report erstellt werden.
Hierzu habe ich die Wordvorlage in einem Excelsheet eingefügt.
Hierzu habe ich folgenden Code:

Modul AutoOpen
'Declaration Word
   Public WordApp As Object
   Public oDoc As Object
   Public dp As Object
   Public wd As Object
...

Modul Report
If Err.Number <> 0 Then
    Set WordApp = CreateObject("Word.Application")
    Word.Application.WindowState = wdWindowStateMinimize
End If
   
   Worksheets("Docs").Visible = xlSheetVisible
   Worksheets("Docs").Select
   ActiveSheet.OLEObjects("DC-FRA-TEMPLATE-ENGLISH").Verb Verb:=xlVerbAdd
   Set oDoc = ActiveSheet.OLEObjects("DC-FRA-TEMPLATE-ENGLISH")

   WordApp.DisplayAlerts = 0
   Application.ScreenUpdating = False
   Word.Application.WindowState = wdWindowStateMinimize

   Set wd = GetObject(, "Word.Application")
   WordApp.Visible = False
...


jetzt bekomme ich die Fehlermeldung das Variable xlVerbAdd nicht definiert sei.
Wenn ich den Patz xlVerdAdd weglassen bekomme ich die Fehlermeldung Typen unverträglich in Zeile:
Set oDoc = ActiveSheet.OLEObjects("DC-FRA-TEMPLATE-ENGLISH")

Jemand eine Idee?

D&G
Davidoff99

[maninweb]

Hallo,

es gibt keine Konstante xlVerbAdd im Excel-Objektmodell. Die verfügbaren Konstanten findest Du hier ...

https://docs.microsoft.com/de-de/office/vba/api/excel.xloleverb

Gruß

[Davidoff99]

Hallo maniweb,
danke für den Link. Habs mit xlVerbOpen und xlVerbPrimary schon probiert. Gleiche Fehlermeldung.

Wenn ich jedoch den Code wie folgt abändern geht es:
   Worksheets("Docs").Visible = xlSheetVisible
   Worksheets("Docs").Select
   Worksheets("Docs").OLEObjects("AITB-ENGL").Verb
   Set oDoc = Worksheets("Docs").OLEObjects("AITB-ENGL")


Grüße Davidoff99

[maninweb]

Hallo,

prima, dass Du eine Lösung gefunden hast.

Gruß