Você pode usar o evento do VBA Document_Open para conseguir isso. Você precisará salvar o documento como um arquivo .docm
para que ele funcione (Documento habilitado para macro do Word.)
Pressione Alt + F11 e adicione este código ao objeto ThisDocument
:
Sub Document_Open()
MsgBox "Don't forget to amend the fields!"
End Sub
Você pode fazer muito mais do que apenas mostrar uma MsgBox claro.
Paraexpandirissoerealmentepreencherosdadosdoprompt,vocêpodeusarcaixasdeentradaouumformuláriopersonalizado.Voupassarporcaixasdeentradaaqui,poisosformuláriossãoumpoucomaislongosemaiscomplicados.
Primeiro,precisamosadicionarcamposdeformulárioparaosdadosquerealmentequeremospreencher.Euvoutemostraramaneiramaiscompatívelparafazerisso.
VocêpodeprecisarativarabarradeferramentasDeveloper
paraisso.AlgumasinstruçõesparacobrirdiferentesversõesdoWordsão
Emseguida,adicionaremosocampodoformulário:
CliquecomobotãodireitodomousenonovocampodeformulárioecliqueemProperties
.DêaocampoumBookmark
queoreferencieclaramente:
Agora,noVBA,podemosalteraressevalorusandootextodeumacaixadeentrada:
SubDocument_Open()ActiveDocument.FormFields("CompanyName").Result = InputBox("Enter your company name here")
End Sub
Você pode, obviamente, adicionar quantos deles desejar.
Observação:oplanodefundocinza-fieldshading
-nãoaparecenaimpressão,massevocêquiserremovê-lo,poderáclicarnoseucampoeclicarnessebotãonomesmolugaremqueoadicionou: