Object Library per VBA ?
16.02.2005 13:35:30
frankyb
habe eine grundsätzliche Frage: kann man per Makro einen Verweis im Excelmodul setzen?
Unten aufgeführtes Makro (habe ich von Hans) benötigt einen Verweis auf die „Microsoft Word Object Library“.
Nun wird die Prozedur auf verschiedenen Excel- bzw. Wordversion (8,9,10) verwendet und ich kann vom User nicht erwarten, dass er den Verweis entsprechend manuell ändert (könnte er auch nicht – weil Projekt ist geschützt).
Hat hier jemand einen Tipp oder eine Idee wie man das (anders) lösen könnte ?
Danke und Gruß
Frank
Sub OpenWordDoc()
Sheets("Steuerung").Activate
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
On Error GoTo w
AppActivate "Microsoft Word"
Set WordObj = Word.Application
GoTo n
w: Set WordObj = CreateObject("Word.Application")
n: Set WordDoc = WordObj.Documents.Open(Range("F43").Value) 'Pfad-WordDatei
Sheets("Steuerung").Activate
Worksheets("Steuerung").Range("M2:N16").Copy 'Datenbereich
WordDoc.Range.Paste
WordDoc.SaveAs Range("E66").Value 'Speicher Pfad
WordDoc.Application.Run "Makro1" 'Wordmakro
WordObj.Visible = True
WordDoc.Application.Activate
End Sub