Field.TextRange 屬性 (Publisher)
會傳回 TextRange 物件,代表附加至圖案以及屬性及方法來處理文字的文字。
運算式。TextRange
表達 代表 Field 物件的變數。
以下範例在使用中出版物圖案一的文字框架中新增文字,然後設定新文字的格式。 本範例假設使用中出版物第一頁內至少有一個圖案。
Sub AddTextToTextFrame()
With ActiveDocument.Pages(1).TextFrame.TextRange
.Text = "My Text"
With .Font
.Bold = msoTrue
.Size = 25
.Name = "Arial"
End With
End With
End Sub
下列範例將矩形新增至使用中文件,並將文字加入其中。
Sub AddTextToShape()
With ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeRectangle, _
Left:=72, Top:=72, Width:=250, Height:=140)
.TextFrame.TextRange.Text = "Here is some test text"
End With
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。