以程式設計方式在 Word 文件中重設範圍
本文內容
使用 SetRange 方法,可以調整 Microsoft Office Word 文件中現有範圍的大小。
適用對象: 本主題資訊適用於文件層級的專案和 Word 的 VSTO 增益集專案。 如需詳細資訊,請參閱依 Office 應用程式和專案類型提供的功能 。
若要重設現有範圍
以文件中前七個字元的開頭設定初始範圍。
下列程式碼範例可用於文件層級自訂。
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start,ref end);
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
下列程式碼範例可用於 VSTO 增益集。 這個程式碼會使用現用的文件。
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
使用 SetRange 從第二個句子開始設定這個範圍,一直到第五個句子的結尾結束。
rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);
rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
文件層級自訂範例
若要重設文件層級自訂中的現有範圍
下列範例顯示文件層級自訂的完整範例。 若要使用此程式碼,請從專案的 ThisDocument
類別中執行它。
object start = 0;
object end = 7;
Word.Range rng = this.Range(ref start,ref end);
// Reset the existing Range.
rng.SetRange(this.Sentences[2].Start, this.Sentences[5].End);
rng.Select();
Dim rng As Word.Range = Me.Range(Start:=0, End:=7)
' Reset the existing Range.
rng.SetRange(Start:=Me.Sentences(2).Start, End:=Me.Sentences(5).End)
rng.Select()
VSTO 增益集範例
若要重設 VSTO 增益集中的現有範圍
下列範例顯示 VSTO 增益集的完整範例。 若要使用此程式碼,請從專案的 ThisAddIn
類別中執行它。
Word.Range rng = this.Application.ActiveDocument.Range(0, 7);
// Reset the existing Range.
rng.SetRange(this.Application.ActiveDocument.Sentences[2].Start,
this.Application.ActiveDocument.Sentences[5].End);
rng.Select();
Dim rng As Word.Range = Me.Application.ActiveDocument.Range(Start:=0, End:=7)
' Reset the existing Range.
rng.SetRange(Start:=Me.Application.ActiveDocument.Sentences(2).Start, _
End:=Me.Application.ActiveDocument.Sentences(5).End)
rng.Select()
相關內容