Как заменить пустую ячейку таблицы в word на' -'? Кажется, что в таблице word невозможно найти пустую ячейку , обратите внимание, что empty=nothing в ней.
как заменить пустую ячейку таблицы в word 2007 символом' -'?
17
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.
1
отвечен Nzall 2022-12-05 11:46
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]