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, vil det have brug for meget papir, når du udskriver dette dokument. For at spare papirer kan du flette disse flere linjer til et enkelt afsnit. Men hvordan kunne du kombinere alle disse linjer i ét afsnit hurtigt og nemt i Word-dokument?
Flet eller kombiner flere linjer til et enkelt afsnit med funktionen Find og Erstat
Flet eller kombiner flere linjer til et enkelt afsnit med VBA-kode
Flet eller kombiner flere linjer til et enkelt afsnit med funktionen Find og Erstat
Søg og erstat funktion i Word kan hjælpe dig med at flette flere linjer til et afsnit, gør venligst som dette:
1. Vælg de afsnit, du vil flette til ét afsnit.
2. Klik derefter på HOME > Finde > Avanceret Find at gå til Søg og erstat dialogboksen i Søg og erstat under dialogboksen Finde fanen, 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 forlad Erstat med tekstboksen tom, og klik derefter Erstat alle knap, se skærmbillede:
4. Og alle de valgte afsnit er blevet slået sammen til et enkelt afsnit, se skærmbillede:
Flet eller kombiner flere linjer til 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, gør venligst med følgende trin:
1. Vælg de linjer, du vil flette til ét 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 til 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 tasten for at køre denne kode, og alle valgte afsnit er blevet kombineret til ét afsnit som følgende skærmbillede vist:
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
Dyk ned i de fremhævede funktioner nedenfor eller klik her for at udforske den fulde kraft af Kutools for Word.
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/XLSX) / Batch Konverter til PDF / Eksporter sider som billeder / Udskriv flere filer på én gang ...
✏ Indholdsredigering: Batch Find og erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst ...
🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Alle overskrifter / Tekstbokse / Hyperlinks / For flere fjernelsesværktøjer, gå til vores Fjerngruppe
➕ Kreative indlæg: indsatte Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Diagonal linjebord / Ligningstekst / Billede Caption / Tabeltekst / Flere billeder / Opdag mere i vores Indsæt-gruppe
???? Præcisionsvalg: Find bestemte sider / tabeller / former / overskrifter / Naviger nemt ved hjælp af vores udvalgte gruppe
⭐ Stjerneforbedringer: Naviger hurtigt til ethvert sted / automatisk indsæt gentagende tekst / skifte problemfrit mellem dokumentvinduer / 11 Konverteringsværktøjer ...
Transformer dine Word-opgaver med Kutools. 👉 Download med 30-dages prøveversion nu 🚀.
