Save file word sang pdf nhanh

[HUYBOY]

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 đỡ ạ

 

[BuiQuangThuan]

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 đỡ ạ

Gì mà tìm cả đêm luôn hả

 

[Ronaldinho7]

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 vào Word rồi thử recode macro sau đó xem code xem thế nào?

 

[HUYBOY]

Em đã thử record nhưng nó mặc định lưu luôn file đó vào đường dẫn lúc save. Mà ko bung hộp thoại lên cho chọn ạ. Và ní cũng ko đổi tên file pdf giống file wword ạ

Bài đã được tự động gộp: 14/2/23

Gì mà tìm cả đêm luôn hả

Em tìm đến 1h30 sáng nay ạ. Giúp em với ạ

 

[Maika8008]

Em đã thử record nhưng nó mặc định lưu luôn file đó vào đường dẫn lúc save. Mà ko bung hộp thoại lên cho chọn ạ. Và ní cũng ko đổi tên file pdf giống file wword ạ

Bài đã được tự động gộp: 14/2/23

Em tìm đến 1h30 sáng nay ạ. Giúp em với ạ

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

 

[HUYBOY]

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 ạ?

 

[Maika8008]

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

 

[HUYBOY]

Vâng, cái này lại chỉ làm dc với Project phải không ạ? Em muốn nó có tác dụng (như một nút trên word với mọi file word thì có được ko ạ? Như kiểu nút Save ấy ạ

 

[Maika8008]

Vâng, cái này lại chỉ làm dc với Project phải không ạ? Em muốn nó có tác dụng (như một nút trên word với mọi file word thì có được ko ạ? Như kiểu nút Save ấy ạ

Muốn vậy thì phải làm Add-Ins lằng nhằng lắm.