T
TG
In a document there are a lot of comments, that I want to remove..
Comment ar marked as:
{ This is a comment
and it might include several lines}
I have the code below, that will replace the next {Comment} with a
paragraph (^p)
But how can I have this to run through the entire document (appr.
27000 lines)
With Selection.Find
.Text = "^p{"
.Replacement.Text = "^p"
End With
Selection.Find.Execute
Selection.Extend
With Selection.Find
.Text = "}"
.Replacement.Text = "^p"
End With
Selection.Find.Execute
Selection.TypeParagraph
Kind regards TG
Comment ar marked as:
{ This is a comment
and it might include several lines}
I have the code below, that will replace the next {Comment} with a
paragraph (^p)
But how can I have this to run through the entire document (appr.
27000 lines)
With Selection.Find
.Text = "^p{"
.Replacement.Text = "^p"
End With
Selection.Find.Execute
Selection.Extend
With Selection.Find
.Text = "}"
.Replacement.Text = "^p"
End With
Selection.Find.Execute
Selection.TypeParagraph
Kind regards TG