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

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

visant

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

阅读量2.5k

点赞数 3

分类专栏： Office办公软件文章标签： VBA

本文链接：https://blog.csdn.net/visant/article/details/102726925

版权

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

2 篇文章

订阅专栏

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

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