Предложить ввести (настраиваемое) свойство документа в Microsoft Word

Question

Я создал шаблон с пользовательским свойством документа под названием « myproperty ». Я могу получить доступ к этому, используя поля с помощью команды "myproperty" DOCPROPERTY. Я хочу, чтобы Word запрашивал у пользователя значение и устанавливал его как значение для моего свойства. Я знаю, что могу запросить команду FILLIN, но я не знаю, как передать значение в myproperty. Команда SET, кажется, работает только с закладками.

Есть идеи как этого добиться?

С уважением, naroslife

Answer 1

Мне удалось достичь своей цели с помощью этого кода скелета:

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