AW: Command Button einrichten zu Word Dokument
14.11.2005 20:11:34
Heiko
Hallo Markus,
ja das geht.
In diesem Makro (auch mal hier im Forum gefunden) den Dateipfad und gegebenenfalls die Zeilen mit der WORD Version anpassen, dann das ganze einem Button zuweisen.
Geht sicherlich auch mit weniger Aufwand, aber hier kannst du dann das Worddokument aus EXCEL heraus sogar steuern.
Beispiel hier, nur öffnen.
Sub Word_open_File()
Application.ScreenUpdating = False
Dim myWord As Object
'Fehlerroutine für die Objectabfrage aktivieren
On Error Resume Next
' Abfragen einer bestehenden WORD-Instanz um wiederholtes starten zu verhindern
' 9 = Word 2000
' 10 = Word XP
' 11 = Word2003
Set myWord = GetObject(, "Word.Application.9")
'Set myWord = GetObject(,"Word.Application.10")
'Set myWord = GetObject(,"Word.Application.11")
If Err.Number <> 0 Then
'Fehlervariable leeren wenn Instanz noch nicht besteht
Err.Clear
'Zuweisung der Instanz
Set myWord = CreateObject("Word.Application.9")
' Set myWord = CreateObject("Word.Application.10")
' Set myWord = CreateObject("Word.Application.11")
'Instanz öffnen
myWord.Visible = True
Else
'Instanz besteht bereits
myWord.Activate
'Instanz in der Vordergrund bringen.
myWord.Visible = True
End If
'Hier muss der der Dateiname stehen der verwendet werden soll
'myWord.Application.Documents.Open "\\myser\test\test.doc"
myWord.Application.Documents.Open "C:\Copy\test.doc"
'Das aktive WordDokument drucken
'myWord.ActiveDocument.PrintOut
'Dokument schliessen ohne speichern
'myWord.ActiveDocument.Close savechanges:=False
'WORD-Instanz schliessen
'myWord.Application.Quit (True)
'Variable leeren
Set myWord = Nothing
Application.ScreenUpdating = True
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett