Solicitar para inserir a propriedade do documento (personalizado) no Microsoft Word

Criei um modelo com uma propriedade de documento personalizada chamada " myproperty ". Eu posso acessar isso usando campos com o comando DOCPROPERTY "myproperty". Quero fazer com que o Word solicite ao usuário um valor e defina-o como um valor para minha propriedade . Sei que posso solicitar o uso do comando FILLIN, mas não sei como passar o valor para minha propriedade . O comando SET parece funcionar apenas com marcadores.

Alguma idéia de como conseguir isso?

Atenciosamente, naroslife

— naroslife
fonte

Apenas um pequeno número de embutidos propriedades podem ter seus valores definidos usando códigos de campo. Para propriedades personalizadas definidas pelo usuário, você precisa usar o VBA (ou qualquer outra coisa) ou fazer com que o usuário use a caixa de diálogo Propriedades personalizadas.

Consegui alcançar meu objetivo usando este 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

— naroslife
fonte