Save a copy of workbook without comments

I am trying to figure out how to save a copy of a workbook to a specified path without comments.

That is to say... I need to save two copies of a workbook, one with comments and one without.

I would like to be able to open the file that has comments and be able to execute a script that will remove comments, save a copy of the file to a specified path (overwriting the old file) and then have the comments restored to the original file.

Has anyone ever tackled something like this before?

.

https://www.extendoffice.com/documen...mments.html#a1


Delete All Comments In A Worksheet Or Workbook With VBA
There is also VBA can help you to delete comments from a worksheet or a whole workbook.

1. Press Alt + F11 to display the Microsoft Visual Basic for Applications window.

2. In the window, click Insert > Module to show a new module window, then copy the following VBA code into the module window.

VBA: Delete comments from a worksheet.

Sub Remove_All_Comments_From_Worksheet()
Cells.ClearComments
End Sub


VBA: Delete all comments from the whole workbook

Sub DeleteAllComments()
'Updateby20140613
For Each xWs In Application.ActiveWorkbook.Sheets
For Each xComment In xWs.Comments
xComment.Delete
Next
Next
End Sub

I am aware of this script.

I am trying to figure out how to:

1. Strip comments
2. Save a copy of the WB in another location without the comments.
3. Undo the strip comments in original file.

I need all three to be executed in the same script.

Anyone got a suggestion?

That would work as well. I tried just doing a clear comments button which ran a script similar to the one above and instructed the users how to do the save as manually..... Guess how long that took to get messed up? If you said hours.... Ding Ding! Your right!

Amazing. Works great! Is there a way to save the original document before executing the rest of the script?

Works great! Thanks!