以编程方式将隐藏文本插入 Word 2010 表格答案

【问题标题】：programmatically inserting hidden text into a Word 2010 table以编程方式将隐藏文本插入 Word 2010 表格
【发布时间】：2014-04-03 06:02:17
【问题描述】：

我有一个 Word 2010 表格，其中包含现有的可见文本。我想使用一些 VBA 代码在每个单元格中插入一些文本，然后隐藏新文本。我知道如何使用 VBA 将文本插入单元格，但我只是不知道如何让单元格中的现有文本可见并且只隐藏新文本。

我试过了，但效果不太好：

For Each aTable In ActiveDocument.Tables

Rows = aTable.Rows.Count 
Cols = aTable.Columns.Count 
Dim rng As Range 
For r = 1 To Rows 
For c = 1 To Cols 
cellvalue = "Cell_ID[" & r & ", " & c & "]" 
ActiveDocument.Tables(ndx).Cell(r, c).Range.InsertAfter cellvalue 
' hides all text in the cell
'ActiveDocument.Tables(ndx).Cell(r, c).Range.Font.Hidden = True  
Selection.Font.Hidden = True 
Next 
Next 
Exit For 

Next aTable

【问题讨论】：

您是否尝试过录制宏然后看看发生了什么？
是的，但没有帮助
将该文本的字体更改为white 或表格背景颜色？
Selection.Font.Hidden = 真正适合我
我试过这个，但效果不太好。对于 ActiveDocument.Tables 中的每个 aTable Rows = aTable.Rows.Count Cols = aTable.Columns.Count Dim rng As Range For r = 1 To Rows For c = 1 To Cols cellvalue = "Cell_ID[" & r & ", " & c & "]" ActiveDocument.Tables(ndx).Cell(r, c).Range.InsertAfter cellvalue 'ActiveDocument.Tables(ndx).Cell(r, c).Range.Font.Hidden = True ' 隐藏所有文本单元格 Selection.Font.Hidden = True Next Next Exit For Next aTable

标签： vba ms-office ms-word

【解决方案1】：

Sub Tester()

Dim rng As Range, aTable, nRows, nCols, r, c, cellvalue
Dim l

    For Each aTable In ActiveDocument.Tables

    nRows = aTable.Rows.Count
    nCols = aTable.Columns.Count

        For r = 1 To nRows
            For c = 1 To nCols
                cellvalue = "Cell_ID[" & r & ", " & c & "]"
                With aTable.Cell(r, c)
                    l = Len(.Range.Text)
                    .Range.InsertAfter cellvalue
                    Set rng = .Range
                    rng.MoveStart wdCharacter, l - 2
                    rng.Font.Hidden = True
                End With
            Next c
        Next

    Next aTable

End Sub

【讨论】：