Note: The other languages of the website are Google-translated. Back to English
English English

จะแปลงไฟล์รูปแบบ. doc เป็น. docx ใน Word ได้อย่างไร?

สมมติว่าคุณได้รับเอกสาร Word ในรูปแบบ 97-2003 บางชุดคุณจะแปลงเอกสารรูปแบบ. doc ทั้งหมดเหล่านี้เป็นรูปแบบ. docx พร้อมกันได้อย่างไร บทความนี้จะแสดงวิธีการสองวิธีในการแก้ปัญหานี้

Batch แปลงไฟล์รูปแบบ. doc เป็น. docx ด้วยรหัส VBA
Batch แปลงไฟล์รูปแบบ. doc เป็น. docx ด้วย Kutools for Word


Batch แปลงไฟล์รูปแบบ. doc เป็น. docx ด้วยรหัส VBA

ส่วนนี้จะแสดงรหัส VBA เพื่อแปลงเอกสารรูปแบบ. doc ทั้งหมดในโฟลเดอร์ที่ระบุเป็นเอกสาร. docx พร้อมกัน กรุณาดำเนินการดังนี้

1. โปรดรวบรวมเอกสารรูปแบบ. doc ทั้งหมดที่คุณจะแปลงเป็น. docx ในโฟลเดอร์ที่ระบุ

2 กด อื่น ๆ + F11 กุญแจสำคัญในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. ในหน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: Batch แปลงเอกสารรูปแบบ. doc ทั้งหมดเป็น. docx ในโฟลเดอร์ที่ต้องการ

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในการเปิด หมวดหมู่สินค้า หน้าต่างเลือกโฟลเดอร์ที่มีเอกสารรูปแบบ. doc แล้วคลิก OK. ดูภาพหน้าจอ:

จากนั้นเอกสารรูปแบบ. doc ทั้งหมดจะถูกแปลงเป็นเอกสาร. docx ทันทีตามภาพด้านล่างที่แสดง


Batch แปลงไฟล์รูปแบบ. doc เป็น. docx ด้วย Kutools for Word

จะแนะนำยูทิลิตี้ที่มีประโยชน์ในส่วนนี้ กับ เอกสาร / Docx ประโยชน์ของ Kutools สำหรับ Wordคุณสามารถแปลงเอกสารรูปแบบ. doc ทั้งหมดในโฟลเดอร์เป็นเอกสาร. docx ได้อย่างง่ายดาย โปรดลองดังต่อไปนี้

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

1. โปรดรวบรวมเอกสารรูปแบบ. doc ทั้งหมดในโฟลเดอร์ที่ระบุจากนั้นคลิก Kutools พลัส > เอกสาร / Docx. ดูภาพหน้าจอ:

2 ใน ตัวแปลงรูปแบบเอกสาร คุณต้องทำดังนี้:

2.1) เลือกโฟลเดอร์ที่มีเอกสารรูปแบบ. doc ในไฟล์ โฟลเดอร์ซอร์สไฟล์ มาตรา;
2.2) เลือก แปลง doc เป็น docx จาก แปลงรูปแบบ รายการแบบหล่นลง
2.3) โดยค่าเริ่มต้นไฟล์ เส้นทางปลายทางเหมือนกับต้นทาง เลือกช่องแล้ว หากคุณต้องการวางเอกสาร. docx ที่แปลงแล้วทั้งหมดในโฟลเดอร์เดียวกันให้เลือกตัวเลือกนี้ไว้
หากคุณต้องการแยกเอกสาร. docx และเอกสาร. doc ต้นทางโปรดยกเลิกการเลือก เส้นทางปลายทางเหมือนกับต้นทาง แล้วเลือกโฟลเดอร์ใหม่เพื่อบันทึกเอกสาร. docx ในไฟล์ บันทึกลง กล่อง;
2.4) คลิกปุ่ม เริ่มต้น ปุ่ม. ดูภาพหน้าจอ:

3. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นเพื่อแจ้งให้คุณทราบว่ามีการแปลงเอกสารสำเร็จแล้วให้คลิกที่ไฟล์ OK และปิดปุ่ม ตัวแปลงรูปแบบเอกสาร หน้าต่าง

ตอนนี้เอกสารรูปแบบ. doc ทั้งหมดถูกแปลงเป็นไฟล์. docx ดูภาพหน้าจอ:

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


Kutools สำหรับ Outlook - นำคุณลักษณะขั้นสูง 100 รายการมาสู่ Outlook และทำให้การทำงานง่ายขึ้นมาก

  • CC อัตโนมัติ / BCC ตามกฎเมื่อส่งอีเมล ส่งต่ออัตโนมัติ อีเมลหลายฉบับโดยกำหนดเอง ตอบอัตโนมัติ ไม่มีเซิร์ฟเวอร์แลกเปลี่ยนและคุณสมบัติอัตโนมัติอื่น ๆ ...
  • คำเตือน BCC - แสดงข้อความเมื่อคุณพยายามตอบกลับทั้งหมด หากที่อยู่อีเมลของคุณอยู่ในรายการ BCC; เตือนเมื่อไม่มีไฟล์แนบและคุณสมบัติการเตือนอื่น ๆ ...
  • ตอบกลับ (ทั้งหมด) พร้อมไฟล์แนบทั้งหมดในการสนทนาทางไปรษณีย์; ตอบกลับอีเมลจำนวนมาก ในไม่กี่วินาที เพิ่มคำทักทายอัตโนมัติ เมื่อตอบกลับ; เพิ่มวันที่ในหัวเรื่อง ...
  • เครื่องมือแนบ: จัดการไฟล์แนบทั้งหมดในอีเมลทั้งหมด ถอดอัตโนมัติ, บีบอัดทั้งหมด, เปลี่ยนชื่อทั้งหมด, บันทึกทั้งหมด ... รายงานด่วน, นับอีเมลที่เลือก...
  • อีเมลขยะที่มีประสิทธิภาพ ตามธรรมเนียม; ลบอีเมลและผู้ติดต่อที่ซ้ำกัน... ช่วยให้คุณทำงานได้อย่างชาญฉลาดขึ้นเร็วขึ้นและดีขึ้นใน Outlook
