DefaultWidth 属性

返回或设置默认信封宽度（以磅为单位）。Single 类型，可读写。

注意   如果设置了 DefaultHeight 或 DefaultWidth 属性，则“工具”菜单的“信封选项”对话框中的信封尺寸将自动更改为自定义尺寸。用 DefaultSize 属性可将预定义尺寸设置为默认尺寸。

示例

本示例设置自定义信封默认宽度和高度，并将一个信封添至活动文档。

Dim strAddress As String
Dim strReturn As String

strAddress = "Tim O' Brien " & vbCr & "123 Skye St." _
    & vbCr & "Bellevue, WA  98004"
strReturn = "Dave Edson" & vbCr & "123 West Main" _
    & vbCr & "Seattle, WA  98004"

With ActiveDocument.Envelope
    .DefaultWidth = InchesToPoints(9)
    .DefaultHeight = InchesToPoints(3.85)
End With

ActiveDocument.Envelope.Insert _
    Address:=strAddress, ReturnAddress:=strReturn