word vba 替换 页眉页脚？

matrixx

有没有可用的 word vba

将文档A的 页眉页脚 去替换  文档B的  页眉页脚？

zldccmx

1. Sub Test()
   
2.     Windows("A").Activate
   
3.     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
   
4.         ActiveWindow.Panes(2).Close
   
5.     End If
   
6.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   
7.     Selection.WholeStory
   
8.     Selection.Copy
   
9.     Windows("B").Activate
   
10.     WordBasic.RemoveFooter
    
11.     WordBasic.GoToFooter
    
12.     Selection.Paste
    
13.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
14. End Sub
    

复制代码

zldccmx

wdpfox

去试一下，谢谢分享！


★★★★★
★★ 【我们老是感到缺乏什么东西而不满足，是因为我们对已经得到的东西缺少感激之情。】 ★★　
★★★★★

dongdonggege

zldccmx 发表于 2023-3-22 15:47

我感觉你的程序中第10行，第11行怎么不能运行呢？我是2003，没有这样的语句吗？网络搜索不了。
第10行是不是清除页脚，第11行移动到页脚上？
如果是Word2003，程序怎么写？谢谢。

dongdonggege

zldccmx 发表于 2023-3-22 15:47

找到方法了

1. Sub test()
   
2.     Windows("A").Activate
   
3.     If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
   
4.         ActiveWindow.Panes(2).Close
   
5.     End If
   
6.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader 'wdSeekCurrentPageHeader,wdSeekCurrentPageFooter
   
7.     Selection.WholeStory
   
8.     Selection.Copy
   
9.     Windows("B").Activate
   
10.     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    
11.     Selection.Paste
    
12.     ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
13. End Sub

复制代码

不知对否，帮忙看看，谢谢。

batmanbbs

dongdonggege 发表于 2023-5-23 08:37
我感觉你的程序中第10行，第11行怎么不能运行呢？我是2003，没有这样的语句吗？网络搜索不了。
第10行是 ...

10和11句之前加上 Application. 或者 Word. 即可，或者改成 第6句的样式

PS：代码本身可能也有点问题，楼主要求的A的眉脚替换B的眉脚，代码好像是将A的页眉替换到B的页脚，可能是笔误

batmanbbs

dongdonggege 发表于 2023-5-23 08:50
找到方法了

不知对否，帮忙看看，谢谢。

个人觉得有点小毛病，相关操作是在光标位置粘贴，并没有删除页眉原来内容。可以使用 selection.wholestory 选中全部内容覆盖粘贴。你可以自己操作一下试试看。

dongdonggege

batmanbbs 发表于 2023-5-23 10:03
10和11句之前加上 Application. 或者 Word. 即可，或者改成 第6句的样式

PS：代码本身可能也有点问题 ...

你说的这种方法在2003不能运行，用我6楼的程序能达到。