word paragraph

[Dmitriy Solomnikov]

Есть документ word. В нем содержится некоторое число таблиц. Над кождой таблицей есть надпись. Мне собственно надо получить эту надпись, но я не знаю как к ней подобраться.

Я могу перебираться отдельно по параграбам и отдельно по таблицам, но вот как связаны параграфи и таблицы я не знаю.

Короче кто чем может....буду признателен. Впринципе проблему обойти удалось, но осадок остался. Надо разобраться.

[GSerg]

У таблицы есть range. У него есть start. Этот start на единицу больше, чем paragraph.range.end предыдущего абзаца.

[Dmitriy Solomnikov]

что-то у меня не получается:

Dim tp as integer = oDoc.Tables(1).Range.Start()

получается что tp = 357, а должно быть 10 !!!

[Dmitriy Solomnikov]

что такое 357 понятно - это номер символа с которого начинается этот range. Т.е. перед таблицей идет шапка из 356 символов.

Вопрос: как по номеру символа определить номер параграфа к которому он принадлежит?

[GSerg]

А зачем?

[Dmitriy Solomnikov]

А зачем?

да собственно для решения вышепоставленной задачи

[tyomitch]

Вопрос: как по номеру символа определить номер параграфа к которому он принадлежит?

Если на самом деле тебе нужен не номер параграфа, а его объект, то всё просто - Document.Range (123).Paragraphs(1)

[GSerg]

Во-во, я об этом же...

[Dmitriy Solomnikov]

мне вот что надо

Есть документ word. В нем содержится некоторое число таблиц. Над кождой таблицей есть надпись. Мне собственно надо получить эту надпись

добавлю только что эта надпись содержится в отдельном параграфе

метод
oDoc.Tables(1).Range.Start()
возвращает не номер параграфа, а номер первого символа, который содержится в таблице.

соответственно
oDoc.Tables(1).Range.Start() -1
дает номер последнего символа в нужном мне параграфе

Как по номеру этого символа получить номер параграфа. Или зная номер таблицы получить номер ее первого параграфа

[tyomitch]

Ну раз с трёх раз непонятно...
Зачем тебе номер параграфа?

[Dmitriy Solomnikov]

oDoc.Paragraphs(.......).Range.Select()
dim text as string = oDoc.Application.Selection.Range.Text

а как еще???

[Dmitriy Solomnikov]

все, разобрался. Надо так:

dim text as string = oDoc.Paragraphs(oDoc.Tables(1).Range.Start() -1).Range.Text

[tyomitch]

все, разобрался. Надо так:

dim text as string = oDoc.Paragraphs(oDoc.Tables(1).Range.Start() -1).Range.Text

"Не верю!" (с)

Может, всё же
dim text as string = oDoc.Range(oDoc.Tables(1).Range.Start() - 1).Paragraphs(1).Range.Text

[Dmitriy Solomnikov]

dim text as string = oDoc.Range(oDoc.Tables(1).Range.Start() - 1).Paragraphs(1).Range.Text

tyomitch, sorry, так и надо (не дописал кое что )