Hallo,
ik probeer om via excel, word te openen, hierin zitten gekoppelde tabellen.
vervolgens zodra "word" geopend wordt moet dit direct als pdf worden opgeslagen met een bestandsnaam welke staat op blad1 cel a1
daarna mag "word" worden afgesloten en dient het zojuist gegenereerde PDF document zichtbaar te zijn.
tot en met het openen van het word document gaat het goed, daarna weet ik niet hoe ik verder moet.
wat is hier een oplossing voor?
ik probeer om via excel, word te openen, hierin zitten gekoppelde tabellen.
vervolgens zodra "word" geopend wordt moet dit direct als pdf worden opgeslagen met een bestandsnaam welke staat op blad1 cel a1
daarna mag "word" worden afgesloten en dient het zojuist gegenereerde PDF document zichtbaar te zijn.
tot en met het openen van het word document gaat het goed, daarna weet ik niet hoe ik verder moet.
Code:
Sub openen_concept()
'
' openen_concept Macro
'
Application.StatusBar = "Even geduld a.u.b. de productspecificaties worden gegenereerd"
Dim wdApp As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdDoc = wdApp.Documents.Open("U:\Jet reports\in ontwikkeling\concept.docm")
wdApp.Visible = True
Application.StatusBar = ""
MsgBox ("Concept productspecificaties zijn gegenereerd")
End Subwat is hier een oplossing voor?
