Word文件在選取處貼上超連結 | by Oscar Sun on SnipSave | Web-based code snippet manager for developers

Word文件在選取處貼上超連結 vbscript

                  Sub 貼上超連結()
On Error GoTo eH
Dim fDataObject As New MSForms.DataObject, adres As String
fDataObject.GetFromClipboard 'initialize the object
adres = fDataObject.GetText
 Selection.Hyperlinks.Add Selection.Range, adres
 Exit Sub
eH:
Select Case Err.Number
    Case Else
        MsgBox Err.Number & Err.Description
End Select
End Sub

Sub 貼上超連結()
On Error GoTo eH
Dim fDataObject As New MSForms.DataObject, adres As String
fDataObject.GetFromClipboard 'initialize the object
adres = fDataObject.GetText
 Selection.Hyperlinks.Add Selection.Range, adres
 Exit Sub
eH:
Select Case Err.Number
    Case Else
        MsgBox Err.Number & Err.Description
End Select
End Sub

View Oscar's Profile