不装任何额外软件如何手撸一个批量转pdf的程序？ (转载)

水木社区手机版

主题:不装任何额外软件如何手撸一个批量转pdf的程序？ (转载)
楼主|AaYaYa|2024-12-12 16:54:35|只看此ID
【以下文字转载自 OfficeSoft 讨论区】
发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
标题: 不装任何额外软件如何手撸一个批量转pdf的程序？
发信站: 水木社区 (Thu Dec 12 16:54:15 2024), 站内

一个Windows7操作系统的电脑，装了MS Office和Adobe Pdf reader，别的什么都没有安装了，也不让安装，电脑里面很多很多的docx文件，我想要不安装任何其它软件的情况下，自己写bat脚本或者MS powershell或者vbs或者什么脚本程序，实现对指定路径下的所有docx文件遍历批量转换为pdf文件，怎么做呢？这个问题我已经问过了ChatGPT和某款国产AI了，
它们给出的程序代码都是不能自动批量转换，都是转换时弹窗让我手动选择保存文件名和路径，一旦需要一个一个转换人工交互了，那就慢下来了没什么意义，我就只是需要在docx原始的路径下面直接存放转换出来的pdf文件，但是AI给我的代码都不行，那么我的需求到底能不能通过写代码实现呢？再强调一下，除了MS Office和Adobe Reader之外什么软件都不让再安装了
--
FROM 223.104.40.*
1楼|xuanqing|2024-12-12 20:20:25|只看此ID
关键是你现在能不能手动把一个doc转成pdf啊
如果可以那就有大量的方法可以用
如果不行, 没装pdf打印机之类的那就是没方法

【在 AaYaYa 的大作中提到: 】
: 【以下文字转载自 OfficeSoft 讨论区】
: 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: 标题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: ...................
--
FROM 123.123.193.*
2楼|dmyk|2024-12-12 20:26:09|只看此ID
没有pdfmaker当然办不到啊
adobe reader只能读。不能生成

【在 AaYaYa 的大作中提到: 】
: 【以下文字转载自 OfficeSoft 讨论区】
: 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: 标题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: ...................
--
FROM 210.72.33.*
3楼|wuduan|2024-12-12 20:37:30|只看此ID
用vba很简单
csdn网址/pijianzhirui/article/details/78668695
【在 AaYaYa 的大作中提到: 】
: 标题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: 发信站: 水木社区 (Thu Dec 12 16:54:35 2024), 站内
:
: 【以下文字转载自 OfficeSoft 讨论区】
: 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: 标题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: 发信站: 水木社区 (Thu Dec 12 16:54:15 2024), 站内
:
:
: 一个Windows7操作系统的电脑，装了MS Office和Adobe Pdf reader，别的什么都没有安装了，也不让安装，电脑里面很多很多的docx文件，我想要不安装任何其它软件的情况下，自己写bat脚本或者MS powershell或者vbs或者什么脚本程序，实现对指定路径下的所有docx文件遍历批量转换
: 猵df文件，怎么做呢？这个问题我已经问过了ChatGPT和某款国产AI了，
: 它们给出的程序代码都是不能自动批量转换，都是转换时弹窗让我手动选择保存文件名和路径，一旦需要一个一个转换人工交互了，那就慢下来了没什么意义，我就只是需要在docx原始的路径下面直接存放转换出来的pdf文件，但是AI给我的代码都不行，那么我的需求到底能不能通过写代码
: 实现呢？再强调一下，除了MS Office和Adobe Reader之外什么软件都不让再安装了
:
: --
: 报告版主！以下是我的签名档，不是广告，请不要封我
: 只见两个眼睛肿的桃儿一般，满面泪光，不是黛玉，却是那个？宝玉还欲看时，怎奈下半截疼痛难忍，支持不住，便“嗳哟”一声，仍就倒下，叹了一声，说道：
: “你又做什么跑来！虽说太阳落下去，那地上的余热未散，走两趟又要受了暑。我虽然捱了打，并不觉疼痛。我这个样儿，只装出来哄他们，好在外头布散与老爷听，其实是假的。你不可认真。”
: 此时林黛玉虽不是嚎啕大哭，然越是这等无声之泣，气噎喉堵，更觉得利害。听了宝玉这番话，心中虽然有万句言词，只是不能说得，半日，方抽抽噎噎的说道：
: “你从此可都回贴了罢！”
: 欢迎访问我在二站的个人版：P.AaYaYa※ 来源:·水木社区 http://newsmth.net·[FROM: 59.64.150.*]
:
:
: ※ 来源:·水木社区 mysmth.net·[FROM: 223.104.40.*]
--
FROM 36.48.127.*
4楼|callmebbser|2024-12-12 21:08:52|只看此ID
Create a global macro in Word 2013:

