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

Làm cách nào để chuyển đổi hàng loạt tệp định dạng .doc sang .docx trong Word?

Giả sử bạn đã nhận được một số tài liệu Word định dạng 97-2003, làm cách nào bạn có thể chuyển đổi hàng loạt tất cả các tài liệu định dạng .doc này sang định dạng .docx cùng một lúc? Bài viết này sẽ chỉ cho bạn hai phương pháp để giải quyết vấn đề này.

Chuyển đổi hàng loạt tệp định dạng .doc sang .docx bằng mã VBA
Chuyển đổi hàng loạt các tệp định dạng .doc sang .docx với Kutools cho Word


Chuyển đổi hàng loạt tệp định dạng .doc sang .docx bằng mã VBA

Phần này sẽ hiển thị cho bạn mã VBA để chuyển đổi tất cả các tài liệu định dạng .doc trong một thư mục được chỉ định sang tài liệu .docx cùng một lúc. Hãy làm như sau.

1. Vui lòng thu thập tất cả các tài liệu định dạng .doc mà bạn sẽ chuyển đổi sang .docx trong một thư mục được chỉ định.

2. Nhấn nút Khác + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Trong cửa sổ, nhấp vào Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ Mô-đun.

Mã VBA: Chuyển đổi hàng loạt tất cả tài liệu định dạng .doc sang .docx trong một thư mục nhất định

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. Nhấn nút F5 phím để chạy mã. Trong phần mở đầu Xem cửa sổ, chọn thư mục chứa tài liệu định dạng .doc và nhấp vào OK. Xem ảnh chụp màn hình:

Sau đó, tất cả các tài liệu định dạng .doc được chuyển đổi thành tài liệu .docx ngay lập tức như hình minh họa bên dưới.


Chuyển đổi hàng loạt các tệp định dạng .doc sang .docx với Kutools cho Word

Một tiện ích hữu ích sẽ được đề xuất trong phần này. Với Doc / Docx tiện ích của Kutools cho Word, bạn có thể dễ dàng chuyển đổi tất cả các tài liệu định dạng .doc trong một thư mục sang tài liệu .docx. Hãy thử như sau.

Kutools cho Word : Với hơn 100 phần bổ trợ Word tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày.

1. Vui lòng thu thập tất cả các tài liệu định dạng .doc trong một thư mục được chỉ định, sau đó nhấp vào Kutools Plus > Doc / Docx. Xem ảnh chụp màn hình:

2. bên trong Công cụ chuyển đổi định dạng tài liệu hộp thoại, bạn cần làm như sau:

2.1) Chọn thư mục chứa các tài liệu định dạng .doc trong Thư mục tệp nguồn phần;
2.2) Chọn Chuyển đổi doc sang docx từ Chuyển đổi định dạng danh sách thả xuống;
2.3) Theo mặc định, Đường dẫn đích giống với nguồn hộp được chọn. Nếu bạn muốn đặt tất cả các tài liệu .docx đã chuyển đổi trong cùng một thư mục, chỉ cần chọn tùy chọn này;
Nếu bạn muốn tách tài liệu .docx và tài liệu .doc nguồn, vui lòng bỏ chọn Đường dẫn đích giống với nguồn và chọn một thư mục mới để lưu các tài liệu .docx trong Lưu vào cái hộp;
2.4) Nhấp vào Khởi đầu cái nút. Xem ảnh chụp màn hình:

3. Sau đó, một hộp thoại bật lên cho bạn biết có bao nhiêu tài liệu đã được chuyển đổi thành công, hãy nhấp vào OK nút và đóng Công cụ chuyển đổi định dạng tài liệu cửa sổ.

Bây giờ tất cả các tài liệu định dạng .doc được chuyển đổi thành tệp .docx. Xem ảnh chụp màn hình:

