Поиск таблиц в vba word

Answers

• To expand on the bookmark route, and it is what I use.

  If you bookmark ANY table, you can then use it as a name.  The advantage is that you can move the table anywhere you like, change the rows…whatever, and it does not affect the ability to use a name.  Normally if you move a table (or add another
  table before it), the index number changes.  this makes using an index number veryb unreliable.

  So.  You bookmark a table with the name «ClientData».  Now you can use a Table object and set it to THAT table, no matter where it is in the document.

  Sub GetClientData()
  Dim file
  Dim path As String
  Dim oTable As Table
  Dim WriteToDoc As Document
  Dim SourceDoc As Document
  path = «X:YaddaBlah»
  Set WriteToDoc = ActiveDocument

  file = Dir(path & «*.doc»)
  Do While file <> «»
      Set SourceDoc = Documents.Open(FileName:=path & file)
      Set oTable = SourceDoc.Bookmarks(«ClientData»).Range.Tables(1)
      WriteToDoc.Range.InsertAfter oTable.Cell(3, 1).Range.Text & vbCrLf
      SourceDoc.Close
      Set oTable = Nothing
      Set SourceDoc = Nothing
      file = Dir()
  Loop
  End Sub

  This code runs through all .doc files in a folder, opening each, setting a table object for a bookmarked table named ClientData, getting the text from cell row3,column1, and putting that text into a document.

  Bookmarking tables allows use of names for that table.  It is a very powerful tool.  I name all my tables.

  • Edited by

    Sunday, April 22, 2012 1:23 AM

  • Marked as answer by
    DragonForest
    Sunday, April 22, 2012 7:55 AM

• «Brute force» seems to be the way to go:

  Sub FindTable()
      Dim tbl As Table
      For Each tbl In ActiveDocument.Tables
          If tbl.ID = "MyID" Then
              Exit For
          End If
      Next tbl
      If Not tbl Is Nothing Then
          ' ...
      End If
  End Sub

  ---

  Regards, Hans Vogelaar

  • Marked as answer by
    DragonForest
    Friday, April 20, 2012 4:48 PM

• The Tables(index).ID property is designed for Internet/HTML/XML purposes.

  If you want to use it in Word, you have to use something like this:

  ——

  Selection.Tables(1).ID = «My Crazy Table»

  ——

  and then:

  ——

  Dim tbl As Table

  For Each tbl In ActiveDocument.Range.Tables
      If tbl.ID = «My Crazy Table» Then
          tbl.Select
          Exit For
      End If
  Next

  ——

  Or else, use bookmarks:

  ——

  Selection.Tables(1).Range.Bookmarks.Add «Crazy_Table»
  ——

  and then:

  ——

  ActiveDocument.Bookmarks(«Crazy_Table»).Range.Select

  ——

  • Marked as answer by
    DragonForest
    Friday, April 20, 2012 4:47 PM

1. Макрос поиска одного из указанных символов в Word
2. Макрос поиска и замены дат в документе Word
3. Word Поиск таблицы в документе
4. Word: макрос для таблиц. Отформатировать определенный вид таблиц
5. Макрос в Excel, использующий Word
6. Создать таблицу в Word и заполнить её данными из массива
7. Перенос таблицы из Word в Excel
8. Создание нескольких таблиц в Word
9. Как объединить ячейки таблицы в Word, обращаясь к ним по свойству Cell (n, m)
10. Как изменить размер изображения, вставленного в ячейку таблицы MS Word?
11. Импорт данных из Excel в таблицу колонтитула Word