How Can I Get Paragraph Number

M

Mukesh Gajjar

Hi,

How Can I Get The Paragraph Number, Currently I Am Using Code Below,

Var
FServer: _Application;

Function GetCpParNr: Integer;
Var
iCount: Integer;
iPara: Integer;
Begin
iPara := 0;
For iCount := 1 To (FServer.ActiveDocument.Paragraphs.Count) Do Begin
If FServer.Selection.InRange(FServer.ActiveDocument.Paragraphs.Item(iCount).Range)
Then Begin
iPara := iCount;
Break;
End;
End;
Result := iPara;
End;

But The Execution Of This Code Is Very Slow With 500 And More Pages
Document,
Can Anyone Tell Me Any Alaternative Of This Problem?

Thanks,
Mukesh Gajjar
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Paragraph numbering in Word 1
Finding the proper style field and the numbered paragraph value within the style 0
Insert variables into mailmerge documents 0
Page Layout in multi-column documents 8
Bold paragraphs beginning with a number 0
How can the font and size of (all) citation numbers be altered? 1
How can I find paragraph breaks that are not preceded by a period? 0
Date ranges in VBA 2

Top