[原创]PDFCreator自动保存及文件名带空格、后缀名丢失的解决方法（Windows 7通过）...

最新推荐文章于 2023-02-15 21:29:41 发布

转载最新推荐文章于 2023-02-15 21:29:41 发布 · 647 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/oneisyou/archive/2010/11/21/1883130.html

本文介绍如何配置PDFCreator以实现PDF文件的自动保存并解决文件名因包含空格而被截断的问题。通过编写VBS脚本来自动添加.pdf后缀，并使用自定义脚本确保文件名完整。

今天安装了免费的PDF打印机软件PDFCreator，默认情况下弹出保存窗口，依照以下设定，可以自动保存：

但是存在一个问题：如果<Title>存在空格，则保存后的文件名会从第一个空格后断开，.pdf 后缀名也不会被添加。

PDFCreator一个比较好的地方在于支持动作脚本，即保存前后可以执行指定的VBS文件。

依照以下步骤，即可解决之前的问题：

1. 打开记事本，复制以下代码，另存为Rename.vbs至<PDFCreator安装路径>\Scripts\RunProgramAfterSaving目录下；

————————————————————————————————————————————————

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Net = WScript.CreateObject("WScript.Network")
Set dic = WScript.CreateObject("Scripting.Dictionary")

Dim objArgs
Set objArgs = WScript.Arguments

Main()
Sub Main()
    If objArgs.Count = 0 Then
        MsgBox "This script needs a parameter!", vbExclamation, AppTitle
        WScript.Quit
    End If
    Dim fname0, fname1
    fname0 = objArgs(0)
    fname1 = fname0
    IF GetFileExt(fname0) <> "pdf" Then
        fname1 = fname1 & ".pdf"
        fso.movefile fname0, fname1
    End If
    WshShell.Run chr(34) & fname1 & chr(34),0
End Sub
Function GetFileExt(sFileName)
    Dim P
    For P = Len(sFileName) To 1 Step -1
        If InStr(".", Mid(sFileName, P, 1)) Then Exit For
    Next
    GetFileExt = Right(sFileName, Len(sFileName) - P)
End Function

————————————————————————————————————————————————

2. 勾选“保存后动作”，下拉框中选择Rename.vbs，保存。

OK了^o^

转载于:https://www.cnblogs.com/oneisyou/archive/2010/11/21/1883130.html