Сохранение переменных в файле документа Word

[a37529]

Сохранение переменных в файле документа Word.
Используя приведенные процедуры, дополните файл таким кодом, чтобы при открытии документа появлялось сообщение о числе открытий данного документа.

Сообщение о числе открытий документа
Private Sub VarCreate()
ActiveDocument.Variables.Add Name:="Counter", Value:=0
End Sub
Public Sub VarUse()
Dim myLocal As Variant
myLocal = ActiveDocument.Variables("Counter")
myLocal = myLocal + 1
ActiveDocument.Variables ("Counter") = myLocal
End Sub
Private Sub Document_Open()
Call VarUse

‘ необходимо добавить код для показа значения переменной

End Sub

[viter.alex]

MsgBox ActiveDocument.Variables ("Counter").Value

[a37529]

Спасибо за этот вариант, но количество открытий нужно написать в самом документе Word, а не MsgBox

[viter.alex]

Selection.HomeKey wdStory, wdMove
Selection.TypeText "Этот документ был открыт " & ActiveDocument.Variables ("Counter").Value & " раз."
Selection.TypeParagraph