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