Postupy: Formátování textu v dokumentech prostřednictvím kódu programu

Článek
03/04/2013

Můžete použít Range objekt formátování textu v dokumentu Microsoft Office Word.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace v aplikacích Word 2013 a Word 2010. Další informace naleznete v tématu Funkce aplikace Office a typ projektu.

Následující příklad vybere první odstavec v dokumentu a změny velikosti písma, název písma a zarovnání.Potom vybere oblast a zobrazí okno pozastavení před provedením další části kódu.Další části volání Undo metoda Microsoft.Office.Tools.Word.Document položku hostitele (pro přizpůsobení úroveň dokument) nebo Microsoft.Office.Interop.Word.Document třídy (pro úroveň aplikace doplněk) třikrát.Použije styl Normální, odsazení a zobrazí okno kód pozastavit.Potom kód volá Undo metoda jednou a zobrazí okno zprávy.

Příklad vlastního nastavení úrovně dokumentu

Formátování textu pomocí přizpůsobení úroveň dokument

V následujícím příkladu lze v dokumentu úroveň přizpůsobení.Použít tento kód, spusťte jej z ThisDocument tříd v projektu.

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

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"); 
}

Úroveň aplikace například doplněk

Formátování textu pomocí doplňku pro úroveň aplikace

V následujícím příkladu lze použít v doplňku úrovni aplikace.Tento příklad používá aktivní dokument.Použít tento kód, spusťte jej z ThisAddIn tříd v projektu.

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

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");
}