' The Word macro for exporting to PDF (the Word window closes after finishin
g)

Sub ExportToPDFext()

    ChangeFileOpenDirectory ThisDocument.Path

    ActiveDocument.ExportAsFixedFormat _

        OutputFileName:=Left(ActiveDocument.FullName, InStrRev(ActiveDocumen
t.FullName, ".")) + "pdf", _

        ExportFormat:=wdExportFormatPDF, _

        OpenAfterExport:=False, _

        OptimizeFor:=wdExportOptimizeForPrint, _

        Range:=wdExportAllDocument, _

        From:=1, _

        To:=1, _

        Item:=wdExportDocumentContent, _

        IncludeDocProps:=True, _

        KeepIRM:=True, _

        CreateBookmarks:=wdExportCreateNoBookmarks, _

        DocStructureTags:=True, _

        BitmapMissingFonts:=True, _

        UseISO19005_1:=False

    Application.Quit SaveChanges:=wdDoNotSaveChanges

End Sub

After that you can convert a Word document to PDF in command line:

"C:\Program Files\Microsoft Office\Office15\WINWORD.EXE" /mExportToPDFext /q
"your_document_path.docx"

【在 AaYaYa 的大作中提到: 】
: 【以下文字转载自 OfficeSoft 讨论区】
: 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: 标  题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: ...................
--
FROM 103.121.208.*
5楼|callmebbser|2024-12-12 21:11:06|只看此ID
Bing搜索“word2013 command line save as pdf”
第一条，Super User那条就是。
亲测可行。

【在 callmebbser 的大作中提到: 】
: Create a global macro in Word 2013:
: ' The Word macro for exporting to PDF (the Word window closes after finishin
: g)
: ...................
--
FROM 103.121.208.*
6楼|gamecmd|2024-12-13 10:58:55|只看此ID
膜拜各位大佬，起初我以为这是一个无聊且无用的话题，现在看来是我太天真拿衣服了
【在 AaYaYa 的大作中提到: 】
: 【以下文字转载自 OfficeSoft 讨论区】
: 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: 标题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: ...................
--来自微微水木3.5.15
--
FROM 112.80.12.*
7楼|AaYaYa|2024-12-13 11:15:50|只看此ID
这个内容已经没了

