如何将末尾“<>“的内容移至“--”之前，谢谢

mrshz · 发表于 2019-3-30 11:17

求助各位老师，如何将末尾“<>“的内容移至“--”之前，谢谢

mrshz · 发表于 2019-3-30 11:56

通配符应该如何修改，论坛老师帮帮我

413191246se · 发表于 2019-3-30 12:40

mrshz · 发表于 2019-3-30 13:19

413191246se 发表于 2019-3-30 12:40

不过，只能替换手动换行符的情况

duquancai · 发表于 2019-3-30 14:39

本帖最后由 duquancai 于 2019-3-30 20:29 编辑

mrshz 发表于 2019-3-30 13:19
不过，只能替换手动换行符的情况

周末了！发放福利》》》》》》》》》》》》》》

Sub main()
Dim doc As Document, tb As Table, temp$
Set doc = ActiveDocument
If doc.Tables.Count = 0 Then Exit Sub
For Each tb In doc.Tables
With tb.Range.Find
Do While .Execute("--*\<*\>", , , -1)
With .Parent
If Not .InRange(tb.Range) Then Exit Do
If .Duplicate.MoveEndWhile(Chr(11) & vbCr & Chr(7)) Then
.MoveStartUntil "<": temp = .Text: .Text = Empty
.MoveUntil "-", wdBackward: .Text = temp
End If
.Start = .End
End With
Loop
End With
Next
End Sub

复制代码

mrshz · 发表于 2019-3-30 14:51

老师，能否告知下替换法的正确答案吗?

413191246se · 发表于 2019-3-30 23:25

本帖最后由 413191246se 于 2019-3-31 00:05 编辑

杜先生也出手了！——本楼解答略！因为我忽略了文字是在表格中！见下面几层楼吧！

413191246se · 发表于 2019-3-30 23:26

另外，楼主请注意：在 Word 中，可能两个“-”连字符会自动合并为一个长一点的字符，这个你注意没有？

413191246se · 发表于 2019-3-30 23:47

——楼主，SORRY，因为你的附件我下载后发现是 2007 以上格式，我是 2003 的打不开（不想在家安装兼容包），所以，在做示范文本时，表格给忘了！
——现在我重新解析了一下，发现更简单了！请按照如下方法试试：
* 打开文本，按 CTRL + A 全选（或按 CTRL + HOME 将光标移到文首），按 CTRL + H 打开替换对话框。
* 在“查找内容”框中粘贴下面的代码（复制后按 CTRL + V 粘贴）：
(--*)(\<*\>)
* 在“替换为”框中粘贴下面的代码（复制后按 CTRL + V 粘贴）：
\2\1
* 勾选“使用通配符”复选框，点击“全部替换”按钮，再按“确定”，OK！

413191246se · 发表于 2019-3-30 23:50

杜先生的代码中，其中有一句表格数=0 就退出，这句话其实是不必要的；另外，似乎杀鸡用了牛刀。
下面 VBA 一行代码即可解决问题（如果不能解决，算杜先生对！同时，需要指出的是，“<>”这对符号之间如果有“<>”中的一个或两个，下面代码要重新设计一下）：
Sub test()
ActiveDocument.Content.Find.Execute "(--*)(\<*\>)", , , 1, , , , , , "\2\1", 2
End Sub

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

[求助] 如何将末尾“<>“的内容移至“--”之前，谢谢

评分

评分

评分