qqguilhermepp

Dim posicao As Range Set posicao = ActiveDocument.Hyperlinks(i).Range ' Adiciona a nota de rodapé ActiveDocument.Footnotes.Add Range:=posicao, _ Text:=dicio(CStr(agora)) Estou obtendo um erro de "tipos incompatíveis". Ocorre que o método "add" exige um objeto do tipo "range" em seu parâmetro, o que é exatamente o que estou colocando. Alguém poderia me iluminar em que estou errando?