Comment fusionner ou combiner plusieurs lignes en un seul paragraphe dans un document Word?
S'il y a des centaines et des milliers de paragraphes dans votre document Word, lors de l'impression de ce document, il aura besoin de beaucoup de papier. Pour enregistrer des articles, vous pouvez fusionner ces plusieurs lignes en un seul paragraphe. Cependant, comment pouvez-vous combiner toutes ces lignes en un seul paragraphe rapidement et facilement dans un document Word?
Fusionner ou combiner plusieurs lignes en un seul paragraphe avec le code VBA
Fusionner ou combiner plusieurs lignes en un seul paragraphe avec la fonction Rechercher et remplacer
La Rechercher et remplacer La fonction dans Word peut vous aider à fusionner plusieurs lignes en un seul paragraphe, procédez comme suit:
1. Sélectionnez les paragraphes que vous souhaitez fusionner en un seul paragraphe.
2. Et puis, cliquez Accueil > Trouvez > Recherche avancée aller au Rechercher et remplacer boîte de dialogue, dans la Rechercher et remplacer boîte de dialogue, sous la Trouvez onglet, veuillez entrer ^p into the Trouvez ce que zone de texte, puis sélectionnez Sélection actuelle Option de Retrouver dans liste déroulante, voir capture d'écran:
3. Ensuite, allez à la remplacer et laissez le Remplacez-le par zone de texte vide, puis cliquez sur Remplacer tout bouton, voir capture d'écran:
4. Et tous les paragraphes sélectionnés ont été fusionnés en un seul paragraphe, voir capture d'écran:
Fusionner ou combiner plusieurs lignes en un seul paragraphe avec le code VBA
Voici une autre méthode utile qui peut également vous aider à terminer ce travail dans Word, veuillez suivre les étapes suivantes:
1. Sélectionnez les lignes que vous souhaitez fusionner en un seul paragraphe.
2. Ensuite, maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
3. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert.
Code VBA: fusionnez plusieurs lignes en un seul paragraphe:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. Et puis appuyez sur F5 clé pour exécuter ce code, et tous les paragraphes sélectionnés ont été combinés en un seul paragraphe comme illustré ci-dessous:
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion