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 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 > Trouvez > Recherche avancée aller le Rechercher et remplacer boîte de dialogue, dans le Rechercher et remplacer boîte de dialogue, sous Trouvez 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



Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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.