Save file word sang pdf nhanh

Chào Anh Chị ạ.
Em có 1 file word (dc mailing) giờ muốn khi mở file word lên, chạy Macro, sẽ hiện lên bảng thông báo chọn folder để lưu dưới dạng pdf ( tên file pdf tự động lấy theo tên file word ạ)
Em Tìm cả đêm mà không làm được mong anh chị giúp đỡ ạ

Bạn chép sub này vào 1 module của file Word để chạy

Sub WordToPDF()
Dim wDoc As Object
Dim sFile$, sFolder$

With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
            sFolder = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    Set wDoc = ThisDocument
    sFile = Left(wDoc.Name, InStrRev(wDoc.Name, ".") - 1) & ".pdf"
    wDoc.ExportAsFixedFormat sFolder & "" & sFile, wdExportFormatPDF
End Sub

Em vô cùng cảm ơn bác ạ. Nhưng bác cho em hỏi là em muốn sau khi lưu xong nó tự mở file pdf lên thì như thế nào ạ?

Thêm dòng này vào dưới cùng
Documents.Open FileName:=sFolder & "" & sFile

www.giaiphapexcel.com/diendan/threads/save-file-word-sang-pdf-nhanh.164016/

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học