Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 faudra beaucoup de papier. Pour enregistrer des papiers, vous pouvez fusionner ces lignes multiples 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 la fonction Rechercher et remplacer

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

Le bouton Rechercher et remplacer 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 > Trouver > Recherche avancée aller le Rechercher et remplacer boîte de dialogue, dans le Rechercher et remplacer boîte de dialogue, sous Trouver onglet, veuillez entrer ^p dans le Trouvez ce que zone de texte, puis sélectionnez Sélection actuelle Option de Retrouver dans liste déroulante, voir capture d'écran:

doc fusionner plusieurs lignes 1

3. Ensuite, allez à la remplacer onglet, et laisser le Remplacez-le par zone de texte vide, puis cliquez sur Remplacer tout bouton, voir capture d'écran:

doc fusionner plusieurs lignes 2

4. Et tous les paragraphes sélectionnés ont été fusionnés en un seul paragraphe, voir la capture d'écran:

doc fusionner plusieurs lignes 3


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, procédez comme suit:

1. Sélectionnez les lignes que vous souhaitez fusionner en un seul paragraphe.

2. Ensuite, maintenez la 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 suit:

doc fusionner plusieurs lignes 4



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.