Nếu bạn muốn dùng thử miễn phí tiện ích này, vui lòng truy cập tải xuống miễn phí phần mềm đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Kutools cho Outlook - Cung cấp 100 Tính năng Nâng cao cho Outlook và Làm cho Công việc Dễ dàng hơn Nhiều!

  • Auto CC / BCC bởi các quy tắc khi gửi email; Tự động chuyển tiếp Nhiều Email theo tùy chỉnh; Tự động trả lời không có máy chủ trao đổi và các tính năng tự động khác ...
  • Cảnh báo BCC - hiển thị tin nhắn khi bạn cố gắng trả lời tất cả nếu địa chỉ thư của bạn có trong danh sách BCC; Nhắc nhở khi thiếu tệp đính kèmvà các tính năng nhắc nhở khác ...
  • Trả lời (Tất cả) Với Tất cả Tệp đính kèm trong cuộc trò chuyện qua thư; Trả lời nhiều email trong vài giây; Tự động thêm lời chào khi trả lời; Thêm Ngày vào chủ đề ...
  • Công cụ Tệp đính kèm: Quản lý Tất cả Tệp đính kèm trong Tất cả Thư, Tự động tách, Nén tất cả, Đổi tên tất cả, Lưu tất cả ... Báo cáo nhanh, Đếm thư đã chọnhữu ích. Cảm ơn !
  • Email rác mạnh mẽ Theo phong tục; Xóa thư và liên hệ trùng lặphữu ích. Cảm ơn ! Cho phép bạn làm việc thông minh hơn, nhanh hơn và tốt hơn trong Outlook.
shot kutools triển vọng tab kutools 1180x121
shot kutools triển vọng kutools plus tab 1180x121
 
Nhận xét (15)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thanh danh! Cám ơn vì đã chia sẻ. Điều này vô cùng hữu ích. Tôi có hơn 50 tài liệu cần được chuyển đổi. Chỉ cần một chạm trong hơn 000 giờ để hoàn thành tất cả. Giúp đỡ rất nhiều. Tôi đã sử dụng tùy chọn 39
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mở tài liệu Word bạn muốn chuyển thành tệp PDF. Nếu bạn chỉ muốn nhập ... ConvertOnlineFree - hội thoại riêng lẻ và hàng loạt tài liệu Word sang PDF ... PDFOnline - công cụ chuyển đổi Word (doc, docx và txt) sang PDF miễn phí.

Blog đẹp, bài viết bạn đã chia sẻ rất hay, bài viết này rất hữu ích. Bạn tôi đề nghị tôi sử dụng blog này.

https://customersurveyinfo.com
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn vì đã chia sẻ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nội dung thú vị để đọc. Giữ nó lên.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Tôi rất vui khi tìm thấy thông tin hữu ích này Cảm ơn bạn đã chia sẻ bài viết tuyệt vời này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào .... Xin chào, Nội dung blog này rất thông tin kỹ thuật, nó nằm trên blog tốt nhất mà tôi có. Rất thú vị và mô tả một cách rất dễ dàng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hello sir,
Tôi thích bài đăng này, tôi thực sự đánh giá cao trang web này. Thông tin của bạn rất tốt và có giá trị.
Đây là một trang web tuyệt vời. Bài đăng này rất hay.
Cám ơn vì đã chia sẻ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
HelloNice post .. Tiếp tục chia sẻ. Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây thực sự là một bài viết sâu sắc, thấy nó rất hữu ích và nhiều thông tin
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nhờ để chia sẻ thông tin này hữu ích.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
công ty thiết kế đồ họa tốt nhất ở Ấn Độ
Thiết kế là một thủ công của việc giao tiếp các từ dưới dạng sự khớp nối. Hình ảnh quan trọng hơn lời nói trong lĩnh vực nâng cao.
Các chuyên gia trong lĩnh vực kinh doanh thiết kế khuyên rằng hình ảnh minh họa dễ nhớ hơn so với từ ngữ,
và đó là lý do Thiết kế trang web và Đồ họa đóng vai trò cấp thiết.

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cám ơn vì đã chia sẻ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thông tin tuyệt vời Rất hữu ích, cảm ơn đã chia sẻ.

Farmtrac 60
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Công cụ tuyệt vời nhưng tôi gặp sự cố, đó là tôi không thể chuyển đổi tệp DOC (được viết bằng chữ hoa!) Thành tệp docx.
Nó hoạt động với các tệp doc.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Đoạn mã sau có thể giúp chuyển đổi cả hai doc. và DOC. tệp thành tệp docx. Hãy thử nó. Cảm ơn phản hồi của bạn.

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
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất