ในบทความนี้เราจะเน้นไปที่การสาธิตวิธีการที่มีประโยชน์ 3 วิธีในการล้างลักษณะตารางทั้งหมดในเอกสาร Word ของคุณเป็นกลุ่ม
ในบางครั้งหากตาราง Word ถูกนำไปใช้กับรูปแบบที่ไม่ต้องการหรือลดเอฟเฟกต์ภาพของเอกสารทั้งหมดคุณจำเป็นต้องล้างสไตล์ ตอนนี้ขอแสดงวิธีการทำงานดังกล่าวให้สำเร็จ
วิธีที่ 1: ล้างรูปแบบของตารางคำเดียว
- อันดับแรก เลื่อนเคอร์เซอร์ไปที่ตารางเป้าหมายจนกว่าคุณจะเห็นเครื่องหมายกากบาทที่มุมบนซ้ายของตาราง
- คลิกถัดไปที่เครื่องหมายกากบาทเพื่อเลือกทั้งตาราง
- ตอนนี้คุณได้เรียกใช้ "เครื่องมือตาราง" แล้ว คลิกแท็บ "ออกแบบ"
- จากนั้นคลิกที่ปุ่ม "เพิ่มเติม" ในกลุ่ม "สไตล์ตาราง" เพื่อแสดงเมนูแบบเลื่อนลง
- เลือกตัวเลือก "ล้าง"
- ตอนนี้รูปแบบตารางจะถูกลบออก เส้นขอบตารางทั้งหมดก็เช่นกัน ในการเพิ่มเส้นขอบให้กับตารางตรวจสอบให้แน่ใจว่าได้เลือกตารางแล้ว แล้วคลิกที่ปุ่มแบบเลื่อนลงถัดจากคำสั่ง“ Borders”
- แล้วเลือก“ พรมแดนทั้งหมด”
นี่คือผลลัพธ์:
วิธีที่ 2: แบทช์ล้างสไตล์ตารางทั้งหมดในเอกสารเดียว
เมื่อเราทำตารางเดียวเสร็จแล้วหัวข้อของการประมวลผลชุดงานจะพลาดไม่ได้ ก่อนอื่นมาดูวิธีล้างสไตล์ตารางทั้งหมดในเอกสารผ่าน VBA
- เริ่มต้นด้วยการกดปุ่ม “Alt+F11” เพื่อแสดงตัวแก้ไข VBA ใน Word
- คลิกถัดไปที่โครงการ "ปกติ" ในคอลัมน์ด้านซ้าย
- จากนั้นคลิก "แทรก" บนแถบเมนู
- แล้วเลือก“ โมดูล” ในเมนูแบบเลื่อนลง
- เปิดพื้นที่เข้ารหัสของโมดูลโดยดับเบิลคลิกที่มัน
- วางมาโครต่อไปนี้ที่นั่น:
Sub ClearTableStylesInADoc()
Dim objTable As Table
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objTable In objDoc.Tables
objTable.Style = "Table Normal"
objTable.Borders.Enable = True
Next objTable
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- สุดท้ายคลิก“ Run”
มาโครนี้จะล้างสไตล์ตารางทั้งหมดในเอกสารใช้สไตล์“ ตารางปกติ” และเพิ่มเส้นขอบตารางด้วย
วิธีที่ 3: แบทช์ล้างสไตล์ตารางทั้งหมดในเอกสารหลายชุด
ตอนนี้ในกรณีที่คุณมีเอกสารสองสามอย่างที่ต้องจัดการนี่คือมาโครสำหรับล้างสไตล์ตารางทั้งหมดในเอกสารหลายชุด
- ประการแรกจัดเรียงเอกสารทั้งหมดในโฟลเดอร์เดียว
- ทำซ้ำขั้นตอนในวิธีที่ 2 เพื่อติดตั้งและเรียกใช้แมโคร
- เฉพาะครั้งนี้อย่าลืมแทนที่ด้วยมาโครนี้:
Sub ClearTableStylesInMultiDoc()
Dim objTable As Table
Dim objDoc As Document
Dim StrFolder As String
Dim strFile As String
Dim dlgFile As FileDialog
Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
With dlgFile
If .Show = -1 Then
StrFolder = .SelectedItems(1) & "\"
Else
MsgBox "Select a folder first."
Exit Sub
End If
End With
strFile = Dir(StrFolder & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
Set objDoc = ActiveDocument
For Each objTable In objDoc.Tables
objTable.Style = "Table Normal"
objTable.Borders.Enable = True
Next objTable
objDoc.Save
objDoc.Close
strFile = Dir()
Wend
End Sub
- เรียกใช้มาโครจะมีหน้าต่าง "เรียกดู" เลือกโฟลเดอร์ที่คุณจัดเก็บเอกสารในขั้นตอนที่ 1 แล้วคลิก“ ตกลง”
ทิ้งงานที่เหลือไว้ที่มาโครแล้ว
วิธีการกู้คืนเอกสารที่สูญหาย
เอกสารสูญหายในที่นี้หมายถึง เอกสารได้รับความเสียหายเนื่องจากสาเหตุต่างๆ เช่น... คำทุจริต หรือข้อผิดพลาดของมนุษย์ ในขณะที่จัดการกับเอกสารดังกล่าวคุณควรจำไว้เสมอว่าสามารถเรียกดูได้ด้วยความช่วยเหลือของเครื่องมือซ่อมแซมขั้นสูง
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อม xls และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.