作者：乔山办公网日期：
返回目录：word文档
1、Word转PPT
首先需要编辑好文档，也就是根据自己的需要设置文字的标题，否则转换文档时就无法识别。
点击视图——大纲视图，将每一页需要设置为新的PPT设置为标题1，其他的根据需求设置为标题2以上内容。
随后打开PPT软件，点击开始——新建幻灯片——幻灯片（从大纲），这时Word文档就会转换为PPT。
2、PPT转Word
首先按Alt+F11打开相应的VBA界面，这时选择选项卡中的插入——模块打开相应的界面，如下图所示：
然后选择工具选项卡下的引用，如下图所示：
之后我们在相应的界面中找到类型为“Microsoft Word 16.0 ObjectLibrary”，点击确定。
注意：如果是Office2013版的就找到13即可。
最后在模块中输入以下代码并按F5（或点击运行命令）
Sub Main() On Error Resume Next Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide For Each tmpSlide In ActivePresentation.Slides For Each tmpShape In tmpSlide.Shapes temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text Next tmpShape Next tmpSlide temp.Application.Visible = TrueEnd Sub
具体操作如下：