R 官员 更新形状的文本

Question

我正在使用officer 为我的管理层生成每周一次的 PowerPoint 幻灯片。 他们为我提供了他们希望使用的模板。 我已经自动化了整个过程，除了一个给我带来一些困难的部分，我希望有人能提供帮助

模板中的第一张幻灯片是一张非常漂亮的封面幻灯片，但包含一个带有报告要处理的周数的文本框，例如Report Week 5。我希望每周在运行报告时更改这一点。下一次迭代将是Report Week 6。当我在 Windows 中按 ALT+F10 时，文本框的名称称为 TextField 26

我尝试了here、here 和here 的众多解决方案

我似乎无法在模板中引用幻灯片本身。我在 GITHUB 上看到了与类似问题相关的响应，其中建议删除旧形状并重新添加它。我很乐意这样做，但我再次无法引用标题幻灯片。

我非常感谢任何人对此的见解

非常感谢您的宝贵时间

Answer 1

为了结束我的评论，我编写了一个应该可以工作的函数。不幸的是，RDCOMClient 软件包确实要求您在 Windows 计算机上工作

devtools::install_github("omegahat/RDCOMClient")
library(RDCOMClient)

ReplaceTextInObject <- function(path, Find, Replace, SlideNum = NULL){
  ppApp <- COMCreate("powerpoint.application")
  #Requires absolute paths from C drive
  path <- normalizePath(c("C://Users",path), winslash = "\\")[2] 
  ppoint <- ppApp[["Presentations"]]$Open(path, WithWindow = F)
  slides <- 1:ppoint$Slides()$Count()
  #if SlideNum is NULL - loop through each slide
  if(!is.null(SlideNum)&&
     all(SlideNum%%1)==0&&
     all(SlideNum<=ppoint$Slides()$Count())){
    slides <- SlideNum
  } else{
    stop("m must be either an integer or NULL")
  } 

  for(j in slides){
    Slide <- ppoint$Slides(j)
    n <- Slide$Shapes()$Range()$Count() # Total number of shape objects on slide
    #if there are shapes with text - attempt find and replace
    if(n>0){
      for(i in 1:n){
        if(Slide$Shapes(i)$HasTextFrame()==-1&&
           Slide$Shapes(i)$TextFrame()$HasText()==-1){
             Slide$Shapes(i)$TextFrame()$TextRange()$Replace(FindWhat = Find,
                                                             ReplaceWhat = Replace)
        }
      }
    }
  }

  ppoint$Save()
  ppoint$Close()
  rm(Slide, ppoint, ppApp)
}

此函数将获取幻灯片编号，然后查看幻灯片中的所有对象。如果对象（或文档中列出的 VBA 中的形状）可以包含文本并且具有文本，那么我们尝试在该形状对象中查找和替换功能。

如果您知道确切的形状索引，那么您就不需要为循环而烦恼，但这将为您完成大部分繁重的工作。因此，如果文本字段在您的模板中确实是唯一的，那么这应该可以解决您的问题。

Answer 2

我认为您将在模板中而不是在现有幻灯片中使用此占位符会使事情更容易管理。但是，如果您使用的第一张幻灯片包含一个名为“TextField 26”的空形状的幻灯片，则官员代码将是：

library(officer)
doc <- read_pptx("update_shape_text.pptx")
doc <- ph_add_text(doc, str = "Report Week 5", ph_label = "TextField 26") 
print(doc, "result.pptx")

请注意，我无法附加 update_shape_text.pptx，因此我使用了 github 问题，以便您可以获取文件。 https://github.com/davidgohel/flextable/issues/189