示例，每一个段落含有“阅读”两个字
需求1：删除含有固定文字的段落
Chat AI引导如下：
Word有固定一个段落含有阅读两字，有非常多个这般的段落，我必须删除含有“阅读”两字所在的段落，麻烦给我宏代码
AI回答如下：
当然能够！以下是一个能够删除包括“阅读”两字所在段落的Word宏代码：
```vba
Sub 删除含有阅读两字的段落()
Dim rng As Range
Dim para As Paragraph
设置要查询的重要词
Dim keyword As String
keyword = "阅读"
从开头起始查询每一个段落
For Each para In ActiveDocument.Paragraphs
Set rng = para.Range
查询段落中是不是含有重要词
If InStr(1, rng.Text, keyword, vbTextCompare) > 0 Then
删除包括重要词的段落
rng.Delete
End If
Next para
End Sub
```
要运用这个宏代码，请根据以下过程操作：
1. 打开你想要删除包括“阅读”两字段落的Word文档。
2. 按下`Alt` + `F11`，打开Visual Basic for Applications（VBA）编辑器。
3. 在左侧的项目资源管理器窗格中，找到你的文档名叫作，并双击打开它。
4. 在打开的模块中，粘贴以上宏代码。
5. 按下`F5`运行宏代码，或关闭VBA编辑器并在Word界面中运用快捷键`Alt` + `F8`选取宏并运行。
这般，宏代码将会遍历文档中的每一个段落，删除包括“阅读”两字的段落。请重视，在运行宏之前，最好先备份一下你的文档，以防不小心删除了不想删除的内容。
期盼这能够帮忙到你！如有其他问题，请随时提问。
需求2：不删除段落了，改为含有固定字所在段落的字号都缩小
Chat AI引导如下：
Word有固定一个段落含有阅读两字，有非常多个这般的段落，我必须缩小含有“阅读”两字所在的段落的字号，都要比原来小2个字号，麻烦给我宏代码
AI回答如下：
当然能够！以下是一个能够缩小包括“阅读”两字所在段落字号的Word宏代码：
```vba
Sub 缩小含有阅读两字的段落字号()
Dim rng As Range
Dim para As Paragraph
设置要查询的重要词
Dim keyword As String
keyword = "阅读"
从开头起始查询每一个段落
For Each para In ActiveDocument.Paragraphs
Set rng = para.Range
查询段落中是不是含有重要词
If InStr(1, rng.Text, keyword, vbTextCompare) > 0 Then
缩小段落字号
rng.Font.Size = rng.Font.Size - 2
End If
Next para
End Sub
```
要运用这个宏代码，请根据以下过程操作：
1. 打开你想要缩小包括“阅读”两字段落字号的Word文档。
2. 按下`Alt` + `F11`，打开Visual Basic for Applications（VBA）编辑器。
3. 在左侧的项目资源管理器窗格中，找到你的文档名叫作，并双击打开它。
4. 在打开的模块中，粘贴以上宏代码。
5. 按下`F5`运行宏代码，或关闭VBA编辑器并在Word界面中运用快捷键`Alt` + `F8`选取宏并运行。
这般，宏代码将会遍历文档中的每一个段落，倘若段落中包括“阅读”两字，则将该段落的字号缩小2个字号。请重视，在运行宏之前，最好先备份一下你的文档，以防不小心修改了不想修改的内容。
期盼这能够帮忙到你！如有其他问题，请随时提问。
最后说下
需求引导比较要紧，能够让AI清晰得到指令就可。
| 
发表于 2024-7-3 23:29:31
楼主