如何用 '-' 替换 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。