Eu tenho uma macro VBA do Word que percorre um diretório e anota o caminho do arquivo de arquivos selecionados para alguns critérios em um novo documento do Word. Funciona bem como texto simples (como parte de um loop):
wdDocResults.Content.InsertAfter objFile.Path & Chr(13)
No entanto, eu gostaria que eles fossem hyperlinks. O seguinte funciona como macro única, mas quando chamado de outro script, ele não faz nada (não importa se o caminho é fornecido como variável ou string, ou como H: ... ou \\ MyServernameAsNetDrive ...):
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= objFile.Path, _
SubAddress:="", ScreenTip:="", TextToDisplay:=objFile.Path
Se você tentar selecionar a linha atual para garantir que algo seja selecionado no lugar certo - > erro: sem memória ":
wrdDocResults.Content.InsertAfter objFil.Path
Selection.Expand wdLine
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= objFile.Path, _
SubAddress:="", ScreenTip:="", TextToDisplay:=objFile.Path
Eu também tentei inserir uma string parecida com o código do campo Hyperlink ({Hyperlink "..."}, que obviamente não é reconhecido ...
Qualquer ajuda é apreciada ... Agradecemos antecipadamente!
Finalmente, encontrei o problema: depois de usar
wdDocResults.Content.InsertAfter "some text"
- > mesmo que "algum texto" esteja bem escrito no documento correto, este documento não parece estar ativado. Só depois de um faz
wrdDocResults.Activate
Selection.EndKey Unit:=wdStory
pode-se fazer um desses comandos
ActiveDocument.Hyperlinks.Add Anchor:= ...
Selection.TypeText "some more text"
Caso contrário, ambos não funcionam.
Tags microsoft-word vba hyperlink