Hiperlink do MS Word para arquivos localizados na mesma pasta do documento

Question

Eu quero configurar hiperlinks em um documento do Word para arquivos (jpg) que estão sempre localizados na mesma pasta que o documento do Word

Eu quero distribuir um pacote do documento do Word mais os arquivos jpg de suporte para pessoas que possam colocar os arquivos em qualquer lugar em um computador ou servidor.

Eu quero que os hiperlinks funcionem em qualquer lugar

Talvez o código do VBA seja parecido com

Ao clicar no hiperlink, determine o local do arquivo do documento e faça um link para (abrir) o arquivo jpg especificado naquele local

Muito obrigado

    

Answer 1

Em termos do que colocar no Word Doc para exibir os JPGs, eu usaria controles de formulário em vez de hiperlinks:

Primeiro, no Word, ative a guia Desenvolvedor na faixa de opções:

1. Clique no pequeno "triângulo inferior" ao lado da Barra de Ferramentas de Acesso Rápido e selecione "Mais Comandos".

Selecione "Personalizar faixa de opções" e verifique se a caixa de seleção ao lado de "Desenvolvedor", em "Personalizar a faixa de opções" está marcada. Clique em OK para fechar.

Agora,insiraeconfigureosbotõesdecomando:

1. SelecioneaguiaDesenvolvedornafaixadeopções,cliqueem"Ferramentas herdadas" no bloco "Controles" e selecione "Botão de comando"

Desenhe quantos botões tiver para abrir arquivos JPG. Eles podem ser arrastados e soltos em qualquer lugar do documento que você precisar, embora seja necessário alterar o estilo de quebra de texto (clique com o botão direito do mouse, 'Controle de formato', guia 'Layout')

Para alterar o texto exibido em cada botão, bem como o nome do código de cada um, clique com o botão direito do mouse em um botão e selecione 'Propriedades'

Clique com o botão esquerdo em cada botão e defina os campos '(nome)' e 'Legenda' da caixa Propriedades com o nome do código (por exemplo, BtnThisPic e BtnThatPic ) e exiba o texto ( por exemplo, "Clique para abrir esta foto" e "Clique para abrir essa foto"), respectivamente.

Clique duas vezes com o botão esquerdo em cada botão e insira o código a seguir no método do manipulador de eventos _Click que deve ser gerado automaticamente para cada um:

Dim sh As New Shell  
sh.ShellExecute ThisDocument.Path & "\picname.jpg"

Por fim, adicione a referência "Controles e automação do Microsoft Shell" ao arquivo:

1. No Editor do VBA, clique em "Ferramentas" > 'Referências'
2. Na caixa de referências que aparece, role (até que seja) até encontrar a referência MSCA, marque sua caixa de seleção e clique em 'OK'

Salve o documento do Word e dê um clique aos botões de comando. Se tudo correu bem, as imagens apropriadas devem abrir como desejado.

(Se em algum momento não permitir que você clique com o botão direito do mouse nos botões ou os edite, certifique-se de que o 'Modo de design' esteja ativado na guia 'Desenvolvedor' da 'Faixa de opções', no bloco 'Controles' .)