Cách chuyển file Word sang định dạng TXT, Powerpoint, Excel

Khi soạn thảo văn bản trên Word, đôi khi bạn sẽ cần gửi file .doc sang các định dạng khác để tiện làm việc hơn. Hôm nay, Gitiho sẽ hướng dẫn bạn cách chuyển word sang txt, chuyển word sang Excel và chuyển word sang ppt nhé.

Một số cách chuyển file tự động hàng loạt cũng sẽ được đề cập trong bài học Word này. Cùng theo dõi nhé.

XEM NHANH BÀI VIẾT

1 Cách chuyển word sang txt hàng loạt với VBA
2 Cách chuyển word sang powerpoint
3 Cách chuyển file Word sang Excel

Cách chuyển word sang txt hàng loạt với VBA

Mã VBA dưới đây có thể giúp chuyển đổi tất cả các tài liệu Word trong một thư mục cụ thể thành tệp txt cùng một lúc. Hãy làm như sau.

Bước 1: Mở tài liệu Word cần chuyển đổi thành tệp tin Txt.

Bước 2: Trong tài liệu Word, nhấn tổ hợp phím Alt + F11 để bật cửa sổ Microsoft Visual Basic for Applications.

Bước 3: Trong giao diện Microsoft Visual Basic for Applications hiển thị, truy cập vào menu Insert > Module để tạo Module mới.

Bước 4: Sao chép mã bên dưới và dán chúng vào tập lệnh Module mới.

Sub ConvertDocumentsToTxt()
'Updated by Extendoffice 20181123
    Dim xIndex As Long
    Dim xFolder As Variant
    Dim xFileStr As String
    Dim xFilePath As String
    Dim xDlg As FileDialog
    Dim xActPath As String
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1)
    xFileStr = Dir(xFolder & "\*.doc")
    xActPath = ActiveDocument.Path
    While xFileStr <> ""
        xFilePath = xFolder & "\" & xFileStr
        If xFilePath <> xActPath Then
            Set xDoc = Documents.Open(xFilePath, AddToRecentFiles:=False, Visible:=False)
            xIndex = InStrRev(xFilePath, ".")
            Debug.Print Left(xFilePath, xIndex - 1) & ".txt"
            xDoc.SaveAs Left(xFilePath, xIndex - 1) & ".txt", FileFormat:=wdFormatText, AddToRecentFiles:=False
            xDoc.Close True
        End If
        xFileStr = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

Bước 5: Nhấn phím F5 để chạy mã. Trong cửa sổ Browse mở ra, bạn duyệt đến thư mục chứa tài liệu định dạng .DOC cần chuyển đổi sang tệp TXT, kích chọn tên thư mục rồi bấm nút OK.

Lưu ý: nếu bạn lưu tệp .doc ở thư mục nào thì cần chọn đúng thư mục đó khi lưu tệp .txt

Bước 6: Sau đó, bạn có thể thấy tất cả các tài liệu Word trong thư mục đã chọn được chuyển đổi thành tệp TXT cùng một lúc.

Cách chuyển word sang powerpoint

Thông thường, khi bạn muốn tạo bản trình chiếu PowerPoint từ tài liệu Word, bạn cần sao chép và dán nội dung từ Word sang PowerPoint. Nếu có nhiều nội dung cần chuyển, phương pháp này sẽ không phải là một lựa chọn tốt.

Do đó, bạn có thể thực hiện chuyển từ word sang powerpoint theo các bước sau:

Bước 1: Mở tài liệu Word muốn chuyển đổi, hãy định dạng văn bản sẽ được nhập vào PowerPoint dưới dạng tiêu đề thành kiểu Heading 1, sau đó, định dạng nội dung khác thành kiểu Heading 2 sẽ là nội dung trang chiếu, giống như hình ảnh hiển thị dưới đây.

Định dạng Heading cho văn bản trong Word

Thực hiện tuần tự cho đến khi định dạng hết toàn bộ nội dung của tài liệu Word cần chuyển đổi.

Bước 2: Sau khi hoàn thành việc định dạng văn bản, sau đó lưu và đóng tài liệu Word lại.

Bước 3: Khởi chạy một file PowerPoint mới, sau đó truy cập vào menu Home > New Slide > Slides from Outline ... từ menu xổ xuống

Bước 4: Trong cửa sổ Insert Outline được hiển thị, hãy chuyển đến thư mục chứa tệp tin Word mà bạn vừa định dạng ở bước 1 cần chuyển đổi.

Bước 5: Kích chọn tên file rồi bấm nút Insert và tất cả nội dung trong tài liệu Word cụ thể đã được nhập vào bản trình chiếu PowerPoint như hình minh họa dưới đây.

Cách chuyển file Word sang Excel

Đôi khi, bạn muốn chuyển đổi tài liệu Word sang trang tính Excel và ngược lại ví dụ như copy bảng từ Excel sang Word,… Vậy bạn có biết cách nào nhanh chóng thay vì sao chép và dán theo cách thủ công không?

Trong hướng dẫn này Gitiho sẽ giới thiệu cho các bạn hai cách dễ nhất để xử lý công việc này.

Cách 1: Chuyển từ word sang Excel bằng tính năng Save As

Để chuyển đổi tài liệu Word sang trang tính Excel, bạn có thể kết hợp chức năng Save As trong Word và chức năng From Text trong Excel. Thực hiện như sau:

Bước 1: Mở tài liệu Word bạn muốn chuyển sang trang tính Excel.

Bước 2: Truy cập vào menu File > Save As, sau đó bấm nút Browse để mở hộp thoại Save As.

Bước 3: Trong hộp thoại Save As, chọn vị trí lưu tệp tin mới, đặt tên cho tệp và trong danh sách thả xuống tại mục Save as type, chọn Plain Text.

