Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menggabungkan atau menggabungkan pelbagai baris ke dalam satu perenggan dalam dokumen Word?

Sekiranya terdapat ratusan dan ribuan perenggan dalam dokumen Word anda, apabila mencetak dokumen ini, ia memerlukan banyak kertas. Untuk menyimpan kertas, anda boleh menggabungkan beberapa baris ini ke satu perenggan tunggal. Walau bagaimanapun, bagaimana anda boleh menggabungkan semua baris ini menjadi satu perenggan dengan cepat dan mudah dalam dokumen Word?

Gabungkan atau gabungkan pelbagai baris ke dalam satu perenggan dengan fungsi Cari dan Ganti

Gabungkan atau gabungkan pelbagai baris ke dalam satu perenggan tunggal dengan kod VBA


Gabungkan atau gabungkan pelbagai baris ke dalam satu perenggan dengan fungsi Cari dan Ganti

Platform Cari dan Ganti fungsi dalam Word dapat membantu anda untuk menggabungkan beberapa baris ke dalam satu paragraf, sila lakukan seperti ini:

1. Pilih perenggan yang anda mahu bergabung menjadi satu perenggan.

2. Dan kemudian, klik Laman Utama > Cari > Carian Lanjutan untuk pergi Cari dan Ganti kotak dialog, dalam Cari dan Ganti kotak dialog, di bawah Cari tab, sila masukkan ^p ke Cari apa kotak teks, dan kemudian pilih Pemilihan Semasa Pilihan dari Mencari di drop down list, lihat tangkapan skrin:

doc menggabungkan beberapa garisan 1

3. Kemudian pergi ke Ganti tab, dan biarkan Gantikan dengan kotak teks kosong, dan kemudian klik Ganti Semua butang, lihat tangkapan skrin:

doc menggabungkan beberapa garisan 2

4. Dan semua perenggan yang dipilih telah digabungkan menjadi satu perenggan tunggal, lihat tangkapan skrin:

doc menggabungkan beberapa garisan 3


Gabungkan atau gabungkan pelbagai baris ke dalam satu perenggan tunggal dengan kod VBA

Berikut adalah satu lagi kaedah yang berguna juga boleh membantu anda untuk menyelesaikan tugas ini dalam Word, sila lakukan langkah-langkah berikut:

1. Pilih garisan yang anda mahu bergabung menjadi satu perenggan.

2. Kemudian, tegang ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

3. Dan kemudian, klik Memasukkan > Modul, salin dan tampal di bawah kod ke dalam modul kosong yang dibuka.

Kod VBA: Gabungkan pelbagai baris dalam satu perenggan:

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. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan semua perenggan yang dipilih telah digabungkan menjadi satu perenggan seperti tangkapan skrin berikut:

doc menggabungkan beberapa garisan 4

Alat produktiviti Word yang disyorkan

shot kutools perkataan kutools tab 1180x121
shot kutools perkataan kutools plus tab 1180x120

Kutools For Word - Lebih Daripada Ciri-ciri Lanjutan 100 Untuk Microsoft Word, Simpan 50% Time anda

  • Operasi yang rumit dan berulang boleh dilakukan pemprosesan satu kali dalam beberapa saat.
  • Sisipkan beberapa imej merentas folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan menggabungkan beberapa fail Word merentas folder ke dalam satu dengan pesanan yang anda inginkan.
  • Pisah dokumen semasa ke dalam dokumen berasingan mengikut tajuk 1, pecahan bahagian atau kriteria lain.
  • Tukar fail antara Doc dan Docx, Docx dan PDF, koleksi alat untuk penukaran dan pilihan biasa, dan sebagainya...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.