求教版主关于页眉页脚的问题。

cttc

版主：

       你好！

       请问如何替换页眉中的表格的第1行第2列的文字，例如从1111替换成1111：2222？

       在word中录了宏，是改变页眉中表格高度和第二列宽度，在第二列中键入“1111”的，但是改造成VB程序出错，解决不了，特向版主求教。谢谢！

   宏如下：

   If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.MoveRight Unit:=wdCharacter, Count:=10
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeText Text:="1111"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

守柔

欢迎cttc.

请参：

Sub Example()
    Dim myRange As Range
    Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range
    myRange.Text = "11111:2222"
End Sub

cttc

请教版主：

如果用的是后绑定得方法，wdHeaderFooterPrimary的取值如何处理？可以采用什么方法找出word常量名对应的数值？

我现在的环境不能识别word对象，请问有什么方法可以让VB识别？

谢谢！

守柔

QUOTE:

以下是引用cttc在2007-2-25 19:53:44的发言：

请教版主：

如果用的是后绑定得方法，wdHeaderFooterPrimary的取值如何处理？可以采用什么方法找出word常量名对应的数值？

我现在的环境不能识别word对象，请问有什么方法可以让VB识别？

谢谢！

对于后期绑定的对象，可以使用其库值而非库常数，如本例中使用“1”代替“wdHeaderFooterPrimary”

从截图中我们可以看到，wdHeaderFooterPrimary是Word库中WdHeaderFooterIndex库的成员（对象浏览器，WORD VBE中，F2），其值为1，也可以在立即窗口中，使用“?WdHeaderFooterIndex”后按下回车，得到其值。