共用方式為

Word) (Envelope.AddressFromTop 屬性

  • 發行項

會傳回或設定信封上的邊緣與寄件地址之間的距離 (以點為單位)。 可讀寫 單一 。

語法

expression。 AddressFromTop

表達 代表 'Envelope' 物件的變數。

註解

如果您在將信封加入至文件之前使用此屬性，就會發生錯誤。

範例

本範例會建立新文件並新增已預先定義收件者地址和寄件者地址的信封。 然後本範例會將信封上緣和收件者地址之間的距離設定為 1.75 英吋，將信封左緣和收件者地址之間的距離設定為 3.75 英吋。

Dim strAddress As String 
Dim strReturn As String 


strAddress = "Michael Bunney" & vbCr & "123 Skye St." & vbCr _ 
 & "Our Town, WA 98040" 
strReturn = "Kate Dresen" & vbCr & "123 Main" & vbCr _ 
 & "Other Town, WA 98040" 
 
With Documents.Add.Envelope 
 .Insert Address:=strAddress, ReturnAddress:=strReturn 
 .AddressFromTop = InchesToPoints(1.75) 
 .AddressFromLeft = InchesToPoints(3.75) 
End With 
 
ActiveDocument.ActiveWindow.View.Type = wdPrintView

另請參閱

Envelope 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。