吾爱破解 - 52pojie.cn

 找回密码
 注册[Register]

QQ登录

只需一步,快速开始

查看: 346|回复: 3
收起左侧

[经验求助] 关于word表格中的换行符搜索

[复制链接]
netforyou 发表于 2024-6-13 17:06
25吾爱币
word表格中文档末尾两个换行符怎么搜索,文档中搜索^p^p或者通配符^13^13可以搜到,但表格中试过不行,只有超过三个空行时,可以搜索到,两个搜索不到,有没有其他方法可以实现,用宏命令也可以

最佳答案

查看完整内容

楼主确实可以通过宏命令来实现这个功能。你可以试试下面这个VBA宏,可以帮助你找到并处理表格末尾的两个换行符。 1. 打开Word文档。 2. 按 `Alt + F11` 打开VBA编辑器。 3. 插入一个新模块 (`Insert > Module`)。 4. 将以下代码复制并粘贴到模块中: Sub FindDoubleParagraphMarksInTables() Dim tbl As Table Dim rng As Range Dim cell As Cell ' 遍历文档中的每一个表格 For Each tbl In A ...

发帖前要善用论坛搜索功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。

niluelf 发表于 2024-6-13 17:06
楼主确实可以通过宏命令来实现这个功能。你可以试试下面这个VBA宏,可以帮助你找到并处理表格末尾的两个换行符。

1. 打开Word文档。
2. 按 `Alt + F11` 打开VBA编辑器。
3. 插入一个新模块 (`Insert > Module`)。
4. 将以下代码复制并粘贴到模块中:

Sub FindDoubleParagraphMarksInTables()
    Dim tbl As Table
    Dim rng As Range
    Dim cell As Cell

    ' 遍历文档中的每一个表格
    For Each tbl In ActiveDocument.Tables
        ' 遍历表格中的每一个单元格
        For Each cell In tbl.Range.Cells
            Set rng = cell.Range
            ' 如果单元格文本包含两个连续的段落标记
            If InStr(rng.Text, vbCr & vbCr) > 0 Then
                ' 选中该单元格并高亮显示
                rng.Select
                MsgBox "Found double paragraph marks in a table cell!"
                Exit Sub
            End If
        Next cell
    Next tbl

    MsgBox "Search complete."
End Sub

5. 关闭VBA编辑器。
6. 在Word中按 `Alt + F8` 打开宏对话框,选择刚刚创建的宏 `FindDoubleParagraphMarksInTables`,然后点击“运行”。

运行之后这个宏会遍历文档中的所有表格,并在找到包含两个连续段落标记的单元格时弹出一个消息框并选中该单元格。这样你就能手动查看和处理这些段落标记。亲测能找到~
帅帅糖爸 发表于 2024-6-13 17:21
pxhzai 发表于 2024-6-13 18:14
我都是笨办法,用一个换行符换成一个繁体字,然后,3或者2个连续的繁体字替换成无,最后一个繁体字在换成换行符。
您需要登录后才可以回帖 登录 | 注册[Register]

本版积分规则

返回列表

RSS订阅|小黑屋|处罚记录|联系我们|吾爱破解 - LCG - LSG ( 京ICP备16042023号 | 京公网安备 11010502030087号 )

GMT+8, 2024-12-15 06:32

Powered by Discuz!

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表