Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.08.2012, 09:58   #1
Exact
Пользователь
 
Регистрация: 06.12.2007
Сообщений: 33
По умолчанию Редактирование существующей таблицы

Есть Word файл, в нем текст-текст-текс (верстка табличная). Среди текста имеется таблица (пример в приложении). Как выбрать эту таблицу (закинуть её в объект) и отредактировать её (добавить n полей), изменить значения в последних строках последних столбцов? Помогите хотя бы с первым шагом: выбора готовой таблицы из файла для её редактиования (если в документе табличная верстка - помимо данной таблицы - множество других)
Изображения
Тип файла: jpg Снимок.jpg (8.1 Кб, 121 просмотров)
Exact вне форума Ответить с цитированием
Старый 27.08.2012, 10:11   #2
Exact
Пользователь
 
Регистрация: 06.12.2007
Сообщений: 33
По умолчанию

Нашел-таки метод, где перебираются все таблицы и сравнивается какая-то строка с нужной нам... Он эм... верен? В смысле ничего проще нет? С VBA не общался никогда но по долгу службы пришлось..
Exact вне форума Ответить с цитированием
Старый 28.08.2012, 01:35   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Если известен порядковый номер таблицы, то можно не перебирать, например:
Код:
Set MyTable = ActiveDocument.Tables(3)
Если таблицу можно определить по специфическому тексту, можно использовать поиск:
Код:
Sub Макрос2()
Dim r As Range, MyTable As Table
Set r = ActiveDocument.Range
If r.Find.Execute("Наименование работ", False, True, False, False, False, True, wdFindContinue, False, , wdReplaceNone) Then
    Set MyTable = r.Tables(1)
Else
    Stop 'опознавательный текст не найден!
End If
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Последний раз редактировалось Казанский; 28.08.2012 в 01:50.
Казанский вне форума Ответить с цитированием
Старый 28.08.2012, 08:12   #4
Exact
Пользователь
 
Регистрация: 06.12.2007
Сообщений: 33
По умолчанию

Спасибо за помощь
Exact вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MS SQL Server: назначение автосчетчика полю уже существующей таблицы Blondy SQL, базы данных 13 08.10.2011 23:33
Создать отчет на основе существующей таблицы RGZZ Microsoft Office Excel 2 28.07.2011 19:07
редактирование таблицы marales Помощь студентам 0 12.03.2011 08:21
Удаление записи и редактирование существующей Cyber Общие вопросы C/C++ 3 16.02.2011 16:15
Редактирование таблицы 1134 Microsoft Office Excel 7 01.02.2010 10:33