Comment : mettre en forme du texte dans des documents

Mise à jour : novembre 2007

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

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.

Remarque :

Vous remarquerez que vous écrivez moins de code de mise en forme si vous définissez des styles pour tous vos besoins de mise en forme. De plus, les styles sont plus simples à tenir à jour. Si vous devez modifier la mise en forme d'un document, vous n'avez à le faire qu'à un seul endroit (le style) et vous n'avez pas besoin de procéder à une recherche et un remplacement dans l'ensemble de votre code.

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 à partir de la classe ThisDocument dans votre projet.

  Private Sub RangeFormat()
  
      ' Set the Range to the first paragraph.
      Dim rng As Word.Range = Me.Paragraphs(1).Range
  
      ' Change the formatting.
      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. 
      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.
      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. 
      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");
  }
  

Voir aussi

Tâches

Comment : définir et sélectionner des plages dans les documents

Comment : insérer du texte dans les documents Word

Comment : rechercher du texte dans les documents