[分享]拖拉式完形填空

user_lgnrn

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

ej4167

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

simen54321

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

mfkifkje

回答第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

僵硬的小拇指

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

user_xwerc

我觉得这个板块是需要一个懂VBA的版主，看了不少的帖子，觉得：
chenhuafu，ngcg等都是不错的。