Memformat teks secara terprogram dalam dokumen

Anda bisa menggunakan Range objek untuk memformat teks dalam dokumen Microsoft Office Word.

Berlaku untuk: Informasi dalam topik ini berlaku untuk proyek tingkat dokumen dan proyek Add-in VSTO untuk Word. Untuk informasi selengkapnya, lihat Fitur yang tersedia berdasarkan aplikasi Office likasi dan jenis proyek.

Contoh berikut memilih paragraf pertama dalam dokumen dan mengubah ukuran font, nama font, dan perataan. Kemudian memilih rentang dan menampilkan kotak pesan untuk dijeda sebelum menjalankan bagian kode berikutnya. Bagian berikutnya memanggil metode Document Batalkan item host (untuk kustomisasi tingkat dokumen) atau Document kelas (untuk Add-in VSTO) tiga kali. Ini menerapkan gaya Inden Normal dan menampilkan kotak pesan untuk menjeda kode. Kemudian kode memanggil Undo metode sekali, dan menampilkan kotak pesan.

Contoh kustomisasi tingkat dokumen

Untuk memformat teks menggunakan kustomisasi tingkat dokumen

1. Contoh berikut dapat digunakan dalam kustomisasi tingkat dokumen. Untuk menggunakan kode ini, jalankan dari ThisDocument kelas di proyek Anda.

   C#

   private void RangeFormat() 
   { 
       // Set the Range to the first paragraph. 
       Word.Range rng = this.Paragraphs[1].Range;
   
       // Change the formatting. To change the font size for a right-to-left language, 
       // such as Arabic or Hebrew, use the Font.SizeBi property instead of Font.Size.
       rng.Font.Size = 14; 
       rng.Font.Name = "Arial"; 
       rng.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
   
       rng.Select(); 
       MessageBox.Show("Formatted Range"); 
   
       // Undo the three previous actions. 
       object numTimes3 = 3; 
       this.Undo(ref numTimes3); 
   
       rng.Select(); 
       MessageBox.Show("Undo 3 actions"); 
   
       // Apply the Normal Indent style. 
       object indentStyle = "Normal Indent"; 
       rng.set_Style(ref indentStyle); 
   
       rng.Select(); 
       MessageBox.Show("Normal Indent style applied"); 
   
       // Undo a single action. 
       object numTimes1 = 1; 
       this.Undo(ref numTimes1); 
   
       rng.Select(); 
       MessageBox.Show("Undo 1 action"); 
   }
   

   VB

   Private Sub RangeFormat()
   
       ' Set the Range to the first paragraph.
       Dim rng As Word.Range = Me.Paragraphs(1).Range
   
       ' Change the formatting. To change the font size for a right-to-left language, 
       ' such as Arabic or Hebrew, use the Font.SizeBi property instead of Font.Size.
       rng.Font.Size = 14
       rng.Font.Name = "Arial"
       rng.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
   
       rng.Select()
       MessageBox.Show("Formatted Range")
   
       ' Undo the three previous actions.
       Me.Undo(Times:=3)
   
       rng.Select()
       MessageBox.Show("Undo 3 actions")
   
       ' Apply the Normal Indent style.
       rng.Style = "Normal Indent"
   
       rng.Select()
       MessageBox.Show("Normal Indent style applied")
   
       ' Undo a single action.
       Me.Undo()
   
       rng.Select()
       MessageBox.Show("Undo 1 action")
   End Sub
   

Contoh Add-in VSTO

Untuk memformat teks menggunakan Add-in VSTO

1. Contoh berikut dapat digunakan dalam Add-in VSTO. Contoh ini menggunakan dokumen aktif. Untuk menggunakan kode ini, jalankan dari ThisAddIn kelas di proyek Anda.

   C#

   private void RangeFormat()
   {
       // Set the Range to the first paragraph. 
       Word.Document document = this.Application.ActiveDocument;
       Word.Range rng = document.Paragraphs[1].Range;
   
       // Change the formatting. To change the font size for a right-to-left language, 
       // such as Arabic or Hebrew, use the Font.SizeBi property instead of Font.Size.
       rng.Font.Size = 14;
       rng.Font.Name = "Arial";
       rng.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter;
   
       rng.Select();
       MessageBox.Show("Formatted Range");
   
       // Undo the three previous actions. 
       object numTimes3 = 3;
       document.Undo(ref numTimes3);
   
       rng.Select();
       MessageBox.Show("Undo 3 actions");
   
       // Apply the Normal Indent style. 
       object indentStyle = "Normal Indent";
       rng.set_Style(ref indentStyle);
   
       rng.Select();
       MessageBox.Show("Normal Indent style applied");
   
       // Undo a single action. 
       object numTimes1 = 1;
       document.Undo(ref numTimes1);
   
       rng.Select();
       MessageBox.Show("Undo 1 action");
   }
   

   VB

   Private Sub RangeFormat()
   
       ' Set the Range to the first paragraph.
       Dim document As Word.Document = Me.Application.ActiveDocument
       Dim rng As Word.Range = document.Paragraphs(1).Range
   
       ' Change the formatting. To change the font size for a right-to-left language, 
       ' such as Arabic or Hebrew, use the Font.SizeBi property instead of Font.Size.
       rng.Font.Size = 14
       rng.Font.Name = "Arial"
       rng.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
   
       rng.Select()
       MessageBox.Show("Formatted Range")
   
       ' Undo the three previous actions.
       document.Undo(Times:=3)
   
       rng.Select()
       MessageBox.Show("Undo 3 actions")
   
       ' Apply the Normal Indent style.
       rng.Style = "Normal Indent"
   
       rng.Select()
       MessageBox.Show("Normal Indent style applied")
   
       ' Undo a single action.
       document.Undo()
   
       rng.Select()
       MessageBox.Show("Undo 1 action")
   End Sub
   

Konten terkait

• Cara: Menentukan dan memilih rentang secara terprogram dalam dokumen
• Cara: Menyisipkan teks secara terprogram ke dalam dokumen Word
• Cara: Mencari dan mengganti teks secara terprogram dalam dokumen