[求助]word中怎么对表进行控制啊？

comper

我想通过控件来实现word中表的显示和隐藏，可以做吗？请大虾指教！[em04][em04] oY8296ZY.rar (12.19 KB, 下载次数: 7)

2007-1-22 11:50 上传

点击文件名下载附件
[求助]word中怎么对表进行控制啊？

[此贴子已经被作者于2007-1-22 11:50:22编辑过]

守柔

QUOTE:

以下是引用comper在2007-1-22 11:48:07的发言：
我想通过控件来实现word中表的显示和隐藏，可以做吗？请大虾指教！

参：

Private Sub CommandButton1_Click()
    If Me.CommandButton1.Caption = "Show" Then
        Me.CommandButton1.Caption = "Hide"
        Me.InlineShapes(3).Range.Cells(1).Tables(1).Range.Font.Hidden = False
    Else
        Me.CommandButton1.Caption = "Show"
        Me.InlineShapes(3).Range.Cells(1).Tables(1).Range.Font.Hidden = True
    End If
End Sub

Private Sub Document_Open()
    ActiveDocument.ActiveWindow.View.ShowAll = False
    ActiveDocument.ActiveWindow.View.ShowHiddenText = False
    Me.CommandButton1.Caption = "Show"
    Me.InlineShapes(3).Range.Cells(1).Tables(1).Range.Font.Hidden = True
End Sub

Ew35pZDh.zip (14.89 KB, 下载次数: 8)

2007-1-22 12:12 上传

点击文件名下载附件
[求助]word中怎么对表进行控制啊？

comper

多谢多谢！！！[em04][em04]问题解决！

问题是解决了，不过有个地方还搞的不是太清楚

“me.InlineShapes(3).Range.Cells(1).Tables(1).Range.Font.Hidden = True”

这句话其中lnlineShapes我查了很久 但是还是不知道是怎么控制那张表的，能不能就这句话请斑竹详细说明吓，不胜感激！！

[em45]

[此贴子已经被作者于2007-1-23 11:00:00编辑过]