Word: How to delete words between ( ) 1

[GPerk]

Assume my program has found a left paren at Words(j) in a paragraph, and a right paren at Words(k) (k>j).
How do I set the Range so I can delete all the words between the parens?

 

[TonyJollans]

Hi GPerk,

As you seem to know, most actions are performed on ranges. To delete the range from the start of the left parenthesis to the end of the right parenthesis, use:

With ActiveDocument
    .Range(.Words(j).Start, .Words(k).End).Delete
End With

A point to note, if you have, for example, &quot." at the end of the sentence, Word treats this as one a single word and there may be other similar "funnies" so it might be more correct to change it to the following. It depends on exactly what you have and what you want.

With ActiveDocument
    .Range(.Words(j).Start, .Words(k).

Start + 1

).Delete
End With

Enjoy,
Tony

 

[GPerk]

Tony,
Thank you for your patience.

Your suggestion works:
With ActiveDocument
.Range(.Words(20).Start, .Words(30).End).Delete
End With

But I also want to restrict the operation to specific paragraphs. So I tried:
With ActiveDocument
.Range(.Paragraphs(4).Words(20).Start, .Paragraphs(4).Words(30).End).Delete
End With
But it highlights ".Words(20)" and says "Method or data member not found". Apparently ActiveDocument.Paragraphs(4).Words(20) is not a valid object.

So I tried:
Dim rngPara as Range
Set rngPara = ActiveDocument.Paragraphs(4).Range
rngPara(rngPara.Words(7).Start, rngPara.Words(15).End).Delete
But it doesn't like that either. Can this approach be made to work?

 

[TonyJollans]

Hi,

I know this gets confusing sometimes, but you need to work with Ranges. A paragraph itself is not a range; its Range property gives youi the range which is the paragraph so use, for example:

.Paragraphs(4)

.Range

.Words(20).Start

Enjoy,
Tony