Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe combineer of combineer je meerdere regels in één alinea in Word-document?

Als er honderden en duizenden alinea's in uw Word-document staan, heeft dit bij het afdrukken van dit document veel papier nodig. Voor het opslaan van papiersoorten kunt u deze meerdere regels in één alinea samenvoegen. Hoe kon je echter al deze regels in Word-document snel en eenvoudig in één alinea combineren?

Voeg meerdere regels samen of combineer ze tot één alinea met de functie Zoeken en Vervangen

Voeg meerdere regels samen of combineer ze tot één alinea met VBA-code


Voeg meerdere regels samen of combineer ze tot één alinea met de functie Zoeken en Vervangen

De Zoeken en vervangen functie in Word kan je helpen om meerdere regels samen te voegen tot één alinea, doe dit als volgt:

1. Selecteer de alinea's die u in één alinea wilt samenvoegen.

2. En klik vervolgens op Home > Vind > Geavanceerd zoeken om het te gaan Zoeken en vervangen dialoogvenster, in de Zoeken en vervangen dialoogvenster, onder de Vind tabblad, voer alstublieft in ^p in de Zoeken naar tekstvak en selecteer vervolgens Huidige selectie optie van de Vinden in drop-down lijst, zie screenshot:

doc voeg meerdere regels samen 1

3. Ga dan naar de vervangen tab en verlaat de Vervangen door tekstvak leeg en klik vervolgens op Alles vervangen knop, zie screenshot:

doc voeg meerdere regels samen 2

4. En alle geselecteerde alinea's zijn samengevoegd tot één alinea, zie screenshot:

doc voeg meerdere regels samen 3


Voeg meerdere regels samen of combineer ze tot één alinea met VBA-code

Hier is een andere handige methode die je ook kan helpen om deze taak in Word af te maken, doe je alsjeblieft met de volgende stappen:

1. Selecteer de regels die u in één alinea wilt samenvoegen.

2. Houd vervolgens de knop ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. En klik vervolgens op bijvoegsel > module, kopieer en plak onderstaande code in de geopende lege module.

VBA-code: voeg meerdere regels samen in één enkele alinea:

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. En druk vervolgens op F5 sleutel om deze code uit te voeren, en alle geselecteerde alinea's zijn samengevoegd in één alinea als volgt: screenshot:

doc voeg meerdere regels samen 4



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
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.