В колонтитул Word.

Подскажите, пожалуйста.
Я из Access кидаю данные в шаблон Word. Можно ли, если да то как, кидать данные в колонтитул Word?
Заранее спасибо.
tuzz/

1. Записать макрос создания колонтитула в ворде
2. Изучить код, полученный в п1 ( в ворде).
3. Создать в access ссылку на word.application и пользуясь полученными знаниями из п1 и п2, а также имея ссылку на объект полученный в п3, решить задачу.
4. Радоватся жизни (можно и без п1-3)
Удачи.

bubucha

1. Записать макрос создания колонтитула в ворде 2. Изучить код, полученный в п1 ( в ворде). 3. Создать в access ссылку на word.application и пользуясь полученными знаниями из п1 и п2, а также имея ссылку на объект полученный в п3, решить задачу. 4. Радоватся жизни (можно и без п1-3) Удачи.

Пример содержательный.

автор

Пример содержательный.

а вы хотели готовый код под авашу задачу надо пологать?...

Вот мой код в Access.

Set dbENAT = CurrentDb

sql = "SELECT NumberDoc, NumberBlank, Surname, Name AS NameMan," _
& " OtchName, MREV, DateProd, TimeProd, Brak,DateAkt, NumberAkt, adressMREV, Persona, Price" _
& " FROM docAkt" _
& " WHERE ((docAkt.MREV)=1102)"
'1102
qty = " SELECT Count(docAkt.id) AS [QtyAll], Sum(docAkt.Price) AS [SumPrice]" _
& " FROM docAkt" _
& " GROUP BY docAkt.MREV " _
& " HAVING ((docAkt.MREV)=1102)"


Set rstDir = dbENAT.OpenRecordset(sql)
Set rstQS = dbENAT.OpenRecordset(qty)


Set X = Nothing
Set X = CreateObject("word.application")

X.Visible = True
X.Documents.Open "C:\datacard\Akt\MREV02\Akt2.doc"

Set d = X.ActiveDocument

With X.Selection.Find
.ClearFormatting
.Text = "date"
.Replacement.Text = rstDir!dateAkt
.Execute Replace:=wdReplaceAll

End With

Мне нужно кидать значение в колонтитул Word.

bubucha

автор Пример содержательный. а вы хотели готовый код под авашу задачу надо пологать?...

пример кода.

Согласно п1-4...

Function test_word_macros()
Dim wrd As Object
Dim strDocFile As String
strDocFile = "c:\temp\test.doc"

Set wrd = CreateObject("Word.Application")

wrd.Documents.Open strDocFile

With wrd

    .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    .Selection.TypeText Text:=Now() & ": Это текс, который должен случится в верхнем колонтитуле документа: " & strDocFile

End With

wrd.Visible = True
MsgBox "В данный момент, должен быть открыт документ " & strDocFile & " в который, добавлен верхний колонтитул..."

Set wrd = Nothing

End Function

спасибо.
tuzz