Тема: Ошибка при запуске макроса
В общем, задание состоит в том, чтобы записать макрос, устанавливающий следующие параметры:
- альбомная ориентация страниц;
- шрифт – Arial, курсив, 15 пт, цвет – синий;
- полуторный междустрочный интервал;
- масштаб изображения - 25%;
- в конце документа - дата/время создания документа.
Записала, запускаю, вылазит сообщение:
Microsoft Visual Basic
Run-time error '5149':
Значение должно находиться в диапазоне от 0.7 пт до 1584 пт.
код макроса следующий:
Sub Макрос1()
'
' Макрос1 Макрос
'
'
If Selection.PageSetup.Orientation = wdOrientPortrait Then
Selection.PageSetup.Orientation = wdOrientLandscape
Else
Selection.PageSetup.Orientation = wdOrientPortrait
End If
Selection.Font.Name = "Arial"
Selection.Font.Size = 15
Selection.ParagraphFormat.LineSpacing = LinesToPoints(32948)
Application.Templates( _
"C:\Users\AnaelWolf\AppData\Roaming\Microsoft\Document Building Blocks\1049\14\Built-In Building Blocks.dotx" _
).BuildingBlockEntries(" Пустой").Insert Where:=Selection.Range, RichText _
:=True
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"CREATEDATE \@ ""dd.MM.yyyy H:mm:ss"" ", PreserveFormatting:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveWindow.ActivePane.View.Zoom.Percentage = 25
End Sub
При нажатии в сообщении кнопки Debug, выделяет строчку
Selection.ParagraphFormat.LineSpacing = LinesToPoints(32948)
Подскажите, в чем проблема, что я не так делаю?