Как узнать номер таблицы word vba

Word и номер таблицы.

Интересно кто как решает такую вещь: Определить номер таблицы, в которой находится курсор или что-нибудь выделено.
Я делаю это так: Определяю переменную-диапазон TmpRng as Word.Range. Присваиваю ему диапазон выделения. Проверяю номер стартовой или конечной ячейки в этом диапазоне — если ноль, то выход. Если нет, то расширяю диапазон до wdTable. Теперь TmpRng.Tables(1).ID — номер нужной таблицы. Может есть способ проще?

Re: Word и номер таблицы.

viter.alex » 25.06.2009 (Чт) 15:28

Лучше день потерять — потом за пять минут долететь!

Re: Word и номер таблицы.

dormouse » 25.06.2009 (Чт) 15:46

VBA, MSA97

Re: Word и номер таблицы.

GDK » 25.06.2009 (Чт) 18:08

Re: Word и номер таблицы.

Ципихович Эндрю » 07.04.2010 (Ср) 19:39

Скажите кто знает эти решения оба верны?
Какакя между ими разница?
Номер_текущей_таблицы_где_находится_курсор = ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count
Номер_текущей_таблицы_где_находится_курсор = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count

Re: Word и номер таблицы.

Ципихович Эндрю » 07.04.2010 (Ср) 20:15

Посмотрел так получается это утверждение: Номер_таблицы_где_расположен_курсор = ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count не верно всегда равно 0??

Re: Word и номер таблицы.

GDK » 08.04.2010 (Чт) 12:59

Re: Word и номер таблицы.

Ципихович Эндрю » 08.04.2010 (Чт) 17:54

Утверждение не верно и более добавить нечего
Номер_таблицы_где_расположен_курсор = ActiveDocument.Range(ActiveDocument.Range.Start, Selection.Start).Tables.Count
не может быть знак равенства в твете от 25.06.2009 (Чт) 18:28

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