Thread: [Solved] Macro to maintain formatting OR to delete all text (excluding comments)
View Single Post
 
Old 05-15-2021, 01:05 AM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Quote:
Originally Posted by jimmy12 View Post
@Macropod, the debugger flagged an issue at:

.Cells(1).Range.Text = DocSrc.Comments(n).Scope.Information(wdActiveEndPa geNumber)
That line is essentially what you already had:
.Cells(1).Range.Text = _
oDoc.Comments(n).Scope.Information(wdActiveEndPage Number)

Code corrected.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote