Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Word
  • Comment fusionner ou combiner plusieurs lignes en un seul paragraphe dans un document Word?

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 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

La série 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 > Find > Recherche avancée aller au Rechercher et remplacer boîte de dialogue, dans la Rechercher et remplacer boîte de dialogue, sous la Find 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:

doc fusionner plusieurs lignes 1

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:

doc fusionner plusieurs lignes 2

4. Et tous les paragraphes sélectionnés ont été fusionnés en un seul paragraphe, voir 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, 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:

doc fusionner plusieurs lignes 4


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, enregistrez votre
50 %
Temps écoulé

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci beaucoup
Cela m'aide à gagner du temps Je le faisais manuellement, c'était 60 pages après 2 pages Je me fatigue et commence à chercher un autre raccourci
REMERCIEMENTS
Ce commentaire a été minimisé par le modérateur sur le site
existe-t-il un moyen de créer ce mot sur google docs, j'ai suivi les étapes, mais cela ne fonctionnera que pour les versions de bureau et en ligne de Microsoft Word
Ce commentaire a été minimisé par le modérateur sur le site
Merci! Cela m'a épargné des heures d'avoir à réduire individuellement plus de 70 pages de plusieurs phrases brisées en paragraphes. C'est GENIUS.
Ce commentaire a été minimisé par le modérateur sur le site
La première étape, que j'ai testée, est assez brillante. C'était la meilleure astuce dont j'ai entendu parler. Merci!
Ce commentaire a été minimisé par le modérateur sur le site
Merci mon pote
Ce commentaire a été minimisé par le modérateur sur le site
excelente, me salvaste la vida.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL