Problems in reading sentences from the document that has tables

[Guest]

Hi,

I am trying to read the sentences from a Word document, and skipping the
tables in the document, using the following code:

For Each para in ThisDocument.Paragraphs
For Each paraRange in para.Range.Sentences
If (paraRange.Tables.Count == 0) Then
Debug.Print paraRange.Text
End If
Next
Next

I find that for the sentences that are immediately above a table, like the
one below,

Rank Table:
------------------------------------------------------------
| 1 | Nadal
|
------------------------------------------------------------
| 2 | Puerta
|
------------------------------------------------------------

The para.Range.Text contains "Rank Table:\r", but when I try to read the
sentences from the para.Range.Sentence, object model is returning "\r\a",
which has a table count of 1. Thus, these types of sentences are being
ignored!! Have anyone else encountered a similar scenario? Any help is
appreciated.

Thanks in advance.

Regards,
Laks

 

[Jonathan West]

Change your code so that you don't include the closing paragraph mark of
each paragraph when you are going through the sentances. This should do the
trick

Dim myRange as Range
For Each para in ThisDocument.Paragraphs
Set MyRange = para.Range
MyRange.MoveEnd Unit:=wdCharacter, Count:=-1
For Each paraRange in MyRange.Sentences
If (paraRange.Tables.Count == 0) Then
Debug.Print paraRange.Text
End If
Next
Next


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Helmut Weber]

Hi Laks,

I found this very confusing.
If the first cell in the table is empty,
then the described phenomenon occurs.
Not so, if the first cell contains at least one character.

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

 

[Guest]

Yes! This is the same problem that occurs with me too. Do you have any idea
why this occurs?
Currently i am using a workaround in such cases to retrieve the sentences.

Thanks and Regards,
Laks

 

[Guest]

Hi,

Thanks very much for your reply, but I did try this and like Mr.Helmut has
stated in his reply, this does not seem to work with tables that has a empty
first cell. What could be the reason for this problem?

Thanks again.

Regards,
Laks