R RDCOMClient 在 Word 文档中查找和替换

Question

我正在尝试自动执行替换 Word 报告模板中某些值的过程。我想找到一个替换某些值，下面是一些我试过但不起作用的代码

library(RDCOMClient)
wordApp <- COMCreate("Word.Application")

wordApp[["Visible"]] <- TRUE

newfile <- "~/test_updated_Test.docx"

doc <- wordApp[["Documents"]]$Open(normalizePath(newfile))

print(doc$range()$text())

[1] "Test 123 test\r"

# this does not work
x <- wordApp$ActiveDocument()$Content()

x$Find("Test 123 test",  "test7")

<checkErrorInfo> 80020003 
No support for InterfaceSupportsErrorInfo
checkErrorInfo -2147352573
Error: Member not found.

# this does not work either 
wordApp$ActiveDocument()$Content()$Find("Test 123 test",  "test7")
<checkErrorInfo> 80020003 
No support for InterfaceSupportsErrorInfo
checkErrorInfo -2147352573
Error: Member not found.

Answer 1

我找到了以下解决方案：

library(RDCOMClient)
library(DescTools)

move_To_Beginning_Doc <- function(doc_Selection)
{
  doc_Selection$HomeKey(Unit = wdConst$wdStory)
}

wordApp <- COMCreate("Word.Application")
wordApp[["Visible"]] <- TRUE
path_Original_Docx <- "C:/Users/xxx/original_document.docx"
path_Modified_Docx <- "C:/Users/xxx/modified_document.docx"
doc <- wordApp[["Documents"]]$Open(normalizePath(path_Original_Docx))
doc_Selection <- wordApp$Selection()
move_To_Beginning_Doc(doc_Selection)

# Replace = 2, Replace all occurrences.
# Replace = 0, Replace no occurrences.
# Replace = 1, Replace the first occurrence encountered.
# See https://docs.microsoft.com/en-us/office/vba/api/word.find.execute for the parameters of "Execute"
doc_Selection$Find()$Execute(FindText = "Apple",
                             Replace = 2,
                             ReplaceWith = "DiscountMod")

doc$SaveAs(path_Modified_Docx)
wordApp$quit()

R RDCOMClient 在 Word 文档中查找和替换

R RDCOMClient find and replace in Word Doc

replace

r

find

rdcomclient