一、如何把ppt转换成Word文档
把ppt转换成word文档的方法有很多，本文简单介绍两种不用借助其他转换工具的方法。一种是发送ppt为word文档，一种是另存ppt文件为word文档。以2003ppt为例说明。
1、方法一：发送ppt为word文档
（1）打开ppt，点击左上角的文件，在下拉框里选择发送——MicrosoftOfficeWord。
（2）在发送MicrosoftOfficeWord的选项卡中，选择MicrosoftOfficeWord的版式。如果把整张的ppt完整地粘贴到word中，选择系统默认形式然后点击下方的“确定”。如果只需要ppt中文字，就点击“只使用大纲”前面的小圆圈，然后确定即可。根据需要进行选择。
（3）发送完毕，word文档会自动打开。这种方法转换的word文档，文字仅限于大纲部分的文字。
2、方法二：另存ppt文件为word文档
（1）打开要转换的ppt，点击右上角的文件，在下拉框里选择“另存为”，为另存文件做好准备。
（2）在“另存为”的选项卡中，设置转换好的文件的保存位置，保存文件的类型及名称。我把文件保存在桌面上，文件的名称设置为“转换”，点击文件保存类型，选择为“大纲/RTF文件”，然后点击右侧的“保存”。
（3）在桌面上可以看到名为“转换”的文件。RTF文件是多信息文本格式，是一种类似word文档的文件，具有很好的兼容性，可以直接用word打开。用word打开转换文件，简单编辑以后，另存为word文档即可。
二、ppt怎么转换成word文档
ppt转换成word文档的方法如下：
工具／原料：戴尔P600L、win10专业版、ppt2013.
1、先打开pdf转换器，如下图所示。
2、就能看到“PDF转换”，如下图所示。
3、然后我们找到“PDF转换其他”并点击里边的“文件转Word”，如下图所示。
4、点击“添加文件”，如下图所示。
5、将要转换的ppt文件添加到转换界面里，如下图所示。
6、再分别对“转换格式”、“转换模式”和“偏好设置”等的选择，如下图所示。
7、最后点击“开始转换”，如下图所示。
8、待状态显示100%就表示转换成功，如下图所示。
三、怎样将ppt转换为word文档
PowerPoint 2003
1
运行PowerPoint 2003软件，单击菜单栏的“文件”按钮，打开的快捷菜单指向“发送”，在下一级菜单中单击“Microsoft Office Word”命令
2
弹出“发送到 Microsoft Office Word”对话框，选择您喜欢的版式界面，然后在“将幻灯片添加到 Microsoft Office Word 文档”中一栏选择“粘贴”或“粘贴链接”方式
END
PowerPoint 2010
1
运行PowerPoint 2010软件，单击左上角的“文件”按钮，出来的界面单击左侧的“保存并发送”选项
2
在文件类型栏下单击“创建讲义”，然后在右侧界面中单击“创建讲义”按钮
3
弹出跟PowerPoint 2003一样的界面，设置完成后单击“确定”按钮即可
END
使用脚本文件把PPT转换为Word 文档
在桌面上新建一个文本文档，将下面的代码复制进去
'绑定到本地计算机
strComputer = "."
'如果发生错误，继续执行
on error resume next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
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
在菜单栏点击“文件”——“另存为”命令
指定好要保存文件的位置，在文件名框中输入任意名称+vbs扩展名，然后单击“保存”按钮
此时会在桌面上生成vbs脚本文件，将要转换的PPT演示文稿放到C盘根目录，并执行vbs脚本文件
弹出以下提示对话框，直接单击“确定”按钮即可
最后自动打开转换好的Word 文档并弹出以下提示对话框，单击“确定”按钮
