3 façons de modifier par lots le format de texte dans toutes les zones de texte d'un document Word

Dans cet article ci-dessous, nous voulons vous montrer 3 façons de modifier par lots le format de texte dans toutes les zones de texte de votre document Word.

Les zones de texte sont souvent visibles dans nos documents. Tout en formatant les textes des documents, nous ne pouvons pas oublier ceux des zones de texte. Cependant, la dispersion des zones de texte dans un document peut vous empêcher de sélectionner tous les textes à l'intérieur une fois pour toutes. Par conséquent, à des fins de formatage, il est urgent d'apprendre une astuce pour effectuer le traitement par lots.

Méthode 1 : Utiliser la fonctionnalité "Recherche avancée"

1. Tout d'abord, cliquez sur l'onglet "Accueil" et cliquez sur le bouton fléché derrière la commande "Rechercher" dans le groupe "Edition".
2. Ensuite, dans la liste déroulante, choisissez "Recherche avancée" pour ouvrir la boîte de dialogue "Rechercher et remplacer".
3. Placez le curseur sur la zone de texte "Rechercher quoi" et entrez "^?" là.
4. Cliquez ensuite sur le bouton "Rechercher dans" et choisissez "Zones de texte dans le document principal".
5. Vous pouvez maintenant voir que tous les textes dans les zones de texte sont en sélection. Si vous oubliez la chaîne à mettre dans la case "Rechercher quoi", vous pouvez cliquer sur le bouton "Plus" pour ouvrir plus d'options dans la case, puis cliquer sur "Spécial". Choisissez ensuite "N'importe quel caractère".
6. Avec tous les textes sélectionnés, formatez-les simplement selon vos besoins.

Méthode 2 : modification par lots du format de texte dans toutes les zones de texte d'un document

1. Pour commencer, appuyez sur « Alt+F11 » dans Word pour lancer l'éditeur VBA.
2. Cliquez ensuite sur "Normal".
3. Cliquez ensuite sur l'onglet "Insérer" et choisissez "Module".
4. Et double-cliquez sur le nouveau module et collez-y la macro ci-dessous :

Sub FormatTextsInTextBoxes()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  With objDoc
    For Each objShape In .Shapes
      If objShape.Type = msoTextBox Then
        objShape.TextFrame.TextRange.Font.Name = "Arial"
        objShape.TextFrame.TextRange.Font.Size = "16"
      End If
    Next
  End With
End Sub

5. Enfin, cliquez sur «Exécuter».

Cette macro définit tous les textes de la zone de texte dans la police "Arial" à 16 pt. Vous pouvez modifier ces paramètres selon vos besoins.

Méthode 3 : modification par lots du format de texte dans toutes les zones de texte de plusieurs documents

Maintenant que nous parlons de traitement par lots, nous ne pouvons pas éliminer la nécessité de le faire entre plusieurs fichiers.

1. Tout d'abord, placez tous les documents cibles dans le même répertoire.
2. Ensuite, installez et exécutez la macro comme vous le faites dans la méthode 2. Cette fois, remplacez ces codes par les suivants :

Sub FormatTextsInTextBoxesInMultiDoc()
  Dim strFile As String
  Dim strFolder As String
  Dim objDoc As Document
 
  '  Initialization
  strFolder = InputBox("Enter folder path here: ")
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & strFile)
    Set objDoc = ActiveDocument
 
    With objDoc
      For Each objShape In .Shapes
        If objShape.Type = msoTextBox Then
          objShape.TextFrame.TextRange.Font.Name = "Arial"
          objShape.TextFrame.TextRange.Font.Size = "16"
        End If
      Next
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

3. Lors de l'exécution de la macro, une zone de saisie s'affichera, comme ci-dessous :
4. Entrez l'adresse du dossier dans la zone de texte et cliquez sur "OK". N'oubliez pas d'ajouter un "\" à la fin de votre chaîne de chemin. Ensuite, attendez que Word fasse son travail.

Faites une préparation complète pendant que vous le pouvez

Nous comprenons qu'il est même difficile de penser à la corruption de votre fichier. Cependant, nous ne pouvons jamais ignorer cette possibilité qui, pour être honnête, est relativement élevée. Quoi qu'il en soit, il est moins pénible de prendre des mesures préventives que de sautiller pour un correction de doc outil.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris corriger Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com