• 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏吧

从模板复制/粘贴标题

word-vba 来源:rajb 4次浏览

我有一个模板,它有一个包含图片标题的页面。我想将这些图像复制到我的ActiveDocument。我正在使用下面的代码:从模板复制/粘贴标题

Set doc = ActiveDocument 
strTemplate = "C:\Users\rajtilak\Desktop\Report.dotx" 
Set docTemplate = Documents.Open(strTemplate) 
Set hdr1 = docTemplate.Sections(1).headers(wdHeaderFooterPrimary) 
Set hdr2 = doc.Sections(3).headers(wdHeaderFooterPrimary) 

hdr1.Range.Copy 
hdr2.Range.PasteAndFormat wdFormatOriginalFormatting 
docTemplate.Close False 

这工作正常,但它不是从模板的第1部分,但第5部分复制标题。有没有其他方法使用VBA从Word文件中复制标题?


===========解决方案如下:

感谢卡齐米日Jawor,我得到的代码工作。以下是更新后的代码:

Dim docTemplate As Document 
Dim strTemplate As String 
Dim hdr1 As headerfooter 
Dim hdr2 As headerfooter 
Dim doc As Document 

Set doc = ActiveDocument 
strTemplate = "C:\Users\rajtilak\Desktop\Report.dotx" 
Set docTemplate = Documents.Open(strTemplate) 
Set hdr1 = docTemplate.Sections(1).headers(wdHeaderFooterFirstPage) 
Set hdr2 = doc.Sections(3).headers(wdHeaderFooterPrimary) 
hdr1.Range.Copy 
hdr2.Range.Paste 
docTemplate.Close False 

版权声明:本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系管理员进行删除。
喜欢 (0)