VBA程序在Word文档中将表格中空白单元格填充为“无”

VBA代码填充Word表格空白单元格

最新推荐文章于 2023-04-26 14:43:29 发布

原创最新推荐文章于 2023-04-26 14:43:29 发布 · 2.5k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#VBA

Office办公软件专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一段VBA代码，用于在Word文档中的表格填充所有空白单元格，包括针对整个文档和单个表格的解决方案。代码能够设置字体、大小、对齐方式，并在空白单元格中填入无字样。

打开宏编辑器功能，输入以下代码，然后编译执行。

Sub 填充文档中所有空白单元格()
 Dim oCell As Cell
 For i=1 To ActiveDocument.Tables.Count
 For Each oCell In ActiveDocument.Tables(i).Range.Cells
  If oCell.Range.Text = Chr(13) & Chr(7) Then
    With oCell.Range.Font
        .NameFarEast = "宋体"
        .NameAscii = "宋体"
        .NameOther = "宋体"
        .Size = 12
         oCell.Range.Text = "无"
         oCell.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
         oCell.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    End With
    End If
 Next
 Next
End Sub

如果仅对单个表格进行空白单元格填充，使用以下vba代码

Sub 单个表格填充空白单元格()
 Dim oCell As Cell
 For Each oCell In Selection.Tables(1).Range.Cells
  If oCell.Range.Text = Chr(13) & Chr(7) Then
    With oCell.Range.Font
        .NameFarEast = "宋体"
        .NameAscii = "宋体"
        .NameOther = "宋体"
        .Size = 12
         oCell.Range.Text = "无"
         oCell.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
         oCell.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter 
    End With
    End If
 Next
End Sub