如何将docx转换为PDF？

Question

我想问是否可以使用 R 将文本文件（如 word 文档或文本文档）转换为 PDF ？ 我想过将其转换为 .rmd，然后使用此代码转换为 PDF

require(rmarkdown)
my_text <- readLines("C:/.../track.txt")
cat(my_text, sep="  \n", file = "my_text.Rmd")
render("my_text.Rmd", pdf_document())

但显示此错误不起作用：

> Error: Failed to compile my_text.tex.
In addition: Warning message:
running command '"pdflatex" -halt-on-error -interaction=batchmode "my_text.tex"' had status 127 

还有其他解决办法吗？

Answer 1

.docx 到 .pdf 与 libreoffice

根据JeanVuda 的建议here，您还可以使用 libreoffice 将 .docx 转换为 .pdf，前提是您已在计算机上安装了 libreoffice。

以下代码使用 libreoffice 将 .docx 文件转换为 .pdf：

docfile <- "X:/path_to_your_docx/yourdocxfile.docx" 
# Indicate the correct path for the .docx file you want to convert

system(paste("X:/path_to_libreoffice/program/soffice.exe --headless --convert-to pdf", docfile), intern = TRUE)
# Indicate the correct path where libreoffice executable is located on your machine,
# convert .docx to .pdf with libreoffice.

关于 libreoffice 的反馈：

1. 如果我的 pandoc 版本无法将 .docx 转换为 .pdf 并且 RDCOMClient 不适用于我的 R 版本，libreoffice 提供了一种快速直接的方法来转换多种格式的 word 文档。

2. 请注意，对于 .pdf 转换，表格在 .pdf 中无法正确呈现（但以横向模式打印），我能找到的最直接的方法是在图像中转换我的表格在使用 kableExtra::as_image() 编织 word 文档的过程中，这可能不适合您的需要。

3. 以前有关于命令行转换为其他格式here的问题，我猜在ReporteR讨论中为用户介绍这种方法的原始答案是that one。

最好的问候

Answer 2

我绝对无法让 Pandoc 方法为我工作。

不过，我确实找到了一种使用 RDCOMClient 将 docx 转换为 PDF 的方法。

library(RDCOMClient)

file <- "C:/path/to your/doc.docx"

wordApp <- COMCreate("Word.Application")  # create COM object
wordApp[["Visible"]] <- TRUE #opens a Word application instance visibly
wordApp[["Documents"]]$Add() #adds new blank docx in your application
wordApp[["Documents"]]$Open(Filename=file) #opens your docx in wordApp

#THIS IS THE MAGIC    
wordApp[["ActiveDocument"]]$SaveAs("C:/path/to your/new.pdf", 
FileFormat=17) #FileFormat=17 saves as .PDF

wordApp$Quit() #quit wordApp

我在这里找到了 FileFormat=17 位 https://docs.microsoft.com/en-us/office/vba/api/word.wdexportformat

希望这会有所帮助！

Answer 3

.txt 转 .pdf

安装 wkhtmltopdf 然后从 R 运行以下命令。根据wkhtmltopdf 在系统中的位置以及输入和输出文件路径和名称，适当更改前三行。

wkhtmltopdf <- "C:\\Program Files\\wkhtmltopdf\\bin\\wkhtmltopdf.exe"
input <- "in.txt"
output <- "out.pdf"
cmd <- sprintf('"%s" "%s" -o "%s"', wkhtmltopdf, input, output)
shell(cmd)

.docx 转 .pdf

安装pandoc，根据需要修改下面的前三行并运行。效果如何取决于您的输入。

pandoc <- "C:\\Program Files (x86)\\Pandoc\\pandoc.exe"
input <- "in.docx"
output <- "out.pdf"
cmd <- sprintf('"%s" "%s" -o "%s"', pandoc, input, output)
shell(cmd)