![如何用“-”替换word 2007中的空表格单元格?](https://linux22.com/image/1421093/%E5%A6%82%E4%BD%95%E7%94%A8%E2%80%9C-%E2%80%9D%E6%9B%BF%E6%8D%A2word%202007%E4%B8%AD%E7%9A%84%E7%A9%BA%E8%A1%A8%E6%A0%BC%E5%8D%95%E5%85%83%E6%A0%BC%EF%BC%9F.png)
如何用 '-' 替换 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。