请求帮助，帮忙改一下VBA！！

willson_62 · 发表于 2015-6-21 15:22

下面这段脚本，是本论坛搜索出来的制作填空题的脚本，因本人不懂VBA 想请高手把这段脚本改成只对选择的段落里的下划线做填空题效果，而不是现在的对整个文档里所有的下划线内容制作填空题！

Sub AAA()
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Underline = wdUnderlineSingle
With .Replacement
.ClearFormatting
.Font.Underline = wdUnderlineSingle
.Font.UnderlineColor = wdColorBlack
.Font.Color = wdColorWhite
.Font.Spacing = 2
'.Font.Scaling = 100
.Font.Position = -1.5
'.Font.Kerning = 1
'.Collapse wdCollapseEnd
End With
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub

闻启学 · 发表于 2015-6-21 17:42

晕附件都无怎么样玩啊

413191246se · 发表于 2015-6-21 20:11

请楼主把代码中ActiveDocument.Content更换为Selection试试。

willson_62 · 发表于 2015-6-22 08:58

413191246se 发表于 2015-6-21 20:11
请楼主把代码中ActiveDocument.Content更换为Selection试试。

谢谢！可我不懂VBA

413191246se · 发表于 2015-6-22 10:47

楼主，不懂VBA就不要玩代码了，别理VBA就可以了。——不过，VBA宏可以代替人工自动化处理任务，如果想学习就学习学习，不想就算了。

willson_62 · 发表于 2015-6-22 18:15

413191246se 发表于 2015-6-22 10:47
楼主，不懂VBA就不要玩代码了，别理VBA就可以了。——不过，VBA宏可以代替人工自动化处理任务，如果想学习 ...

听这口气，好像你是VBA大佬

willson_62 · 发表于 2015-6-22 18:47

413191246se 发表于 2015-6-22 10:47
楼主，不懂VBA就不要玩代码了，别理VBA就可以了。——不过，VBA宏可以代替人工自动化处理任务，如果想学习 ...

朋友还得感谢你！
我已经用With Selection.Find做出来了，不过你说话的口气实在不好听！

413191246se · 发表于 2015-6-22 19:05

楼主，我说“请楼主把代码中ActiveDocument.Content更换为Selection试试”，但是你说你不懂VBA，我只好如实回答不懂就不要用VBA了，我觉得我是实话实说。

413191246se · 发表于 2015-6-22 19:14

楼主，要是你知道把宏代码放到哪里，怎么用，那就是懂些VBA，真正不懂VBA就是把再好的代码给他，他不知道用它来干什么，放到哪里用。

willson_62 · 发表于 2015-6-22 20:10

413191246se 发表于 2015-6-22 19:14
楼主，要是你知道把宏代码放到哪里，怎么用，那就是懂些VBA，真正不懂VBA就是把再好的代码给他，他不知道用 ...

说心里话，还得感谢你！在这个高手云集的坛子里像我这水平敢说懂吗？

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