新年新作 ppt语文课件助手

109716034

插入本地媒体好像有问题

user_uesmcuwd

与原来相比，格式被完全保留了，很好！但横线好象没有任何改进，而且插入本地媒体出了问题！
你是怎样实现格式不变的呢？是重新建的文本框还是直接复制粘连产生的文本框？最好是能贴出一点代码。

jinxun

ActiveWindow.Selection.TextRange.Copy
Set tShape = ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(msoTextOrientationHorizontal, dbLeft - 6, dbTop - 6, 100, 50)
tShape .TextFrame.TextRange.PasteSpecial (ppPasteDefault)
横线使用的是原来的shift加-所得的_ ，下次使用下划线看看是不是好看一些了。
插入本地媒体出问题了，顾此失彼呀。看来又要修改了。
再次感谢chuhaiou哥哥的好代码，解决了中英文字符串长度问题。

user_nmyyc

谢谢wjhere兄的好代码，帮解决了格式不变的大难题！！文字与下划线分离可能双比较困难吧！

qw1888

为了版本之间的兼容性，最好不要使用PasteSpecial（在2007版中会出现问题，在07版本里以默认参数粘贴得到的结果不是文本框而是图片...），使用paste方法则可以避免上述问题

kbiabtqb8

原来没有想到PasteSpecial，不知道什么，直接使用paste，在程序中设置颜色无效，才出此下策。

imissa

按照YOUXI01 兄的说法我试了一下，能成功，没有出现设置颜色无效。在03中无论是用Paste还是用PasteSpecial都没有任何影响！

suolanjia

好象YOUXI01 兄的横线不是用下划线的，也可能还是用shift加-所得的_。我想是不是他取字符串长度的方式与我们的不同啊！

myselfjo

2011.2.19
真正领会chuhaiou兄的方法，挖空填空效果达到正确的显示。
插入本地媒体功能，封装了linchangh兄提供laose兄美化的播放器

user_itknl

挖出填空还没有达到最理想的效果！试试只输入相当多个英文大写字母，横线就不够长，只输入相当多个汉字横线又太长哟。
软件完善得很不错，但有相当多的代码暴露在外，这样用DLL封装好象意义不大哟！