Microsoft Office Forums - View Single Post - Track changes saved to pdf with only red vertical lines saved

Guessed · 09-16-2020, 07:37 PM

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