通过

Envelope.UpdateDocument 方法 (Word)

  • 项目

用当前的信封设置更新文档中的信封。

语法

expression. UpdateDocument

表达式是必需的。 一个代表“Envelope”对象的变量。

备注

如果在将信封添加至文档前使用该属性，则产生错误。

示例

本示例将 Report.doc 中的信封设置为自定义信封尺寸（4.5 英寸 x 7.5 英寸）。

Sub UpdateEnvelope() 
 
 On Error GoTo errhandler 
 
 With Documents("Report.doc").Envelope 
 .DefaultHeight = InchesToPoints(4.5) 
 .DefaultWidth = InchesToPoints(7.5) 
 .UpdateDocument 
 End With 
 
 Exit Sub 
 
errhandler: 
 
 If Err = 5852 Then _ 
 MsgBox "Report.doc doesn't include an envelope" 
 
End Sub

本示例向活动文档中，使用预定义的地址的信封。 默认的信封条形码和饰面标识标记 (FIM-A) 设置为 True ，且更新活动文档中的信封。

Dim strAddress As String 
Dim strReturn As String 
 
strAddress = "Darlene Rudd" & vbCr & "1234 E. Main St." _ 
 & vbCr & "Our Town, WA 98004" 
strReturn = "Patricia Reed" & vbCr & "N. 33rd St." _ 
 & vbCr & "Other Town, WA 98040" 
ActiveDocument.Envelope.Insert _ 
 Address:=strAddress, ReturnAddress:=strReturn 
With ActiveDocument.Envelope 
 .DefaultPrintBarCode = True 
 .DefaultPrintFIMA = True 
 .UpdateDocument 
End With

另请参阅

封套对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。