如何通过查找、替换的方式将两个选择后面的内容进行调换？

mmcha2002 · 发表于 2019-5-31 14:06

413191246se · 发表于 2019-6-3 16:08

楼主，我觉得像这种 ABCD几种选项互换的情况，用 VBA 纯属大材小用，不如手工；另外，一般选项也没有必要互换吧，固定顺序即可（要想互换，得手工键入 6 组小括号，想想这样做麻烦不麻烦呢？）。

小花鹿 · 发表于 2019-6-3 18:01

以前见过一个帖子，随机调整答案，一时找不到了
一个问题，如果写代码解决的时间超过手工解决的时间，就没必要了

413191246se · 发表于 2019-6-3 23:56

小花鹿老师：随机调整答案选项是杜老师写的代码。有时杜老师写的代码太高级，根本看不懂。

413191246se · 发表于 2019-6-4 21:16

Sub test选项互换()
Dim i$
With ActiveDocument
.Content.InsertAfter Text:=vbCr
.Select
End With
CommandBars.FindControl(ID:=122).Execute
CommandBars.FindControl(ID:=123).Execute
With Selection
.HomeKey Unit:=wdStory
Do
If .Paragraphs(1).Range Like "A.*" Then
.Expand 4
If MsgBox("是否处理本段？", 4 + 48) = vbNo Then GoTo sk
sp:
i = MsgBox("<是>：[A-B] <否>：[A-C] <取消>：[B-C]", 3 + 48, "请选择互换内容！")
If i = vbYes Then
.Find.Execute "(<A.)(*)([ 　^s^t]{1,})(B.)(*)([ 　^s^t]{1,})", , , 1, , , , , , "\1\5\3\4\2\6", 1
ElseIf i = vbNo Then
.Find.Execute "(<A.)(*)([ 　^s^t]{1,}*)(C.)(*)(^13)", , , 1, , , , , , "\1\5\3\4\2\6", 1
Else
.Find.Execute "(<A.*)(B.)(*)([ 　^s^t]{1,})(C.)(*)(^13)", , , 1, , , , , , "\1\2\6\4\5\3\7", 1
End If
.Expand 4
If MsgBox("<是>：下一段 <否>：本段", 4 + 48, "处理段落") = vbYes Then GoTo sk Else GoTo sp
Else
sk:
.Move 4
End If
If .Paragraphs(1).Range.End = ActiveDocument.Content.End Then Exit Do
Loop
End With
ActiveDocument.Paragraphs.Last.Range.Delete
End Sub

复制代码

mmcha2002 · 发表于 2019-6-6 11:02

413191246se 发表于 2019-6-4 21:16

您好，非常感谢您的回复。这个代码非常符合预期，只是，如果选项有A.B.C.D.四个或A.B.C.D.E.五个的话，不知道分别该怎样修改代码呢？

mmcha2002 · 发表于 2019-6-6 11:02

小花鹿发表于 2019-6-3 18:01
以前见过一个帖子，随机调整答案，一时找不到了
一个问题，如果写代码解决的时间超过手工解决的时间，就没 ...

谢谢您的关注！

413191246se · 发表于 2019-6-7 00:40

楼主，你好！代码仅对于 3 个选项有效，因为信息框 Msgbox 函数通常情况下只有 3 个可用按钮；如果有 4 个或 5 个甚至更多选项要处理的话，就需要自定义窗体了，但那样做的话，比较占用内存。还有，你确实需要经常反复调整答案选项吗？

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

[求助] 如何通过查找、替换的方式将两个选择后面的内容进行调换？