MS Word öffnen über Commandbutton

• MS Word öffnen über Commandbutton von Manu vom 27.10.2003 11:15:42
  • AW: MS Word öffnen über Commandbutton - von Galenzo am 27.10.2003 11:21:05
    • AW: MS Word öffnen über Commandbutton - von Manu am 27.10.2003 11:27:28
      • AW: MS Word öffnen über Commandbutton - von Galenzo am 27.10.2003 11:35:27
        • AW: MS Word öffnen über Commandbutton - von Manu am 27.10.2003 11:47:14
          • AW: MS Word öffnen über Commandbutton - von Galenzo am 27.10.2003 12:37:42
            • AW: MS Word öffnen über Commandbutton - von Galenzo am 27.10.2003 12:39:43
              • AW: MS Word öffnen über Commandbutton - von manu am 27.10.2003 12:59:10

Betrifft: MS Word öffnen über Commandbutton
von: Manu
Geschrieben am: 27.10.2003 11:15:42
Hallo Excelfreunde,
ich habe da ein kleines Problem bei dem mir vielleicht wer helfen kann.
Ich wollte über einen Commandbutton eine existierende Worddatei öffnen.
Dazu habe ich einen Shell Befehl im Internet gefunden. Dieser öffnet auch Word nur nicht die vorhandene Worddatei. Kann man das auch ohne Shellbefehl lösen ?
Tschüßi
Manu

Betrifft: AW: MS Word öffnen über Commandbutton
von: Galenzo
Geschrieben am: 27.10.2003 11:21:05
Hallo,

Vorraussetzung: die entsprechende M$Word-Objektbibliothek ist einzubinden.
Gehe dazu im VBA auf "Extras/Verweise" und suche + aktiviere dort die
"Microsoft Word x.0 Object Library".

Dann weiter so:

(File ist dein Worddokument)

Dim appWord As Word.Application
Dim docWord As Word.Document
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.Documents.Open(File)
appWord.Visible= True

Viel Erfolg!

Betrifft: AW: MS Word öffnen über Commandbutton
von: Manu
Geschrieben am: 27.10.2003 11:27:28
Hallo Galenzo, dankeschön für die Hilfe,
wenn ich für File den Dateinamen einsetze :Liesmich(.doc) meckert der Compiler dass Variable nicht deklariert ist und wenn ich daraufhin "Option explicit" wegmache kommt die Meldung "Objekt erforderlich". Stimmt da was nicht?

Betrifft: AW: MS Word öffnen über Commandbutton
von: Galenzo
Geschrieben am: 27.10.2003 11:35:27
Entweder so:
Set docWord = appWord.Documents.Open("C:\meinDokument.doc")

Oder so:
Dim sDatei As String
sDatei="C:\meinDokument.doc"
Set docWord = appWord.Documents.Open(sDatei)

..und den Verweis auf die Objektbibliothek nicht vergessen!

Grüße

Betrifft: AW: MS Word öffnen über Commandbutton
von: Manu
Geschrieben am: 27.10.2003 11:47:14
Komisch: beide Versionen gehen nicht fehlerfrei. Den Verweis muss man nur im menü anklicken, sonst doch keinen zusätzlichen Code einbauen?
Klappt der Code bei Dir?

Betrifft: AW: MS Word öffnen über Commandbutton
von: Galenzo
Geschrieben am: 27.10.2003 12:37:42
Ja, hab' ich so probier und es klappt auch so.
Den Verweis aktivierst du im VBA-Teil unter Extras/Verweise.

mfg

Betrifft: AW: MS Word öffnen über Commandbutton
von: Galenzo
Geschrieben am: 27.10.2003 12:39:43
Oder OHNE expliciten Verweis (sog. Late-Binding):

Private Sub CommandButton1_Click()
Dim appWord As Object
Dim docWord As Object
Set appWord = CreateObject("Word.Application")
Set docWord = appWord.DOCUMENTS.Open("c:\test.doc")
appWord.Visible = True
End Sub

Betrifft: AW: MS Word öffnen über Commandbutton
von: manu
Geschrieben am: 27.10.2003 12:59:10
Geht auch dann nicht.
Kann es sein, dass der Ordner nicht schreibgeschützt sein darf(kann es aber auch nicht ändern)?

ich löse das irgendwie anders.
Aber danke für die Zeit die ich Dir geraubt habe.

Excel-Beispiele zum Thema " MS Word öffnen über Commandbutton"
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen	CommandButtons in verschiedenen Tabellen mit einem Makro
CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden