Объект 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 и обратная связь.