(word发送到ppt)(word发送到ppt怎么自定义)

老板发话了！

把这个Word文档转换成PPT，开会要用！

把PPT转换成Word，方便我看！

员工反抗是不敢，还得力求完美的把事情做好！如何快速实现Word与PPT的互转呢？其实很简单！学会这几招，30秒内就能搞定！

一、Word转换成PPT

有两种方法，我们先来看简单的一种！

方法一

首先需要编辑好文档，也就是根据自己的需要设置文字的标题，否则转换文档时就无法识别。

点击视图——大纲视图，将每一页需要设置为新的PPT设置为标题1，其他的根据需求设置为标题2以上内容。

随后打开PPT软件，点击开始——新建幻灯片——幻灯片（从大纲），这时Word文档就会转换为PPT。

方法2：

点击word中的“发送到ppt”。

但是该功能是隐藏的，因此需要先让它显露人前，之后才能点击。

1.将该按钮显示在word里

按上图操作后，“快速访问工具栏”就会多一个按钮。

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 = True
End Sub