Word VBA de CrossReference

Question

Estou usando o Word 2010 e quero criar um script VBA para inserir uma referência cruzada.

Costumo inserir uma referência cruzada de números de tabelas e números de figuras. Então, quero mostrar primeiramente uma caixa de diálogo para responder qual rótulo, tabela ou figura a ser inserida. Aqui, por exemplo, vou digitar Figure . Então, quero mostrar outra caixa de diálogo para responder ao número da tabela ou ao número da figura. Eu vou digitar 5 .

Em seguida, "Figura 5" deve ser inserido.

O script VBA que escrevi é o seguinte:

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  

Parece que a macro pára quando se trata da frase If. Por favor, corrija a macro.

    

Answer 1

Eu resolvi sozinho.

ReferenceType: = reftype

Não há necessidade de usar "". Isso funcionou.