Sub ExportPdfSidebars()
  With Options
    .InsertedTextMark = wdInsertedTextMarkNone
    .InsertedTextColor = wdBlue
    .DeletedTextMark = wdDeletedTextMarkHidden
    .DeletedTextColor = wdPink
    .RevisedPropertiesMark = wdRevisedPropertiesMarkNone
    .RevisedPropertiesColor = wdByAuthor
    .RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
    .CommentsColor = wdByAuthor
    .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
    .MoveFromTextMark = wdMoveFromTextMarkDoubleStrikeThrough
    .MoveFromTextColor = wdGreen
    .MoveToTextMark = wdMoveToTextMarkDoubleUnderline
    .MoveToTextColor = wdGreen
    .InsertedCellColor = wdCellColorLightBlue
    .MergedCellColor = wdCellColorLightYellow
    .DeletedCellColor = wdCellColorPink
    .SplitCellColor = wdCellColorLightOrange
  End With

  ActiveWindow.View.RevisionsMode = wdInLineRevisions

  ActiveDocument.ExportAsFixedFormat OutputFileName:="C:\TestFolder\SavedVersion.pdf", _
    ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
    wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
    Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
    CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
    BitmapMissingFonts:=True, UseISO19005_1:=False
  
End Sub