Объект LetterContent (Word)
Представляет элементы буквы, созданной мастером письма.
Замечания
Используйте метод GetLetterContent или CreateLetterContent , чтобы вернуть объект LetterContent . В следующем примере извлекается и отображается имя получателя письма из активного документа.
Set myLetterContent = ActiveDocument.GetLetterContent
MsgBox myLetterContent.RecipientName
В следующем примере метод CreateLetterContent используется для создания объекта LetterContent , который затем используется с методом RunLetterWizard .
Set myLetter = ActiveDocument _
.CreateLetterContent(DateFormat:="July 11, 1996", _
IncludeHeaderFooter:=False, _
PageDesign:="C:\MSOffice\Templates\Letters & " _
& "Faxes\Contemporary Letter.dot", _
LetterStyle:=wdFullBlock, Letterhead:=True, _
LetterheadLocation:=wdLetterTop, _
LetterheadSize:=InchesToPoints(1.5), _
RecipientName:="Dave Edson", _
RecipientAddress:="100 Main St." & vbCr _
& "Bellevue, WA 98004", _
Salutation:="Dear Dave,", _
SalutationType:=wdSalutationInformal, _
RecipientReference:="", MailingInstructions:="", _
AttentionLine:="", _
Subject:="End of year report", CCList:="", ReturnAddress:="", _
SenderName:="", Closing:="Sincerely yours,", _
SenderCompany:="", _
SenderJobTitle:="", SenderInitials:="", EnclosureNumber:=0)
ActiveDocument.RunLetterWizard _
LetterContent:=myLetter, WizardMode:=True
Метод CreateLetterContent создает объект LetterContent ; однако существует множество обязательных аргументов. Если вы хотите задать только несколько свойств, используйте ключевое слово New для создания нового автономного объекта LetterContent . В следующем примере создается объект LetterContent , задаются некоторые его свойства, а затем объект LetterContent используется с методом RunLetterWizard для запуска мастера письма, используя предварительно заданные значения в качестве параметров по умолчанию.
Set myLetter = New LetterContent
With myLetter
.AttentionLine = "Read this"
.EnclosureNumber = 1
.Letterhead = True
.LetterheadLocation = wdLetterTop
.LetterheadSize = InchesToPoints(2)
End With
Documents.Add.RunLetterWizard LetterContent:=myLetter, _
WizardMode:=True
Можно дублировать объект LetterContent с помощью свойства Дублировать . В следующем примере извлекаются элементы букв в активном документе и создаются дубликаты. В этом примере дублирующаяся копия назначается aLetter , а имя и адрес получателя сбрасываются в пустые строки. Метод RunLetterWizard используется для запуска мастера букв, используя значения в измененном объекте LetterContent ( aLetter ) в качестве параметров по умолчанию.
Set aLetter = ActiveDocument.GetLetterContent.Duplicate
With aLetter
.RecipientName = ""
.RecipientAddress = ""
End With
Documents.Add.RunLetterWizard LetterContent:=aLetter, _
WizardMode:=True
Метод SetLetterContent вставляет содержимое указанного объекта LetterContent в документ. В следующем примере извлекаются элементы букв из активного документа, изменяется линия внимания, а затем используется метод SetLetterContent для обновления активного документа, чтобы отразить это изменение.
Set myLetterContent = ActiveDocument.GetLetterContent
myLetterContent.AttentionLine = "Greetings"
ActiveDocument.SetLetterContent LetterContent:=myLetterContent
См. также
Справочник по объектной модели Word
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.