Vba word как найти таблицу

I am looking for a way (or decent introduction) into how to select every table in a Microsoft Word 2013 Document and autofit the contents. Each table is independent of one another and separated by text.

I have established the following code so far:

Sub autofit()

    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

End Sub

Which works for individual tables and every column in said table, I understand the format of the «for loop», but would like a nudge to how to transform my individual selection to the entire document.

This is my first post so apologies for any conventions I have missed.

Dim t As Table
For Each t In ActiveDocument.Tables
    t.AutoFitBehavior wdAutoFitContent
Next

1

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 11.05.2012 08:18:56

2 Ответ от Alex_Gur 11.05.2012 10:51:33

Sub GoToNextTable01()
    Set myRange = ActiveDocument.Words(1).GoToNext(What:=wdGoToPage)
    With Selection
        Set myRange = .GoToNext(What:=wdGoToTable)
        .MoveRight Unit:=wdWord, Extend:=wdExtend
    End With
End Sub

3 Ответ от Ципихович Эндрю 11.05.2012 17:14:04

4 Ответ от Alex_Gur 11.05.2012 19:10:10

5 Ответ от Ципихович Эндрю 11.05.2012 19:54:49

6 Ответ от Alex_Gur 11.05.2012 20:08:23

7 Ответ от Ципихович Эндрю 11.05.2012 20:13:13