Setting Change Bars Manually in WordBasic

When you use the revision features of Word, you can edit your documents and allow Word to mark what has been changed. One of the options is to include "change bars," which are nothing but vertical bars that appear in the margin of your document to indicate a line or paragraph where a change has been made.

In some disciplines, change bars are used quite frequently. You may want to use change bars, but not have change tracking turned on. In other words, you may want to manually add a change bar to your document.

This is a bit more difficult proposition than it may first appear. If you only want change bars, and no other indication of changes in your document, you are almost out of luck. Let me explain...

You can choose the Revisions tab from the Options dialog box, and therein set exactly how you want Word to mark edits to your document, once you have revision marks turned on. The problem is this, however: you can only get change bars if you actually change text. For instance, if you want a change bar to appear beside a line of text, you must change something on that line. If you don't want the change itself to show (you only want the bar), this if fine--provided you don't want changes to show anywhere else in your document either. You can use the Revisions tab to specify how changes show globally in your document, but not on an individual basis.

If this is acceptable, then setting change bars manually is a fairly straightforward process. All you need to do is turn off the text color changes for revisions, make sure that changes are underlined or struck through, turn on change tracking, and then make a change on the line where you want the change bar to appear. You can then turn off change tracking, and the change bar is still visible. You can even automate this process by recording a macro to take care of it for you. For instance, the following simple WordBasic macro will do the work in Word 6 or Word 95:

Sub MAIN
    EditCut
    ToolsOptionsRevisions .InsertedTextMark = 0, \
      .InsertedTextColor = 1, .DeletedTextMark = 0, \
      .DeletedTextColor = 1, .RevisedLinesMark = 1, \
      .RevisedLinesColor = 0
    ToolsRevisions .MarkRevisions = 1, \
      .ViewRevisions = 1, .PrintRevisions = 1
    EditPaste
    ToolsRevisions .MarkRevisions = 0, \
      .ViewRevisions = 1, .PrintRevisions = 1
End Sub

All you need to do is select the text you want to "mark" and then run the macro.

There is another way of handling the manual change bars that doesn't even rely on the change tracking feature of Word. All you need to do is set a bar tab at a position of -.12 inches in your paragraph, and a change bar appears to the left of the paragraph. Note that this places the bar to the left of the entire paragraph, and not just to the left of individual lines in the paragraph. If you want to use this approach, follow these steps:

1. Place the insertion point within the paragraph where you want the change bar to appear.
2. Choose Tabs from the Format menu. The Tabs dialog box appears. (Click here to see a related figure.)
3. In the Tab Stop Position box, enter -.12"
4. Choose the Bar radio button.
5. Click on Set.
6. Click on OK.