【在 wuduan 的大作中提到: 】
: 标  题: Re: 不装任何额外软件如何手撸一个批量转pdf的程序？ (转载)
: 发信站: 水木社区 (Thu Dec 12 20:37:59 2024), 站内
:
: 用vba很简单
: csdn网址/pijianzhirui/article/details/78668695
: 【在 AaYaYa 的大作中提到: 】
: : 标  题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: : 发信站: 水木社区 (Thu Dec 12 16:54:35 2024), 站内
: :
: : 【以下文字转载自 OfficeSoft 讨论区】
: : 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: : 标  题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: : 发信站: 水木社区 (Thu Dec 12 16:54:15 2024), 站内
: :
: :
: : 一个Windows7操作系统的电脑，装了MS Office和Adobe Pdf reader，别的什么都没有安装了，也不让安装，电脑里面很多很多的docx文件，我想要不安装任何其它软件的情况下，自己写bat脚本或者MS powershell或者vbs或者什么脚本程序，实现对指定路径下的所有docx文件遍历批量转
: 晃
: : 猵df文件，怎么做呢？这个问题我已经问过了ChatGPT和某款国产AI了，
: : 它们给出的程序代码都是不能自动批量转换，都是转换时弹窗让我手动选择保存文件名和路径，一旦需要一个一个转换人工交互了，那就慢下来了没什么意义，我就只是需要在docx原始的路径下面直接存放转换出来的pdf文件，但是AI给我的代码都不行，那么我的需求到底能不能通过写代
: 码
: : 实现呢？再强调一下，除了MS Office和Adobe Reader之外什么软件都不让再安装了
: :
: : --
: : 报告版主！以下是我的签名档，不是广告，请不要封我
: : 只见两个眼睛肿的桃儿一般，满面泪光，不是黛玉，却是那个？宝玉还欲看时，怎奈下半截疼痛难忍，支持不住，便“嗳哟”一声，仍就倒下，叹了一声，说道：
: : “你又做什么跑来！虽说太阳落下去，那地上的余热未散，走两趟又要受了暑。我虽然捱了打，并不觉疼痛。我这个样儿，只装出来哄他们，好在外头布散与老爷听，其实是假的。你不可认真。”
: : 此时林黛玉虽不是嚎啕大哭，然越是这等无声之泣，气噎喉堵，更觉得利害。听了宝玉这番话，心中虽然有万句言词，只是不能说得，半日，方抽抽噎噎的说道：
: : “你从此可都回贴了罢！”
: : 欢迎访问我在二站的个人版：P.AaYaYa※ 来源:·水木社区 http://newsmth.net·[FROM: 59.64.150.*]
: :
: :
: : ※ 来源:·水木社区 mysmth.net·[FROM: 223.104.40.*]
:
: --
: CTerm有个黑名单功能，有些素质很差的人的帖子会自动跳过
: 宇宙浩渺，时空无限，人类算什么，不过都是蚂蚁、尘埃罢了
: 死亡是唯一一座永远亮着的灯塔，不管你向哪里航行，最终都得转向它指引的方向。一切都会逝去，只有死神永生。
: 你的青春会过去，永不再回来
: 万事は夢
: 唯一不可阻挡的是时间，它像一把利刃，无声地切开了坚硬和柔软的一切，恒定地向前推进着，没有任何东西能够使它的行进出现丝毫颠簸，它却改变着一切。
:
:
: ※ 来源:·水木社区 mysmth.net·[FROM: 36.48.127.*]
--
FROM 64.176.50.*
8楼|AaYaYa|2024-12-13 11:19:15|只看此ID
是这个吗？
Windows 7 batch command-line to save as .pdf file for word 2013 .docx file

