Проблема обратной совместимости с файлом Word 2016 на компьютере Office 2007 - PullRequest
Новая
       52

Проблема обратной совместимости с файлом Word 2016 на компьютере Office 2007

0 голосов
/ 11 февраля 2020

Я создал виртуальную записную книжку на Word 2016 для своих учеников, но оказалось, что у некоторых из них все еще есть Windows & и Office 2007. Когда они пытаются запустить документ с включенными макросами, он зависает и показывает сообщение «Неизвестная процедура». Может ли кто-нибудь помочь мне, указав, какие процедуры являются недействительными. Я искал списки, но мне не повезло найти их. Вот код, который я использовал. Он идет на кодовой странице этого документа. 

Private Sub Document_Open()

Dim objCC As ContentControl


Selection.EndOf Unit:=wdStory ' & Chr(11)
Selection.TypeParagraph

Set objCC = ActiveDocument.ContentControls _
.Add(wdContentControlText)


objCC.Range.Text = Format(Now, "dd/MMM/yy h:mm:ss ")  'Date

objCC.Appearance = wdContentControlTags
 objCC.Color = wdColorBlue


objCC.LockContents = True
objCC.LockContentControl = True

 Selection.EndKey Unit:=wdStory & vbCr & vbCr

  Selection.EndKey Unit:=wdStory & vbCr
Selection.TypeParagraph


Selection.Range.Text = vbCr & "Please continue         " ' & vbCr & "    "

Selection.EndKey Unit:=wdStory '& vbNewLine

Selection.TypeParagraph

'Greet user.

MsgBox "Please add the information about" & vbNewLine & "the topics we have seen in the lab", vbOKOnly, "Greetings"

Selection.EndKey Unit:=wdStory & Chr(11)

End Sub



Private Sub Document_Close()


Dim objCC As ContentControl

Selection.EndOf Unit:=wdStory ' & Chr(11)
Selection.TypeParagraph

Set objCC = ActiveDocument.ContentControls _
.Add(wdContentControlText)


objCC.Range.Text = Format(Now, "dd/MMM/yy h:mm:ss ")  'Date

objCC.Appearance = wdContentControlTags
  objCC.Color = wdColorRed


objCC.LockContents = True
 objCC.LockContentControl = True


'bye user.
MsgBox "Thank you", vbOKOnly, "Thank you"


End Sub```
...