Как таблицу привязать к концу листа WORD?

@dudukalov_d · Регистрация: 29.03.2008

Author24 — интернет-сервис помощи студентам

Ребят, мож конечно вопрос не по ВБА, а по ворду. Но я не знаю как его решить. Очень хотелось бы услышать его решение в ВБА врианте.

Как таблицу привязать к концу листа, чтобы при внесении текста или при удалении текста она не смещалась со своего места?

09.04.2008, 15:33

А вставь ее в текстовый блок, что на панели графики, а сам блок и привязывай уже. Помоему это проще

, чем проги писать

@oldpasp · 10.04.2008, 02:05

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

Подводите курсор к левому верхнему углу - появляется крестик - тащите таблицу куда надо.

Либо щелкаете правой кнопкой на таблице - открываете 'свойства таблицы', где устанавливается в том числе и расположение и много еще чего

А если уж очень надо программно, то используйте макрорекордер

Visual Basic

Sub PP()
Dim tbl As Table
   Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:= _
      5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
      wdAutoFitFixed)
 
'и вперед - устанавливайте все какие можно свойства (можно посмотреть в ObjectBrowser)
 
   With Selection.Tables(1).Rows
      .VerticalPosition = wdTableBottom 'таблица внизу страницы, wdTableTop - вверху
      .RelativeVerticalPosition = wdRelativeVerticalPositionPage
   End With
End Sub
 
End Sub

@dudukalov_d 0 / 0 / 0 Регистрация: 29.03.2008 Сообщений: 6
		1
	Как таблицу привязать к концу листа WORD? 09.04.2008, 15:31. Показов 4682. Ответов 2 Метки нет (Все метки) Ребят, мож конечно вопрос не по ВБА, а по ворду. Но я не знаю как его решить. Очень хотелось бы услышать его решение в ВБА врианте. Как таблицу привязать к концу листа, чтобы при внесении текста или при удалении текста она не смещалась со своего места? 0

Anri
	09.04.2008, 15:33	2
	А вставь ее в текстовый блок, что на панели графики, а сам блок и привязывай уже. Помоему это проще , чем проги писать

	10.04.2008, 02:05