Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีการเลือกตารางทั้งหมดในเอกสาร Word

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


เลือกตารางทั้งหมดใน Word ด้วยรหัส VBA

เลือกตารางทั้งหมดใน Word ได้อย่างง่ายดายด้วย Kutools for Word


เลือกตารางทั้งหมดใน Word ด้วยรหัส VBA

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

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ต่อไปนี้ลงในหน้าต่างโมดูล

รหัส VBA: เลือกตารางทั้งหมดในเอกสารปัจจุบัน:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส

จากนั้นตารางทั้งหมดจะถูกเลือกในเอกสารปัจจุบันทันที


เลือกตารางทั้งหมดใน Word ได้อย่างง่ายดายด้วย Kutools for Word

เมื่อเทียบกับการใช้รหัส VBA เพื่อเลือกตารางทั้งหมดในเอกสาร Kutools for Word's เลือกตาราง ประโยชน์ใช้สอยค่อนข้างสะดวก คุณสามารถใช้คุณสมบัตินี้เพื่อเลือกตารางในส่วนที่เลือกหรือทั้งเอกสาร โปรดดำเนินการดังนี้:

Kutools สำหรับ Word : ด้วยโปรแกรมเสริม Word ที่มีประโยชน์มากกว่า 100 รายการ ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน.

คลิก Kutools > ตาราง > เลือกตาราง. ดูภาพหน้าจอ:

หมายเหตุ: สำหรับการเลือกตารางในการเลือกคุณต้องเลือกช่วงก่อนจากนั้นจึงใช้คุณสมบัติ

จากนั้นคุณจะเห็นผลลัพธ์ดังนี้

เลือกตารางที่เลือก:

เลือกตารางในเอกสารทั้งหมด:

หากคุณต้องการทดลองใช้ยูทิลิตีนี้ฟรีโปรดไปที่ ดาวน์โหลดซอฟต์แวร์ฟรี ก่อนแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น


Demo: เลือกตารางทั้งหมดใน Word ได้อย่างง่ายดายด้วย Kutools for Word




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

 

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

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 4 years ago
    It seeems that this macros does not work in Word 2016
    • To post as a guest, your comment is unpublished.
      Suril · 4 years ago
      It works in Word 2016. What error are you getting?
      • To post as a guest, your comment is unpublished.
        Alex · 4 years ago
        I understand already.
        For correct work macros cursor must to be not in table when you call macros.
        Thank you.
  • To post as a guest, your comment is unpublished.
    Iqbal · 4 years ago
    There are multiple tables in a document (about 200). I want to select all these tables only and paste them in a new document in the table format. When I select the tables as per above procedure then during paste operation it pastes them as text and not as table. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Suril · 4 years ago
    The following modified code selects all tables, except tables having only one row:
    Sub SelAllTbls()
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    If Tbl.Rows.Count > 1 Then
    Tbl.Range.Editors.Add (-1)
    End If
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    The following code select only the header rows:
    Sub selallHeaders()
    On Error Resume Next
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    Tbl.Rows(1).Range.Editors.Add (-1)
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    I have many more such codes that select last rows, all bullets, small / long paras, etc. Watch my following video:
    https://www.youtube.com/watch?v=p_ZhufliFw8
  • To post as a guest, your comment is unpublished.
    Vinoth Murali · 4 years ago
    Wonderful I got the solution by using the VBA code. Thank you so much
  • To post as a guest, your comment is unpublished.
    JPF · 5 years ago
    Nifty code at first but it definitely corrupted a bunch of tables in Word 2010. Screwed up my file pretty good and had to revert back to an earlier version. Be wary!
  • To post as a guest, your comment is unpublished.
    rodrigo · 6 years ago
    excellent macro and very easy
  • To post as a guest, your comment is unpublished.
    refaat · 7 years ago
    thank you so much
    he is good program but after few days stopped and require password and user name