Получить данные из таблицы в Word'е - VB

Узнай цену своей работы

Формулировка задачи:

Добрый день, уважаемые коллеги. Есть следующая задача :
В Word файле есть таблица, в которую извне заливается некая служебная информация. Нужно макросом пробежаться по этой табличке и, используя эту инфу сделать что-то другое (конкретно - переложить эту информацию в XML-файл).
После работы таблицу нужно скрыть, уничтожать нельзя.
Скрывать пока решил так : - Шрифт - скрытый
Если кто-нибудь может предложить более удобное решение - буду признателен. Основное требование - доступность данных из этой таблицы из макроса и её невидимость при редактировании файла пользователем и печати.
По части считывания информации ничего не ясно.
Знаю такой вариант :
Но не понятно, как определить индекс таблицы.
Подскажите пожалуйста как из всех таблиц документа выбрать одну конкретную (получить её индекс). Править документ в части оформления и расположения этой конкретной таблицы можно практически как угодно.

Решение задачи: «Получить данные из таблицы в Word'е»

textual
Листинг программы
<font color="blue">Dim</font> wdTable <font color="blue">As</font> Table, WdRange <font color="blue">As</font> Range
<font color="blue">Set</font> WdRange = ActiveDocument.Content
WdRange.Find.ClearFormatting
WdRange.Find.Text = <font color="teal">"456456"</font>
WdRange.Find.Execute
<font color="blue">Set</font> wdTable = WdRange.Tables(<font color="darkblue"><b>1</b></font>)
MsgBox wdTable.Cell(<font color="darkblue"><b>1</b></font>, <font color="darkblue"><b>1</b></font>)

<font color="blue">End</font> <font color="blue">Sub</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы