html文档转换word,如何把HTML文档转换成Word文件?

回答:

word

转换为PPT,也许你很容易做到,但是反之把PPT转换为Word你知道吗?我之前一直用一个很笨的方法,就是把里面的文字一段一段粘出来。文字少了还好说,要是文字多了,那个工作量就可想而知了......

步骤/方法

PowerPoint

2003

中的转换

大家可能最为常用的是下面这种方法:(在Microsoft

Office

PowerPoint

2003版)

1、首先打开需要转换成中文Word文件的中文PowerPoint文件,然后鼠标左键依次选择“文件→发送→Microsoft

Word”命令项。

2.完成选择之后,系统首先会出现“撰写”对话框,此时应当在“在Microsoft

Word使用的版式”栏中选择一种版面的配置,然后在“将幻灯片添加到Microsoft

Word文档”栏中选择将中文PowerPoint的幻灯片转换到中文Word文件时的变化方式。

3.完成上述选择之后,接着使用鼠标左键单击“确定”按钮,即可启动中文Word,然后自动实现将中文PowerPoint文件转换到中文Word文件中,此时只需要在中文Word中稍微进行一些修改,即可完成转换工作。

但是经过我多次试用,其转换效果是相当的不令人满意。

PowerPoint

2007

中的转换

在Microsoft

Office

PowerPoint

2007版中,这个功能依然没有得到改善。只是在“发送”里面却找不到Microsoft

Word命令项了。

微软Office

2007

的最大的失败就是对界面的改变,他几乎完全颠覆了我们使用多年的习惯,但是当你逐步了解了之后却又发现,根本没有实质性的改变,这也是为什么更多的网友不愿意接受Office

2007的理由之一。

Microsoft

Word命令项的确被转移了地方,点击“发布”——点击“使用Microsoft

Office

Word创建讲义”菜单。

看到了什么?一个完全与PowerPoint

2003一样的对话框,甚至没有任何修饰,那么这个能实现PPT到Word

的转换吗?显然他与PowerPoint

2003

转换的效果是一样的,也以为着这一功能没有得到任何提升。同样是微软的办公平台,在互换上怎么就这么难?

一般细心的用户可能会在制作PPT的时候,首先使用Word创建文档,一式两份,这样以备不时之需,看来也是惧怕万一有人需要Word

文档,你再整理可能就会抓瞎。

说了这么多,究竟有没有什么方法能够完美将PPT转换为Word文档?我只能遗憾的告诉你,目前还真是没有什么完美解决方案。所谓的完美,当然是转换的文档你几乎不用修改就能使用。

虽然我说了上面的话,你也用不着马上离开,绝不意味着下面的方法对你没有任何作用!而这种方法恰恰是最简单的,也是最行之有效的方法,不信请继续往下看。

应用程序完美转换PPT

到Word

文档

说起来很简单,就是你把下面这段代码文字复制到Windows

文本中,将文件保存为

.vbs生成一个可执行程序。保存在任何一个地方,比如桌面。这段代码也是我在无意中发现的,但使用后感觉已经很好,并且简单。

输入以下代码:

'绑定到本地计算机

strComputer

=

"."

'如果发生错误,继续执行

on

error

resume

next

Set

objWMIService

=

GetObject("winmgmts:"

_

&

"{impersonationLevel=impersonate}!\\"

&

strComputer

&

"\root\cimv2")

msgbox

"此脚本可以批量将ppt文件中的文本转换为word文件。图片、表格等内容则自动跳过"

&

vbcrlf

&

"使用时请把所有要转换的ppt文件复制到目录c:\下。双击运行此文件即可。"

&

vbcrlf

&

"运行此脚本需要本机上安装了office"

'创建一个word对象

Set

objWord

=

CreateObject("Word.Application")

'创建一个ppt对象

Set

pptApp

=

CreateObject("PowerPoint.application")

'获得c:\目录下的文件集合

Set

FileList

=

objWMIService.ExecQuery

_

("ASSOCIATORS

OF

{Win32_Directory.Name='c:'}

Where

"

_

&

"ResultClass

=

CIM_DataFile")

For

Each

objFile

In

FileList

'如果文件的扩展名是ppt

If

objFile.Extension

=

"ppt"

Then

pptApp.visible

=

true

'打开这个ppt文件

Set

pptSelection

=

pptApp.Presentations.Open("c:\"

&

objFile.FileName

&

"."

&

objFile.Extension)

'如果想让脚本处理得快些,把下面一行改为“objWord.Visible

=

false”,不推荐。

objWord.Visible

=

true

'新建一个word,以保存ppt中的文本

Set

objDoc

=

objWord.Documents.Add()

Set

objSelection

=

objWord.Selection

'从ppt的第一页开始循环。Slides.Count即幻灯片的数量

For

i

=

1

To

pptSelection.Slides.Count

'从每一张ppt的第一个文本框开始循环,Shapes.Count,即每张幻灯片中文本框的数量

For

j

=

1

To

pptSelection.Slides(i).Shapes.Count

'如果是每页的第一行,就按标题处理,变成黑体字

if

i

=1

then

objSelection.Font.Name

=

"黑体"

'把文本框中的文字添加到word中

objSelection.TypeText

pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text

objSelection.TypeParagraph()

objSelection.Font.Name

=

"宋体"

end

if

objSelection.TypeText

pptSelection.Slides(i).Shapes(j).TextFrame.TextRange.text

'加一个回车

objSelection.TypeText

vbcrlf

Next

next

'关闭这个ppt文件

pptSelection.close

'保存word文件。

objDoc.SaveAs("c:\"

&

objFile.FileName

&

".doc")

'如果不需要关闭word,把下面这一行删掉

objDoc.close

'如果不想弹出消息框,把下面这一行删掉

msgbox

"转换后的word已保存在c:\"

&

objFile.FileName

&

".doc"

else

'没有ppt文件

'msgbox

"错误:c:\下没有发现ppt文件!"

End

If

Next

pptApp.quit

将你需要转换的PPT文档放到C:\

的根目录下,双击我们刚才生成的

.vbs

程序,弹出下面的对话框,点击“确定”。

之后稍等片刻(根据PPT

文档的大小可能等待的时间有所区别)。就会自动打开一个已经生成的Word

文档,怎么样,你看到了什么?转换完成,弹出下面的对话框,点击确定后收工。

这个程序无需安装,直接运行,文件也小。在转换前最好将之前打开的Word

和PowerPoint程序关闭。

由于本程序转换后的Word文档中文字顺序并未排版,因此尚需用户自行调整。但是这已经让我们事半功倍了。

参与评论 您还未登录,请先 登录 后发表或查看评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:游动-白 设计师:我叫白小胖 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值