将PPT中所有文本框里的文字提取出来（5篇）

第一篇：将PPT中所有文本框里的文字提取出来

将PPT中所有文本框里的文字提取出来

打开PPT，按ALT+F11打开VBA编辑器，在左面的工程视图里点击右键，选择插入->模块，添加一个模块，名字都不用改。

然后点击顶部的“工具”菜单，选择引用，找“Microsoft Word X.0 Object Library”（其中X与你的OFFICE版本有关），钩上，点确定

将下列代码贴到刚建立的模块里，按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

复制以上代码后，f5，就会打开一个word，另存为即可。

第二篇：Excel提取文件夹中的所有文件名称

Excel提取文件夹中的所有文件名称

1.Excel提取文件夹中的所有文件名称

1、在那个文件夹内新建一个.TXT文件（如wenjian.txt），用记事本单开输入 dir> 1.txt 保存退出

将刚才的.TXT（wenjian.txt）更名为.bat文件（wenjian.bat）双击wenjian.bat文件运行一次，在文件夹内多出一个1.txt文件

打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！

2、VBA（2003版）

在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码 Sub Test()Dim i As Integer Dim strPath As String strPath = ThisWorkbook.Path With Application.FileSearch

.LookIn = strPath

.SearchSubFolders = True

.Filename = “*.*”

If.Execute > 0 Then

For i = 1 To.FoundFiles.Count

Range(“A” & i)=.FoundFiles(i)

Next i

End If End With End Sub 回到Excel表格中，工具——宏——宏——选择Sheet1.Test——执行 看看效果吧！

2.Excel单元格中显示该文件夹内的文件数量或名称 假设这个文件夹是

D:fda

1、插入]-[名称]-[定义]，或按CTRL+F3，打开excel→名称管理器→定义一个名称→比如：aaa 引用位置输入：=FILES(“d:fda*.*”)&T(NOW())1

2、然后在任一工作表某一单元格输入：=COUNTA(aaa)则返回文件个数。

3、如果在任一工作表某一单元格输入： =if(row(a1)>counta(aaa),“",index(aaa,row(a1)))

4、再下拉公式进行填充，则依序填充文件名。

3.Excel一列中输入文件名，另一列自动生成指定文件夹同名文件超链接

A列为输入文件名，B列返回超链接

B1中输入：=HYPERLINK(”D:FDA“&A1,A1)其中”d:fda“为指定文件夹路径。4.Excel中怎么把行转换成列

复制需转换的单元格行，选择性粘勾选“转置”。

在页面投置工作表选项中勾选单色打印，可以不打印底纹图案。

5.Excel高亮显示光标所在行或列？

在Excel中选择菜单“格式——条件格式”命令，弹出“条件格式”对话框。

在“条件”下拉框中选择“公式”并在右侧中输入下面相应的公式，然后点击“格式”按钮，设置相应的格式，完成后，按“确定”按钮。不过当前单元格编辑过才行，按过回车。

高亮单元格：

条件格式：=CELL(”address“)=ADDRESS(ROW(),COLUMN())高亮行

条件格式：=ROW()=CELL(”row“)或者：

=CELL(”row“)=ROW()高亮行和列

条件格式：=(row()=cell(”row“))+(column()=cell(”col“))高亮当前单元格为止的相应行和列，呈反L形

条件格式：=OR(AND(CELL(”row“)=ROW(),CELL(”col“)+1>COLUMN()),AND(CELL(”col“)=COLUMN(),CELL(”row“)+1>ROW()))高亮当前单元格为止的相应行和列，呈反L形，且当前单元格背景色改变、字体加粗：

条件格式：=CELL(”address“)=ADDRESS(ROW(),COLUMN())”“=OR(AND(CELL(”row“)=ROW(),CELL(”col“)+1>COLUMN()),AND(CELL(”col“)=COLUMN(),CELL(”row“)+1>ROW()))

6.Excel单元格中插入页码方法（以Excel 2003版本为基础，下文中所有“填写”后跟的内容不包括内容最外侧的全角引号）

一、定义引用项（以下定义方法通过单击菜单“插入/名称/定义”弹出定义对话框操作）

1、定义“页码”：“名称”中填写“页码”，“引用位置”中填写“=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GE T.DOCUMENT(64),1)+1)”

