vba开发ppt程序问题
我的目标要得到ppt中所有的文字，输出到一个word文档中。
我写了一个vba for ppt小程序实现这个目标。
现在的问题是：
我用ActiveWindow.Selection.TextRange这句话得到所有的文字，并且看到字数是4171，用ActiveWindow.Selection.TextRange.length来计算字数。
可是输出到word中，字数只有900个，少了很多，
我不知道哪里出问题了。
谢谢
问题点数：0、回复次数：7Top
1 楼btut2004（养鱼炒股）回复于 2004-07-14 13:58:06 得分 0
你输出的word的语句。Top
2 楼vansoft（Vansoft Workroom）回复于 2004-07-15 08:29:33 得分 0
不能这么做，
我给同事写过这样的程序。
循环所有的幻灯片，
取每张幻灯片上所有的文字。
MSN：van_flf@hotmail.com
QQ:5507350Top
3 楼cherubql（狂人）回复于 2004-07-16 17:36:53 得分 0
Private Sub Command1_Click()
Dim myppt As PowerPoint.Application
Set myppt = New PowerPoint.Application
Slidescount = myppt.Presentations(1).Slides.Count
For i = 1 To Slidescount
TextRange_Count = myppt.Presentations(1).Slides(i).Shapes.Count
For j = 1 To TextRange_Count
If myppt.Presentations(1).Slides(i).Shapes(j).Type = msoTextBox Then
my_GetText = myppt.Presentations(1).Slides(i).Shapes(j).TextFrame.TextRange.Text
End If
Next
Next
Print my_GetTextTop
4 楼cherubql（狂人）回复于 2004-07-16 17:37:58 得分 0
忘记说了，没有调试过，你自己试试看吧Top
5 楼cyh1898（编程无边，回头无岸……）回复于 2004-07-19 21:18:22 得分 0
你在哪里找到这方面的资料啊，我也想学习Top
6 楼cherubql（狂人）回复于 2004-07-20 11:22:26 得分 0
你安装office的时候，完全安装，装上VBA的帮助就可以了
Top
7 楼cyh1898（编程无边，回头无岸……）回复于 2004-07-21 14:29:18 得分 0
看帮助看不懂啊，想要一些这方面的实例。
在PPT界面上放一个Label1控件，当鼠标按下并移动时，怎样写代码使Label1控件跟着鼠标移动？
Top
