Text selection macro

[charliew001]

Hi,

First time poster and have very limited programming knowledge. I need help with the below macro to modify it to begin the range with a start word "a." ; I have a lot of multiple choice test questions I need to put into an excel chart and I want to make the formatting easier. Basically, I want the macro to be able to select all text that begins with "a." and ends the selection at the end of the paragraph of which "a." started.

Below macro I was trying to modify.

Sub SelectRange()
Dim rngParagraphs As Range
Set rngParagraphs = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(4).Range.End)
rngParagraphs.Select
End Sub

Thank You all in advance

 

[SkipVought]

See my post in your forum68 thread.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}