Excel 利用Word 2010自带的保存PDF功能批量转换doc为PDF

2012-11-27 20:37

1. Option Explicit
   

3. Dim FileAddress As String
   

4. Dim TargetAddress As String
   

6. Sub Main()
   

8. Application.ScreenUpdating = False
   

10. Dim tempStr
    

11. FileAddress = 'C:\Userfile '
    

12. TargetAddress = 'C:\Userfile \PDF\'
    

13. tempStr = Dir(FileAddress & '\*.docx')
    

14. While tempStr <> ''
    

15. Documents.Open FileAddress & '\' & tempStr
    

16. SaveAsPdfFile
    

17. Documents(tempStr).Close False
    

18. tempStr = Dir
    

19. Wend
    

21. Application.ScreenUpdating = True
    

23. End Sub
    

25. Sub SaveAsPdfFile()
    

27. Dim strDocName, strPdfName As String
    

28. Dim intPos As Integer
    

30. ' Find position of extension in file name
    

31. strDocName = ActiveDocument.Name
    

32. intPos = InStrRev(strDocName, '.')
    

34. If intPos = 0 Then
    

36. ' If the document has not yet been saved
    

37. ' Ask the user to provide a file name
    

38. strDocName = InputBox('Please enter the name ' & _
    

39. 'of your document.')
    

40. Else
    

42. ' Strip off extension and add '.txt' extension
    

43. strDocName = Left(strDocName, intPos - 1)
    

44. strPdfName = strDocName & '.pdf'
    

45. End If
    

47. ' Save file with new extension
    

48. ActiveDocument.SaveAs2 FileName:=TargetAddress & strPdfName, _
    

49. FileFormat:=wdFormatPDF
    

50.   End Sub
    

上面是一个利用Word 2010自带的保存PDF功能批量转换doc为PDF的例子（见下），可以将一个目录中的所有doc全部转换为PDF并保存在另外一个目录下。
有没有高人可以设计一个类似下面图片中的窗体，这样可以比较方便地选择doc和PDF的所在目录，而不用每次修改VBA代码。