Hvordan flettes eller kombineres flere linjer i et enkelt afsnit i Word-dokument?
Hvis der er hundreder og tusinder af afsnit i dit Word-dokument, skal du bruge meget papir, når du udskriver dette dokument. For at gemme papirer kan du flette disse flere linjer i et enkelt afsnit. Men hvordan kunne du hurtigt og nemt kombinere alle disse linjer i et afsnit i Word-dokument?
Flet eller kombiner flere linjer i et enkelt afsnit med funktionen Find og erstat
Flet eller kombiner flere linjer i et enkelt afsnit med VBA-kode
Flet eller kombiner flere linjer i et enkelt afsnit med funktionen Find og erstat
Søg og erstat funktion i Word kan hjælpe dig med at flette flere linjer i et afsnit, gør venligst som dette:
1. Vælg de afsnit, du vil flette i et afsnit.
2. Klik derefter på Forside > find > Avanceret Find at gå til Søg og erstat dialogboksen i Søg og erstat under dialogboksen find fane, indtast venligst ^p ind i Find hvad tekstfelt, og vælg derefter Nuværende valg mulighed fra Finde ind rulleliste, se skærmbillede:
3. Så gå til udskifte fanen, og lad Erstat med tekstfelt tomt, og klik derefter på Erstat alle knap, se skærmbillede:
4. Og alle de valgte afsnit er blevet flettet i et enkelt afsnit, se skærmbillede:
Flet eller kombiner flere linjer i et enkelt afsnit med VBA-kode
Her er en anden nyttig metode, der også kan hjælpe dig med at afslutte dette job i Word, skal du gøre med følgende trin:
1. Vælg de linjer, du vil flette i et afsnit.
2. Hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul.
VBA-kode: Flet flere linjer i et enkelt afsnit:
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. Og tryk derefter på F5 nøgle til at køre denne kode, og alle valgte afsnit er blevet kombineret i et afsnit som følgende vist skærmbillede:
Anbefalede Word-produktivitetsværktøjer
Kutools til Word - mere end 100 avancerede funktioner til Word, spar din 50% tid
- Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
- Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
- Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
- Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
- Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
