|
本帖最后由 小牛拉车 于 2016-8-12 13:36 编辑
hauke 发表于 2016-8-12 13:20
需要一个SautinSoft.UseOffice.dll
Private Sub Convert()
Dim u As New SautinSoft.UseOffice()
Dim inputFilePath As String = Path.GetFullPath(Path.Combine(Directory.GetCurrentDirectory(), "C:\fusion.ppt"))
Dim outputFilePath As String = Path.GetFullPath(Path.Combine(Directory.GetCurrentDirectory(), "C:\fusion.pdf"))
Dim ret As Integer = u.InitPowerPoint()
If ret = 1 Then
Return
End If
ret = u.ConvertFile(inputFilePath, outputFilePath, SautinSoft.UseOffice.eDirection.PPT_to_PDF)
u.ClosePowerPoint()
If ret = 0 Then
System.Diagnostics.Process.Start(outputFilePath)
End If
End Sub
1 为啥要写程序? PPT直接点一点好啦
2 inputFilePath outputFilePath 放 Private Sub Convert() 里面做变量啊
3 不做变量的话 Path.GetFullPath(Path.Combine(Directory.GetCurrentDirectory(), "C:\fusion.pdf") ?? C:\?? |
|