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 janela "referência cruzada" com todos os sets prontos para o que preciso de modo que só é preciso escolher o item numerado no campo "Para qual Item Numerado:"

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 ao item numerado que escolhi no campo "Para qual item numerado:", para poder usar em outro código, 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 sabe?

LED