用Chat AI回答，删除Word文档内含有固定文字的段落-外链论坛

wrjc1hod 发表于 2024-7-3 23:29:31

用Chat AI回答，删除Word文档内含有固定文字的段落

<h2 style="color: black; text-align: left; margin-bottom: 10px;">示例，每一个段落含有“阅读”两个字</h2>
<h2 style="color: black; text-align: left; margin-bottom: 10px;">需求1：删除含有固定文字的段落</h2>
Chat AI引导如下：
Word有固定一个段落含有阅读两字，有非常多个这般的段落，我必须删除含有“阅读”两字所在的段落，麻烦给我宏代码
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://pic4.zhimg.com/80/v2-5926246a08273760b82d8011bd136e5f_720w.webp" style="width: 50%; margin-bottom: 20px;"></div>
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`选取宏并运行。
这般，宏代码将会遍历文档中的每一个段落，删除包括“阅读”两字的段落。请重视，在运行宏之前，最好先备份一下你的文档，以防不小心删除了不想删除的内容。
期盼这能够帮忙到你！如有其他问题，请随时提问。
<h2 style="color: black; text-align: left; margin-bottom: 10px;">需求2：不删除段落了，改为含有固定字所在段落的字号都缩小</h2>
Chat AI引导如下：
Word有固定一个段落含有阅读两字，有非常多个这般的段落，我必须缩小含有“阅读”两字所在的段落的字号，都要比原来小2个字号，麻烦给我宏代码
<div style="color: black; text-align: left; margin-bottom: 10px;"><img src="https://pic2.zhimg.com/80/v2-b2d2451eda64f0ca68249c7d154a2701_720w.webp" style="width: 50%; margin-bottom: 20px;"></div>
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清晰得到指令就可。

wrjc1hod 发表于 2024-10-10 23:07:13

你的留言真是温暖如春，让我感受到了无尽的支持与鼓励。

7wu1wm0 发表于 2024-10-11 13:07:49

论坛的成功是建立在我们诚恳、务实、高效、创新和团结合作基础上，我们要把这种精神传递下去。

4zhvml8 发表于 6 天前

你的努力一定会被看见，相信自己，加油。

j8typz 发表于 4 天前

顶楼主，说得太好了！

4lqedz 发表于 3 天前

你的话语如春风拂面，让我心生暖意。

页: [1]

外链论坛's Archiver

用Chat AI回答，删除Word文档内含有固定文字的段落