求救！DELPHI操作PPT中文本内容的高手请进！！
Description of your first forum.
10 篇帖子 & 分页：1 / 1
由 hhgz4200 & 星期二, 日 15:23
我有多个PPT文件，要把一些文本内容需要读出来，这些文本中的内容是有标记的，如特定
词汇，用程序如何实现啊？我想是用循环，一个一个文件读出来，再把有标记的文本内容
读出来，我没有用过PPT不知道如何错作，希望大侠给出个例子！！
由 hhgz4200 & 星期三, 日 14:12
难道没人会吗，如果分少可以再加！！
由 sgaoyulong & 星期一, 日 15:28
由 仙剑奇侠 & 星期一, 日 15:31
PPT是power point吗
如果是应该不好读，除非你有它的文件格式，否则你也不知道它的文本存成了什么
由 ymjy & 星期三, 日 08:05
http://njsoft.
提问，会得到解答
由 hhgz4200 & 星期五, 日 11:00
PPT 是PowerPoint 难道真的不能实现吗？？？
由 app2001 & 星期五, 日 11:11
看看这个吧
unit Unit1;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
msppt8, OleServer, office97, StdCtrls, ComCtrls, ExtCtrls, DBCtrls,
TForm1 = class(TForm)
&Button1: TB
&Button2: TB
&Button3: TB
&PowerPointPresentation1: TPowerPointP
&PowerPointApplication1: TPowerPointA
&PowerPointSlide1: TPowerPointS
&Button4: TB
&Button5: TB
&Button6: TB
&Button7: TB
&Button8: TB
&RichEdit1: TRichE
&RichEdit2: TRichE
&Image1: TI
&Button9: TB
&procedure Button1Click(Sender: TObject);
&procedure Button2Click(Sender: TObject);
&procedure Button3Click(Sender: TObject);
&procedure Button7Click(Sender: TObject);
&procedure Button4Click(Sender: TObject);
&procedure FormCreate(Sender: TObject);
&procedure Button8Click(Sender: TObject);
&procedure Button9Click(Sender: TObject);
&{ Private declarations }
&{插入新幻灯片}
&Procedure AddSlide(BackPicFile: TFileName);
&{添加文本}
&Procedure AddText(RichEdit: TRichEdit);
&{添加图片}
&Procedure AddPicture(PicFile: TFileName);
&{得到文本}
&Procedure GetT
&{得到图片}
&Procedure GetP
&{ Public declarations }
Form1: TForm1;
implementation
{$R *.DFM}
{插入新幻灯片}
procedure TForm1.AddSlide(BackPicFile: TFileName);
With PowerPointPresentation1 do
&Slides.Add(Slides.Count + 1, 1).
&//PowerPointApplication1.ActiveWindow.View.gotoSlide(Slides.Count);
&//Slides.Add(Slides.Count + 1, 1).
&PowerPointSlide1.ConnectTo(Slides.Item(Slides.Count));
with PowerPointSlide1 do
&{Set background}
&FollowMasterBackground := 0;
&Background.Fill.Visible := msoT
&Background.Fill.ForeColor.RGB := RGB(255, 255, 255);
&Background.Fill.BackColor.SchemeColor := ppAccent1;
&Background.Fill.Transparency := 0;
&Background.Fill.UserPicture(BackPicFile);
&for i:=1 to Shapes.Count do
& &Shapes.Item(1).D
{添加文本}
procedure TForm1.AddText(RichEdit: TRichEdit);
with PowerPointSlide1 do
&//expression.AddTextbox(Orientation, Left, Top, Width, Height)
&Shapes.AddTextbox(msoTextOrientationHorizontal,100, 100, 500,
& &200).TextFrame.TextRange.Text:=RichEdit.Lines.T
&{RichEdit.SelectA
&RichEdit.CopyToC
&Shapes.Item(Shapes.Count).TextFrame.TextRange.P }
&Shapes.Item(Shapes.Count).TextFrame.TextRange.S
&With Shapes.Item(Shapes.Count).TextFrame.TextRange.Font do
& &NameAscii := 'Arial';
& &NameFarEast := '宋体';
& &NameOther := 'Arial';
& &Size := 30;
{添加图片}
procedure TForm1.AddPicture(PicFile: TFileName);
with PowerPointSlide1 do
&Shapes.AddPicture (PicFile,1, 1, 100, 100, 150, 70);
{得到文本}
procedure TForm1.GetT
with PowerPointSlide1 do
&for i:=1 to Shapes.Count do
& &if Shapes.item(i).Type_=msoTextBox &then
& & &Shapes.Item(i).TextFrame.TextRange.S
& & &Shapes.Item(i).TextFrame.TextRange.C
& & &RichEdit1.PasteFromC
{得到图片}
procedure TForm1.GetP
PptPic: TP
with PowerPointSlide1 do
& &PptPic := TPicture.C
& &for i:=1 to Shapes.Count do
& & &if Shapes.item(i).Type_&&msoTextBox &then
& & &begin
& & & &Shapes.Item(i).C
& & & &PptPic.Assign(Clipboard);
& & & &PptPic.SaveToFile('d:\dd.jpg');
& &PptPic.F
procedure TForm1.Button1Click(Sender: TObject);
& &PowerPointApplication1.C
&except on E: Exception do
& & &E.Message := 'PowerPoint does not appear to be installed';
&PowerPointApplication1.Visible := 1;
&PowerPointPresentation1.ConnectTo(PowerPointApplication1.Presentations.Add(1));
&//PowerPointApplication1.ActiveWindow.ViewType :=1;
&on E: Exception do
& & &Showmessage(E.Message);
& & &PowerPointApplication1.D
procedure TForm1.Button7Click(Sender: TObject);
with PowerPointSlide1 do
&for i:=1 to Shapes.Count do
& &//Shapes.TextEffect.Text
& &if Shapes.item(i).Type_=msoTextBox &then
& &Shapes.Item(i).
& &{Shapes.Item(i).TextFrame.TextRange.S
& &Shapes.Item(i).TextFrame.TextRange.C
& &RichEdit1.PasteFromC}
& &RichEdit1.Lines.Assign(Clipboard);
& &//RichEdit1.Lines.Add(Shapes.Item(1).TextFrame.TextRange.Text);
& &//ActiveWindow.Selection.ShapeRange.Item(1).TextEffect.Text
& & &Shapes.Item(i).C
& & &//Image1.Picture.Bitmap.;
& & &//if Clipboard.HasFormat(CF_BITMAP) then
& & &Image1.Picture.Assign(Clipboard);
& & &//PaintBox1.Assign(Clipboard);
& & &//GetP
procedure TForm1.Button4Click(Sender: TObject);
AddSlide('C:\WINNT\CIBAB.BMP');
procedure TForm1.Button2Click(Sender: TObject);
AddText(RichEdit2);
procedure TForm1.Button3Click(Sender: TObject);
AddPicture('C:\WINNT\CIBAS.BMP');
procedure TForm1.FormCreate(Sender: TObject);
//PaintBox1.
//DBImage1.CopyToClipboard
procedure TForm1.Button8Click(Sender: TObject);
procedure TForm1.Button9Click(Sender: TObject);
with PowerPointPresentation1.PageSetup do
&SlideSize := ppSlideSizeC
&SlideWidth := 680.38;
&SlideHeight := 510.25;
&FirstSlideNumber := 1;
&SlideOrientation := msoOrientationH
&NotesOrientation := msoOrientationV
&//Showmessage(Floattostr(PowerPointPresentation1.PageSetup.SlideWidth));
由 crazycock & 星期五, 日 11:29
我搜索了一下，找到一篇不错的文章，借花献佛。
见：大富翁中2491523的帖子。
unit Unit1;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
msppt8, OleServer, office97, StdCtrls, ComCtrls, ExtCtrls, DBCtrls,
TForm1 = class(TForm)
& Button1: TB
& Button2: TB
& Button3: TB
& PowerPointPresentation1: TPowerPointP
& PowerPointApplication1: TPowerPointA
& PowerPointSlide1: TPowerPointS
& Button4: TB
& Button5: TB
& Button6: TB
& Button7: TB
& Button8: TB
& RichEdit1: TRichE
& RichEdit2: TRichE
& Image1: TI
& Button9: TB
& procedure Button1Click(Sender: TObject);
& procedure Button2Click(Sender: TObject);
& procedure Button3Click(Sender: TObject);
& procedure Button7Click(Sender: TObject);
& procedure Button4Click(Sender: TObject);
& procedure FormCreate(Sender: TObject);
& procedure Button8Click(Sender: TObject);
& procedure Button9Click(Sender: TObject);
& { Private declarations }
& {插入新幻灯片}
& Procedure AddSlide(BackPicFile: TFileName);
& {添加文本}
& Procedure AddText(RichEdit: TRichEdit);
& {添加图片}
& Procedure AddPicture(PicFile: TFileName);
& {得到文本}
& Procedure GetT
& {得到图片}
& Procedure GetP
& { Public declarations }
Form1: TForm1;
implementation
{$R *.DFM}
{插入新幻灯片}
procedure TForm1.AddSlide(BackPicFile: TFileName);
With PowerPointPresentation1 do
& Slides.Add(Slides.Count + 1, 1).
& //PowerPointApplication1.ActiveWindow.View.gotoSlide(Slides.Count);
& //Slides.Add(Slides.Count + 1, 1).
& PowerPointSlide1.ConnectTo(Slides.Item(Slides.Count));
with PowerPointSlide1 do
& {Set background}
& FollowMasterBackground := 0;
& Background.Fill.Visible := msoT
& Background.Fill.ForeColor.RGB := RGB(255, 255, 255);
& Background.Fill.BackColor.SchemeColor := ppAccent1;
& Background.Fill.Transparency := 0;
& Background.Fill.UserPicture(BackPicFile);
& for i:=1 to Shapes.Count do
& & Shapes.Item(1).D
{添加文本}
procedure TForm1.AddText(RichEdit: TRichEdit);
with PowerPointSlide1 do
& //expression.AddTextbox(Orientation, Left, Top, Width, Height)
& Shapes.AddTextbox(msoTextOrientationHorizontal,100, 100, 500,
& & 200).TextFrame.TextRange.Text:=RichEdit.Lines.T
& {RichEdit.SelectA
& RichEdit.CopyToC
& Shapes.Item(Shapes.Count).TextFrame.TextRange.P }
& Shapes.Item(Shapes.Count).TextFrame.TextRange.S
& With Shapes.Item(Shapes.Count).TextFrame.TextRange.Font do
& & NameAscii := 'Arial';
& & NameFarEast := '宋体';
& & NameOther := 'Arial';
& & Size := 30;
{添加图片}
procedure TForm1.AddPicture(PicFile: TFileName);
with PowerPointSlide1 do
& Shapes.AddPicture (PicFile,1, 1, 100, 100, 150, 70);
{得到文本}
procedure TForm1.GetT
with PowerPointSlide1 do
& for i:=1 to Shapes.Count do
& & if Shapes.item(i).Type_=msoTextBox &then
& & & Shapes.Item(i).TextFrame.TextRange.S
& & & Shapes.Item(i).TextFrame.TextRange.C
& & & RichEdit1.PasteFromC
{得到图片}
procedure TForm1.GetP
PptPic: TP
with PowerPointSlide1 do
& & PptPic := TPicture.C
& & for i:=1 to Shapes.Count do
& & & if Shapes.item(i).Type_&&msoTextBox &then
& & & begin
& & & & Shapes.Item(i).C
& & & & PptPic.Assign(Clipboard);
& & & & PptPic.SaveToFile('d:\dd.jpg');
& & PptPic.F
procedure TForm1.Button1Click(Sender: TObject);
& & PowerPointApplication1.C
& except on E: Exception do
& & & E.Message := 'PowerPoint does not appear to be installed';
& PowerPointApplication1.Visible := 1;
& PowerPointPresentation1.ConnectTo(PowerPointApplication1.Presentations.Add(1));
& //PowerPointApplication1.ActiveWindow.ViewType :=1;
& on E: Exception do
& & & Showmessage(E.Message);
& & & PowerPointApplication1.D
procedure TForm1.Button7Click(Sender: TObject);
with PowerPointSlide1 do
& for i:=1 to Shapes.Count do
& & //Shapes.TextEffect.Text
& & if Shapes.item(i).Type_=msoTextBox &then
& & Shapes.Item(i).
& & {Shapes.Item(i).TextFrame.TextRange.S
& & Shapes.Item(i).TextFrame.TextRange.C
& & RichEdit1.PasteFromC}
& & RichEdit1.Lines.Assign(Clipboard);
& & //RichEdit1.Lines.Add(Shapes.Item(1).TextFrame.TextRange.Text);
& & //ActiveWindow.Selection.ShapeRange.Item(1).TextEffect.Text
& & & Shapes.Item(i).C
& & & //Image1.Picture.Bitmap.;
& & & //if Clipboard.HasFormat(CF_BITMAP) then
& & & Image1.Picture.Assign(Clipboard);
& & & //PaintBox1.Assign(Clipboard);
& & & //GetP
procedure TForm1.Button4Click(Sender: TObject);
AddSlide('C:\WINNT\CIBAB.BMP');
procedure TForm1.Button2Click(Sender: TObject);
AddText(RichEdit2);
procedure TForm1.Button3Click(Sender: TObject);
AddPicture('C:\WINNT\CIBAS.BMP');
procedure TForm1.FormCreate(Sender: TObject);
//PaintBox1.
//DBImage1.CopyToClipboard
procedure TForm1.Button8Click(Sender: TObject);
procedure TForm1.Button9Click(Sender: TObject);
with PowerPointPresentation1.PageSetup do
& SlideSize := ppSlideSizeC
& SlideWidth := 680.38;
& SlideHeight := 510.25;
& FirstSlideNumber := 1;
& SlideOrientation := msoOrientationH
& NotesOrientation := msoOrientationV
& //Showmessage(Floattostr(PowerPointPresentation1.PageSetup.SlideWidth));
由 crazycock & 星期五, 日 11:30
晕。晚一步
由 hhgz4200 & 星期一, 日 11:33
app2001 crazycock 提供的例子我看过，但不能满足我的要求，我的PPT 是多页的，我只要提取指定文字的部分，其他的我不需要，就如 if text = '##'一样，如果满足则提取出来。
10 篇帖子 & 分页：1 / 1当下软件园 / 汇聚当下最新最酷的软件下载站！
热门搜索：
您的位置：
> 优美英文文字PPT模板 免费版
优美英文文字PPT模板 免费版 / 优美英文文字PPT模板
网友评分：0分
　　优美英文文字PPT模板很适合设计该ppt作为参考。在英语中，有着很多很美很动听的句子，在某个不经意的时候，就会让我们怦然心动，喜欢的话可以感受下！
优美英文文字PPT模板使用说明：
　　1、首先用户一定要解压文件；
　　2、打开ppt；
　　3、即可浏览到需要的界面！
软件特别说明
〖新华字典词典〗软件是一个精巧、全面、新颖的桌面资料工具。软件收集了中国所有的国标汉字，所有的规范成语，全面收集，权威、科学。
现代汉语词典 软件是一个精巧、全面、新颖的文科工具。软件收集了新华词典、现代汉语词典的所有的词语。词语不断新增添加，与时代同步。资料浩瀚，数据量大，全面收集
普通话学习软件可以练习语音会话普通话学习，软件终身免费版，学习普通话就用speaktoviki！让您普通话说得更自信！更标准！更清晰！表达更自然！本产品适用于，普通话学习、教学，和参加普通话等级测试的***.
彩虹试卷生成器是一款方便易用的试卷生成软件。他可以帮助教师在试题库的基础上自动按要求生成试卷，还支持对试卷进行分析。软件适合小学至高中，乃至大学试卷出题工作。在新的版本中修复了在生成试卷时的试题重复问题，和选择题型时的右键错误，增加了更新模块和邮件发送工具，以及查看题库中的一些问题。
名字作诗软件是一款以姓名为主题做成一首名字藏头诗软件,界面简洁,体积小巧,使用简单,选择送谁,然后点击生成,就有一首以名字为首字的诗.
其他版本下载
优美英文文字PPT模板 免费版
Copyright (C)
.All rights reserved.