Gena1971
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dummy84
А в чем проблема то?
Записываешь макрос, потом редактируешь его, убирая все лишнее и получается
Код:
Sub Макрос15()
'
' Макрос15 Макрос
'
'
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
'То что вверху не знаю почему появилось , 
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = MillimetersToPoints(15)
.LeftMargin = MillimetersToPoints(10)
.BottomMargin = MillimetersToPoints(20)
.RightMargin = MillimetersToPoints(15)
.Gutter = MillimetersToPoints(0)
.HeaderDistance = MillimetersToPoints(12.7)
.FooterDistance = MillimetersToPoints(12.7)
.PageWidth = MillimetersToPoints(210)
.PageHeight = MillimetersToPoints(296.9)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
End Sub |
Дополнительно можно вставить запрос на эти параметры типа
InputBox("Размер левого поля", "Запрос", L_pole)
------------------------------------
И вот к примеру с запросом простенько, без проверки на корректность
Код: Sub Смена_полей()
On Error Resume Next 'не останавливаться на ошибках
With ActiveDocument.PageSetup
.TopMargin = MillimetersToPoints(InputBox("Верхнее поле, мм", "Запрос", PointsToMillimeters(.TopMargin)))
.BottomMargin = MillimetersToPoints(InputBox("Нижнее поле, мм", "Запрос", PointsToMillimeters(.BottomMargin)))
.LeftMargin = MillimetersToPoints(InputBox("Левое поле, мм", "Запрос", PointsToMillimeters(.LeftMargin)))
.RightMargin = MillimetersToPoints(InputBox("Правое поле, мм", "Запрос", PointsToMillimeters(.RightMargin)))
End With
End Sub
|
|
Всего записей: 2567 | Зарегистр. 25-01-2005 | Отправлено: 12:08 30-11-2010 | Исправлено: Gena1971, 13:34 30-11-2010 |
|
. Что-то, похоже, с системой не так. Потому что файл scrrun.dll -- есть, в Reference на него указано. Видимо, нужно обновить этот файл что ли.
