У меня есть документ Word, который другие пользователи могут получить доступ и изменить (на том же компьютере).
в верхней части этого документа находится строка с надписью "Version # XXX".
Что я хотел бы, чтобы иметь возможность запустить макрос, который увеличит XXX на 1 и сохранить документ.
Это возможно? Как?
3238
вы можете создать свойство документа под названием (say) Revision. Затем вы должны иметь возможность отображать его в поле, и ваш код может читать и писать в него через:
KompmyDocument.CustomDocumentProperties("Revision").Value
в случае, если кто-то когда-либо заинтересован, вот ответ, который я нашел.
1/ Вставьте поле (CTRL+F9) как "{ DOCVARIABLE VNUM }"
2 / Создайте макрос со следующим кодом:
Sub IncrementVersion()
On Error Resume Next
With ActiveDocument
.Variables.Add ("VNUM")
On Error GoTo 0
If IsNumeric(.Variables("VNUM")) = False Then
.Variables("VNUM") = 1
Else
If .Saved = False Then
.Variables("VNUM") = .Variables("VNUM") + 1
Else
If MsgBox("No changes", vbOKCancel) = vbCancel Then
Exit Sub
Else
'nothing
End If
End If
End If
.Fields.Update
.Save
.Close
End With
End Sub
это прекрасно работает для того, что я искал.
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
