Códio VB de Macro para referência cruzada no Word

[LED]

Olá pessoal !!

Estou precisando de ajuda de VB para construir uma macro no Word.

Fiz um código para abrir a caixa "referência cruzada" com todos os sets prontos (Tipo: item numerado) de modo que só é preciso escolher o item numerado no campo "Para qual Item Numerado:" (relativo ao argumento "ReferenceItem")

With Dialogs(wdDialogInsertCrossReference)

SendKeys "it"

SendKeys "{TAB}{DOWN 3}""{ENTER}"

SendKeys "{TAB}""h"

.Show

End With

Os itens numerados (os mesmos que aparecem no campo "Para qual item numerado:") podem ser vistos através de :

Lista = ActiveDocument.GetCrossReferenceItems(wdRefTypeNumberedItem)

Agora o que preciso é atribuir a uma variável o item numerado que escolhi no campo "Para qual item numerado:", para poder usar em outro código como, por exemplo:

Selection.InsertCrossReference ReferenceType:="Numbered item", _

ReferenceKind:=wdPageNumber, ReferenceItem:=variavel, InsertAsHyperlink:=True, _

IncludePosition:=False

Tentei o seguinte:

Dim Argumentos as Dialog

set Argumentos = Dialogs(wdDialogInsertCrossReference)

variavel = Argumentos.ReferenceItem

Mas a variável retorna nula!

Alguém pode me ajudar?

LED