gpt4 book ai didi

vba - 对象变量或未设置 block 变量(错误 91)

转载 作者:行者123 更新时间:2023-12-03 14:52:20 27 4
gpt4 key购买 nike

我有以下代码:

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 行中收到“对象变量或块变量未设置(错误 91)”错误.当我调试时,我可以看到 hprlink.Range确实有值(value)。任何想法我做错了什么?

最佳答案

正如我在评论中所写,解决您的问题的方法是编写以下内容:

Set hyperLinkText = hprlink.Range
Set需要,因为 TextRange是一个类,所以 hyperLinkText是一个对象;因此,如果要分配它,则需要使其指向所需的实际对象。

关于vba - 对象变量或未设置 block 变量(错误 91),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20692280/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com