Переменная объекта или с не заданной переменной блока (Ошибка 91)

У меня есть следующий код:

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 

Я получаю ошибку «Объектная переменная или с переменной блочной переменной (Ошибка 91)» в строке с hyperLinkText = hprlink.Range . Когда я отлаживаю, я вижу, что hprlink.Range имеет значение. Любые мысли, что я делаю неправильно?

Как я писал в своем комментарии, решение вашей проблемы состоит в том, чтобы написать следующее:

 Set hyperLinkText = hprlink.Range 

Set необходим, потому что TextRange – это class, поэтому hyperLinkText – это объект; как таковой, если вы хотите назначить его, вам нужно указать его на фактический объект, который вам нужен.

  • Как подсчитать количество строк в excel с данными?
  • Excel VBA - электронная почта не отправляется при блокировке компьютера
  • Excel VBA: запись в базу данных mysql
  • Vlookup для копирования цвета ячейки - Excel VBA
  • Несколько фильтров Pivotfields
  • автоматически выполнять макрос Excel при смене ячейки
  • как объединить повторяющиеся строки и суммировать значения 3 столбца в excel
  • Создайте новый лист для каждого уникального агента и переместите все данные на каждый лист
  • удалить строку на основе условия
  • VBA потянув данные из SAP для манекенов
  • VBA Macro для сортировки и применения условного форматирования к диапазону ячеек с динамическим числом строк
  • Давайте будем гением компьютера.