---

Hallo
Bekomme es zwar hin, dass das Dokument geöffnt wird, aber nicht, daß der Text in dem Dokument erscheint:

Private Sub Test_Click()

On Error Resume Next

Dim Word As Object

Set Word = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set Word = CreateObject("Word.Application")
    End If

Word.Visible = True
Word.Documents.Add DocumentType:=wdNewBlankDocument
   
  With Selection
  .TypeText Text:="Test"
  .TypeParagraph
  .TypeText Text:="Test2"
  .TypeParagraph
  End With

End Sub

Wo ist der Fehler

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo commader_hugo (neuer Rang, so ohne n in commander SCNR),

da du im Excelforum schreibst gehe ich mal davon aus, dass der Commadnbutton in Excel geklickt wird. Dann musst du auch bei der Selection noch Word. davorschreiben, damit das Makro weiß, dass es in Word passieren soll:

  With Word.Selection
  .TypeText Text:="Test"

Wenn du die Fehlerbehandlung wieder einschaltest (On Error Goto 0) hättest du es einfacher mit dem Debuggen 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP