Keskustelu: Ohjelmointikysymykset: Perl, VB6: VB nappulasta hyperlinkki?

Miten saan tehtyä VB-nappulan (commandButton) kautta hyperlinkin avoinna olevan word lomakkeen tiettyyn kohtaan/otsikkoon?

Moikka miksu75!

En ole nyt aivan 100%:n varma siitä mitä haet, mutta jos tarkoitat kirjanmerkkiin siirtymistä niin...maalaa Word-asiakirjan tekstissä jokin sana, valitse valikkorivin valinta: Lisää -> Kirjanmerkki -> kirjoita tekstiboksiin esim. k_merkki1 & klikkaa Lisää-painiketta...lisää sitten nappula joko suoraan Asiakirjaan tai Lomakkeelle ja kirjoita nappulan Click_tapahtuman koodiksi...

Private Sub CommandButton1_Click()
   Selection.GoTo What:=wdGoToBookmark, Name:="k_merkki1"
End Sub

Moikka taas miksu75!

eli siis...vie kursori asiakirjassa siihen kohtaan, johon haluat hyperlinkin ilmestyvän ja valitse: Lisää -> Kirjanmerkki -> kirjoita: hlink1 & klikkaa: Lisää...

Asiakirja1 - ThisDocument:

Private Sub Document_Open()
    If Not UserForm1.Visible Then
        UserForm1.Show False
    End If
End Sub

UserForm1:

Private Sub CommandButton1_Click()
    On Error GoTo ErrorHandler
    Selection.GoTo What:=wdGoToBookmark, Name:="hlink1"
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _
    Address:="https://www.ohjelmointiputka.net/", _
    SubAddress:="", ScreenTip:="", TextToDisplay _
    :="https://www.ohjelmointiputka.net/"
    Exit Sub

ErrorHandler:
    MsgBox "Virhe: " & Cstr(Err)
    Err.Clear
    On Error GoTo 0
End Sub

Private Sub UserForm_QueryClose( _
Cancel As Integer, CloseMode As Integer)
    Cancel = True: Exit Sub
End Sub