Keeping only the "vertical revision marks" when exporting to ".pdf"

bblelli · #1 05-07-2023, 08:45 AM

Hello guys,

I'm doing my best but I really don't know how to export my WORD document to PDF and highlight the revisions I made on my document.

Some manuals around the world usually displays a vertical revision line at the left side of the affected text (the text there were added or replaced) in order to show that this line of your new manual's version were eddited.

And this is what I'm trying to do, but the problem is that if I enable the tracking changes and export to PDF, the new document is not an official manual, but just a document showing that we are still working on it.

Please, check the pictures for a better clarification.

How can I create a VBA code that exports my document to .pdf (with everything perfectly displayed as the final and approved version) but with vertical lines showing where the text were eddited?

I don't care if it's revison mark, a line, or even an external border (etc...) I just need this kind of highlight.

Thanks a lot!

Guessed · #2 05-07-2023, 04:49 PM

I recorded a few settings and this appears to give a result that only shows the sidebars

Code:

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

bblelli · #3 05-07-2023, 06:09 PM

It's better, but it's still showing the grey shaded area.
Take a look at the picture below!

Thanks

Guessed · #4 05-07-2023, 07:55 PM

Try adding this line if you have comments in the document as well

Code:

ActiveWindow.View.MarkupMode = wdInLineRevisions

bblelli · #5 05-07-2023, 08:33 PM

Thanks, but it didn't work.
I tryied all these alternatives, but it didn't work.

...RevisionsMode...
...MarkupMode...

or inverted

...MarkupMode...
...RevisionsMode...

or just

...RevisionsMode...

or just

...MarkupMode...

None of these options worked.

bblelli · #6 05-08-2023, 03:08 PM

Hey guys,

I'm guessing, and I think we can try a different approach.

What if we create a "vertical line" everywhere we have a "vertical revision mark"?

Is it possible to be done?

Thanks

Guessed · #7 05-08-2023, 05:04 PM

Adding a line where this revision mark would sit is not a good idea.

I'm not seeing the balloon area on my output so I think the code is missing one vital ingredient we haven't worked out yet.

Can you post screenshots of your Track Change Options dialog and the Advanced Track Changes Options dialog so we can look at what settings you have?

bblelli · #8 05-08-2023, 05:16 PM

Yes, sure...

Please, find the requested info below!

Guessed · #9 05-08-2023, 05:42 PM

Those settings look similar to mine apart from the Largura preferencial which I have set to zero and doesn't record as a macro step.

Can you set the size of the balloon area to zero as well? To make it editable, you need to go to the Show Markup dropdown > Balloons > and choose to show balloons. Then you can set the preferred width to 0 before going back to turn off the balloons area. Perhaps that will solve your issue.

bblelli · #10 05-08-2023, 06:02 PM

The comment tab size reduced, but it's still there.

Should I use your code to export, or it should be done manually (File, Save as...)?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Mailto Hyperlink Formula contains too large of "Body" receiving "#Value" need to find workaround	MCamera	Excel	1	03-02-2022 07:52 PM
Excel 2003: VBA "Function" causes "#VALUE!" errors after running "insert/delete row" custom macro	Matt C	Excel Programming	2	01-08-2022 06:03 AM
Combine "sort within groups" and "identify duplicate/unique values" in two different variables.	civilcervant	Excel	3	06-12-2017 07:27 AM
remove repeated words with " macro " or " wild cards " in texts with parentheses and commas	jocke321	Word VBA	2	12-10-2014 11:27 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM