Word document met variabel adres aanroepen

[koenn]

momenteel open ik een word documentje via VBA in excel met de volgende code:

   Dim oWord As Object
   Set oWord = CreateObject("Word.Application")
   oWord.Visible = True
   oWord.Documents.Add "N:\Maintenance\energie\Format Quickscan verslag.doc"

mijn probleem is dat het adres van het document niet altijd hetzelfde blijft. Wel zal het Word document dat ik aanroep ALTIJD in de zelfde map staan als het excel document waar de code in staat. Is het mogelijk om een variabele verwijzing te maken naar het Word bestand? dus bijvoorbeeld door het eigen adres van het excel bestandje aan te roepen...

 

[snb]

Variabelen zijn overbodig

with getobject(Thisworkbook.path & "Format Quickscan verslag.doc")
  .saveas Thisworkbook.path & "Format Quickscan verslag" & format(1,"0000") & ".doc"
End with

 

[koenn]

zoals hierboven werkte hij niet, er moest een \ voor de filename.
heb hem nu werkend met onderstaande code:

   Dim oWord As Object
   Set oWord = CreateObject("Word.Application")
   oWord.Visible = True
   oWord.Documents.Add (ThisWorkbook.Path & "\Format Quickscan verslag.doc")

dank voor de hulp SNB

 

[snb]

Vermijd variabelen als het kan

with getobject(Thisworkbook.path & "Format Quickscan verslag.doc")
  .saveas Thisworkbook.path & "\Format Quickscan verslag" & format(1,"0000") & ".doc"
End with

of deze one-liner

CreateObject("Word.Application").Documents.Add ThisWorkbook.Path & "\Format Quickscan verslag.doc"

 

[koenn]

hoe krijg ik met bovenstaand oneliner ook het word document te daadwerkelijk te zien.
hij voert de macro goed uit maar ik zie word is niet ' visible' .

 

[snb]

Ik gebruik VBA juist voor het uitvoeren van werkzaamheden die niet zichtbaar moeten/hoeven zijn.

With CreateObject("Word.Application").Documents.Add (ThisWorkbook.Path & "\Format Quickscan verslag.doc")
  .application.visible=true
end with

en als Word al geladen is: (met veel snellere reaktie) kan het met deze one-liner

GetObject(,"Word.Application").Documents.Add ThisWorkbook.Path & "\Format Quickscan verslag.doc"

 

[koenn]

bedankt voor de snelle reacties, probleem is opgelost.

With CreateObject("Word.Application").Documents.Add(ThisWorkbook.Path & "\Format Quickscan verslag.doc")
   .Application.Visible = True
   End With