精华内容
下载资源
问答
  • Vba Pdf转JPEG

    2019-09-23 13:54:03
    PDF转JPEG Coding,也可其他格式文件: 首先需要在VBA下勾选"Adobe Acrobat"(根据自己Acrobat版本) 直接上CODE: Option Explicit Option Private Module Sub ExportAllPDFs() Dim StrFile As String ...

    PDF转JPEG Coding,也可转其他格式文件:

    首先需要在VBA下勾选"Adobe Acrobat"(根据自己Acrobat版本)

     

    直接上CODE:

    Option Explicit
    Option Private Module
    
    Sub ExportAllPDFs()
    
        Dim StrFile As String
        
        StrFile = Dir("C:\Users\jtang20\Desktop\PdfFolder\*pdf")
        
        Do While Len(StrFile) > 0
            SavePDFAs "C:\Users\jtang20\Desktop\PdfFolder\" & StrFile, "jpeg"
            StrFile = Dir
        Loop
        
    End Sub
    
    Private Sub SavePDFAs(PDFPath As String, FileExtension As String)
        
        '---------------------------------------------------------------------------------------
        'Saves a PDF file as other format using Adobe Professional.
        
        'In order to use the macro you must enable the Acrobat library from VBA editor:
        'Go to Tools -> References -> Adobe Acrobat xx.0 Type Library, where xx depends
        'on your Acrobat Professional version (i.e. 9.0 or 10.0) you have installed to your PC.
        
        'Alternatively you can find it Tools -> References -> Browse and check for the path
        'C:\Program Files\Adobe\Acrobat xx.0\Acrobat\acrobat.tlb
        'where xx is your Acrobat version (i.e. 9.0 or 10.0 etc.).
        
        'By Christos Samaras
        'Date: 30/03/2013
        'http://www.myengineeringworld.net
        '---------------------------------------------------------------------------------------
        
        Dim objAcroApp      As Acrobat.AcroApp
        Dim objAcroAVDoc    As Acrobat.AcroAVDoc
        Dim objAcroPDDoc    As Acrobat.AcroPDDoc
        Dim objJSO          As Object
        Dim boResult        As Boolean
        Dim ExportFormat    As String
        Dim NewFilePath     As String
            
        'Initialize Acrobat by creating App object.
        Set objAcroApp = CreateObject("AcroExch.App")
        
        'Set AVDoc object.
        Set objAcroAVDoc = CreateObject("AcroExch.AVDoc")
        
        'Open the PDF file.
        boResult = objAcroAVDoc.Open(PDFPath, "")
            
        'Set the PDDoc object.
        Set objAcroPDDoc = objAcroAVDoc.GetPDDoc
        
        'Set the JS Object - Java Script Object.
        Set objJSO = objAcroPDDoc.GetJSObject
        
        'Check the type of conversion.
        Select Case LCase(FileExtension)
            Case "eps": ExportFormat = "com.adobe.acrobat.eps"
            Case "html", "htm": ExportFormat = "com.adobe.acrobat.html"
            Case "jpeg", "jpg", "jpe": ExportFormat = "com.adobe.acrobat.jpeg"
            Case "jpf", "jpx", "jp2", "j2k", "j2c", "jpc": ExportFormat = "com.adobe.acrobat.jp2k"
            Case "docx": ExportFormat = "com.adobe.acrobat.docx"
            Case "doc": ExportFormat = "com.adobe.acrobat.doc"
            Case "png": ExportFormat = "com.adobe.acrobat.png"
            Case "ps": ExportFormat = "com.adobe.acrobat.ps"
            Case "rft": ExportFormat = "com.adobe.acrobat.rft"
            Case "xlsx": ExportFormat = "com.adobe.acrobat.xlsx"
            Case "xls": ExportFormat = "com.adobe.acrobat.spreadsheet"
            Case "txt": ExportFormat = "com.adobe.acrobat.accesstext"
            Case "tiff", "tif": ExportFormat = "com.adobe.acrobat.tiff"
            Case "xml": ExportFormat = "com.adobe.acrobat.xml-1-00"
            Case Else: ExportFormat = "Wrong Input"
        End Select
        
        'Check if the format is correct and there are no errors.
        If ExportFormat <> "Wrong Input" And Err.Number = 0 Then
            
            'Format is correct and no errors.
            
            'Set the path of the new file. Note that Adobe instead of xls uses xml files.
            'That's why here the xls extension changes to xml.
            If LCase(FileExtension) <> "xls" Then
                NewFilePath = WorksheetFunction.Substitute(PDFPath, ".pdf", "." & LCase(FileExtension))
            Else
                NewFilePath = WorksheetFunction.Substitute(PDFPath, ".pdf", ".xml")
            End If
            
            'Save PDF file to the new format.
            boResult = objJSO.SaveAs(NewFilePath, ExportFormat)
            
            'Close the PDF file without saving the changes.
            boResult = objAcroAVDoc.Close(True)
            
            'Close the Acrobat application.
            boResult = objAcroApp.Exit
            
        Else
            
            'Something went wrong, so close the PDF file and the application.
            
            'Close the PDF file without saving the changes.
            boResult = objAcroAVDoc.Close(True)
            
            'Close the Acrobat application.
            boResult = objAcroApp.Exit
    
        End If
            
        'Release the objects.
    
    End Sub
    

     

    展开全文
  • VBA实现PDF批量Word

    2020-07-07 16:05:16
    平常工作中涉及到需要将PDF转成WORD格式方便后续的数据处理。使用VBA可以很容易实现。 实现的过程如下: 1.设计一个文件包,如下所示意。 2.使用WORD作为实现的操作界面,这个可以根据实际的需要进行设计。 3.实现...

    平常工作中涉及到需要将PDF转成WORD格式方便后续的数据处理。使用VBA可以很容易实现。
    实现的过程如下:
    1.设计一个文件包,如下所示意。
    在这里插入图片描述
    2.使用WORD作为实现的操作界面,这个可以根据实际的需要进行设计。
    在这里插入图片描述
    3.实现的代码如下:
    在这里插入图片描述
    4.实现后的效果:
    在这里插入图片描述
    在这里插入图片描述

    展开全文
  • 有时候需要把大量的xlsx文件另存为其它格式,比如pdf、xls、csv,或者反向转换,可以用VBA批量处理。启动Excel,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码粘贴...

            有时候需要把大量的xlsx文件另存为其它格式,比如pdf、xls、csv,或者反向转换,可以用VBA批量处理。启动Excel,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码粘贴进去,然后按F5(某些笔记本电脑可能需要按Fn+F5),或者点击图中的绿色小三角形,便可以执行代码。代码中涉及到的路径要根据自己的实际情况进行修改。Replace的作用是修改后缀名,SaveAs的作用是“另存为”。

              Word的批量转换参见 https://blog.csdn.net/pijianzhirui/article/details/78668695
    PowerPoint的批量转换参见 https://blog.csdn.net/pijianzhirui/article/details/85936272

     还有一个名为Office Tool Plus(官网:https://otp.landian.vip/zh-cn/)的工具也可以进行批量格式转换。

    'xlsx转pdf
    Option Explicit
    Sub xlsxConverter()
    On Error Resume Next
    Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
    Dim CurXls As Object
    sSourcePath = "E:\XLSX文件\"  
    '假定待转换的xlsx文件全部在"E:\XLSX文件\"下,你需要按实际情况修改。
    sEveryFile = Dir(sSourcePath &"*.xlsx")
    Do While sEveryFile <> ""
       Set Curxls = Workbooks.Open(sSourcePath & sEveryFile, , msoTrue )
       sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".xlsx", ".pdf")
       '转化后的文件也在"E:\xlsx文件\"下,当然你可以按需修改。
       CurXls.ExportAsFixedFormat xlTypePDF,sNewSavePath
       '更多格式可参见文末的截图ExportAsFixedFormat
       CurXls.Close SaveChanges:=False
       sEveryFile= Dir
    Loop
    Set CurXls = Nothing
    End Sub
    'xlsx转xls、csv
    Option Explicit
    Sub xlsxConverter()
    On Error Resume Next
    Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
    Dim CurXls As Object
    sSourcePath = "E:\XLSX文件\"  
    '假定待转换的xlsx文件全部在"E:\XLSX文件\"下,你需要按实际情况修改。
    sEveryFile = Dir(sSourcePath &"*.xlsx")
    Do While sEveryFile <> ""
       Set Curxls = Workbooks.Open(sSourcePath & sEveryFile, ,msoTrue)
       sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".xlsx", ".xls")
       '如果想导出csv,就把第12行行尾的xls换成csv
       '如果想把xls转为xlsx,把第9行的xlsx改为xls,把第12行行尾的".xlsx", ".xls"改为".xls", ".xlsx"
       '转化后的文件也在"E:\xlsx文件\"下,当然你可以按需修改。
       CurXls.SaveAs sNewSavePath, xlExcel8
       'xls对应xlExcel8,csv对应xlCSV,xlsx对应xlWorkbookDefault
       '更多格式可参见文末的截图XlFileFormat Enumeration (Excel)
       CurXls.Close SaveChanges:=False
       sEveryFile= Dir
    Loop
    Set CurXls = Nothing
    End Sub

     

    展开全文
  • 这篇博客阅读量较大,借此为思杰马克丁做个广告。 揭露苏州小叶网络科技有限公司不齿行径 https://bbs.kafan.cn/thread-2095728-1-1.html ... 有时候需要把大量的pptx文件另存为其它格式,比如pdf、ppt...

    这篇博客阅读量较大,借此为思杰马克丁做个广告。
    揭露苏州小叶网络科技有限公司不齿行径  https://bbs.kafan.cn/thread-2095728-1-1.html
    揭开软件行业毒瘤思杰马克丁的虚伪面纱  https://bbs.kafan.cn/thread-2091302-1-1.html 


            有时候需要把大量的pptx文件另存为其它格式,比如pdf、ppt,或者反向转换,可以用VBA批量处理。启动PowerPoint,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码粘贴进去,然后按F5(某些笔记本电脑可能需要按Fn+F5),或者点击图中的绿色小三角形,便可以执行代码。代码中涉及到的路径要根据自己的实际情况进行修改。代码中用到了open函数,并且将名为WithWindow的参数赋值为msoFalse,目的是打开文件时不在PowerPoint窗口中显示文件的内容,加快转换速度。Replace的作用是修改后缀名,SaveAs的作用是“另存为”。

    想要合并多个ppt(x)文件或者提取提取其中的全部文字,参见https://www.docin.com/p-1283968237.html
    想要提取pptx文件中的全部图片,可以把文件的后缀由pptx改为zip,用解压软件打开,进入ppt\media文件夹,全部图片都在此文件夹里面。该方法也适用于docx和xlsx,相应的路径分别是word\media和xl\media
    要实现多个pdf文件的合并或者pdf转pptx,请使用Adobe Acrobat.
    要实现以2X4布局紧凑打印幻灯片,请先另存为pdf,再到pdf文件的打印设置里设为“多页”,2X4.


    Word的批量转换参见 https://blog.csdn.net/pijianzhirui/article/details/78668695
    Excel的批量转换参见 https://blog.csdn.net/pijianzhirui/article/details/85939896

     还有一个名为Office Tool Plus(官网:https://otp.landian.vip/zh-cn/)的工具也可以进行批量格式转换。

    'pptx转pdf、ppt
    Option Explicit
    Sub pptxConverter()
    On Error Resume Next
    Dim sEveryFile As String,sSourcePath As String,sNewSavePath As String
    Dim CurPpt As Object
    sSourcePath = "E:\PPTX文件\"  
    '假定待转换的pptx文件全部在"E:\PPTX文件\"下,你需要按实际情况修改。
    sEveryFile = Dir(sSourcePath &"*.pptx")
    Do While sEveryFile <> ""
       Set CurPpt = Presentations.Open(sSourcePath & sEveryFile, msoTrue , , msoFalse)
       sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".pptx", ".pdf")
       '如果想导出ppt,就把第12行行尾的pdf换成ppt
       '如果想把ppt转为pptx,把第9行的pptx改为ppt,把第12行行尾的 ".pptx", ".pdf"改为 ".ppt", ".pptx"
       '转化后的文件也在"E:\PPTX文件\"下,当然你可以按需修改。
       CurPpt.SaveAs sNewSavePath, ppSaveAsPDF
       'pdf对应ppSaveAsPDF,ppt对应ppSaveAsPresentation,pptx对应ppSaveAsDefault
       '更多格式可参见文末的截图PpSaveAsFileType
       CurPpt.Close SaveChanges:=False
       sEveryFile= Dir
    Loop
    Set CurPpt = Nothing
    End Sub

     

     

    展开全文
  • 有时候需要把大量的docx文件另存为其它格式,比如pdf、doc、rtf、txt,或者反向转换,可以用VBA批量处理。启动word,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码...
  • 如何能够将jpg图片批量pdf文件,并将pdf子文件合并成一个文件.? 为此给出解题思路如下: 将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。 主要步骤: 1,使用Scripting....
  • 来吧 带你玩excel vba 罗刚君 PDF 文字版 全本非试读
  • pdf Excel VBA

    2013-05-13 12:08:00
    pdf excel vba text 文件 转换
  • 尽管PDF文件是将大量文本和图像文档打包在一起的一种绝妙方式,但是它们通常需要外部应用程序或插件,如果只需要一页或一张图像,则...PDF技巧和窍门:如何编辑PDF最好的PDF编辑器如何将PDF转换为Word如何将PDF转换为...
  • VBA批量转换Excel工作簿为PDF

    千次阅读 2013-07-18 09:46:39
    本文自www.excel123.cn 原文作者 Excel123  Excel 2010和Excel 2007可以将Excel...如果没有批量转换软件,在Excel 2010和Excel 2007中,利用VBA代码也可以轻松实现将Excel工作簿批量转换为PDF,方法如下:  1...
  • vba 实现Word文档的批量转换为PDF

    千次阅读 2019-03-04 15:36:02
    如图,在vba编辑窗口,选择“工具--》引用” sub batchConvert2pdf() '需要转换的word文档的个数 dim total as Integer '定义文件名数组:数组的个数根据需要进行设置 Dim fns(total) As String fns(0) =...
  • 用WORD中的vba批量转换为PDF

    千次阅读 2013-07-18 09:47:46
    5. 浏览选择要转换的WORD文档,确定,看窗口状态栏提示完成,即可看到所有WORD文档转换了PDF在原目录(原来的WORD文档不会被影响,请放心) 如下图所示,     Application.DisplayAlerts = False ...
  • '当前SolidWorks工程图文件转PDF,可含多页的工程图 ' ------------------------------------------------------------------------------ '**************************************** '---此模块演示一个可以延时...
  • 来吧,带你玩Excel VBA 《来吧,带你玩Excel VBA2》前言.pdf
  • EXCEL-VBA:打开word文件转换为PDF保存

    千次阅读 2020-02-27 21:34:37
    Sub a() Dim WordApp As Word.... WordDoc.SaveAs ThisWorkbook.Path & "\HAHA1.pdf", wdFormatPDF WordDoc.Close WordApp.Quit Set WordDoc = Nothing Set WordApp = Nothing End Sub 要引用word哦
  • 可以将一个文件夹中的所有xlsx或类似的表格文件批量转换为pdf文件,遍历每个工作表的每个sheet并逐一转换。 Sub TO_PDF() On Error Resume Next Dim ALL_FILE As String, SourcePath As String, NewSaveFile As...
  • Function RDB_Create_PDF(Myvar As Object, FixedFilePathName As String, _ OverwriteIfFileExist As Boolean, OpenPDFAfterPublish As Boolean) As String Dim FileFormatstr As String ...
  • Excel_VBA教程.pdf

    2013-02-22 14:44:55
    很基础的VBA语法讲解 部分目录 一、VBA语言基础1 第一节 标识符1 第二节 运算符1 第三节 数据类型1 第四节 变量与常量1 第五节 数组2 第六节 注释和赋值语句2 第七节 书写规范2 第八节 判断语句2 第九节 ...
  • destFilePath = destFolderPath + Mid(path, indexOfSlash, indexOfDot - indexOfSlash) + ".pdf" ConvertToPDF path, destFilePath Next path End If End Sub Function GetFilePaths() Dim folderPath As ...
  • 原理使用python win32 库 调用word底层vba,将wordpdf安装pywin32pip install pywin32python代码from win32com.client import gencachefrom win32com.client import constants, gencachedef createPdf(wordPath,...
  • 如果你已经拥有使用Excel的丰富经验,可以借助《中文版Excel 2010高级VBA编程宝典》成为一位 Excel专家。Excel 2010高级 VBA编程宝典不仅介绍使用 Excel的新方法和开发新电子表格应用程序的步骤,还展示如何开发 VBA...
  • Sub 宏1()Application.DisplayAlerts = FalseApplication.ScreenUpdating = False Dim fDialog As FileDialogSet fDialog = Application.FileDialog(msoFileDialogFilePicker)Dim vrtSelectedItem As VariantDim ...
  • 原理使用python win32 库 调用word底层vba,将wordpdf安装pywin32pip install pywin32python代码from win32com.client import gencachefrom win32com.client import constants, gencachedef createPdf(wordPath,...
  • 原理使用python win32 库 调用word底层vba,将wordpdf安装pywin32 pip install pywin32python代码 from win32com.client import gencachefrom win32com.client import constants, gencachedef createPdf...
  • 原理 使用python win32 库 调用word底层vba,将word转成pdf 安装pywin32 pip install pywin32 ... word转pdf :param wordPath: word文件路径 :param pdfPath: 生成pdf文件路径 word = genca
  • 将该文件与需要转换的Excel文件放在同一个文件夹中,打开该文件,点击开始转换,稍等片刻即可完成转换
  • CATIA图纸批量转PDFVBA宏,点击宏命令后会弹出选择文件夹对话框,选择文件夹后会自动将里面所有的CATIA图纸批量转成PDF图纸,文件是TXT文件,将里面的代码复制到宏里面即可执行
  • python word转pdf

    千次阅读 2019-04-29 17:30:00
    使用python win32 库 调用word底层vba,将wordpdf 安装pywin32 pip install pywin32 python代码 from win32com.client import gencache from win32com.client import constants, gencache def createPdf...

空空如也

空空如也

1 2 3 4 5 ... 8
收藏数 144
精华内容 57
关键字:

vba转pdf