Comment : mettre en forme du texte dans des documents par programmation

Article
03/04/2013

Vous pouvez utiliser l'objet Range pour mettre en forme le texte dans un document Microsoft Office Word.

S'applique à : Les informations contenues dans cette rubrique s'appliquent aux projets de niveau document et de niveau application pour Word 2013 et Word 2010. Pour en savoir plus, consultez Fonctionnalités disponibles par type d'application et de projet Office.

L'exemple suivant sélectionne le premier paragraphe du document et modifie la taille et le nom de la police, ainsi que l'alignement.Il sélectionne ensuite la plage et affiche un message de pause avant d'exécuter la section de code suivante.La section suivante appelle trois fois la méthode Undo de l'élément hôte Microsoft.Office.Tools.Word.Document (pour une personnalisation au niveau du document) ou la classe Microsoft.Office.Interop.Word.Document (pour un complément d'application).Elle applique le style « Retrait normal » et affiche un message permettant de suspendre le code.Le code appelle une fois la méthode Undo et affiche un message.

Exemple de personnalisation au niveau du document

Pour mettre en forme le texte à l'aide d'une personnalisation au niveau du document

L'exemple suivant peut être utilisé dans une personnalisation au niveau du document.Pour utiliser ce code, exécutez-le dans votre projet à partir de la classe ThisDocument.

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

Exemple de complément d'application

Pour mettre en forme le texte à l'aide d'un complément d'application

L'exemple suivant peut être utilisé dans un complément d'application.Cet exemple utilise le document actif.Pour utiliser ce code, exécutez-le dans votre projet à partir de la classe ThisAddIn.

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