Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Davidoff99 am Oktober 25, 2018, 15:56:43 Nachmittag

Titel: Office 365: Word Report aus Eingebettete Wordvorlage in Excel erstellen
Beitrag von: Davidoff99 am Oktober 25, 2018, 15:56:43 Nachmittag
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
Titel: Antw:Office 365: Word Report aus Eingebettete Wordvorlage in Excel erstellen
Beitrag von: maninweb am Oktober 26, 2018, 09:57:40 Vormittag
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ß
Titel: Antw:Office 365: Word Report aus Eingebettete Wordvorlage in Excel erstellen
Beitrag von: Davidoff99 am Oktober 26, 2018, 11:14:09 Vormittag
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
Titel: Antw:Office 365: Word Report aus Eingebettete Wordvorlage in Excel erstellen
Beitrag von: maninweb am Oktober 27, 2018, 09:26:58 Vormittag
Hallo,

prima, dass Du eine Lösung gefunden hast.

Gruß