none
如何用vba修改word页眉中的文本框内容? RRS feed

  • 问题

  • 在网上找的,有人给了这么个东西,说能解决
    Sub TexBox()
      Dim iShape As Shape
      For Each iShape In ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
        If iShape.Type = msoTextBox Then
          iShape.TextFrame.TextRange = "这是页眉的文本框!"
          '把这里的文本换成存储 userform.textbox 数据的变量即可
        Exit Sub
        End If
      Next
    End Sub

    因为以前程序是其他语言(powerbuilder)编程,我试着改为

    ole_word.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.TextFrame.TextRange = "这是页眉的文本框!" ,运行报错
    请问wdHeaderFooterPrimary常量的具体数值是什么?还有这语句是不是能修改页眉文本框呢?

    2011年7月3日 5:35

答案

全部回复