Goedemorgen allen,
Zit met een vraagje:
Probeer vanuit excel een (basis) word document te openen, dat lukt
Vervolgens om er een variabele in te zetten en hier vergeet ik iets denk ik maar kom er niet op.
Waarom wordt de variabel die doorgegeven wordt niet neergezet op het Word (basis) document?
Iemand een idee?
Vr . Gr.
Dutch
Zit met een vraagje:
Probeer vanuit excel een (basis) word document te openen, dat lukt
Vervolgens om er een variabele in te zetten en hier vergeet ik iets denk ik maar kom er niet op.
Waarom wordt de variabel die doorgegeven wordt niet neergezet op het Word (basis) document?
Code:
Dim Word As Object, sPath As String, sWrdName As String, WrdBestand As String
sPath = ActiveWorkbook.Worksheets("Control").Range("L22")
sWrdName = "HelpFile" & ".doc" ' Basis help-file
WrdBestand = sPath & sWrdName
Set Word = CreateObject("word.basic") ' Set Word
Word.fileopen WrdBestand ' opent een Word Basis-document met het Path & Naam file & extensie
Word.appshow ' toont het document
With GetObject(WrdBestand) ' Maakt de variabele leeg
.variables("Omschr1") = " "
.variables("Omschr2") = " "
.variables("Omschr3") = " "
.variables("Omschr4") = " "
.variables("Omschr5") = " "
.Fields.Update ' fields update omdat SP & JP prijs er niet altijd door kwamen
End With
With GetObject(WrdBestand) ' Update variabelen van Excel --> Word doc.
.variables("Omschr1") = "test"
.variables("Omschr2") = Label2
.variables("Omschr2") = Label3
.variables("Omschr2") = Label4
.variables("Omschr2") = Label5
.Fields.Update ' fields update omdat SP & JP prijs er niet altijd door kwamen
Iemand een idee?
Vr . Gr.
Dutch