使用 OfficeR 在第 1 页（首页）之后使用页眉答案

【问题标题】：Using header after page 1 (frontpage) using OfficeR使用 OfficeR 在第 1 页（首页）之后使用页眉
【发布时间】：2020-12-29 10:59:30
【问题描述】：

我按照此答案中的步骤合并了两个文档 Writing word documents with the officer package: How to combine several rdocx objects?

但是一个文档是首页，而另一个文档有标题。问题是当我加入他们时，头版也有标题。

如何在将页眉与首页分开的同时加入或合并两个文档？

#creating the front page. 
#summarized version since it will have added features
my_doc_frontpage <- read_docx()
    
my_doc_frontpage <- my_doc_frontpage %>%
      body_add_img(src = "logo.png", width = 1, height = 0.8, style = "centered") 
print(my_doc_frontpage,"frontpage.docx")

#reading the file containing some headers. 
#summarized version since it will have added features
my_doc <- read_docx("base.docx")

my_doc <-   body_add_docx(my_doc,"frontpage.docx")
    
print(my_doc,"combined.docx")

但是combined.docx 文件的首页修改了标题

【问题讨论】：

我遇到了类似的问题。看着这个，我认为这可能是一个错误。
@Sven 我想我找到了解决方案。我定义了一个有两个页面的模板，但不同的部分（“与以前不同”）。例如，在首页的标题中写有“frontcode”，在下一个中写有“heatherline1”。然后使用 headers_replace_text_at_bkm 清理前端代码并将所需的石南花设置在 heatherline1。
对不起，我的意思是 headers_replace_all_text 而不是 bkm 的文本，最后一个没有用

标签： r docx officer

【解决方案1】：

所以，过了一段时间，我找到了解决这个问题的方法。

定义一个 template.docx，有两个页面页面（每个页面都有不同的部分）
在每页的页眉上写一个关键字“front1”和“page1”，例如
在您的代码中使用“headers_replace_all_text”

my_doc <- read_docx("template.docx")
my_doc <- my_doc %>% headers_replace_all_text("front1"," ") #blank since it's frontpage
my_doc <- my_doc %>% headers_replace_all_text("page1","Document") #new header

就是这样

【讨论】：