2、定义“总页数”：“名称”中填写“总页数”，“引用位置”中填写“=GET.DOCUMENT(50)+RAND()*0”。

3、定义“”：”：“名称”中填写“”，“引用位置”中填写“=”数&“ 页””。

二、单元格插入页码

1、插入法：指定单元格，单击菜单“插入/名称/粘贴”，根据需要的格式选择即可。

2、输入法：指定单元格，在上部输入区输入等号加上面定义的名称，如“=”就是本例提问的格式。

三、深入探讨

通过分析上述“定义引用项”内容，您会发现，其实只需要定义“页码”和“总页数”就可以了。需要使用的时候，可直接指定单元格，输入上述“引用内容”的内容就可达成格式化页码的需要。如本例提问要求的格式化日期，可直接指定单元格后输入“=“数&” 页“”就OK了。

7.Excel隔行变色的方法 条件格式公式说明：

=MOD(ROW(),2)=0，实现的效果是偶数行自动填充底纹颜色 =MOD(ROW(),2)=1，实现的效果是奇数行自动填充底纹颜色

如果需要奇偶行都设置颜色，只需要设定两个条件即条件1和条件2 同样的方法，可以实现excel隔列变色，只需将公式中的row变为COLUMN 就可以了，即：=MOD(COLUMN(),2)=0 8.Excel字符替代函数

