Adicionar + "x" dias na função inserir data no Word

Question

Boa tarde prezada comunidade,

Gostaria de uma pequena luz em uma função no Word.

Utilizando a função de inserir data (e atualizar automaticamente), gostaria de colocar na função a data de hoje + "x" dias.

neste exemplo utilizando para imprimir etiquetas de validade, atualizando 2 datas, de fabricação no dia de hoje e no campo validade hoje + "x" dias. Como somo esse "x" ou qual função utilizar.

Muito obrigado a quem puder compartilhar este conhecimento.

Utilizo Office 365 (ultima versão do Word)

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Prezado Gabriel Vencato,

Bem-vindo à Comunidade Microsoft.

Entendemos que você precisa alocar informações de localização para executar ao usar macros no Word.

Testamos as informações de código que você gerou e compartilhou conosco. Ao executar seu código, descobrimos que suas informações de código só podem ser executadas separadamente, ou seja, cada vez que você executá-lo, você só pode exibir uma informação de data.

Vemos que você disse que há mais de 80 informações de rótulos que precisam ser executadas. Sugerimos que você possa adicioná-lo e executá-lo manualmente.

Ao mesmo tempo, ao usar documentos de macro, você precisa relatar um erro ou abrir o arquivo como "Texto habilitado para macro". Você pode pressionar "ALT+F11" para abrir a macro, clicar em "Inserir", selecionar "Módulo", copiar as informações do código e salvá-lo.

Depois de salvar, você pode usar "ALT+F8" no Word para executar o texto da macro para ajudar a preencher as informações.

Se você precisar preencher automaticamente todas as informações da sua etiqueta e gerar diretamente a data, a questão da macro precisa ser explicada a você:

 É mais adequado para publicação no Stack Overflow (somente em https://stackoverflow.com/questions/tagged/vbainglês).    

Poste perguntas de programação VBA para estouro de pilha usando a tag vba, juntamente com quaisquer outras tags relevantes. 

Observe que o Stack Overflow tem diretrizes como exigir um título descritivo, uma declaração de problema completa e concisa e detalhes suficientes para reproduzir seu problema. Solicitações de recursos ou perguntas excessivamente amplas são consideradas fora do tópico.

Isenção de responsabilidade: A Microsoft não fornece garantias e/ou garantias, implícitas ou não, e não é responsável pelas informações que você recebe dos sites vinculados de terceiros ou qualquer suporte relacionado à tecnologia. 

Não poderei ajudá-lo, mas deixarei essa pergunta em aberto caso um de nossos incríveis voluntários tenha ideias para você.

Atenciosamente

Zenóbia-MSFT | Especialista em Suporte da Comunidade Microsoft

Answer 2

Então, nosso amigo copilot fez a macro que eu preciso, só não sei como abribuir a macro aos locais no documento, as multiplas etiquetas que estão formatadas como uma tabela.

Como que atribuo o macro abaixo a 80 locais (etiquetas) de um documento word?

Sub InserirDataMais2Dias()

Dim dtHoje As Date 

Dim dtMais2Dias As Date 

' Obtém a data de hoje 

dtHoje = Date 

' Adiciona 2 dias à data de hoje 

dtMais2Dias = dtHoje + 2 

' Insere a data na célula ativa (pode ser ajustado conforme necessário) 

Selection.TypeText dtMais2Dias 

End Sub