Angela a un document qui contient environ 400 zones de texte, et chaque zone de texte contient du texte. Elle se demande s’il existe un moyen de supprimer les zones de texte mais de laisser le texte dans le document.

Cela peut être fait manuellement en sélectionnant simplement le texte dans une zone de texte (en étant sûr de ne pas sélectionner la zone de texte elle-même), en appuyant sur Ctrl + C pour copier le texte, en cliquant à l’endroit où vous voulez que le texte aille, en appuyant sur Ctrl + V, puis en supprimant la zone de texte. Cependant, cela deviendrait rapidement fastidieux lorsque vous avez affaire à autant de zones de texte qu’Angela.

Dans ce cas, il est préférable de s’appuyer sur une macro pour effectuer les modifications. La macro peut parcourir toutes les zones de texte assez rapidement, en effectuant le travail nécessaire. Voici un exemple d’une telle macro:

Sub ConvertTextboxText()

Dim shp As Shape     Dim oRngAnchor As Range     Dim sTemp As String     Dim J As Long

For J = ActiveDocument.Shapes.Count To 1 Step -1         Set shp = ActiveDocument.Shapes(J)

If shp.Type = msoTextBox Then             sTemp = shp.TextFrame.TextRange.Text             If Len(sTemp) > 1 Then                 Set oRngAnchor = shp.Anchor.Paragraphs(1).Range                 sTemp = Left(sTemp, Len(sTemp) - 1)

oRngAnchor.InsertBefore "[[ " & sTemp & " ]]"

End If             shp.Delete         End If     Next J End Sub

Cette macro fonctionne uniquement avec les zones de texte, en ignorant toutes les autres formes pouvant contenir du texte. Il commence à la dernière zone de texte et se dirige vers le début du document. Une fois terminé, tout le texte qui se trouvait à l’intérieur des zones de texte est inséré au début du paragraphe auquel la zone de texte supprimée était précédemment ancrée.

De plus, ce texte est entouré de [[doubles crochets]] afin que vous puissiez facilement savoir où se trouve le texte. Étant donné que les zones de texte peuvent parfois être ancrées loin de l’endroit où elles apparaissent dans le document, vous voudrez certainement rechercher ces morceaux de texte à double crochets et les déplacer là où vous voulez qu’ils se trouvent enfin.

Si vous recherchez d’autres moyens d’accomplir la même tâche, vous pourriez être intéressé par cette page Web:

https://www.datanumen.com/blogs/2-quick-methods-extract-texts-text-boxes-word-document/

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (7739) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.