for flooders
:: Главная :: Решения :: Статьи :: Сайт М. Дроздова :: Файловый архив :: Книга по VFP 9 :: Русский Help Online :: OFF-LINE Форум
   Л и с о в о д ы   в с е х   с т р а н,  о б ъ е д и н я й т е с ь !!!  

Список Форумов  :: Не фоксом единым
   :: Помощь сайту :: 

Обратиться к таблице в колонтитуле Word
PaulWist
Автор

Сообщений: 12921
Дата: 26.06.18 17:54:13ОтветитьЦитировать
Как обратиться к таблице (ячейкам таблицы) используя объектную модель, которая нарисована в верхнем колонтитуле?

Изучение макроса приводит к мысли, что в колонтитуле нет объекта Table.


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive

Re: Обратиться к таблице в колонтитуле Word
Pliskin

Сообщений: 2703
Откуда: Новосибирск
Дата: 26.06.18 19:14:51ОтветитьЦитировать
вот, что нашёл

  
  Sub Temp()  
  With ActiveDocument.ActiveWindow.View  
   .Type = wdPrintView  
   .SeekView = wdSeekCurrentPageHeader  
  End With  
  Dim ttab As Table  
  Set ttab = Selection.HeaderFooter.Range.Tables(1)  
  ttab.Cell(1, 1).Range.InsertAfter ("1234")  
  End Sub
Ratings: 0 negative/0 positive

Re: Обратиться к таблице в колонтитуле Word
PaulWist
Автор

Сообщений: 12921
Дата: 27.06.18 09:43:36ОтветитьЦитировать
Pliskin
вот, что нашёл
  
  Sub Temp()  
  With ActiveDocument.ActiveWindow.View  
   .Type = wdPrintView  
   .SeekView = wdSeekCurrentPageHeader  
  End With  
  Dim ttab As Table  
  Set ttab = Selection.HeaderFooter.Range.Tables(1)  
  ttab.Cell(1, 1).Range.InsertAfter ("1234")  
  End Sub

Вот спасибо за наводку!

** ЗАПОЛНЕНИЕ ВЕРХНЕГО КОЛОНТИТУЛА    
 ** Переключаемся на колонтитул. Выделяем колонтитул на первой-текущей странице  
  m.loDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader  
 ** Заполняем первую таблицу в Headere  
  m.nTable = 1  
  m.loTable = loDoc.Sections(1).Headers(1).Range.Tables(m.nTable)   
 ** Вторая строка, Первая колонка  
  m.loTable.Cell(2, 1).Range.Text = "1234"    
 ** 	Переключаемся на документ! Иначе при loWord.Visible = .T. остаётся редактирование колонтитула   
  m.loDoc.ActiveWindow.View.SeekView = wdSeekMainDocument  
 ** КОНЕЦ ЗАПОЛНЕНИЕ ВЕРХНЕГО КОЛОНТИТУЛА


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive



Извините, только зарегистрированные пользователи могут писать в этом форуме.

On-line: 41 Joys  and Guests: 40


© 2000-2018 Fox Club 
Яндекс.Метрика