1

Тема: Обход параграфов таблиц

Как обработчику передать команду не рассматривать абзацы в таблице при использовании цикла for i - next i ?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2

Re: Обход параграфов таблиц

If ActiveDocument.Paragraphs(i).Range.Information(wdWithinTable) = True Then
  'находится в таблице
End If
Лучше день потерять — потом за пять минут долететь!

3

Re: Обход параграфов таблиц

viter.alex пишет:
If ActiveDocument.Paragraphs(i).Range.Information(wdWithinTable) = True Then
  'находится в таблице
End If

Спасибо, уже напридумал. Можно ещё вот так:

If activeDocument.Paragraphs(1).Range.Tables.Count = 0 Then

А можно по шрифту, если он отличается в таблице. (У меня отдельный шрифт, центрирующий в таблицах текст).

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871