Word VBA: Hyperlink ophalen achter FormField

[dbe]

Hoi,

Ik zit al enige tijd te zoeken naar een manier om een hyperlink op te halen, die achter een FormField Checkbox geplaatst is.

Echter zonder succes.

Dit is de code die ik tot nu toe heb:

Private Sub PrintButton_Click()

    For Each aField In ActiveDocument.FormFields
        Count = Count + 1
    Next aField

    For x = 1 To Count
        If ActiveDocument.FormFields(x).Type = wdFieldFormCheckBox Then
            If ActiveDocument.FormFields(x).CheckBox.Value = True Then
                MsgBox "Checked"

            End If
        End If
    Next x

End Sub

De bedoeling is dat op de plaats waar de MsgBox "Checked" staat, het gelinkte document (hyperlink) van die checkbox wordt afgedrukt.
Afdrukken kan (mits aanpassing) via volgende code:

Application.PrintOut , , , , , , , , , , , , Hyperlink.Address

Ik slaag er dus niet in om dit werkend te krijgen.
Iemand een tip?

Thanks!

 

[dbe]

Niemand?

 

[snb]

Ik zie het niet voor me zonder voorbeeldbestand.

 

[dbe]

Ik zie het niet voor me zonder voorbeeldbestand.

Hoi snb,

Bij deze het voorbeeldbestand.

De links zullen uiteraard niet werken, omdat deze gedefinieerd zijn naar een locatie op ons intranet.

Vriendelijke groeten