Office: (Office 2019) Differenzen von Office 16 zu 2019

Hallo, bei folgender Voraussetzung habe ich ein Problem bei meinem Mitstreiter.
Wenn ich mit meiner Excel Version beim Mitstreiter auf dem PC ein Word Dokument erzeugen will kommt in etwa der Hinweis "Pfad nicht gefunden". Im VBA Code wird unter EXTRAS Verweise folgendes angezeigt: " (angeixt, o. markiert) Nicht vorhanden: Microsoft Word 16.0 Object...... Kann man diese Markierung bzw. den Fehler irgendwie korrigieren.

Ich Office 2019, mein gegenüber Office 2016.

Danke bis dahin

 

Hallo,

du meinst in etwa Folgendes: Da du Office2019 hast, existiert bei dir auf deinem PC die Objektbibliothek für "Microsoft Word 16.0 Object Library" oder so etwas Ähnliches wie in folgender Abbildung:

Da dein Kollege auf seinem PC diese Office-Version (offensichtlich) nicht hat, kann er exakt diese deine Version auch nicht auswählen. Er muss dann im obigen Fenster "Verfügbare Verweise" hinunter scrollen bis zu der Stelle, wo so etwas Ähnliches wie "Microsoft Word 15.0 Object Library" oder "Microsoft Word 14.0 Object Library" steht, die Checkbox davor anhaken und den Button "OK" anklicken. Dann hat er einen gültigen Verweis auf seine Word-Objekt-Bibliothek gesetzt, wodurch er im "Early-Binding"-Verfahren auf die Word-Objekte zugreifen kann. Während des Programmierens hat dieses Verfahren natürliche klare Vorteile.

Es gibt ein zweites Verfahren namens "Late-Binding". Häufig schaltet man nach getaner Programmierarbeit um in dieses Verfahren, weil es die vorhin erwähnten Probleme nicht kennt - man braucht keine Objektbibliothek vorher auswählen.

Beispielhaft habe ich dir so eine Doppelinstallation im Programm im Folgenden dargestellt. Indem man in der ersten Compilerdirektive "#Const Word_EarlyBinding = True" umstellt auf "= False" und nochmals kompiliert, erhält man ein Programm, das im Late-Bindung-Verfahren arbeitet. Alle Programmzeilen, die mit einem "#" beginnen, sind Anweisungszeilen an den VBA-Compiler und keine eigentlichen VBA-Codezeilen. Entsprechend dem Status von "Word_EarlyBinding" können so unterschiedliche Programmteile kompiliert werden.

Code:

Option Explicit

#Const Word_EarlyBinding = False

Public Sub WordTablesToExcel()

  Dim Datei As String
 
#If Word_EarlyBinding Then

  Dim wdApp As New Word.Application '(für Early-Binding)
  Dim wdDoc As Word.Document        '(für Early-Binding)
 
#Else

  Dim wdApp As Object               '(für Late-Binding)
  Dim wdDoc As Object               '(für Late-Binding)
  Const wdWindowStateMaximize =1    '(für Late-Binding)
 
' Neue Word-Instanz erzeugen (wegen Late-Binding)
  Set wdApp = CreateObject("Word.Application")
 
#End If

 
  With wdApp
    .WindowState = wdWindowStateMaximize
    .Documents.Open Datei$
    Set wdDoc = .Documents(1)
 
    'usw....
    '.......
 
    .Quit
  End With
 
End Sub

 

Danke für die Antwort. Werde es umgehend mal ausprobieren. Gruß

 

Hallo, bin erst jetzt dazu gekommen den Code einzuflechten.
Jetzt hätte noch eine Frage dazu (Problem). Wird der Code in den Excel VBA Code eingefügt oder beim Word Code?

Gruß MB

 

Hallo,

natürlich handelt es sich um VBA-Code in Excel, denn sonst würde eine Instanziierung eines Word-Objektes sinnlos sein.

Im Early-Binding-Verfahren (zur Compile-Time) wird gleichzeitig mit der Deklaration der Zeigervariablen "wdApp"
Dim wdApp As New Word.Application
auch sein Zeigerinhalt festgelegt, der auf ein konkretes, im Rechner-Heap erzeugtes Word.Application-Objekt (=New) verweist.
Man könnte daraus auch 2 Programmzeilen machen:
Dim wdApp As Word.Application '(=Deklaration)
Set wdApp = New Word.Application '(=Instantiierung)
Voraussetzung ist die Einbindung des Word-Application-Object-Library im VBA-Editor > Extras > Verweise ... > Verfügbare Verweise

Im Late-Binding-Verfahren wird zur Compile-Time die Zeigervariable "wdApp" deklariert und damit Zeiger-Speicherplatz innerhalb einer schon längst existierenden Excel-Instanz erzeugt:
Dim wdApp As Object
während erst zur Run-Time im Heap-Speicher des Rechners ein Word-Application-Objektinstanz erzeugt wird, auf die der Inhalt der Variable "wdApp" zeigt/verweist:
Set wdApp = CreateObject("Word.Application")