【源码】C#开发之Word批量转PDF

原文 http://www.cnblogs.com/hans_gis/archive/2013/05/25/3098558.html

微软Office Word本身已经提供了另存为PDF文档功能,对于少量文档,手工使用该方式进行Word转换为PDF尚可,一旦需要处理大量的文档,可能就显得有些捉襟见肘了。不过对于已经安装有Office环境,借助一些简单的代码即可实现批量Word转PDF了。

源码奉上:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Diagnostics;
using System.IO;
using System.Text;
using System.Threading;
using Microsoft.Office.Interop.Word;
 
namespace Word2Pdf
{
     class Program
     {
         public static Microsoft.Office.Interop.Word.Document wordDocument { get ; set ; }
 
         static void Main( string [] args)
         {
             string strFolder_f = null ;
             string strFolder_t = null ;
             string strFlag = null ;
             System.Console.WriteLine( "请输入Word文档所在目录" );
             strFolder_f = System.Console.ReadLine();
             if (strFolder_f.Substring(strFolder_f.Length - 1, 1) != "\\" )
             {
                 strFolder_f += "\\" ;
             }
             strFolder_t = strFolder_f + @"pdf\" ;
             System.Console.WriteLine( "\n创建PDF文档,请确认!" );
             System.Console.Write( "y(yes) or n(no) ?  " );
             strFlag = System.Console.ReadLine();
             if (strFlag == "y" )
             {
                 System.Console.WriteLine( "\n开始创建PDF文档..." );
                 CheckFolder(strFolder_t);
                 string strPdfFile = null ;
                 DirectoryInfo TheFolder = new DirectoryInfo(strFolder_f);
 
                 Microsoft.Office.Interop.Word.Application appWord = new Microsoft.Office.Interop.Word.Application();
                 object paramMissing = Type.Missing;
 
                 foreach (FileInfo NextFile in TheFolder.GetFiles())
                 {
                     strPdfFile = Path.ChangeExtension(strFolder_t + NextFile.Name, ".pdf" );
                     wordDocument = appWord.Documents.Open(NextFile.FullName);
                     if (wordDocument != null )
                     {
                         wordDocument.ExportAsFixedFormat(strPdfFile, WdExportFormat.wdExportFormatPDF);
                         wordDocument.Close( ref paramMissing, ref paramMissing, ref paramMissing);
                         wordDocument = null ;
                     }
                     System.Console.Write( ".. " );
                 }
 
                 if (appWord != null )
                 {
                     appWord.Quit( ref paramMissing, ref paramMissing, ref paramMissing);
                     appWord = null ;
                 }
             }
 
             //KillProcessByName("WINWORD");
             GC.Collect();
             GC.WaitForPendingFinalizers();
 
             System.Console.Write( "\n处理完毕,输入任意键退出" );
             System.Console.ReadKey();
         }
 
         static void CheckFolder( string strFolderPath)
         {
             if (Directory.Exists(strFolderPath))
             {
                 Directory.Delete(strFolderPath, true );
                 Directory.CreateDirectory(strFolderPath);
             }
             else
             {
                 Directory.CreateDirectory(strFolderPath);
             }
         }
 
         static void KillProcessByName( string name)
         {
             Process[] ps = Process.GetProcessesByName(name);
             foreach (Process p in ps)
             {
                 if (p.ProcessName == name)
                     p.Kill();
             }
         }
     }
}

需要注意的两个问题:①及时关闭代码中所打开的文档,见49行,否则会产生临时文件;②及时关闭“WINWORD”线程,否则所处理的Word文档会一直处于被该线程占用的情况。

 

 


作者:韩 锁
出处:http://www.cnblogs.com/hans_gis/
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利。

posted on 2013-05-25 12:37 NET未来之路 阅读( ...) 评论( ...) 编辑 收藏

转载于:https://www.cnblogs.com/lonelyxmas/archive/2013/05/25/3098608.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值