как заменить пустую ячейку таблицы в слове 2007 с '-'?

Question

Как заменить пустую ячейку таблицы в слове на «-»? Кажется, невозможно найти пустую ячейку в таблице слов, пожалуйста, обратите внимание, пустой = ничего в нем.

Answer 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, использовать расширенные функции выбора там, чтобы выделить все пустые ячейки и добавить туда черту. Затем вы можете скопировать таблицу обратно в слово.