shot kutools outlook แท็บ kutools 1180x121
shot kutools Outlook kutools plus แท็บ 1180x121
 
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (17)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รุ่งโรจน์! ขอบคุณสำหรับการแบ่งปัน. สิ่งนี้มีประโยชน์มาก ฉันมีเอกสารมากกว่า 50 ฉบับที่ต้องแปลง ใช้เวลาเพียง 000 ชั่วโมงในการดำเนินการให้เสร็จสิ้น ความช่วยเหลืออย่างมาก ฉันใช้ตัวเลือก 39
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เปิดเอกสาร Word ที่คุณต้องการเปลี่ยนเป็นไฟล์ PDF หากคุณต้องการนำเข้าเท่านั้น ... ConvertOnlineFree - การสนทนาแต่ละรายการและแบบกลุ่มของเอกสาร Word เป็น PDF ... PDFOnline - โปรแกรมแปลง Word (doc, docx และ txt) เป็น PDF ฟรี

บล็อกดี บทความที่คุณแบ่งปันเป็นสิ่งที่ดี บทความนี้มีประโยชน์มาก เพื่อนของฉันแนะนำให้ฉันใช้บล็อกนี้

https://customersurveyinfo.com
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีขอบคุณสำหรับการแบ่งปัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งที่น่าสนใจในการอ่าน ให้มันขึ้น.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
ฉันดีใจที่ได้พบข้อมูลที่เป็นประโยชน์นี้ ขอบคุณสำหรับการแบ่งปันบทความที่น่าตื่นตาตื่นใจนี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี....สวัสดี เนื้อหาบล็อกนี้เป็นข้อมูลทางเทคนิค เป็นบล็อกที่ดีที่สุดที่ฉันมี น่าสนใจมากและอธิบายด้วยวิธีที่ง่ายมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,
ฉันรักกับโพสต์นี้ ฉันซาบซึ้งสำหรับเว็บไซต์นี้จริงๆ ข้อมูลของคุณดีและมีค่ามาก แนวคิดและแนวคิดที่น่ารักสำหรับการแชร์เว็บไซต์นี้
เว็บนี้ดีจริง โพสนี้ดี
ขอบคุณสำหรับการแบ่งปัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีโพสต์ .. แชร์ต่อไปขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่เป็นบทความที่ลึกซึ้งมาก พบว่ามีประโยชน์และให้ข้อมูลมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการแบ่งปันข้อมูลที่เป็นประโยชน์นี้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บริษัทออกแบบกราฟิกที่ดีที่สุดในอินเดีย
การออกแบบเป็นงานฝีมือของการสื่อสารคำเป็นข้อต่อ ภาพมีความสำคัญมากกว่าคำพูดในฟิลด์ขั้นสูง
ผู้เชี่ยวชาญในธุรกิจการออกแบบแนะนำว่าภาพประกอบจำง่ายกว่าคำพูด
และนั่นคือเหตุผลที่การออกแบบเว็บไซต์และกราฟิกมีบทบาทสำคัญ

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

ฟาร์มแทรค 60
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เครื่องมือที่ดี แต่ฉันพบปัญหา คือไม่สามารถแปลงไฟล์ DOC (เขียนด้วยตัวพิมพ์ใหญ่!) เป็นไฟล์ docx
ทำงานร่วมกับไฟล์ doc
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี
รหัสต่อไปนี้สามารถช่วยแปลงเอกสารทั้งสองได้ และ สพฐ. ไฟล์ลงในไฟล์ docx กรุณาให้มันลอง ขอบคุณสำหรับความคิดเห็นของคุณ

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
já bych potřeboval, เบียร์ VBA สคริปต์ který โดย fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? เดคูจิ.

ENG:
วันดี,
ฉันต้องการสคริปต์ VBA ที่ใช้งานได้รวมถึงโฟลเดอร์ย่อย ใครช่วยแก้ไขสคริปต์นี้ด้วยได้ไหม ขอขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี แดเนียล เบเนช
หากต้องการรวมโฟลเดอร์ย่อย โปรดลองใช้โค้ด VBA ต่อไปนี้
หลังจากเพิ่มรหัสแล้ว ให้ไปที่ เครื่องมือ คลิกแท็บ อ้างอิง, ในการเปิด เอกสารอ้างอิง - โครงการ ให้ทำเครื่องหมายที่ รันไทม์การเขียนสคริปต์ของ Microsoft จากนั้นคลิกที่ไฟล์ OK ปุ่มเพื่อบันทึกการเปลี่ยนแปลง ดูภาพหน้าจอต่อไปนี้:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
หลังจากนั้นให้กด F5 กุญแจสำคัญในการเรียกใช้รหัส

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