Слово VBA CrossReference

Question

Я использую Word 2010 и хочу создать сценарий VBA для вставки перекрестной ссылки.

Я часто вставляю перекрестные ссылки на номера таблиц и номеров рисунков. Итак, я хочу сначала показать диалоговое окно, чтобы ответить, какую метку, таблицу или рисунок нужно вставить. Вот, например, я наберу Figure . Затем я хочу показать другое диалоговое окно, чтобы ответить на номер таблицы или номер рисунка. Я буду печатать 5 .

Затем необходимо вставить "Рисунок 5".

Сценарий VBA, который я написал, выглядит следующим образом:

Public Sub CrossReferrence()  
' To Insert Cross Reference  
'  
Dim reftype As String  
reftype = InputBox("The label to be inserted "Table" or "Figure" = ?")  
Dim refnum  
refnum = InputBox("Table number or Figure number = ?")  
If refnum <> "" Then  
    Selection.InsertCrossReference _  
        ReferenceType:="reftype", _  
        ReferenceKind:=wdOnlyLabelAndNumber, _  
        ReferenceItem:=refnum  
End If  
End Sub  

Кажется, что макрос останавливается, когда дело доходит до предложения If. Пожалуйста, исправьте макрос.

Answer 1

Я решил это сам.　

ReferenceType:= переменная типа RefType

Не нужно использовать "". Это сработало.