如何用EXCEL VBA编辑WORD页眉页脚？

学员lsy

要求：1、用excel vba 编制代码，用excel（页眉页脚源）中A2单元格文字，作为附注WORD文档的“页眉”；
          2、用excel vba 编制代码，为附注WORD文档插入页码，页码起始页为第16页。
       请教育老师们如何编制代码？谢谢！

小小鸟前滚翻

搞错了吧，应该用word VBA，虽然都是VBA,但对象、语法还是有区别的

学员lsy

小小鸟前滚翻 发表于 2019-4-4 23:57
搞错了吧，应该用word VBA，虽然都是VBA,但对象、语法还是有区别的

是的，用word VBA 的确能做到，但不便于批量处理，我有一个excel表格列示了不同公司名称，希望能生成以不同公司作为页眉的WORD文件，如果能EXCEL VBA操作则是十分方便的，谢谢你！

182197315

可以实现，等晚点有空

chxw68

以前自己编写的代码中的一段，就是用EXCEL VBA来写WORD页眉的。

1.       .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
2.       With .Selection
   
3.         .ParagraphFormat.Alignment = wdAlignParagraphLeft
   
4.         .Range.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
   
5.         With .Font
   
6.           .Name = "宋体"
   
7.           .Size = 10
   
8.         End With
   
9.         .Text = "学号：_____  姓名：__________" & Space(10) & jcbb & jccs & Space(2) & "总"
   
10.         .EndKey wdLine
    
11.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
12.         .TypeText Text:="numpages"
    
13.         .Fields.ToggleShowCodes
    
14.         .EndKey wdLine
    
15.         .TypeText Text:="页，第"
    
16.         .Fields.Add Range:=.Range, Type:=wdFieldEmpty, PreserveFormatting:=False
    
17.         .TypeText Text:="page"
    
18.         .Fields.ToggleShowCodes
    
19.         .EndKey wdLine
    
20.         .TypeText Text:="页"
    
21.         .HomeKey wdLine
    
22.         .EndKey 5, 1
    
23.         .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
24.       End With
    
25.       .ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    

复制代码

学员lsy

chxw68 发表于 2019-4-5 09:08
以前自己编写的代码中的一段，就是用EXCEL VBA来写WORD页眉的。

谢谢你，我试一下！

学员lsy

chxw68  大侠，我的EXCEL VBA水平太烂，调试了一天也没调好，老是提示错误，实在弄不了，烦请大侠帮我看下！

chxw68

修改好了。

学员lsy

chxw68 发表于 2019-4-6 09:21
修改好了。

感谢 chxw68 老师指导，非常好用，再次感谢你！

jiangxiaoyun

学员lsy 发表于 2019-4-5 07:59
是的，用word VBA 的确能做到，但不便于批量处理，我有一个excel表格列示了不同公司名称，希望能生成以不 ...

在word中引用excel数据（将数据放到数组），就可以批量处理的，excel只是个数据源。