 I found when I migrated from WordPerfect to the wonderful world of Word that there were a few things that I missed from WordPerfect. I also found that there were some extra tips and tricks that make working in a Law Firm a little easier.
In this article are several macros which can be added to your Normal.dot template.
Having the Document Path display on the Title Bar
Figure 1 : Document Title Bar
I thought it would be handy to have the path of the document that I was working on be displayed in the title bar. This enables me to be able to tell immediately which revision I am working in, as well as which case. Please note that once you add the AutoOpen macro to your Normal.dot template, you will need to close and re-open any existing documents to have their path displayed in the Title Bar. The macro runs when a document is opened rather than saved.
If you need help getting the macro code into your Normal template see this article which should assist you: http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=166
Sub AutoOpen()
'Displays the Document Path in the Title Bar
ActiveWindow.Caption = ActiveDocument.FullName
'Make sure the document's menu is visible when the document opens
'If the "customization context" has been changed since it was last
'opened, the document-specific menus won't be visible!
CustomizationContext = ActiveDocument
End Sub
|
Small Caps Quick Formatting
I created a custom toolbar to enable me to quickly access the following two macros. (See http://www.mousetrax.com/toolbars.html for help in customizing toolbars and menu's.) You may also want to assign keyboard shortcuts to these for faster access. I prefer to do both, that way when my hands are on the keyboard, I can keep them on the keyboard, but when I am primarily using my mouse, they are only a click away. <smile> (See http://word.mvps.org/FAQs/Customization/AsgnCmdOrMacroToHotkey.htm if you need help in assigning the keyboard shortcuts.)
Figure 2 : Custom Toolbar
Sub SmallCaps()
' Convert Selected Text to Small Caps Font
With Selection.Font
.SmallCaps = True
End With
End Sub |
Print the Current Page
At times when working with documents I found it necessary to print only one page. This is especially true if the page just needs to be printed for a signature.
Sub PrintCurrentPage()
' PrintCurrentPage Macro
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub
|
Working with Tracked Changes and Comments
When reviewing documents which contain tracked changes or comments, I found that I would repeatedly have to click the Next icon after having either accepted or rejected the change I was currently reviewing. I felt that it should not be necessary to have to click twice to deal with a change in the document.
Therefore, I found the following two macros which combine the “Accept and Move On” or “Reject and Move On” into one command.
I placed these commands in the Reviewing Toolbar to be sure that they would be available to me when I am reviewing documents using the Reviewing Tools.
Sub AcceptChangeAndNext()
'Accept the change and move to the next change
If Selection.Range.Revisions.Count > 0 Then
Selection.Range.Revisions(1).Accept
End If
Selection.NextRevision
End Sub
|
Figure 3 : Accept Change and Next
Sub RejectChangeAndNext()
'Reject the change and move onto the next change
If Selection.Range.Revisions.Count > 0 Then
Selection.Range.Revisions(1).Reject
End If
Selection.NextRevision
End Sub
|
Figure 4: Reject Change and Move On
|
