转载自：licanli2082@126网易博客
对于只是简单运行的方法，步骤如下：
1.
让WORD2007、2010调出开发选项卡。调出的办法是，点击WORD左上角的圆圈形按钮，从下拉菜单中选择”选项“，然后点击左侧的常规选项卡，再从右边窗口中选中”显示开发工具“
2. 回到WORD主界面，选择”开发工具“面板栏，从这个面板的左边选择”宏“按钮
3. 在宏窗口中输入一个宏名字（任意），然后点新建。
4. 在宏编辑窗口中，将下面的代码粘贴到sub与end sub中间，然后点绿色三角形的运行按钮即可
5.
浏览选择要转换的WORD文档，确定，看窗口状态栏提示完成，即可看到所有WORD文档转换了PDF在原目录（原来的WORD文档不会被影响，请放心）
如下图所示，
Application.ScreenUpdating
= False
Dim fDialog As
FileDialog
Set fDialog =
Application.FileDialog(msoFileDialogFilePicker)
Dim
vrtSelectedItem As Variant
Dim wdDoc As
Document
Dim showFolder
As Boolean
showFolder =
False
With
fDialog
.Filters.Add
"Word文件", "*.doc;*.docx;*.docm", 1
If
.Show = -1 Then
For
Each vrtSelectedItem In .SelectedItems
'如果选择了本文档则跳过
If
InStrRev(vrtSelectedItem, ThisDocument.Name) = 0
Then
On
Error Resume Next
Set
wdDoc = Application.Documents.Open(vrtSelectedItem,
ReadOnly:=True)
wdDoc.SaveAs
Left(vrtSelectedItem, Len(vrtSelectedItem) - 5),
wdFormatPDF
wdDoc.Close
False
End
If
Next
vrtSelectedItem
If
showFolder Then Call Shell("explorer.exe " &
Left(fDialog.SelectedItems(1), _
InStrRev(fDialog.SelectedItems(1),
"")), vbMaximizedFocus)
End
If
End
With
Set fDialog =
Nothing
Application.ScreenUpdating
= True
Application.DisplayAlerts
= True
加载中，请稍候......
加载中…
(2012-12-25 15:16:36)