如何用“-”替换word 2007中的空表格单元格?

如何用“-”替换word 2007中的空表格单元格?

如何用 '-' 替换 word 中的空表格单元格?似乎无法在 word 表格中找到空单元格,请注意其中的 empty=nothing。

答案1

不幸的是,Word 没有简单的方法来查找空单元格。事实上,你必须使用一些 VBA。

http://word.tips.net/T010772_Placing_Text_in_Empty_Table_Cells.html,我找到了 2 种方法:1 替换所有空表中的所有空表格单元格:

Sub ProcCells1()
    Dim tTable As Table
    Dim cCell As Cell
    Dim sTemp As String

    sTemp = "-"

    For Each tTable In ActiveDocument.Range.Tables
        For Each cCell In tTable.Range.Cells
            'An apparently empty cell contains an end of cell marker
            If Len(cCell.Range.Text) < 3 Then
                cCell.Range = sTemp
            End If
        Next
    Next
    Set oCell = Nothing
    Set tTable = Nothing
End Sub

另一种方法仅对当前选定的表执行:

Sub ProcCells2()
    Dim tTable As Table
    Dim cCell As Cell
    Dim sTemp As String

    sTemp = "-"

    If Selection.Information(wdWithInTable) Then
        Set tTable = Selection.Tables(1)
        For Each cCell In tTable.Range.Cells
            'An apparently empty cell contains an end of cell marker
            If Len(cCell.Range.Text) < 3 Then
                cCell.Range = sTemp
            End If
        Next
    End If
    Set oCell = Nothing
    Set tTable = Nothing
End Sub

另一个选项是将表格复制到 Excel,使用那里的高级选择功能选择所有空单元格并在那里添加破折号。然后您可以将表格复制回 Word。

相关内容