user_lgnrn 发表于 2016-4-12 15:56:12

怎么会呢。点一下候选词，然后拖到空格，再点下鼠标。

ej4167 发表于 2016-4-12 16:17:13

能够测试，但还有一个问题，就是可以在同一个空里面填入所有词，而填入后就消失了，不能拖回来。

simen54321 发表于 2016-4-12 16:22:17

这里的版主真是不称职啊，这样的帖子不加精，却加了些其他帖子。

mfkifkje 发表于 2016-4-12 16:28:30

回答第13楼的提问。这是特意安排。
在 EndMoveShape() 中添加带*的两个指令，就能实现您想要的效果。
*If Asc(.Shapes("TBox" & i).TextFrame.TextRange.Text) > 0 Then
    .Shapes("TBox" & i).TextFrame.TextRange.Text = DragShp.TextFrame.TextRange.Text
    .Shapes("TBox" & i).TextFrame.TextRange.Font.Name = tFont
    Drop = True
    DragShp.Cut
*End If

僵硬的小拇指 发表于 2016-4-12 16:56:53

真正的好帖子，再学一遍。

user_xwerc 发表于 2016-4-12 17:03:24

我觉得这个板块是需要一个懂VBA的版主，看了不少的帖子，觉得：
chenhuafu，ngcg等都是不错的。
页: 1 [2]
查看完整版本: [分享]拖拉式完形填空