View Single Post
 
Old 09-16-2020, 07:37 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 1,864
Guessed is a name known to allGuessed is a name known to allGuessed is a name known to allGuessed is a name known to allGuessed is a name known to allGuessed is a name known to all
Default

The only revision tracking sidebars I know about are always black in colour. Showing those sidebars in the PDF should be easy enough if you fiddle with the Revision Tracking display/print options.

If you need these sidebars to be red then you will probably need to find another way of doing that. Perhaps add a frame to set up a border on paragraphs.
Code:
Sub FrameIt()
  Dim aFrame As Frame
  Set aFrame = ActiveDocument.Frames.Add(Selection.Range)
  With aFrame
    .TextWrap = False
    .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
    .Borders(wdBorderLeft).LineWidth = wdLineWidth450pt
    .Borders(wdBorderLeft).Color = RGB(255, 0, 0)
    .Borders.DistanceFromLeft = 20
  End With
End Sub
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote