bestand invoegen dmv selectievakje

[bartmaandag]

Beste Mensen,

Ik hoop dat jullie mij kunnen helpen. Ik heb een userform ontworpen, gekoppeld aan een word-document voorzien van verschillende bladwijzers. Het geheel werkt nu goed, alleen pas voor de helft... Voordat de andere helft ook werkt zal ik eerst mijn probleem op moeten lossen, deze luidt:

in de userform heb ik verschillende selectievakjes staan. De bedoeling is dat wanneer ik één van deze aanvink, dat er dan een gekoppeld word document wordt ingevoegd op de plek van de bladwijzer "invoegteksten".

In de programmacode heb ik de volgende (foute) code staan:

Private Sub cbx_wifi_schema_Click()
Dim invoegteksten As Range
If cbx_wifi_schema = True Then invoegteksten = Selection.InsertFile FileName:= "f:\data\offertefabriek\test\wifi.doc"
End Sub

heeft iemand enige suggestie voor een goedwerkende variant?

BVD!!

Gr, Bart

 

[bartmaandag]

het is me inmiddels gelukt tekst in te voegen m.b.v. een selectievakje. alleen wordt de tekst gewoon bovenaan het document geplaatst, en niet op de plaats van de bladwijzer...

ik gebruik nu de onderstaande macro:

Private Sub cbx_wifi_schema_Click()
Dim invoegteksten As Range
If cbx_wifi_schema.Value = -1 Then Selection.InsertFile FileName:="f:\data\offertefabriek\test\draadloos_systeem.doc"
End Sub

iemand een goed werken alternatoef?

Bart