WPS文档批量转换成PDF

最新推荐文章于 2024-03-28 23:04:14 发布

置顶网络奇士

最新推荐文章于 2024-03-28 23:04:14 发布

阅读量4.2k

点赞数 2

本文链接：https://blog.csdn.net/weixin_44768297/article/details/113539637

版权

本文介绍了一种使用VB.Net自定义开发的方法，能够将大量的WPS文档批量转换为PDF格式，有效解决了手动逐个转换的繁琐问题。该程序通过遍历指定文件夹中的所有文件，并检查文件类型来实现转换。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

WPS文档批量转换成PDF

年初保存的大量WPS文档,需要转换成PDF格式,起初使用WPS等软件逐个转换,实在是太麻烦了。上网搜索了相关软件，令人失望一直没有找到合适的软件，虽有Word转换PDF的，但对Word版本有要求，更重要的是不支持WPS后缀的文件，于是决定自己动手用VB.Net写一个。代码如下：

Private Sub cmdRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRun.Click
       Try
           Dim MyPath  = TextBoxPath.Text
           Dim WpsNo As Int16 = 0
           Dim FileNames() As String
           If TextBoxPath.Text <> "" Then
               For Each Myfile In System.IO.Directory.GetFiles(MyPath)
                   TextBoxPath.Text = System.IO.Path.GetFileName(Myfile) '文本框显示正在转换的不含路径的文件名称
                   FileNames = Split(Myfile, ".") '将文件名分为前缀和后缀
                   If FileNames.Length = 2 Then '判断分离的数组是否是前缀和后缀，防止出现无后缀的文件运行出错和多个.的文件。
                       If FileNames(1) = "wps" Or FileNames(1) = "doc" Or FileNames(1) = "txt" Or FileNames(1) = "docx" Or FileNames(1) = "rtf" Or FileNames(1) = "wpt" Or FileNames(1) = "dot" Or FileNames(1) = "dotx" Or FileNames(1) = "dotm" Or FileNames(1) = "xml" Or FileNames(1) = "mht" Or FileNames(1) = "mhtl" Or FileNames(1) = "html" Or FileNames(1) = "htm" Or FileNames(1) = "uof" Then
                           '打开文件
                           wAppdoc = wApp.Documents.Open(Myfile)
                           '接受所有的修改
                           wAppdoc.AcceptAllRevisions()
                           wAppdoc.Save() '存储文件
                           '转换成PDF
                           wAppdoc.ExportAsFixedFormat(FileNames(0) + ".pdf", Word.WdExportFormat.wdExportFormatPDF)
                           wAppdoc.Close()
                           WpsNo = WpsNo + 1
                       End If
                   End If
               Next
          
           Else
               MsgBox("请选择文件夹！")
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try