Answered by:
Deleted

Question
-
DeletedTuesday, June 4, 2013 2:59 PM
Answers
-
You could use the following code to check if users use a document created in an older file format. Be advised that even if users have a document in .docx format it can be incompatible with Office features of a newer release because the document is opened in compatibility mode.
Sub CheckFileVersion()
'
Dim lrequiredFileVersion As Long
lrequiredFileVersion = 14
If (ActiveDocument.CompatibilityMode >= lrequiredFileVersion) Then
MsgBox "File version correct" ' if you get it working you can delete this of course
Else
MsgBox "Warning: Document running in compatibility mode"
Exit Sub
End If
End SubSet the lrequiredFileVersion to whatever Office version you require. For instance Office 2003 = 11. Office 2010 = 14. More information on Office version numbers can be found at:
http://www.shaunakelly.com/word/management/what-version-of-word-do-i-have.html
- Edited by Thijs Verhoef Thursday, July 11, 2013 3:07 PM clarification
- Marked as answer by Max Meng Tuesday, July 16, 2013 6:10 AM
Thursday, July 11, 2013 2:54 PM -
Yes it is possible to use macros to do this. Here is a link that describes how to do it with an application level add-in to Word using VSTO.
http://msdn.microsoft.com/en-us/library/microsoft.office.tools.word.document.beforesave.aspx
Kind Regards, Rich ... http://greatcirclelearning.com
- Marked as answer by Max Meng Tuesday, July 16, 2013 6:10 AM
Monday, July 15, 2013 3:20 PM
All replies
-
You could use the following code to check if users use a document created in an older file format. Be advised that even if users have a document in .docx format it can be incompatible with Office features of a newer release because the document is opened in compatibility mode.
Sub CheckFileVersion()
'
Dim lrequiredFileVersion As Long
lrequiredFileVersion = 14
If (ActiveDocument.CompatibilityMode >= lrequiredFileVersion) Then
MsgBox "File version correct" ' if you get it working you can delete this of course
Else
MsgBox "Warning: Document running in compatibility mode"
Exit Sub
End If
End SubSet the lrequiredFileVersion to whatever Office version you require. For instance Office 2003 = 11. Office 2010 = 14. More information on Office version numbers can be found at:
http://www.shaunakelly.com/word/management/what-version-of-word-do-i-have.html
- Edited by Thijs Verhoef Thursday, July 11, 2013 3:07 PM clarification
- Marked as answer by Max Meng Tuesday, July 16, 2013 6:10 AM
Thursday, July 11, 2013 2:54 PM -
Yes it is possible to use macros to do this. Here is a link that describes how to do it with an application level add-in to Word using VSTO.
http://msdn.microsoft.com/en-us/library/microsoft.office.tools.word.document.beforesave.aspx
Kind Regards, Rich ... http://greatcirclelearning.com
- Marked as answer by Max Meng Tuesday, July 16, 2013 6:10 AM
Monday, July 15, 2013 3:20 PM