#1
|
|||
|
|||
Easy way to remove comments in bulk?
I have 200+ documents that need comments removed. Any tricks?
|
#2
|
||||
|
||||
You would need a macro for that. For example:
Code:
Sub DeleteDocumentComments() Application.ScreenUpdating = False Dim strFolder As String, strFile As String, strDocNm As String, wdDoc As Document, i As Long strDocNm = ActiveDocument.FullName strFolder = GetFolder If strFolder = "" Then Exit Sub strFile = Dir(strFolder & "\*.doc", vbNormal) While strFile <> "" If strFolder & "\" & strFile <> strDocNm Then Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False) With wdDoc If .Comments.Count > 0 then .DeleteAllComments .Close SaveChanges:=True End With End If strFile = Dir() Wend Set wdDoc = Nothing Application.ScreenUpdating = True End Sub Function GetFolder() As String Dim oFolder As Object GetFolder = "" Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0) If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path Set oFolder = Nothing End Function
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thank you! That's what I thought!
|
Tags |
bulk, comments |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Remove or bulk reset line breaks. | Jazz43 | Word | 5 | 02-11-2021 08:36 AM |
How to remove reviewer's name from comments and track changes? | Timotheus | Word | 3 | 10-24-2020 01:57 PM |
Remove highlighted text when inserting comments | Iammuffinman | Word | 3 | 01-27-2011 02:02 AM |
How would I bulk select and copy highlights and then bulk paste them automatically? | copywriterpro | Word | 0 | 04-19-2010 05:21 AM |