Chuyển từ word sang Excel bằng tính năng Save As

Bước 4: Bấm vào nút Save để lưu tài liệu Word dưới dạng tệp văn bản mới, sau đó hộp thoại File Conversion hiển thị, chỉ cần bấm nút OK để đóng hộp thoại.

Bước 5: Mở tệp Excel bạn muốn nhập dữ liệu từ tài liệu Word, truy cập vào thẻ Data > From Text.

Trong hộp thoại Import Text File hiển thị duyệt đến thư mục chứa tệp tin mới được lưu ở bước 3. Kích chọn tên tệp tin rồi bấm nút Import.

Bước 6: Tích vào tùy chọn Delimited rồi bấm tiếp nút Next.

Bước 7: Tiếp theo tích vào dấu phân cách bạn muốn tách dữ liệu dựa trên, rồi bấm nút Next.

Bước 8: Trong bước cuối cùng của trình hướng dẫn, bạn có thể chỉ định định dạng của dữ liệu, nếu bạn không cần thay đổi định dạng, hãy chọn tùy chọn General.

Bước 9: Bấm nút Finish. Sau đó, hộp thoại Import Data mở ra bạn có thể chọn một ô của trang tính đang hoạt động để đặt dữ liệu hoặc chọn tùy chọn New worksheet để nhập dữ liệu trong một trang tính mới. Bấm OK để hoàn tất.

Bước 10: Sau đó, nội dung tài liệu Word sẽ được nhập trong trang tính Excel.

Xem thêm: Hướng dẫn sử dụng VBA để sao chép dữ liệu từ Excel sang Word

Cách 2: Chuyển Word sang Excel bằng mã VBA

Nếu bạn muốn chuyển đổi hoặc nhập tất cả dữ liệu từ Word sang Excel, bạn có thể sử dụng mã VBA dưới đây.

Bước 1: Mở ứng dụng Excel trên máy tính của bạn, nhấn tổ hợp phím Alt + F11 để bật cửa sổ Microsoft Visual Basic for Applications.

Bước 2: Trong giao diện Microsoft Visual Basic for Applications hiển thị, truy cập vào menu Insert > Module để tạo Module mới. Sao chép mã bên dưới và dán chúng vào tập lệnh Module mới.

Sub ImportWord()
'UpdatebyExtendoffice20190530
 Dim xObjDoc As Object
 Dim xWdApp As Object
 Dim xWdName As Variant
 Dim xWb As Workbook
 Dim xWs As Worksheet
 Dim xName As String
 Dim xPC, xRPP
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 xWdName = Application.GetOpenFilename("Word file(*.doc;*.docx) ,*.doc;*.docx", , "Gitiho - Please select")
If xWdName = False Then Exit Sub
Application.ScreenUpdating = False
Set xWb = Application.ActiveWorkbook
Set xWs = xWb.Worksheets.Add
Set xWdApp = CreateObject("Word.Application")
xWdApp.ScreenUpdating = False
xWdApp.DisplayAlerts = False
Set xObjDoc = xWdApp.Documents.Open(Filename:=xWdName, ReadOnly:=True)
xObjDoc.Activate
xPC = xObjDoc.Paragraphs.Count
Set xRPP = xObjDoc.Range(Start:=xObjDoc.Paragraphs(1).Range.Start, End:=xObjDoc.Paragraphs(xPC).Range.End)
xRPP.Select
On Error Resume Next
xWdApp.Selection.Copy
xName = xObjDoc.Name
xName = Replace(xName, ":", "_")
xName = Replace(xName, "\", "_")
xName = Replace(xName, "/", "_")
xName = Replace(xName, "?", "_")
xName = Replace(xName, "*", "_")
xName = Replace(xName, "[", "_")
xName = Replace(xName, "]", "_")
If Len(xName) > 31 Then
    xName = Left(xName, 31)
End If
xWs.Name = xName
xWs.Range("A1").Select
xWs.Paste
xObjDoc.Close
Set xObjDoc = Nothing
xWdApp.DisplayAlerts = True
xWdApp.ScreenUpdating = True
xWdApp.Quit (wdDoNotSaveChanges)
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Bước 3: Nhấn phím F5 để chạy mã, hộp thoại Gitiho – Please select hiển thị yêu cầu bạn chọn tài liệu Word để nhập (chỉ có thể nhập một tài liệu một lần).

Chạy mã VBA để chuyển file word sang Excel

Bước 4: Kích chọn tên file rồi bấm nút Open. Sau đó tài liệu Word đã chọn sẽ được nhập vào Excel dưới dạng một trang tính mới. Trong đó trang tính mới sẽ được đặt tên tự động cùng với tên của tài liệu Word đã nhập.

Lưu ý: Nếu tài liệu Word của bạn có nhiều đồ thị (hình ảnh, biểu đồ, công thức), chúng có thể bị chồng chéo lên nhau.

Dữ liệu khi chèn vào Excel có thể chồng chéo lên nhau

Trên đây Gitiho vừa hướng dẫn các bạn các cách để chuyển word sang txt, chuyển word sang Excel hoặc chuyển file word sang powerpoint khi cần. Hi vọng các bạn thấy bài viết hữu ích. Chúc các bạn thành công!

Ngoài ra nếu muốn tìm hiểu sâu hơn và kỹ hơn về các thủ thuật hay khác của Word thì Gitiho.com xin giới thiệu với các bạn các khóa học cực kỳ hữu ích để các bạn tham khảo bao gồm:
2. MOSW - Chinh phục MOS Word 2013 cùng Nimbus
3. HCNSG01 - Trọn bộ kiến thức và kỹ năng công việc Hành chính nhân sự