感谢大神分享

我不叫冰零麦 · 发表于 2024-10-5 11:16

本帖最后由我不叫冰零麦于 2024-10-7 08:18 编辑

感谢da神分享

413191246se · 发表于 2024-10-5 13:15

* 楼主，请复制代码，粘贴到新建文档，再全选，复制，粘贴到 VBE 中，以防乱码。按 Alt + F8 找到宏：

Sub a0_M1005()
Dim i As Paragraph, n&, m&
For Each i In ActiveDocument.Paragraphs
With i.Range
If Not Asc(.Text) = 13 Then
If .Text Like "【例*" Then
n = n + 1
m = 0
.Font.ColorIndex = wdRed
Else
m = m + 1
If .Text Like "#*" Then .Characters(1).Delete
If .Text Like "#*" Then .Characters(1).Delete
If .Text Like Chr(-23634) & "*" Then .Characters(1).Delete
.InsertBefore Text:="【变式" & n & " -" & m & "】"
.Font.ColorIndex = wdBlue
End If
End If
End With
Next
End Sub

复制代码

我不叫冰零麦 · 发表于 2024-10-5 17:54

本帖最后由我不叫冰零麦于 2024-10-7 08:20 编辑

413191246se 发表于 2024-10-5 13:15
* 楼主，请复制代码，粘贴到新建文档，再全选，复制，粘贴到 VBE 中，以防乱码。按 Alt + F8 找到宏：

感谢大神回复，灰常感谢

413191246se · 发表于 2024-10-5 19:31

本帖最后由 413191246se 于 2024-10-6 00:16 编辑

* 楼主，请下载链接，然后解压文件到 D 盘根下，打开 Word，按 Alt + F11 打开 VBE，在“文件”菜单找到“导入文件”命令（或按 Ctrl + M 也可）；找到 D:\M1006.bas 文件，导入之，确定，关闭 VBE。
* 在 Word 中打开你的测试文件（试卷，敬请注意备份原文件！），然后按 Alt + F8 打开宏名列表，第一个宏名如果是 a0_M1006，只须点击右面的“运行”按钮即可。
* 请下载：

M1006.rar (922 Bytes, 下载次数: 8)

我不叫冰零麦 · 发表于 2024-10-6 21:40

413191246se 发表于 2024-10-5 19:31
* 楼主，请下载链接，然后解压文件到 D 盘根下，打开 Word，按 Alt + F11 打开 VBE，在“文件”菜单找到“ ...

非常感谢您，明天登录试一下

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

[求助] 感谢大神分享

评分

评分