[求助]页眉页脚中的表格怎么控制

qq6r

我想用vba修改页眉表格中的内容，但是不起作用代码如下 Private Sub Document_Open() Application.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Range.Tables.Item(1).Cell(1, 1).Range.Text = "123" End Sub 请问该如何修改该？

konggs

Private Sub Document_Open()
Dim a As Range
Set a = Application.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Selection.Tables.Add a, 5, 3

End Sub

qq6r

请问这个跟我那个有什么关系？

konggs

没明白你想实现什么？

[此贴子已经被作者于2006-3-28 16:58:24编辑过]

konggs

以下是引用[I]qq6r[/I]在2006-3-28 15:04:15的发言：

请问这个跟我那个有什么关系？

Private Sub 查在() Dim a As Range, b As Table Set a = Application.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range Set b = a.Tables(1) With b .Cell(Row:=1, Column:=1).Range.Text = "1" End With End Sub

[此贴子已经被作者于2006-3-28 17:03:03编辑过]

Rolubic

konggs 发表于 2006-3-28 16:56
Private Sub 查在()
Dim a As Range, b As Table
Set a = Application.ActiveDocument.Sections(1).Hea ...

请问，如果是统计页眉字数应该怎样改写呢？