tramparamparam02 Цитата: предпочитаю работать с клавиатурой. Старая привычка...
ну, я тоже
но, в данном случае, раз стоит вопрос в сокращении действий - почему б и нет?
Цитата: что ещё за штука? Никогда не слышал
ну, это - то самое, что используешь, вставляя нумерацию страниц..
Цитата: как конкретно
вот оно ( +
сильно подробнее)
Добавлено: Цитата: это, в принципе, можно сделать?
всё, что можно проделать в документе, можно, в принципе, записать и в макрос...
нормально записалось всё: [more=макрос][no]Sub InsPgN1()
'
'
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
Application.Templates( _
"C:\Users\UserName\AppData\Roaming\Microsoft\Document Building Blocks\1049\15\Building Blocks.dotx" _
).BuildingBlockEntries("Стр. 1 из 1").Insert Where:=Selection.Range, _
RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub[/no][/more] или [more=макрос (без шаблонов)][no]Sub InsPageNum()
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 ' Top
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter ' Footer
Selection.TypeText Text:="Стр. "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"PAGE ", PreserveFormatting:=True
Selection.TypeText Text:=" из "
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"NUMPAGES ", PreserveFormatting:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub[/no][/more]