макрос добавления названий для таблиц

[darklumen]

всем здравствуйте.
у меня есть текстовый документ с огромным количеством страниц. В этом тексте много таблиц, и несколько разделов.
помогите написать макрос, который перед каждой таблицей вставляет название по типу "таблица 1.1", где 1.1 - это первая таблица первого раздела.

[viter.alex]

Привет. Попробуй и напиши о результатах

Sub NumTables()
  Dim oTbl As Table
  Dim oRng As Range
  Application.ScreenUpdating = False
  For Each oTbl In ActiveDocument.Tables
    oTbl.Cell(1, 1).Select
    Selection.SplitTable
    Set oRng = Selection.Paragraphs.First.Range
    With oRng
      .InsertBefore "Таблица "
      .SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1
      ActiveDocument.Fields.Add oRng, wdFieldSection
      .SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1
      .InsertAfter "."
      .SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1
      ActiveDocument.Fields.Add oRng, wdFieldSequence, "Таблица"
    End With
  Next
  Application.ScreenUpdating = True
End Sub

[npocmop]

на 160 страничном сложном документе - этот макрос просто летает
и это гораздо удобнее, чем тыкать каждый раз "вставить название таблицы"

а как правильно в коде обозначать рисунки и активные диаграммы?? НА figures и pictures ругается
и второйраздел не слушается...

Sub NumTables()
Dim oTbl As Table
Dim oRng As Range
Application.ScreenUpdating = False
For Each oTbl In ActiveDocument.Tables
oTbl.Cell(1, 1).Select
Selection.SplitTable
Set oRng = Selection.Paragraphs.First.Range
With oRng
.InsertBefore "Таблица "
.SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1
ActiveDocument.Fields.Add oRng, wdFieldSection
.SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1
.InsertAfter "."
.SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1
ActiveDocument.Fields.Add oRng, wdFieldSequence, "Таблица"
End With

oTbl.Cell(2, 2).Select
Selection.SplitTable
Set oRng = Selection.Paragraphs.Second.Range
With oRng
.InsertBefore "Таблица "
.SetRange .Paragraphs.Second.Range.End - 1, .Paragraphs.Second.Range.End - 1
ActiveDocument.Fields.Add oRng, wdFieldSection
.SetRange .Paragraphs.Second.Range.End - 1, .Paragraphs.Second.Range.End - 1
.InsertAfter "."
.SetRange .Paragraphs.Second.Range.End - 1, .Paragraphs.Second.Range.End - 1
ActiveDocument.Fields.Add oRng, wdFieldSequence, "Таблица"
End With

[forumWord]

npocmop, figures и pictures - нет таких объектов в VBA Word. Для работы с рисунками надо использовать:

Shapes

[npocmop]

тогда вроде так: приер.rar
но две задачи осталось никак не разгрысть:
- ровнять надпись справа по границе рисунка, другим форматом шрифта (мелким и наклонным - как обычно надписи)
- привязать к разделу в формате картинка № .. раздела ..

[forumWord]

npocmop,

другим форматом шрифта (мелким и наклонным - как обычно надписи)

В документе есть ещё что-нибудь кроме слов "Картинка №", оформленное стилем "Название объекта"?

Документ весь в альбомной ориентации и во всех разделах одинаковые поля?

Картинки имеют разную ширину?

№ .. раздела ..

есть же поле

Section

[npocmop]

1. ведь обычно всегда в документе есть ещё что-нибудь кроме слов "Картинка №", оформленное стилем "Название объекта".
2. документ не весь в альбомной ориентации и во всех разделах не одинаковые поля.
3. картинки имеют разную ширину. и там полно таблиц, которые нумеруются первым макросом viter.alex, только с разделами пока разбираюсь, с section..

[forumWord]

ведь обычно всегда в документе

а у вас как обычно?

[npocmop]

извиняюсь .. сразу не увидел