=replace(目前的文本，想从第几个数字开始改，共需要改几个字，用什么改）=substitute(目前的文本，需要替换的文本，新的文本（替换后））9.Excel单元格的相对引用和绝对引用 相对引用：a1=a2+a3 绝对引用：a1=a$2+$a$3 绝对引用：a1=$a2+$a$3 10.Excel公式插入回车符并显示出来自动换行

在公式中加”&CHAR(10)&”，同时要将单元格设置为自动换行。11.Excel自动换行函数

Char(10)

^p

12.Excel单元格不显示0和错误#/0的公式

=IF(or(公式=0,ISERROR(公式)),”“,公式)=IF(or(公式=0,ISERROR(公式)),”“,公式)=IF(or(公式=0,ISERROR(公式)),”“,公式)

ISNA函数用于测试数值类型，如果测试值为错误值#N/A，则返回TRUE，否则返回FALSE。

13.Excel单元格日期格式转换成文本格式

如“2008年7月18日”或“2008-7-18”的日期格式转换成“20080718”的8位文本格式。

公式“=text(A2,”yyyymmdd“)”（注：如果日期中还包含时、分、秒，则公式可改成“=text(A2,”yyyymmddhhmmss“)”。其中的文本格式可以按自己的要求灵活运用，如“yymmdd h:m:s”表示只要年份的后两位、时间中用冒号将时分秒隔开并且不满两位时前面不加“0”。14.Excel函数公式返回行号、列号

返回行号：=row()返回列号：=column()15.Excel页脚 底端标题行设置

选择页脚区域，按住Shift键，编辑—复制图片，再把图片插入到自定义页脚里（2003版可以，2000没有这个功能）。

16.Excel录制宏执行宏

简单的方法：自己可练习创建一个“宏”，（就是录下自已需要做的操作步骤）方法：点击——工具——宏——录制新宏——弹出窗口——确认宏名称——这时就会弹出一个录像框，你就可以一步一步点击你要做的操作，按下“停止”，就结束了宏录制！

你再进入工具——宏——选择刚录下的宏名称——点击“编辑”——这里面就是你要的宏代码了，自已可以研究了！

如下面就是一个宏，执行后会自己打开：工作表3 代码是：

Sub 按钮1_单击()Sheet(Sheet3)End Sub 17.Excel打开工作薄时自动执行宏 先录制宏，再宏名字改成 sub auto_open 就变成自动了

18.Excel击活工作表时自动执行宏

Sub Macro适合行高()

………..宏名 ' ZYC录制 时间: 2014-9-23

………….注释行 ' Private Sub worksheet_activate()Cells(1, 1)= Now()Rows(”3:3“).Select Rows(”3:3“).EntireRow.AutoFit End Sub 先打开对应工作表，操作alt+F11，在视图中选正代码窗口，然后复制粘贴上面代码。

19.Excel击活工作表6-10行自动执行最适合的行高，然后选正单元格A6的宏？

Private Sub worksheet_activate()

Rows(”6:10“).Select

Rows(”6:10“).EntireRow.AutoFit Range(”A6").Select End Sub 20.Excel隐藏单元格中的数据

有时候，我们可能不希望别人看到Excel某些单元格或者区域中的数据内容，可以选定这些单元格内容，然后按下“Ctrl+1”组合键，在弹出的“单元格格式”对话框中，单击“数字”选项卡，然后选择“自定义”分类，在其中的“类型”文本框中输入半角符号“;;;”即可，这样即便是修改字体颜色也无法显示隐藏的内容了。

21.Excel统计空白单元格、数字单元格、数字及非空单元格数量

=countBlank(A1:A100)'统计空白单元格数量 =count(A1:A100)

'统计数字单元格个数

=counta(A1:A100)

'统计数字及非空单元格个数

=countif(A1:A100,A1)

'条件统计 统计区域中A1同值的个数

第三篇：从PPT中提取的广告策划文本

一、广告策划书写作的一般格式 • 封面

• 广告策划小组成员名单 • 目录 • 正文 • 附件 • 封底

二、广告策划书正文内容 •

一、营销环境分析

1、企业市场营销环境中宏观的制约因素。

2、企业市场营销环境中微观的制约因素。

3、市场概况。

4、营销环境分析总结。•

二、消费者分析

1、消费者的总体消费态势。•

2、现有消费者分析。•

3、潜在消费者分析。•

4、消费者分析总结。

三、产品分析

1、产品特征分析。

2、产品生命周期分析。•

3、产品的品牌形象分析。•

4、产品定位分析。•

5、产品分析的总结。

四、企业和竞争对手的竞争状况分析

1、企业在竞争中的地位。•

2、企业的竞争对手。

3、企业和竞争对手的比较。

五、企业和竞争对手的广告分析

1、企业和竞争对手以往的广告活动的• • • • • • •

概况。

2、企业和竞争对手以往广告的目标市场策略。

3、企业和竞争对手的产品定位策略。

4、企业和竞争对手以往的广告诉求策略。

5、企业和竞争对手以往的广告表现策略。

6、企业和竞争对手以往的广告媒介策略。

7、广告效果。

8、总结。

第二部分：广告策略

一、广告的目标 •

1、企业提出的目标。

2、根据市场情况可以达到的目标。•

3、对广告目标的表述。•

二、目标市场策略

1、企业原有市场观点的分析与评估。•

2、市场细分。

3、企业的目标市场策略。•

三、产品定位策略

1、对企业以往的定位策略的分析与评估。

2、产品定位策略。

四、广告诉求策略 •

1、广告的诉求对象。•

2、广告的诉求重点。•

3、诉求方法策略。•

五、广告表现策略 •

1、广告主题策略。•

2、广告创意策略。

3、广告表现的其它内容。•

六、广告媒介策略

1、对媒介策略的总体表述。•

2、媒介的地域。•

3、媒介的类型。•

4、媒介的选择。•

5、媒介组合策略。•

6、广告发布时机策略。•

7、广告发布频率策略。

第三部分：广告计划

一、广告目标 •

二、广告时间

1、在各目标市场的开始时间。•

2、广告活动结束时间。•

3、广告活动的持续时间。•

三、广告的目标市场 •

1、广告的主题 •

2、广告的创意

3、各媒介的广告表现 •

4、各媒介广告的规格 •

5、各媒介广告的制作要求 •

1、广告发布的媒介 •

2、各媒介的广告规格 •

3、广告媒介的排期表 •

八、其它活动计划 •

1、促销活动计划 •

2、公关活动计划 •

3、其它活动计划

九、广告费用预算 •

1、广告策划创意费用 •

2、广告设计费用 •

3、广告制作费用 •

4、广告媒介费用

5、其它活动所需费用 •

6、机动费用 •

7、费用总和 • 第四部分：广告活动的效果预测和监控

一、广告效果的预测 •

1、广告主题测试 •

2、广告创意测试 •

3、广告文案测试 •

4、广告作品测试 •

二、广告效果的监控 •

1、广告媒介发布的监控 •

2、广告效果的测定

• 2004年初,中山市名人通信集团决定进军陕西手机市场.• 2004年3月12日,名人西北市场总经理和育诚广告首度接触,并就名人手机陕西市场开拓进行了交流,随后成立了项目小组,掌握部分资料后开始讨论。

• 2004年3月15日,名人手机陕西市场推广方案浮出水面

迅速拓展陕西市场 完成预定销售目标

••••• 电梯广告费用：约5万元

电台广告费用：约6万元

活动宣传费用：路演单场1。5万元/会议支持略

DM制作费用： 3万元

户外媒体费用：白马候车厅7.36万元/30个14天+20万元 • 电视广告费用：略 • 费用总计： 预计40多万元

本次提案旨在展现育诚的推广思路，具体的策略执行文本、终端销售管理，和创作表现在随后的执行案中提供。

第四篇：快速导出提取PPT中的音乐、视频及媒体文件

很多好的可以自动播放的PPT文件都有背景音乐，而设计精良的此类PPT背景音乐和内容都搭配的天衣无缝。然而这些背景音乐一般都是纯音乐，当我们制作类似风格的PPT，想用相同的音乐，是否苦于无法搜索到这个音乐，因为我们压根不知道它的名称。下面让主页君教你如何提取PPT中的音乐文件。

因对PPT2003，PPT2007，PPT2010版本打开文件的提取方式有区别，下面逐一介绍。

在PPT2003和PPT2007中提取方法：

①打开相应PPT文件；

②单击“文件”——“另存为”，另存为网页html文件格式；

③在保存地址里，有一个和原PPT文件名一样的文件夹，原PPT里包含的所有多媒体文件都在里面。然后剪切复制到你的收藏夹里吧。

PPT2010中提取方法：

①右击相应PPT文件（以文件“简历动画,pptx”为例），单击“添加到“简历动画.rar“(T)”；

②打开压缩后的压缩文件；

③单击“简历动画.pptx”，再单击“查看”选项；

④出现另一个框，双击打开名为“ppt”的文件夹；

⑤在出现的框中，单击名为”media"的文件夹；

⑥又出现下一子框，里面饱含了该PPT文件所有的多媒体文件，单击你想要的文件，按住不放，直接拖到桌面就可以了。其中音乐文件名为“media”。

第五篇：提取PPT中漂亮背景图片的三种方法

提取PPT中漂亮背景图片的三种方法

提取 在自己制作PPT课件过程中，经常需要用到一些比较好的背景图片，作为教师有必要随 时储备一些精美的图片素材备用。网络中图片虽然很多，但是要找到适合做课件背景的却不 容易，一种可行的办法就是从现成PPT课件里提取背景，那么如何提取呢？下面介绍三种可 行的方法，与大家共享。

第一种： 最简单省事，就是直接提取人家PPT课件中的背景。1.启动PowerPoint，打开相应的演示文稿文档。2.在非文本框和组合内容外的空白处，单击右键选择“保存背景”，选择适当保存位置 和对应背景图片名称，即完成背景图片的保存。说明：此方法对有些PPT文件是不适用的，在非文本框和组合内容外的空白处，单击右 键时不出现“保存背景”命令。

第二种: 制作者需要将某个Powerpoint演示文稿中的图片单独提取出来，只要将其另存为网页 格式即可。1.启动PowerPoint，打开相应的演示文稿文档。2.执行“文件→另存为网页”命令，打开“另存为网页”对话框。3.将“保存类型”设置为“网页（*.htm*.html），然后取名（如tp）保存返回。” 4.我们在上述网页文件保存的文件夹中，会找到一个名为“tp.files”的文件夹，PPT 文件 所用的所有图片都是单独保存了文件夹中，包括背景图片。

第三种: 1.先打开课件，找到你喜欢那张背景的幻灯片，然后把它上面的所有文本框等删去，再 按幻灯片放映，放到那张背景时，按CTRL+PRINT SCREEN（全屏截取）。2.找开“画图”（开始---附件）或者其它图片处理程序，按CTRL+V（粘贴）调出截图，另存为JPEG或GIF文件（记住位置）。3.打开新的幻灯片，右键单击空白处---背景---填充效果---图片---选择图片（找到刚刚保 存的那张图片）---确定---应用。