Jak scalić lub połączyć wiele wierszy w jeden akapit w dokumencie programu Word?
Jeśli w dokumencie programu Word znajdują się setki i tysiące akapitów, podczas drukowania tego dokumentu będzie potrzebował dużo papieru. Aby zapisać dokumenty, możesz połączyć te wiele wierszy w jeden akapit. Jak jednak można szybko i łatwo połączyć wszystkie te wiersze w jeden akapit w dokumencie programu Word?
Scal lub połącz wiele wierszy w jeden akapit za pomocą funkcji Znajdź i zamień
Scal lub połącz wiele wierszy w jeden akapit za pomocą kodu VBA
Scal lub połącz wiele wierszy w jeden akapit za pomocą funkcji Znajdź i zamień
Podróż Ruta de la Plata w liczbach Znajdowanie i zamienianie funkcja w programie Word może pomóc w scaleniu wielu wierszy w jeden akapit, wykonaj następujące czynności:
1. Wybierz akapity, które chcesz scalić w jeden akapit.
2. A następnie kliknij Strona Główna > Znajdź > Zaawansowane wyszukiwanie iść do Znajdowanie i zamienianie okno dialogowe w Znajdowanie i zamienianie okno dialogowe w obszarze Znajdź proszę wejść ^p do Znajdź co pole tekstowe, a następnie wybierz Obecny wybór opcja z Znaleźć w rozwijana lista, zobacz zrzut ekranu:
3. Następnie przejdź do zastąpić kartę i opuść Zastąp pole tekstowe jest puste, a następnie kliknij Zamień wszystko przycisk, zobacz zrzut ekranu:
4. Wszystkie wybrane akapity zostały połączone w jeden akapit, patrz zrzut ekranu:
Scal lub połącz wiele wierszy w jeden akapit za pomocą kodu VBA
Oto kolejna przydatna metoda, która może również pomóc w ukończeniu tej pracy w programie Word, wykonaj następujące czynności:
1. Wybierz wiersze, które chcesz scalić w jeden akapit.
2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3. A następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod do otwartego pustego modułu.
Kod VBA: Scal wiele wierszy w jeden akapit:
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. A następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie wybrane akapity zostały połączone w jeden akapit, jak pokazano na poniższym zrzucie ekranu:
Zalecane narzędzia zwiększające produktywność programu Word
Kutools dla programu Word — ponad 100 zaawansowanych funkcji programu Word, oszczędzaj 50% czasu
- Skomplikowane i powtarzalne operacje można wykonać jednorazowo w ciągu kilku sekund.
- Wstaw wiele obrazów w folderach do dokumentu programu Word jednocześnie.
- Scalaj i łącz wiele plików programu Word w folderach w jeden z żądaną kolejnością.
- Podziel bieżący dokument na oddzielne dokumenty według nagłówka, podziału sekcji lub innych kryteriów.
- Konwertuj pliki między Doc i Docx, Docx i PDF, zbiór narzędzi do typowych konwersji i zaznaczania, i tak dalej ...






