[CLOSE]-Nhờ hỗ trợ sub mở file word từ danh sách excel và lưu file word thành PDF

[Phương Thanh103]

Chào các bác,

Em có một danh sách file word+địa chỉ của file như thế này. Do em có rất nhiều file word , các file này hay đổi nội dung và cần được lưu dưới dạng PDF.

Em đã tìm trên mạng nhưng chỉ tìm được cách mở hàng loạt file word trong danh sách, chứ chưa tìm được cách lưu các file này thành file PDF (cùng tên có dấu tiếng Việt) nên nhờ các cao nhân giúp đỡ . Em cảm ơn.

 

[Phương Thanh103]

Sau khi cắt ghép các sub khác nhau mà em có thể tra thì em đã tìm được, dù chạy còn lôm côm nhưng vẫn tiết kiệm được khá nhiều thời gian. Em để đây cho ai cần.

Trong đó:
Cột A:Địa chỉ file word
Cột C:Địa chỉ folder cần lưu
Cột D:Tên file PDF muốn lưu

Sub test2()

Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row

Set wordapp = CreateObject("word.Application")


For i = 1 To lRow
Dim Path As String
Dim filename As String
Path = Range("c" & i)
filename = Range("D" & i)

wordapp.documents.Open (Range("A" & i).Value)
wordapp.Visible = True
wordapp.Activate

wordapp.ActiveDocument.ExportAsFixedFormat OutputFileName:=Path & filename & ".PDF", _
ExportFormat:=17, _
OpenAfterExport:=False, _
OptimizeFor:=0, _
Range:=0, _
From:=1, To:=1, _
Item:=0, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=0, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False

wordapp.ActiveDocument.Close True
Next i
End Sub

 

[VetMini]

Tĩnh từ CLOSE có nghĩa là "gần". Close to là gần tới, close by là kế bên.
Muốn nói "đóng/khép/chấm dứt" thì dùng CLOSED

 

[hoangtuan.net]

Có một cách khác bạn có thể kham khảo: quét chọn file word/ chuột phải/ chọn như hình (1) hoặc (2). Yêu cầu máy có cài Adobe pdf hoặc FoxitPhantom.