Specifiek word doc openen.

[JanDeWilder]

Ik heb via een macro, geschreven in excel, een document volledig klaar gemaakt voor in een bestaand Word doc. te plakken. Maar het openen van het specifiek Word doc. lukt me maar niet via de macro. Ik krijg steeds een foutmelding als ik deze macro wens uit te voeren. Kan iemand me verder helpen met dit, voorlopig heb ik dit al:

Sub OpenenWord()
'
' OpenenWord Macro
' Openen van Basisofferte in word.
'

'Dim word As Object
Dim DocNaam As String
' Openen van document in word
Set word = CreateObject("word.basic")
word.fileopen "W:\OA2008_gekoppeld_05.doc"
word.appshow

End Sub

Alvast bedankt..

Als iemand ook nog weet hoe je er voor kan zorgen dat ik meteen het venster "opslaan als" krijg, laat maar iets weten. Dit is echter niet prioritair.

 

[etri]

Ik zou het zo doen:

Public Sub OpenenWord()

   Dim oWord As Object

   Set oWord = CreateObject("Word.Application")
   oWord.Visible = True
   oWord.Documents.Add "W:\OA2008_gekoppeld_05.doc"
   oWord.Documents.Save

End Sub

 

[JanDeWilder]

Ik heb het toegepast en het werkt prima.

Alvast bedankt.

:thumb:
Jan De Wilder.