私は次のコードを持っています:
Sub AddSources()
Dim pubPage As Page
Dim pubShape As Shape
Dim hprlink As Hyperlink
Dim origAddress() As String
Dim exportFileName As String
exportFileName = "TestResume"
Dim linkSource As String
linkSource = "TestSource2"
Dim hyperLinkText As TextRange
For Each pubPage In ActiveDocument.Pages
For Each pubShape In pubPage.Shapes
If pubShape.Type = pbTextFrame Then
For Each hprlink In pubShape.TextFrame.TextRange.Hyperlinks
If InStr(hprlink.Address, "http://bleaney.ca") > 0 Then
hyperLinkText = hprlink.Range
origAddress = Split(hprlink.Address, "?source=")
hprlink.Address = origAddress(0) + "?source=" + linkSource
hprlink.Range = hyperLinkText
End If
Next hprlink
End If
Next pubShape
Next pubPage
ThisDocument.ExportAsFixedFormat pbFixedFormatTypePDF, "C:\" + exportFileName + ".pdf"
End Sub
hyperLinkText = hprlink.Range
の行に「オブジェクト変数またはWithブロック変数が設定されていない(エラー91)」エラーが表示されます。デバッグすると、hprlink.Range
に値があることがわかります。私が間違っていることを考えていますか?
私のコメントで書いたように、あなたの問題の解決策は以下を書くことです:
Set hyperLinkText = hprlink.Range
Set
はクラスなので、TextRange
が必要です。したがって、hyperLinkText
はオブジェクトです。そのため、割り当てたい場合は、必要な実際のオブジェクトを指すようにする必要があります。