Поделиться через


Метод Application.NewDocument (Publisher)

Возвращает объект Document , представляющий новую публикацию.

Синтаксис

expression. NewDocument (мастер, конструктор)

выражение: переменная, представляющая объект Application.

Параметры

Имя Обязательный или необязательный Тип данных Описание
Wizard Необязательный PbWizard Мастер, используемый для создания новой публикации. Может быть одной из констант PbWizard , объявленных в библиотеке типов издателя Майкрософт. Значение по умолчанию — pbWizardNone.
Design Необязательный Long Дизайн, применяемый к новой публикации.

Возвращаемое значение

Документ

Пример

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

Sub CreateNewPublication() 
 Dim AppPub As Application 
 Dim DocPub As Document 
 
 Set AppPub = New Publisher.Application 
 Set DocPub = AppPub.NewDocument 
 AppPub.ActiveWindow.Visible = True 
 
 With DocPub.MasterPages(1).Shapes.AddShape _ 
 (Type:=msoShape5pointStar, Left:=36, _ 
 Top:=36, Width:=50, Height:=50) 
 .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 With .TextFrame.TextRange 
 .InsertPageNumber 
 .ParagraphFormat.Alignment = pbParagraphAlignmentCenter 
 With .Font 
 .Bold = msoTrue 
 .Color.RGB = RGB(Red:=255, Green:=255, Blue:=255) 
 .Size = 12 
 End With 
 End With 
 End With 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.