vbscript v_word添加书签

Posted 2021-05-21

    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:=Replace(Replace(Selection.Text, "@", ""), Chr(13), "")
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    
添加内部跳转

    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _
        SubAddress:="蔬菜_根类", ScreenTip:="", TextToDisplay:="$蔬菜_根类"