จะย้ายคำบรรยายตารางจากด้านบนไปด้านล่างหรือในทางกลับกันในเอกสาร Word ได้อย่างไร?
ในเอกสาร Word หากมีหลายตารางที่แทรกคำบรรยายใต้แต่ละตาราง แต่บางครั้งคุณอาจต้องการย้ายคำอธิบายภาพเหล่านี้จากด้านล่างไปด้านบนของตาราง คุณจะจัดการกับงานนี้ให้เร็วที่สุดได้อย่างไร?
ย้ายคำบรรยายตารางจากด้านล่างไปด้านบนหรือในทางกลับกันใน Word ด้วยรหัส VBA
ย้ายคำบรรยายตารางจากด้านล่างไปด้านบนหรือในทางกลับกันใน Word ด้วยรหัส VBA
หากต้องการย้ายคำอธิบายตารางทั้งหมดจากด้านล่างไปด้านบนของตารางคุณสามารถใช้รหัส VBA ต่อไปนี้ได้โปรดดำเนินการดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล
ย้ายคำบรรยายตารางจากด้านล่างไปด้านบนในเอกสาร Word
Sub ReLabelDownToUpTables()
Dim I As Long
Dim xRngPre As Range
Dim xRngNext As Range
Application.ScreenUpdating = False
With ActiveDocument
For I = .Tables.Count To 1 Step -1
With .Tables(I).Range
Set xRngPre = .Characters.First.Previous.Characters.Last
xRngPre.Select
Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
xRngNext.Select
With xRngPre
.InsertBefore vbCr
.Style = xRngNext.Style
.Start = .End - 1
.End = .Start
End With
If Len(xRngNext.Text) > 1 Then
xRngNext.End = xRngNext.End - 1
xRngNext.Cut
xRngNext.Delete
xRngPre.Paste
Else
xRngNext.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และคำอธิบายตารางทั้งหมดถูกย้ายจากด้านล่างไปด้านบนของตารางดูภาพหน้าจอ:
หมายเหตุ: หากต้องการย้ายคำอธิบายตารางจากด้านบนไปด้านล่างของแต่ละตารางโปรดใช้รหัส VBA ต่อไปนี้:
ย้ายคำบรรยายตารางจากด้านบนลงด้านล่างในเอกสาร Word
Sub ReLabelUpToDownTables()
Dim I As Long
Dim xRngPre As Range
Dim xRngNext As Range
Application.ScreenUpdating = False
With ActiveDocument
For I = .Tables.Count To 1 Step -1
With .Tables(I).Range
Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
xRngNext.Select
Set xRngPre = .Characters.Last.Next
xRngPre.End = xRngPre.End - 1
xRngPre.Select
With xRngPre
.InsertBefore vbCr
.Style = xRngNext.Style
.Start = .End - 1
.End = .Start
End With
If Len(xRngNext.Text) > 1 Then
xRngNext.End = xRngNext.End - 1
xRngNext.Cut
xRngNext.Delete
xRngPre.Paste
Else
xRngNext.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
แทรกคำอธิบายตารางรูปภาพหรือสมการหลายรายการลงในเอกสาร Word พร้อมกัน:
โดยปกติคุณควรใส่คำอธิบายตารางรูปภาพหรือสมการสำหรับตารางรูปภาพหรือสมการทีละรายการในไฟล์ Word แต่ถ้าคุณมี Kutols สำหรับ Word's คำบรรยายหลายคำ คุณสามารถแทรกคำอธิบายตารางรูปภาพหรือสมการสำหรับตารางรูปภาพหรือสมการทั้งหมดได้โดยเร็วที่สุด Kutools สำหรับ Word: ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน คลิกเพื่อดาวน์โหลดและทดลองใช้ฟรีทันที! |
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
Kutools สำหรับ Word - ยกระดับประสบการณ์คำศัพท์ของคุณด้วย Over 100 คุณสมบัติเด่น!
🤖 Kutools ผู้ช่วย AI: แปลงโฉมงานเขียนของคุณด้วย AI - สร้างเนื้อหา / เขียนข้อความใหม่ / สรุปเอกสาร / สอบถามข้อมูล ขึ้นอยู่กับเอกสารทั้งหมดนี้ภายใน Word
📘 ความเชี่ยวชาญด้านเอกสาร: แยกหน้า / ผสานเอกสาร / ส่งออกตัวเลือกในรูปแบบต่างๆ (PDF/TXT/DOC/HTML...) / แบทช์แปลงเป็น PDF / ส่งออกเพจเป็นรูปภาพ / พิมพ์หลายไฟล์พร้อมกัน...
✏ การแก้ไขเนื้อหา: ค้นหาแบทช์และแทนที่ ข้ามหลายไฟล์ / ปรับขนาดรูปภาพทั้งหมด / ย้ายแถวและคอลัมน์ของตาราง / แปลงตารางเป็นข้อความ...
🧹 ทำความสะอาดได้อย่างง่ายดาย: หลบไป พื้นที่พิเศษ / แบ่งส่วน / ส่วนหัวทั้งหมด / กล่องข้อความ / เชื่อมโยงหลายมิติ / หากต้องการดูเครื่องมือถอดเพิ่มเติม โปรดไปที่ของเรา ลบกลุ่ม...
➕ ส่วนแทรกโฆษณา: แทรก ตัวคั่นหลักพัน / กล่องกาเครื่องหมาย / ปุ่มวิทยุ / คิวอาร์โค้ด / บาร์โค้ด / ตารางเส้นทแยงมุม / คำอธิบายสมการ / คำบรรยายภาพ / คำบรรยายตาราง / รูปภาพหลายภาพ / ค้นพบเพิ่มเติมใน แทรกกลุ่ม...
🔍 การเลือกที่แม่นยำ: ระบุ หน้าที่เฉพาะเจาะจง / ตาราง / รูปร่าง / หัวเรื่องย่อหน้า / เสริมการนำทางด้วย ข้อมูลเพิ่มเติม เลือกคุณสมบัติ...
⭐ การปรับปรุงดาว: นำทางอย่างรวดเร็วไปยังสถานที่ใด ๆ / แทรกข้อความซ้ำอัตโนมัติ / สลับระหว่างหน้าต่างเอกสารได้อย่างราบรื่น / 11 เครื่องมือการแปลง...