Avisar para inserir propriedade de documento (personalizada) no Microsoft Word

Question

Eu criei um modelo com uma propriedade de documento personalizada chamada " myproperty ". Eu posso acessar isso usando campos com o comando "myproperty" DOCPROPERTY. Eu quero fazer o Word solicitar ao usuário um valor e defini-lo como um valor para myproperty . Eu sei que posso solicitar usando o comando FILLIN, mas não sei como passar o valor para myproperty . O comando SET parece funcionar apenas com marcadores.

Alguma idéia de como conseguir isso?

Atenciosamente, naroslife

    

Answer 1

Consegui atingir meu objetivo usando esse código de esqueleto:

Private Sub Document_New()
Dim strValue As String
strValue = InputBox("Enter a value for 'myproperty':", "myproperty", " ")

' the value will be an empty string, "", if the user cancels
' or deletes the default space; fix that
If strValue = "" Then strValue = " "

ActiveDocument.CustomDocumentProperties("myproperty").Value = strValue

ActiveDocument.Fields.Update
End Sub