Microsoft Word - Amazing PPT Hints, 2 Useful Microsoft Word Tips and Tricks

Introduction

With a little help of VBA (in a module added in VB editor):

Firstly, click “Visual Basic” in the “Code” group, on “Developer” tab or you can press “Alt” + “F11” in your keyboard to open the VBA editor. Then click “Insert”, in the drop-down menu, you can click “Module”.

The easiest thing to do is use the Alt + F11 key combo. Then F7 for show page code.

Change Total Editing Time

Sub ResetTotalEditingTime()
'tester function used to reset total editing time to random times _
use to test the select case statement in foo
Dim objDialogBox As Object
With WordBasic
Set objDialogBox = .DialogRecord.FileSummaryInfo(False)
.CurValues.FileSummaryInfo objDialogBox
objDialogBox.EditTime = "5000" '***RESET THE VALUE HERE***
.FileSummaryInfo objDialogBox
Set objDialogBox = Nothing
End With
End Sub

Show Total Editing Time

Sub ShowTotalEditingTime()
MsgBox (ActiveDocument.BuiltInDocumentProperties("Total Editing Time"))
End Sub