Программное удаление таблицы.

[Energy42]

Имеется документ, который пользователь может как угодно править, нужно написать скрипт, который среди текста документа найдёт нужную табличку и удалит её. Вопрос в том, как именно идентифицировать эту табличку? Пользователь может добавить ещё несколько таблиц, может саму таблицу изменить, может таблицу вовсе удалить, в общем изменить может всё что угодно.
Возможное есть способ задать таблице какой-нибудь уникальный идентификатор и по нему потом удалить таблицу? Или может есть возможность добавить какой-нибудь контейнер, в который уже внедрить таблицу и потом удалять либо весь контейнер целиком, либо содержимое контейнера?

[viter.alex]

поместить таблицу в закладку и удалять содержимое закладки

[Energy42]

Большое спасибо за идею! В понедельник поищу информацию по закладкам (что это такое, как они создаются/удаляются и т.д.), надеюсь с их помощью получится реализовать то что надо.

[xamillion]

Сообщение от viter.alex

поместить таблицу в закладку и удалять содержимое закладки

интересная штука!!! Не успел познакомиться с закладками как они мне уже нравятся!!!

Вот только не представляю как можно пометить часть ячеек в Excel и вставить в виде таблицы как закладку...

[Aent]

Посмотрите http://www.programmersforum.ru/showt...864#post351864

[Energy42]

Для эксперимента взял документ, добавил две закладки с именами bm1 и bm2, после чего написал 2 процедурки:

Private Sub InsFile()
    For Each Bookmark In ActiveDocument.Bookmarks
        If Bookmark.Name = "bm1" Or Bookmark.Name = "bm2" Then
            Bookmark.Range.InsertFile ("c:\test.doc")
        End If
    Next
End Sub

Private Sub DelBm()
    For Each Bookmark In ActiveDocument.Bookmarks
        If Bookmark.Name = "bm1" Or Bookmark.Name = "bm2" Then
            Bookmark.Range.Delete
        End If
    Next
End Sub

Первая процедура отрабатывает как и ожидал, то есть в места, где были вставлены закладки, добавилось содержимое другого файла (в моём случае таблица). Вторая процедура удалила всего навсего один (первый) символ из добавленного текста. Из чего делаю вывод, что текст был добавлен в начало закладки, но сама закладка не изменила свой Range. Я честно говоря думал, что закладка "растянется" на величину добавленного текста.

Можно ли как-нибудь заставить закладку изменить свои границы (Range) на величину вставленного текста и при этом, чтобы Range автоматом изменялся при изменении текста внутри закладки? Подозреваю, что такое сделать невозможно. Но всё же очень надеюсь, что гуру предложат какой-нибудь способ...

[viter.alex]

Да,тут есть подводный камень. Дело в том, что файл вставился не в закладку, а после неё. Чтобы добавить просто текст в закладку, есть стандартный метод из справки. На его основе я сделал свою процедуру:

Sub UpdateBookmarks(ByVal NameOfBookmark As String, ByVal ContentOfBookmark As Variant)
    Dim oRng As Range
    Dim oBm As Bookmarks
    
    Set oBm = ActiveDocument.Bookmarks
    Set oRng = bm(NameOfBookmark).Range
    oRng.Text = ContentOfBookmark
    oBm.Add NameOfBookmark, oRng
End Sub

Нужно указать имя закладки, которую нужно изменить и новое содержимое.

Со вставкой файла происходит интереснее. Если нужно изменить текст закладки вручную, то текст нужно вводить после ее начала, но не в конце.
Вот у меня закладка, в которой находятся 5 неразрывных пробелов:

Если я начну вводить текст туда, где находится курсор, то текст закладки изменится:

Если же я поставлю курсор в конец закладки

и начну вводить текст, то содержимое закладки не изменится:

Да, чтобы было легче ориентироваться в закладках, нужно отобразить их границы командой:

ActiveWindow.View.ShowBookmarks=True

Это поможет ориентироваться.
Таким образом, нужно вставить закладку, добавить в нее хотя бы два символа, запомнить диапазон первого символа и уже в этот диапазон вставлять файл:

Sub InsertFileToBookmark()
  Dim oRng As Range
  Dim oBm As Bookmark
  'Добавляем закладку в начало документа
  Set oBm = ActiveDocument.Bookmarks.Add("bm1")
  'Изменяем текст этой закладки на два неразрывных пробела
  UpdateBookmarks "bm1", ChrW(160) & ChrW(160)
  'Запоминаем расположение первого символа в закладке
  Set oRng = oBm.Range.Characters.First
  'Вставляем вместо него файл
  oRng.InsertFile "c:\test.docx"
  'Удаляем последний неразрывный пробел
  ActiveDocument.Bookmarks("bm1").Range.Characters.Last.Delete
End Sub

Sub UpdateBookmarks(ByVal NameOfBookmark As String, ByVal ContentOfBookmark As Variant)
    Dim oRng As Range
    Dim oBm As Bookmarks
    
    Set oBm = ActiveDocument.Bookmarks
    Set oRng = oBm(NameOfBookmark).Range
    oRng.Text = ContentOfBookmark
    oBm.Add NameOfBookmark, oRng
End Sub

[Energy42]

Спасибо, кажется это то что нужно...