วิธีการรวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวในเอกสาร Word?
หากมีหลายร้อยหลายพันย่อหน้าในเอกสาร Word ของคุณเมื่อพิมพ์เอกสารนี้จะต้องใช้กระดาษจำนวนมาก สำหรับการบันทึกเอกสารคุณสามารถรวมหลายบรรทัดเหล่านี้เป็นย่อหน้าเดียว อย่างไรก็ตามคุณจะรวมบรรทัดเหล่านี้ทั้งหมดเป็นย่อหน้าเดียวอย่างรวดเร็วและง่ายดายในเอกสาร Word ได้อย่างไร?
รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยฟังก์ชันค้นหาและแทนที่
รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยรหัส VBA
รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยฟังก์ชันค้นหาและแทนที่
พื้นที่ ค้นหาและแทนที่ ฟังก์ชันใน Word สามารถช่วยคุณในการรวมหลายบรรทัดเป็นหนึ่งย่อหน้าได้โปรดทำดังนี้:
1. เลือกย่อหน้าที่คุณต้องการรวมเป็นหนึ่งย่อหน้า
2. จากนั้นคลิก หน้าแรก > หา > การค้นหาขั้นสูง ไปที่ ค้นหาและแทนที่ ในกลองโตตอบ ค้นหาและแทนที่ ภายใต้ หา โปรดป้อน ^p เข้าไปใน สิ่งที่ค้นหา กล่องข้อความแล้วเลือก การเลือกปัจจุบัน ตัวเลือกจาก ค้นหาใน รายการแบบเลื่อนลงดูภาพหน้าจอ:
3. จากนั้นไปที่ แทนที่ และออกจาก แทนที่ด้วย กล่องข้อความว่างแล้วคลิก แทนที่ทั้งหมด ปุ่มดูภาพหน้าจอ:
4. และย่อหน้าที่เลือกทั้งหมดได้รวมเข้าเป็นย่อหน้าเดียวดูภาพหน้าจอ:
รวมหรือรวมหลายบรรทัดเป็นย่อหน้าเดียวด้วยรหัส 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 กุญแจสำคัญในการเรียกใช้รหัสนี้และย่อหน้าที่เลือกทั้งหมดรวมกันเป็นหนึ่งย่อหน้าตามภาพหน้าจอต่อไปนี้:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!
🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา / เขียนข้อความใหม่ / สรุปเอกสาร / สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word
📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า / ผสานเอกสาร / ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...) / แบทช์แปลงเป็น PDF / ส่งออกเพจเป็นรูปภาพ / พิมพ์หลายไฟล์พร้อมกัน...
✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์ / ปรับขนาดรูปภาพทั้งหมด / ย้ายแถวและคอลัมน์ของตาราง / แปลงตารางเป็นข้อความ...
🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ / แบ่งส่วน / ส่วนหัวทั้งหมด / กล่องข้อความ / เชื่อมโยงหลายมิติ / หากต้องการดูเครื่องมือถอดเพิ่มเติม ให้ไปที่ ลบกลุ่ม...
➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน / กล่องกาเครื่องหมาย / ปุ่มวิทยุ / คิวอาร์โค้ด / บาร์โค้ด / ตารางเส้นทแยงมุม / คำอธิบายสมการ / คำบรรยายภาพ / คำบรรยายตาราง / รูปภาพหลายภาพ / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...
🔍 การเลือกที่แม่นยำ: ระบุ เฉพาะหน้า / ตาราง / รูปร่าง / หัวเรื่องย่อหน้า / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...
⭐ การปรับปรุงดาว: นำทางไปยังสถานที่ใดก็ได้ / แทรกข้อความซ้ำอัตโนมัติ / สลับระหว่างหน้าต่างเอกสาร / 11 เครื่องมือการแปลง...