2 วิธีในการปรับเนื้อหาให้พอดีกับเซลล์ในตาราง Word ของคุณ

แบ่งปันเลย:

ในบทความนี้เราต้องการแชร์ 2 วิธีง่ายๆในการปรับเนื้อหาให้พอดีกับเซลล์ในตาราง Word ของคุณ

เมื่อจัดการกับตารางในเอกสาร Word เป็นการยากที่จะตรวจสอบให้แน่ใจว่าเซลล์ตารางทั้งหมดมีขนาดคงที่ โดยปกติเมื่อป้อนคำในเซลล์มากขึ้นระบบจะตัดข้อความโดยอัตโนมัติ ด้านล่างนี้คือตัวอย่าง:ตัวอย่างการเปลี่ยนแปลงของเซลล์

นี่ไม่สะดุดตาแน่นอน จะหาวิธีแก้ไขขนาดตาราง แต่ทำให้เนื้อหาพอดีได้อย่างไร

มี 2 ​​วิธีดังต่อไปนี้:

วิธีที่ 1: กำหนดตารางครั้งเดียว

  1. ในตอนแรกให้คลิกเครื่องหมายบวกที่มุมซ้ายบนของตารางเพื่อเลือก
  2. จากนั้นคลิกขวาบนตารางที่เลือก
  3. จากนั้นเลือก "คุณสมบัติของตาราง"เลือก "Table" -> คลิกขวา -> เลือก "Table Properties"
  4. ตอนนี้ในกล่องโต้ตอบ“ คุณสมบัติของตาราง” คลิกแท็บ“ เซลล์” ก่อน
  5. จากนั้นคลิก“ ตัวเลือก” ที่มุมขวาลงของกล่อง
  6. ตอนนี้คุณจะเปิดกล่องโต้ตอบ“ ตัวเลือกเซลล์” ไปที่ส่วน "ตัวเลือก" และล้างช่อง "ตัดข้อความ"
  7. แล้วเลือกช่อง "พอดีข้อความ" แทน
  8. จากนั้นคลิก“ ตกลง”
  9. และอย่าลืมคลิก“ ตกลง” ในกล่องโต้ตอบ“ คุณสมบัติของตาราง” ด้วยคลิก "เซลล์" -> คลิก "ตัวเลือก" -> เลือก "พอดีข้อความ" -> คลิก "ตกลง" ในกล่องโต้ตอบทั้งสอง

ตอนนี้เค้าโครงเนื้อหาจะเปลี่ยนไปตามนั้น นี่คือสิ่งที่คุณจะได้รับ:ผล

วิธีที่ 2: ใช้รหัส VBA

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

  1. อันดับแรก ให้คลิกแท็บ “นักพัฒนา” หากคุณยังไม่มีแท็บนี้ คุณสามารถดูข้อมูลเพิ่มเติมได้จากบทความนี้: วิธีแทรกเพลงประกอบลงในเอกสาร Word ของคุณ
  2. จากนั้นคลิก“ Visual Basic” เพื่อเปิดตัวแก้ไข VBAคลิก "นักพัฒนา" จากนั้นคลิก "Visual Basic"
  3. ในโปรแกรมแก้ไข VBA ให้ค้นหาโครงการที่มีชื่อเอกสารอยู่ด้านหลังและคลิก“ ThisDocument”
  4. จากนั้นคลิก“ แทรก” บนแถบเครื่องมือ
  5. และเลือก“ โมดูล” ในเมนูขั้นแรกคลิก "ThisDocument" -> คลิก "Insert" -> คลิก "Module"
  6. ตอนนี้คุณจะเปิดพื้นที่แก้ไขเพียงแค่วางรหัสที่นั่น:วางรหัสบนพื้นที่แก้ไข -> คลิก "เรียกใช้"
Sub AutoFitTextForAllTableCells()
  ' Check if there are any tables in the document
  If ActiveDocument.Tables.Count > 0 Then
    Dim objTable As Table
    Dim objCell As Cell

    ' Process each cell in each table and set the options accordingly
    For Each objTable In ActiveDocument.Tables
      For Each objCell In objTable.Range.Cells
        objCell.WordWrap = False
        objCell.FitText = True
      Next
    Next
  Else
    MsgBox("There is no table in this document!")
  End If
End Sub

เตรียมพร้อมสำหรับความล้มเหลวที่กำลังจะเกิดขึ้น

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

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ เครื่องมือแก้ไขข้อผิดพลาดของข้อมูล Excel และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.

แบ่งปันเลย:

ความเห็นถูกปิด