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ń
Połączenia 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:
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...
