como substituir a célula da tabela vazia na palavra 2007with '-'?

Question

Como substituir a célula da tabela vazia em word por '-'? Parece impossível localizar células vazias na tabela de palavras, por favor, note empty = nothing in it.

    

Answer 1

Infelizmente, o Word não possui uma maneira simples de localizar células vazias. Na verdade, você terá que fazer algum VBA.

De link , eu acho 2 métodos: 1 para substituir todas as células vazias da tabela em todas as tabelas vazias:

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

O outro método só faz a tabela atualmente selecionada:

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

Outra opção é copiar sua tabela para o Excel, usar os recursos avançados selecionados para selecionar todas as células vazias e adicionar o traço. Então você pode copiar a tabela de volta para a palavra.