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 Home > ZNAJDŹ MIEJSCE IDEALNE DLA CIEBIE > Zaawansowane wyszukiwanie iść do Znajdowanie i zamienianie okno dialogowe w Znajdowanie i zamienianie okno dialogowe w obszarze ZNAJDŹ MIEJSCE IDEALNE DLA CIEBIE 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 for Word - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
Zapoznaj się z wyróżnionymi funkcjami poniżej lub kliknij tutaj, aby poznać pełną moc Kutools for Word.
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/XLSX) / 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 / Aby uzyskać więcej narzędzi do usuwania, przejdź do naszej grupy usuwania
➕ Kreatywne wstawki: wstawka 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 naszej grupie wkładek
🔍 Precyzyjne wybory: Wskaż konkretne strony / stoły / kształty / nagłówki akapitów / Nawiguj z łatwością, korzystając z naszej grupy Select
⭐ 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 ...
Przekształć swoje zadania Worda za pomocą Kutools. 👉 Pobierz teraz z 30-dniową wersją próbną .









