有朋友询问如何在Web页面上做到像SharePoint中的效果一样，能直接激活客户端的Word来打开.doc文件，而不是类似直接点击.doc文档链接时Word在IE中被打开那样。想想这个问题应该很多人都会感兴趣，所以干脆写一篇blog来大致描述一下方法。
在安装Office2003以后，有一个ActiveX控件被安装到了系统中，这个控件位于“Program Files\MicrosoftOffice\OFFICE11\owssupp.dll”。通过这个控件，客户端页面上的JavaScript就可以激活本地的Office软件，来实现打开、编辑Office文档。（另，Office XP应该就已经包含这个ActiveX控件了。）
首先，用Script创建一个本地的对象：
openDocObj = new ActiveXObject("SharePoint.OpenDocuments.2"); // 为了兼容Office XP，可以创建“SharePoint.OpenDocuments.1”
然后，调用openDocObj的相应的方法。比如打开服务器上的一个Office文档：
openDocObj.ViewDocument("http://www.abc.com/documents/sample.doc");
openDocObj对象会根据参数中不同的Office文档类型（.doc、.xls、.ppt）来打开不同的程序（Word、Excel、PowerPoint）。ViewDocument()方法还有一个重载签名，可以让我们手工指定激活哪个程序来打开文档：
openDocObj.ViewDocument("http://www.abc.com/documents/sample.doc", 要激活的程序的ProgID);
那么要打开Office程序在线编辑文件又如何？
openDocObj.EditDocument("http://www.abc.com/documents/sample.doc");
就可以直接激活Word，在Word里面编辑文档，然后直接点击Word里面的保存功能，就可以将文件保存会服务器上了。注意：为了让Word能将编辑后的文档直接保存会服务器，访问Web站点的当前上下文的WindowsIdentity必须对服务器的相应目录（即“http://www.abc.com/documents”这个虚拟目录所对应的服务器上的物理路径）有相应的写权限，否则保存动作会失败。编辑完成后，EditDocument()会返回一个bool值，来反映编辑操作是否成功。
我们还可以通过打开服务器上的一个文档模版，来创建一个新的文档：
openDocObj.CreateNewDocument("http://www.abc.com/documents/sampleTemplate.dot", "http://www.abc.com/documents/");
就可以使用“http://www.abc.com/documents/sampleTemplate.dot”这个模版来创建一个新的文档，默认新文档的保存地点是“http://www.abc.com/documents/”。创建新文档时使用的程序取决于模版文件的类型（比如.dot模版会对应Word）。新文档的保存同样需要注意权限问题。CreateNewDocument()方法同样会返回一个bool值来反映操作是否成功。CreateNewDocument()方法的第一个参数，除了可以使用一个模版的地址外，还可以直接指定为希望用来创建新文档的客户端程序的ProgID。
 
http://www.css-js.com/thread-2264-1-1.html

java使用freemaker生成doc文件

vba批量转换doc为docx说明

随便找一个word文件打开，同时按住Alt+F11,会出现如图所示界面：


在左边空白处右击,依次选择：插入—>模块


3. 在如图所示空白区插入vba代码

 

Vba代码如下所示：


			
Sub doc2docx()  'doc文件转docx文件

			
Dim myDialog As FileDialog, oFile As Variant

			
Set myDialog = Application.FileDialog(msoFileDialogFilePicker)

			
With myDialog

			
        .Filters.Clear    '清除所有文件筛选器中的项目

			
        .Filters.Add "所有 WORD97-2003 文件", "*.doc", 1    '增加筛选器的项目为所有WORD97-2003文件

			
        .AllowMultiSelect = True    '允许多项选择

			
        If .Show = -1 Then    '确定

			
            For Each oFile In .SelectedItems    '在所有选取项目中循环

			
                With Documents.Open(oFile)

			
.ComputeStatistics (wdStatisticPages)

			
                .SaveAs FileName:=oFile + "x", FileFormat:=wdFormatXMLDocument

			
                .Close

			
                End With

			
            Next

			
        End If

			
End With

			
End Sub
			
		
效果如图所示：



 

4，执行代码：

选择工具栏中： 运行->运行子过程/用户窗体

如图所示：



执行后会弹出文件选择框，选择要转换的doc文件即可。



 

注：建议每次只转50份，分文件夹进行整理。

这样做的优势:

可以很明确文件转换成功与否，分批转可以很容易定位到未转换成功文件，便于检查，提高成功率。

 

代码地址
https://github.com/erlieStar/doc2docx
工具下载地址
http://download.csdn.net/download/zzti_erlie/10177909
使用指南

选中输入文件夹和输出文件夹
填入输入文件夹和输出文件夹即可使用，有2种填入方式，这2种填入方式的路径分隔符不一致，请勿混用。文件路径前后有空格不影响程序的运行
点击右边的按钮，在弹出的对话框中选中文件即可

示例：C:/Users/Administrator/Desktop/简表——已修改word版调查表
复制文件路径到输入框即可

示例：C:\Users\Administrator\Desktop\简表——已修改word版调查表
点击开始按钮
软件会遍历输入文件夹下的所有doc文件，所以不必将doc文件都放在选中目录的同级目录，例如有如下文件结构

C:\Users\Administrator\Desktop\北郊镇

│  2835淄博奥霖工贸有限公司.doc

│  2837山东科明光电科技有限公司.doc

│  2840淄博富阳商品混凝土有限公司.doc

│

└─新建文件夹

  │  748山东兴鲁生物科技有限公司.doc

  │  755淄博银河生物科技有限公司.doc

  │  787淄博博泰机械制造有限公司.doc

  │  788淄博鲁洲汽车配件有限公司.doc

  │

  └─文件夹

       1165淄博兴华树脂有限公司.doc

       798淄博金浩纺织印染有限公司.doc

       814淄博中宏工贸有限公司.doc
北郊镇文件夹下有3个doc文件和一个新建文件夹，其中新建文件夹下有4个doc文件和一个文件夹，其中文件夹下有3个doc文件，如果选中C:\Users\Administrator\Desktop\北郊镇文件夹，则这些文件都会被转换，这些文件夹中的非.doc和.docx（大小写不影响）文件都会被忽略


当输入框中文件的路径发生变化时，进度条会被置为0%,文本框的内容会被清空
查看转换信息


统计信息


详细信息

开发思路
环境搭建：http://blog.csdn.net/zzti_erlie/article/details/77869200

PyQt5实现逻辑和页面分离：http://www.cnblogs.com/shelwinnee/p/5432304.html

代码地址：https://github.com/erlieStar/doc2docx
欢迎关注
关注回复 pdf目录 有惊喜，海量视频资源访问 www.erlie.cc