Word空白单元格填充——宏脚本

最新推荐文章于 2025-03-30 17:44:20 发布

贰半

最新推荐文章于 2025-03-30 17:44:20 发布

阅读量247

点赞数 1

分类专栏：文档文章标签： word 宏脚本

本文链接：https://blog.csdn.net/weixin_43880119/article/details/141333764

版权

Sub 空白单元格填充()
    Dim doc As Document
    Dim tbl As Table
    Dim cell As cell
    Dim para As Paragraph
    Dim rng As Range
    Set doc = ActiveDocument
    ' 遍历文档中的所有表格
    For Each tbl In doc.Tables
        ' 遍历表格中的所有单元格
        For Each cell In tbl.Range.Cells
            ' 遍历单元格中的每个段落
            For Each para In cell.Range.Paragraphs
                ' 创建范围以便于检查和替换文本
                Set rng = para.Range
                rng