Word aansturen via Excel

[Tibs]

Goedemiddag allen,

Mijn vraag gaat over het aansturen van een selectievakje in Word via een tabel in Excel.

In mijn word document heb ik verschillende tekstvakken en selectievakjes die moeten ingevuld worden met de waarde die in excel staat.

Nu lukt het mij perfect om Word op te roepen en de tekst in de tekstvakjes te plaatsen, allen lijk ik het niet te vinden hoe ik een selectievakje kan aansturen (aanvinken).

Dit heb ik tot nu toe:

Private Sub Word()

' Oproepen Word-Document en invullen van de verkregen gegevens.

file = MyDir & "\Mechanical Checklist Motor TDE.docx"

Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
wrdApp.Application.ScreenUpdating = True
Set wrdDoc = wrdApp.Documents.Open(file)
        
wrdDoc.Bookmarks("HG").Range.Text = HG
wrdDoc.Bookmarks("ID").Range.Text = ID
wrdDoc.Bookmarks("AKS").Range.Text = AKS
wrdDoc.Bookmarks("TXP").Range.Text = TXP
wrdDoc.Bookmarks("ATEX").Range.Text = ATEX
wrdDoc.Bookmarks("INFO").Range.Text = INFO
[COLOR="Red"]wrdDoc.Bookmarks("Ster").Value = 1[/COLOR]

wrdDoc.SaveAs MyDir & "\Word\" & AKS & ".doc"

wrdDoc.Close wdSaveChanges

Set wrdApp = Nothing
Set wrdDoc = Nothing

End Sub

Het rode lijntje werkt dus niet. Het selectievakje heeft de bladwijzer 'Ster' gekregen.

Alvast bedankt!

 

[snb]

Private Sub Word()
  With GetObject(MyDir & "\Mechanical Checklist Motor TDE.docx")
     for j=1 to 6
       .Bookmarks(choose(j,"HG","ID","AKS","TXP","ATEX","INFO")).Range = choose(j,HG,ID,AKS,TXP,ATEX,INFO)
    Next
    .Bookmarks("Ster").Value = True
    .SaveAs MyDir & "\Word\" & AKS & ".doc"
    .Close 0
  End With
End Sub

 

[Tibs]

Deze lijkt ook niet te werken.

Ik krijg volgende foutmelding:

" Deze eigenschap of methode wordt niet ondersteudn door dit object. "

Nu moet ik wel zeggen dat ik in Word GEEN ActiveX vakje gekozen heb maar zo'n ander.

 

[snb]

Private Sub Word()
  With GetObject(MyDir & "\Mechanical Checklist Motor TDE.docx")
     for j=1 to 6
       .Bookmarks(choose(j,"HG","ID","AKS","TXP","ATEX","INFO")).Range = choose(j,HG,ID,AKS,TXP,ATEX,INFO)
    Next
 [COLOR="Red"]   .FormFields("Ster").CheckBox.Value = True[/COLOR]
    .SaveAs MyDir & "\Word\" & AKS & ".doc"
    .Close 0
  End With
End Sub

 

[Tibs]

Van harte bedankt!

Daar was ik nooit opgekomen! :thumb:

 

[snb]

Wanneer kom je die fles Pomerol brengen ?