【在 callmebbser 的大作中提到: 】
: 标题: Re: 不装任何额外软件如何手撸一个批量转pdf的程序？ (转载)
: 发信站: 水木社区 (Thu Dec 12 21:12:04 2024), 站内
:
: Bing搜索“word2013 command line save as pdf”
: 第一条，Super User那条就是。
: 亲测可行。
:
:
: 【在 callmebbser 的大作中提到: 】
: : Create a global macro in Word 2013:
: : ' The Word macro for exporting to PDF (the Word window closes after finishin
: : g)
: : ...................
:
: --
:
: ※ 来源:·水木社区 mysmth.net·[FROM: 103.121.208.*]
--
FROM 64.176.50.*
9楼|wuduan|2024-12-13 11:56:23|只看此ID
抱歉，
我说的那个csdn网址是blog加上csdn加net
【在 AaYaYa 的大作中提到: 】
: 标  题: Re: 不装任何额外软件如何手撸一个批量转pdf的程序？ (转载)
: 发信站: 水木社区 (Fri Dec 13 11:16:08 2024), 站内
:
:
: 这个内容已经没了
:
: 【在 wuduan 的大作中提到: 】
: : 标  题: Re: 不装任何额外软件如何手撸一个批量转pdf的程序？ (转载)
: : 发信站: 水木社区 (Thu Dec 12 20:37:59 2024), 站内
: :
: : 用vba很简单
: : csdn网址/pijianzhirui/article/details/78668695
: : 【在 AaYaYa 的大作中提到: 】
: : : 标  题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: : : 发信站: 水木社区 (Thu Dec 12 16:54:35 2024), 站内
: : :
: : : 【以下文字转载自 OfficeSoft 讨论区】
: : : 发信人: AaYaYa (啊呀呀*选帝侯初长成), 信区: OfficeSoft
: : : 标  题: 不装任何额外软件如何手撸一个批量转pdf的程序？
: : : 发信站: 水木社区 (Thu Dec 12 16:54:15 2024), 站内
: : :
: : :
: : : 一个Windows7操作系统的电脑，装了MS Office和Adobe Pdf reader，别的什么都没有安装了，也不让安装，电脑里面很多很多的docx文件，我想要不安装任何其它软件的情况下，自己写bat脚本或者MS powershell或者vbs或者什么脚本程序，实现对指定路径下的所有docx文件遍历批量
:
: : 晃
: : : 猵df文件，怎么做呢？这个问题我已经问过了ChatGPT和某款国产AI了，
: : : 它们给出的程序代码都是不能自动批量转换，都是转换时弹窗让我手动选择保存文件名和路径，一旦需要一个一个转换人工交互了，那就慢下来了没什么意义，我就只是需要在docx原始的路径下面直接存放转换出来的pdf文件，但是AI给我的代码都不行，那么我的需求到底能不能通过写
: 代
: : 码
: : : 实现呢？再强调一下，除了MS Office和Adobe Reader之外什么软件都不让再安装了
: : :
: : : --
: : : 报告版主！以下是我的签名档，不是广告，请不要封我
: : : 只见两个眼睛肿的桃儿一般，满面泪光，不是黛玉，却是那个？宝玉还欲看时，怎奈下半截疼痛难忍，支持不住，便“嗳哟”一声，仍就倒下，叹了一声，说道：
: : : “你又做什么跑来！虽说太阳落下去，那地上的余热未散，走两趟又要受了暑。我虽然捱了打，并不觉疼痛。我这个样儿，只装出来哄他们，好在外头布散与老爷听，其实是假的。你不可认真。”
: : : 此时林黛玉虽不是嚎啕大哭，然越是这等无声之泣，气噎喉堵，更觉得利害。听了宝玉这番话，心中虽然有万句言词，只是不能说得，半日，方抽抽噎噎的说道：
: : : “你从此可都回贴了罢！”
: : : 欢迎访问我在二站的个人版：P.AaYaYa※ 来源:·水木社区 http://newsmth.net·[FROM: 59.64.150.*]
: : :
: : :
: : : ※ 来源:·水木社区 mysmth.net·[FROM: 223.104.40.*]
: :
: : --
: : CTerm有个黑名单功能，有些素质很差的人的帖子会自动跳过
: : 宇宙浩渺，时空无限，人类算什么，不过都是蚂蚁、尘埃罢了
: : 死亡是唯一一座永远亮着的灯塔，不管你向哪里航行，最终都得转向它指引的方向。一切都会逝去，只有死神永生。
: : 你的青春会过去，永不再回来
: : 万事は夢
: : 唯一不可阻挡的是时间，它像一把利刃，无声地切开了坚硬和柔软的一切，恒定地向前推进着，没有任何东西能够使它的行进出现丝毫颠簸，它却改变着一切。
: :
: :
: : ※ 来源:·水木社区 mysmth.net·[FROM: 36.48.127.*]
:
: --
: 透过圣衣看小宇宙，我要做识人善认的女神雅典娜！
: ※ 来源:·水木社区 newsmth.net·[FROM: 41.211.254.*]
:
:
:
: ※ 来源:·水木社区 mysmth.net·[FROM: 64.176.50.*]
--
FROM 202.98.13.*