26 tháng 8, 2019

Cách đổi đuôi hàng loạt file *.doc thành *.docx bằng code VBA

Trong bài viết trước mình đã chia sẻ cho các bạn Cách thủ công để đổi đuôi file Word .doc thành .docx và ngược lại. Nhưng cách này chỉ có thể đổi đuôi từng file một. Nay mình chia sẻ một cách giúp các bạn có thể đổi đuôi hàng loạt file Word chỉ bằng vài cái click. 

Lưu ý:
- Bạn nên cho tất cả các file Word cần đổi đuôi vào một thư mục cho dễ thao tác.
- Code VBA này chỉ nhận dạng được các file Word có tên không dấu, không có ký tự đặc biệt, vậy nên các file Word có tên bằng Tiếng Việt thì bạn cần đổi tên đi.

Bước 1: Bạn mở phần mềm MS Word lên (lưu ý mở văn bản mới, không mở các văn bản cần đổi đuôi) bấm tổ hợp phím Alt + F11 (đối với Laptop thì bấm Fn + Alt + F11) để mở trình code VBA ra.


Bước 2: Bạn chọn tab Insert rồi chọn Module


Bước 3: Bạn copy đoạn code sau rồi dán vào module vừa mở. 
Sub chuyenfiledoc()
'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
Sau đó click Run hoặc bấm F5 để chạy chương trình


Bước 4: Bạn chọn đến thư mục lưu các file cần đổi đuôi rồi chọn OK. Sau đó đợi một chút để chương trình chạy. 



Bước 5: Bạn truy cập vào thư mục chứa các file Word *.doc kiểm tra xem đã được đổi đuôi chưa nhé



Lời kết: Với cách làm này thì bạn không phải mất công đổi đuôi từng file một nữa, chỉ bằng vài cái click là đổi được hàng loạt file. Hy vọng mẹo nhỏ này hữu ích đối với các bạn.


SHARE THIS