您的位置：程序门 -> vb -> vba



如何在 visual basic 6.0中 操作word 文档  页眉 和页脚?


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


如何在 visual basic 6.0中 操作word 文档 页眉 和页脚?
发表于：2008-01-04 11:40:29 楼主
如何在   visual   basic   6.0中   操作word   文档     页眉   和页脚?
比如要   完成对页眉   和页脚的拷贝,粘贴,删除,替换?
发表于：2008-01-04 14:42:041楼 得分:0
在vba中   ,试验成功的代码如下:
sub   macro1（)
            dim   mydoc   as   document   '     定义文档对象          
              set   myheader   =   selection.sections（1).headers（1).range   '定义页眉
              set   myfooter   =   selection.sections（1).footers（1).range   '定义页脚
             
              myheader.copy     '拷贝页眉
           
              set   mydoc   =   documents.add   '新建文档（注意：同时当前激活的文档为新文档)
              with   activedocument   '对激活的文件进行操作   首先对页眉操作
              '打开页眉页脚
                      .activewindow.view.seekview   =   9     '页眉
                      with   application.windows（mydoc).selection
                              .paste
                              '粘贴其中内容'并删除最后一个段落标记
                              .paragraphs（.paragraphs.count).range.delete
                      end   with
       
                      '关闭页眉页脚
                      .activewindow.view.seekview   =   0
                      .activewindow.view.type   =   3
              end   with
             
              thisdocument.activate   '使thisdocument文档变为激活文档


              myfooter.copy   '拷贝页脚

              mydoc.activate   '使mydoc文档变为激活文档
             
              with   activedocument
              '打开页眉页脚
                      .activewindow.view.seekview   =   10     '页脚
                      with   application.windows（mydoc).selection
                              .paste
                              '粘贴其中内容'并删除最后一个段落标记
                              .paragraphs（.paragraphs.count).range.delete
                      end   with
       
                      '关闭页眉页脚
                      .activewindow.view.seekview   =   0
                    .activewindow.view.type   =   3
              end   with
end   sub

问题是如何转换为vb代码

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击