Text wrapping break in word

Hello,

I am importing word document to another application. The documents imports fine except that sometimes the word wrapping is different. To overcome this, I inserted text wrapping breaks (Inseart--> Break--> Text wrapping break) at the end of each line of the word document. The documents are usually only paragraphs with text lines.

Now, repeating the above step manually is bound for errors...sometimes somelines get missed out for inserting the breaks. I want to do the following using VBA :

1) Scan through the word document and list the lines or line numbers that doesnot have this text wrapping breaks at the end of the line.

2) If there are lines found in step 1 above, insert the text wrapping breaks using the same VBA.

Any help or sample code will greatly help me.
Thanks!

Give this a whirl:

VB Code:

Dim rngLine As Range
 
Set rngLine = ActiveDocument.Range(ActiveDocument.Range.Start, ActiveDocument.Range.Start)
For i = 1 To ActiveDocument.ComputeStatistics(wdStatisticLines)
    Set rngLine = rngLine.GoTo(What:=wdGoToLine, Which:=wdGoToNext, Count:=1)
    intLastChar = Asc(ActiveDocument.Range(rngLine.Start - 1, rngLine.Start).Text)
    If intLastChar <> 11 And intLastChar <> 13 Then
        rngLine.InsertBreak Type:=wdTextWrappingBreak
    End If
Next i

:)