⑴ 设置宏另存pdf问题，请高手指教。
自己 录制宏。
最好在2007里，重新录制一遍。
用不了1分钟就录制好了（刚刚用2010做了一个 宏按钮，输出pdf）。
注意：每次执行宏，输出的pdf都是同一个文件，也就是说2个不同的文件A和B，A输出C，B
也是输出C，此时A输出的C被B输出的C覆盖（A和B内容不同），
这个宏会在同一个路径下保存同一个文件名，也就是你录制宏的时候保存的文件名。
输出PDF之前，要保证你的这个C文件 没有被打开，或者被其他程序占用。
⑵ 利用WORD的宏批量把WORD转换为PDF
word文档批量处理大师有这个功能的，另外，该软件7.1版增加了批量运行vba宏代码的功能，有了该功能，所有使用者都可以自己定制适合自己的功能了，极为强悍，最新版需要在该软件的官方网站下载
⑶ 有多个sheet的excel表格如何通过设置宏完成PDF的批量打印
请安装Adobe Acrobat XI Pro软件，并将默认打印机设置为Adobe PDF虚拟打印机，运行以下程序连续打印指定工作表，要自己选择路径和输入文件名（或请高手补充），完成名工作表打印转换输出后，用Adobe Acrobat XI Pro软件，在菜单-创建-将多个文件创建PDF，选择你要的文件或其它格式文件，排序，合并文件即可。
Sub宏1()
DimiAsInteger,arr()AsVariant
arr=Array("1","2","3甲","3乙","3丙","4甲A")
Fori=0To5
Sheets(arr(i)).Activate
ActiveWindow.SelectedSheets.PrintOutFrom:=1,To:=1,Copies:=1,Collate:=True
Next
EndSub
⑷ Excel转换为PDF的宏代码
将下面代码粘入宏中
Sub Macro1()
Dim i As Integer
n = 35 '自行更改
Dim s As String
Range("A1:z99").Select
Selection.ClearContents
Do While i <= n
s = Chr(65 + i - Int(Sqr(i)) ^ 2) & Int(Sqr(i) + 1)
Range(s) = i
i = i + 1
Loop
i = 0
Dim Coln As String
Dim Rown As String
Do While i <= n
Coln = Int(Sqr(n)) + 3 + i - Int(Sqr(i)) * Int(Sqr(i) + 1) + Int(Sqr(n))
Rown = (Int(Sqr(i)) - Abs(i - Int(Sqr(i)) * Int(Sqr(i) + 1)) + 65)
Range(Chr(Rown) & Coln) = i
i = i + 1
Loop
MsgBox "Over!"
End Sub