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

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

17
задан hui wang
04.12.2022 3:58 Количество просмотров материала 2360
Распечатать страницу

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-код ]

Ваш ответ

Опубликуйте как Гость или авторизуйтесь

Имя
Вверх