Thank for the attempt. The data that goes into this word document has hidden codes embedded that have given me issues with a lot of the coding I've done previously to this Assessments issue. I believe your code works; However, not for my purposes. The white space codes within the document are not standard and I cannot find them anywhere online to help me delete them. I believe these white spaces are causing an inaccurate word count. When I select Assessment and everything above it, I count 8369 characters. When I run the code you provided, it counts Assessment at 8535 over .Start and then 8561 over .MoveStart. This makes my data look like this...
1. Data
2. Data
3. Data
4.
5. Assessment
6. Data
7. Data
8. Data

Can you write me code that can do this...

assessmentLine = ??? 'Find the line number with the word Assessment: followed by a paragraph enter ^p.
i = assessmentLine + 1 'Assign line increment and start location.
c = 1 'Numbered list starts with 1 then increments in loop
Do Until myLine(i) = "" 'Loop until it finds a blank line.

myLine(i) = c & ". " & myLine(i) '1. Hypertension would be the first output.

c = c + 1

i = i + 1

Loop

I'm sure you programmers can understand the concept of the above.