Note: The other languages of the website are Google-translated. Back to English
English English

วิธีการรวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวในเอกสาร Word?

หากมีหลายร้อยหลายพันย่อหน้าในเอกสาร Word ของคุณเมื่อพิมพ์เอกสารนี้จะต้องใช้กระดาษจำนวนมาก สำหรับการบันทึกเอกสารคุณสามารถรวมหลายบรรทัดเหล่านี้เป็นย่อหน้าเดียว อย่างไรก็ตามคุณจะรวมบรรทัดเหล่านี้ทั้งหมดเป็นย่อหน้าเดียวอย่างรวดเร็วและง่ายดายในเอกสาร Word ได้อย่างไร?

รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยฟังก์ชันค้นหาและแทนที่

รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยรหัส VBA


รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยฟังก์ชันค้นหาและแทนที่

พื้นที่ ค้นหาและแทนที่ ฟังก์ชันใน Word สามารถช่วยคุณในการรวมหลายบรรทัดเป็นหนึ่งย่อหน้าได้โปรดทำดังนี้:

1. เลือกย่อหน้าที่คุณต้องการรวมเป็นหนึ่งย่อหน้า

2. จากนั้นคลิก หน้าแรก > หา > การค้นหาขั้นสูง ไปที่ ค้นหาและแทนที่ ในกลองโตตอบ ค้นหาและแทนที่ ภายใต้ หา โปรดป้อน ^p เข้าไปใน สิ่งที่ค้นหา กล่องข้อความแล้วเลือก การเลือกปัจจุบัน ตัวเลือกจาก ค้นหาใน รายการแบบเลื่อนลงดูภาพหน้าจอ:

doc ผสานหลายบรรทัด 1

3. จากนั้นไปที่ แทนที่ และออกจาก แทนที่ด้วย กล่องข้อความว่างแล้วคลิก แทนที่ทั้งหมด ปุ่มดูภาพหน้าจอ:

doc ผสานหลายบรรทัด 2

4. และย่อหน้าที่เลือกทั้งหมดได้รวมเข้าเป็นย่อหน้าเดียวดูภาพหน้าจอ:

doc ผสานหลายบรรทัด 3


รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยรหัส VBA

นี่เป็นวิธีที่มีประโยชน์อีกวิธีหนึ่งที่สามารถช่วยให้คุณทำงานนี้ใน Word ได้โปรดทำตามขั้นตอนต่อไปนี้:

1. เลือกบรรทัดที่คุณต้องการรวมเป็นหนึ่งย่อหน้า

2. จากนั้นกดไฟล์ ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลเปล่าที่เปิดอยู่

รหัส VBA: รวมหลายบรรทัดเป็นย่อหน้าเดียว:

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. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และย่อหน้าที่เลือกทั้งหมดรวมกันเป็นหนึ่งย่อหน้าตามภาพหน้าจอต่อไปนี้:

doc ผสานหลายบรรทัด 4


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (6)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก
ซึ่งช่วยให้ฉันประหยัดเวลาที่ฉันทำเองได้ 60 หน้า หลังจาก 2 หน้า ฉันเหนื่อยและเริ่มมองหาทางลัดอื่น ๆ
ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีสร้างคำนี้บน google docs ไหม ฉันทำตามขั้นตอนแล้ว แต่จะใช้ได้กับ microsoft word เวอร์ชันเดสก์ท็อปและออนไลน์เท่านั้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอขอบคุณ! สิ่งนี้ช่วยฉันประหยัดเวลาได้หลายชั่วโมงจากการที่ต้องยุบ 70+ หน้าของประโยคที่แตกหลายประโยคออกเป็นย่อหน้า นี่คือ GENIUS
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขั้นตอนแรกที่ฉันได้ทดสอบนั้นยอดเยี่ยมพอ มันเป็นเคล็ดลับที่ดีที่สุดที่ฉันเคยได้ยินมา ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณเพื่อน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
excelente ฉัน salvaste la vida
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