Как создать элемент автотекста в редакторе Word 2007

[Aelxbor777]

Здравствуйте!

Как создать элемент автотекста в редакторе Word 2007 в колонтитулах с Полным именем файла (например: C:\Мои документы\название файла.doc.

[shanemac51]

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

[Aelxbor777]

Сообщение от shanemac51

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

а можно макросик в "студию" ?

[shanemac51]

-поместить макрос в normal.dot
-разрешить макросы
-из любого документа Alt/F8 ---------ок

Sub wst_path()

    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        Text:="FILENAME  \p ", PreserveFormatting:=True
    Selection.TypeText Text:="             "
    Application.Keyboard (1049)
    Selection.TypeText Text:="лист "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
         Text:="PAGE  ", PreserveFormatting:=True
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

[Aelxbor777]

Спасибо работает .