一个完美的PPT文档编辑解决方案
在教学工作、科学研究和业务，PowerPoint（PPT）的应用是非常广泛的。因此，PPT的制作能力已经成为现代成功的人必须掌握的重要技能之一，很快成为一个优秀的PPT，你需要准备的文字、图片和音像提前材料。在编辑的文本数据，通过复制和粘贴的方法，一个滑一下子，工作效率很低；通过在PowerPoint的使用；大纲复制和粘贴的方式方法，只有一次性的文本粘贴到标题的文本框，工作效率仍不高。作者采用VBA编程方法能大大提高解决上述问题提高PPT制作效率。1 ppt文本编辑解决方案
打开或建立一个PPT文档，按Alt+F11，打开Visual Basic编辑器。首先，微软Word 11对象库和wimdows脚本主机对象模型对象第一次被介绍，然后一个模块插入，以及这一过程被称为普通引入模块，并与关键代码程序如下：
1.1实现了对输入文件的自动搜索功能。
昏暗的myfile1来作为字符串，字符串
与application.filedialog（msofiledialogfilepicker）
allowmultiselect = false。
filters.clear。
filters.add 字的文件。
如果显示= 1然后myfile1 =。SelectedItems（1）人Exit Sub
结束
1.2如果导入文件是word文件，则该文件将转换为文档。
如果对（myfile1，3）=DOC然后
在错误的gjh5033
getdoctext1 =
昏暗的WAPP是词。应用模糊的DOC文档
昏暗的getdoctext1作为字符串
集WAPP =新单词。应用
Wapp。可视=真
集doc = wapp.documents.open（myfile1）getdoctext1 = doc.content.text
昏暗的sfile为对象，FSO对象
myfile1 =左（myfile1，Len（myfile1）- 4）.txt
设置FSO = CreateObject（脚本。FileSystemObject ）
集sfile = fso.createtextfile（myfile1，真的）
SFile.WriteLine（getdoctext1）
sfile。关闭
集sfile =没有
设置FSO
myfile1作为名字来
gjh5033：
如果没有（博士是什么）
医生密切
设置文件
最后如果
如果不是（WAPP什么）然后
Wapp。退出
集WAPP =没有
最后如果
错误到0
最后如果
1.3获得标题，内容和评论，将被写入每一个幻灯片。
下次继续出错
昏暗的编码为字符串，文本字符串，字符串代码2
昏暗的str4（）为整数，n为整数，m为整数
昏暗的str5（）（）str6字符串，字符串，STR7（）为字符串
昏暗的dfdf布尔
代码=-幻灯片分隔符；
代码2 =注：'；注意标记
n = 0 m = 0：dfdf = false
输入为# 1打开文件中而不是EOF（1）
代码
线路输入# 1码
代码=修剪（CStr（代码））
m＝m + 1
如果代码代码然后
n＝n＋1
ReDim Preserve str4（n）为整数
ReDim Preserve str5 (n) As String
ReDim Preserve str6（n）为字符串
ReDim Preserve STR7（n）为字符串
str4（n）= M
dfdf = false
其他的
如果str4（N）+ 1 = M然后
str6（n）=代码
其他的
如果代码代码2然后dfdf =真
如果dfdf = FALSE然后
str5（n）=（n）的代码vbcrlf str5
其他的
如果代码代码2然后STR7（n）< > = STR7（N）的代码vbcrlf
最后如果
最后如果
最后如果
环
近1 #
错误到0
1.4将文件的所有内容导入幻灯片
昏暗的Opres演示
集Opres = application.activepresentation
暗淡的是滑
昏暗的垂直形状
昏暗的TR TextRange
我很长，J As Long
YesNo = MsgBox（导入文件，请按：确认vbcrlf更新内容：请按取消
如果YesNo = 1
我opres.slides.count = 2
activewindow.selection.sliderange.delete
下一个
最后如果
如果n＞1，那么
对于i = 2到n
如果opres.slides.count <我
activewindow.view.toslide指数：= activepresentation.slides.add（指数：=我，布局：= pplayouttext SlideIndex）。
最后如果
集是= opres.slides.item（我）
对于j = 1到2）
设置垂直= oslide.shapes.item（J）
如果垂直。名称=接2
oshape.textframe.textrange.text = str6（I - 1）如果
如果垂直。名称=接3
oshape.textframe.textrange.text = str5（I - 1）
最后如果
设置垂直=没有
NextPowerPoint.ActivePresentation.Slides（我）。notespage.shapes.placeholders（2）。textframe.textrange.text = STR7（I - 1）
集是=没有
下一个
集Opres =没有
最后如果
2导入文献编辑应注意的几个问题
导入文件可以Txt和。doc文件。进口单证的制作应遵循以下规则：
1）注意设置标识符。这个宏程序使用，为每个幻灯片的内容分离，你也可以设置它自己改变代码的变量。注释标记备忘录：但分隔符和标识符必须是单行线，并设置在宏程序的分界符必须是完全一样的文件分隔符。
2）分隔符下的第一行定义为幻灯片标题，一般文本不应超过18字。
3）分隔符下面的第二行开始，直到注释标记或下一个分隔符是幻灯片呈现的内容为止。有多个条目，以回车符标记，但条目数不应超过10个。
4）注释的应用：注释标记与下一个分隔符之间的文本是注释的内容，一个优秀的PPT作品，说明的内容最好以标题方式显示，详细说明放在注释中。
5）导入文件必须以定界符结束。
3宏程序应用规则
1）设置窗口命令。如果宏程序没有导入到窗口的工具栏中，它只对带有宏程序的PPT文档有效。换句话说，如果你想申请所有ppt文件，你必须输入宏程序在微软Office PowerPoint的命令工具栏。方法是：单击菜单工具；具有；自定义命令，打开自定义对话框；；切换到命令；；选项卡，然后选择类别下面的列表框；；宏碁选项，然后在命令列表框；；会在底部我们只是增加了一个新的宏。
右键单击工具栏，然后单击自定义（C）；hellip；mdash；mdash；命令mdash；mdash；宏观mdash；在自定义窗口的右侧窗口中，找到导入；导入命令，单击并拖动；到工具栏的合适位置。每当你打开PPT文件在任何时候，你可以简单地输入工具栏的导入PPT和按钮，你可以很容易地导入编辑的文件为PPT或更新的PPT文本内容，这是非常方便和实用。
2）一般来说，PPT文档的首页是为封面设计的，也就是说，主版本的第二张幻灯片。因此，宏程序是不能导入首页的内容。如果你的PPT文档打开多个幻灯片，当导入，PPT活动页面不能首页首页，否则将被视为文档页面（是的母版页的第一张幻灯片的布局），并导入内容。
3）强烈建议您选择或设计主PPT，设置主文档页面的标题和文本框字体的内容、文本大小和颜色，然后导入文本，因为它在导入PPT后不必对文本进行调整或编辑，从而大大提高了工作效率。
4）PPT的宏安全级别需要在应用程序设置为介质或低否则宏程序将无法运行。后宏安全级别设置，微软Office PowerPoint必须重启生效。如果它被设置为中；当；PPT文件打开后，会出现一个提示窗口启用宏。
5）这个宏程序在微软Office PowerPoint 2003中调试和传递。