新年新作 ppt语文课件助手

wjhere · 发表于 2011-2-13 12:03

原帖由 chuhaiou 于 2011-2-12 21:15 发表
Sub 选中复制粘贴到原位置()
On Error Resume Next
ActiveWindow.Selection.TextRange.Copy
ActiveWindow.Selection.Unselect
ActiveWindow.View.Paste
End Sub
你是怎样粘贴到原位置的？

不是粘贴，是重新插入一个文本框到原来位置参考 http://club.excelhome.net/viewth ... p;page=1#pid4615990

wjhere · 发表于 2011-2-14 17:16

原帖由 chuhaiou 于 2011-2-14 17:06 发表
我也跟你学着做了一个“挖词填空”

好像不是的，是直接清除文本的吧？

chuhaiou · 发表于 2011-2-15 00:39

这里还有一个人也做了一个“挖词填空”：
http://hxkl.blog.163.com/blog/static/1797471062011113112055596/
我也学着做了一个：
http://chuhaiou.blog.163.com/blog/static/8605600420111144547699/

[ 本帖最后由 chuhaiou 于 2011-2-15 19:41 编辑 ]

wjhere · 发表于 2011-2-15 10:30

原帖由 chuhaiou 于 2011-2-15 00:39 发表
效果与你的一样啊！不是直接清除文本！这里还有一个人也做了一个“挖词填空”
http://hxkl.blog.163.com/blog/static/1797471062011113112055596/

他做的这个挖词填空功能比我的好多了，呵呵，不过您的那个好像没有描述的效果，我是在工具菜单下面的清除空文本是不是我不会用？

laose · 发表于 2011-2-15 18:17

希望上源文件！

chuhaiou · 发表于 2011-2-15 19:42

都是高手啊，我的不好意思上传上来，向大家学习啊！

laose · 发表于 2011-2-16 00:27

谦虚了，况且旨在交流！

chuhaiou · 发表于 2011-2-18 18:23

存在的问题有：
1.对中英文混合内容、长文本内容“挖出填空”时那个短横线画的太长，对纯长英文大写文本横线太短，不够美观。好象只是对纯英文小写横线是最合适的。是否不应当用StrConv(“ ”, vbFromUnicode))读取中英文字符串？
2.“挖出填空”时会出现格式丢失的问题，如上、下标

[ 本帖最后由 chuhaiou 于 2011-2-18 18:32 编辑 ]

wjhere · 发表于 2011-2-18 19:19

谢谢，当时只考虑纯中文的情况。试试能否改进。如果要保留格式，用copy的方法也许可以，我用的是赋值给text属性。

wjhere · 发表于 2011-2-18 21:29

2011.2.9
改进笔顺动画插入方式，删除修复动画播放按钮（不再需要）
2011.2.18
根据论坛chuhaiou 兄建议，修正了挖出填空的效果，力求横线美观，同时使用复制方法，不丢失格式。
对文本动画功能进行一些调整。

使用某些功能需要勾选信任对 vba项目的访问，参考图片

		自动登录	找回密码
密码			免费注册

[原创] 新年新作 ppt语文课件助手

回复 57楼 wjhere 的帖子

回复 60楼 chuhaiou 的帖子

回复 45楼 laose 的帖子

回复 46楼 chuhaiou 的帖子