задолбало лазать по меню, сделал так:Код:sub PageNumber_Automation dim document as object dim dispatcher as object document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.Dis patchHelper") dim args1(1) as new com.sun.star.beans.PropertyValue args1(0).Name = "PageStyle" args1(1).Name = "On" args1(1).Value = true dispatcher.executeDispatch(document, ".uno:InsertPageFooter", "", 0, args1()) dispatcher.executeDispatch(document, ".uno:InsertPageNumberField", "", 0, Array())end subможет кому поможет, а может и критика будет
| 
Линейный вид
