精华内容
下载资源
问答
  • VBA 实现批量word pdf

    2021-05-31 17:29:01
    新建vba文件 copy以下代码 执行 OK Option Explicit Sub docx2other() On Error Resume Next Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String Dim CurDoc As Object sSourcePath = "C:\...
    1. 打开word
    2. 点击开发
    3. 新建vba文件
    4. copy以下代码
    5. 执行
    6. OK
    Option Explicit
    Sub docx2other()
    On Error Resume Next
    Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String
    Dim CurDoc As Object
    sSourcePath = "C:\Users\59949\Desktop\word_1\"
    sEveryFile = Dir(sSourcePath & "*.docx")
    Do While sEveryFile <> ""
       Set CurDoc = Documents.Open(sSourcePath & sEveryFile, , , , , , , , , , , msoFalse)
       sNewSavePath = VBA.Strings.Replace(sSourcePath & sEveryFile, ".docx", ".pdf")
       CurDoc.SaveAs2 sNewSavePath, wdFormatPDF
       CurDoc.Close SaveChanges:=False
       sEveryFile = Dir
    Loop
    Set CurDoc = Nothing
    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.实现后的效果:
    在这里插入图片描述
    在这里插入图片描述

    展开全文
  • 原理 使用python win32 库 调用word底层vba,将word转成pdf 安装pywin32 pip install pywin32 ... word转pdf :param wordPath: word文件路径 :param pdfPath: 生成pdf文件路径 word = genca
  • python word转pdf

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

    原理

    使用python win32 库 调用word底层vba,将word转成pdf

    安装pywin32

    pip install pywin32 

    python代码

    from win32com.client import gencache
    from win32com.client import constants, gencache
    
    def createPdf(wordPath, pdfPath):
        """
        word转pdf
        :param wordPath: word文件路径
        :param pdfPath:  生成pdf文件路径
        """
        word = gencache.EnsureDispatch('Word.Application')
        doc = word.Documents.Open(wordPath, ReadOnly=1)
        doc.ExportAsFixedFormat(pdfPath,
                                constants.wdExportFormatPDF,
                                Item=constants.wdExportDocumentWithMarkup,
                                CreateBookmarks=constants.wdExportCreateHeadingBookmarks)
        word.Quit(constants.wdDoNotSaveChanges)

    转载于:https://www.cnblogs.com/jokerBi/p/10791760.html

    展开全文
  • WORD中的vba批量转换为PDF

    千次阅读 2013-07-18 09:47:46
    1. 让WORD2007、2010调出开发选项卡。调出的办法是,点击WORD左上角的圆圈形按钮,从下拉菜单中选择”选项“,然后点击左侧的常规选项卡,再从右边窗口中选中”显示开发工具“   2. 回到WORD主界面,选择”开发...

    转载自:licanli2082@126网易博客

    对于只是简单运行的方法,步骤如下:

    1. 让WORD2007、2010调出开发选项卡。调出的办法是,点击WORD左上角的圆圈形按钮,从下拉菜单中选择”选项“,然后点击左侧的常规选项卡,再从右边窗口中选中”显示开发工具“
     
    2. 回到WORD主界面,选择”开发工具“面板栏,从这个面板的左边选择”宏“按钮
    3. 在宏窗口中输入一个宏名字(任意),然后点新建。
    4. 在宏编辑窗口中,将下面的代码粘贴到sub与end sub中间,然后点绿色三角形的运行按钮即可
    5. 浏览选择要转换的WORD文档,确定,看窗口状态栏提示完成,即可看到所有WORD文档转换了PDF在原目录(原来的WORD文档不会被影响,请放心)
    如下图所示,

     

    图片

     

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
     
    Dim fDialog As FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    Dim wdDoc As Document
    Dim showFolder As Boolean
    showFolder = False
    With fDialog
    .Filters.Add "Word文件", "*.doc;*.docx;*.docm", 1
    If .Show = -1 Then
    For Each vrtSelectedItem In .SelectedItems
    '如果选择了本文档则跳过
    If InStrRev(vrtSelectedItem, ThisDocument.Name) = 0 Then
    On Error Resume Next
    Set wdDoc = Application.Documents.Open(vrtSelectedItem, ReadOnly:=True)
    wdDoc.SaveAs Left(vrtSelectedItem, Len(vrtSelectedItem) - 5), wdFormatPDF
    wdDoc.Close False
     
    End If
    Next vrtSelectedItem
    If showFolder Then Call Shell("explorer.exe " & Left(fDialog.SelectedItems(1), _
    InStrRev(fDialog.SelectedItems(1), "")), vbMaximizedFocus)
    End If
    End With
     
    Set fDialog = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    展开全文
  • vba 实现Word文档的批量转换为PDF

    千次阅读 2019-03-04 15:36:02
    如图,在vba编辑窗口,选择“工具--》引用” sub batchConvert2pdf() '需要转换的word文档的个数 dim total as Integer '定义文件名数组:数组的个数根据需要进行设置 Dim fns(total) As String fns(0) =...
  • 有时候需要把大量的docx文件另存为其它格式,比如pdf、doc、rtf、txt,或者反向转换,可以用VBA批量处理。启动word,按下Alt+F11,打开Microsoft Visual Basic for Applications,点击 插入>模块,将下面的代码...
  • 学习目标: 1.学会word转换pdf ...参考文档:https://docs.microsoft.com/zh-cn/office/vba/api/word.document.exportasfixedformat 2.代码记录 from win32com.client import constants,gencache
  • EXCEL-VBA:打开word文件转换为PDF保存

    千次阅读 2020-02-27 21:34:37
    Sub a() Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = New Word.Application Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\HAHA1.docx"...
  • 如图,在vba编辑窗口,选择“工具--》引用”sub batchConvert2pdf()'需要转换的word文档的个数dim total as Integer'定义文件名数组:数组的个数根据需要进行设置Dim fns(total) As Stringfns(0) = "d:\doc\1.docx"'...
  • VB程序Word转换成PDF

    2018-09-12 10:46:04
    VBA程序将Word转PDF,可以做出WSF供Java和C程序调用。此程序调通过,实际项目上用到过,仅供参考。
  • destFilePath = destFolderPath + Mid(path, indexOfSlash, indexOfDot - indexOfSlash) + ".pdf" ConvertToPDF path, destFilePath Next path End If End Sub Function GetFilePaths() Dim folderPath As ...
  • 比如win32就可以调用word底层vba,将word转成pdf,或者comtypes等,但是这些常用的库仅能在Windows机器上运行,所以为了照顾mac用户本文使用一个比较小众的库docx2pdf,看名字就能知道这是专门用于word转pdf,安装很...
  • 如何能够将jpg图片批量pdf文件,并将pdf子文件合并成一个文件.? 为此给出解题思路如下: 将jpg图片批量插入到word文档中,然后使用word的导出功能将文档转为pdf文件。 主要步骤: 1,使用Scripting....
  • 如果您有一推图片且大小一样,想用word转PDF,那么我推荐您使用VBA来调整图片大小,先给word设置 “页面布局-页边距”全部设置成0,再调整成合适的纸张大小,然后启动VBA 【Alt +F11】,粘贴如下代码,修改代码中...
  • 比如win32就可以调用word底层vba,将word转成pdf,或者comtypes等,但是这些常用的库仅能在Windows机器上运行,所以为了照顾mac用户本文使用一个比较小众的库docx2pdf,看名字就能知道这是专门用于word转pdf,安装很...
  • 使用python win32 库 调用word底层vba,将word转pdf 安装pywin32 pip install pypiwin32 Python完整代码 #!/usr/bin/env python # -*- coding: utf-8 -*- # @Time : 2019/12/28 10:48 # @Author : King...
  • Pdf文件转换为Word

    2015-05-14 20:47:43
    Word 2013里面,我们可以打开一个PDF文件...下面由简单的代码VBA代码实现将某个目录下所有的PDF文件转为Word文件 Sub PdftoWord() Dim file As Variant file = Dir("D:\OfficeDev\Word\201505\Pdf\" & "*.pdf")
  • VBA和Excel的数据交换似乎一直是一个热点问题,本章提供了Excel表格向AutoCAD的转换、使用Excel数据绘图、转换AutoCAD数据到Word和Excel中几个实例。在使用WindowsAPI方面,提供了去掉对话框的关闭按钮和添加快捷...
  • VBA中关于WORD的基本应用 比如批量改页眉页脚,从文件名取数字...Sub 批量转PDF() Dim i As Variant Dim t As Variant Dim str As String, n As Long, fd, Nam As String On Error GoTo err '如果程序执行错误 跳转...
  • 本书让您成为Word最高级用户:以宏/VBA程序设计对Word进行二次开发。并附数个实用例子。 本书谈如何将Word的工作成果轻松转换为PDF格式,并保留所有目录、书签、交叉引用……内容提要Word是一种功能强大的文字处理...
  • vba批量删除水印

    2020-02-29 23:31:49
    原因:今天辅导员找我帮他把pdf转word,但是输出后的word里有大量的水印。 以前学习过的:去除水印目前比较好的办法是在photoshop里抠出水印,新建图层取反色,图层模式改为差值。然后就可以大面积复制去掉水印。...
  • 要在Excel中插入附件啥的,不然她五一放假就要加班了,所以我就在加班的期间查了查资料,一开始理解错题意,以为是要把PDF转换为Excel,还想着要用Python来写,后面发现,是要插入附件,可以用VBA来写。 由于微软...
  • Access 2007 VBA宝典 4/4

    2012-03-31 08:36:49
    完整清晰版 PDF ,有目录。共 120MB,分为四个分卷 Access 2007 VBA宝典 OFFICE2007 OFFICE Access 2007 VBA宝典 4/4 作者:(美)费德玛(Feddema,H.) 著,张波,陈江红,苏丽译 出版社:人民邮电出版社 出版日期...
  • Access 2007 VBA宝典 2/4

    2012-03-31 08:22:16
    完整清晰版 PDF ,有目录。共 120MB,分为四个分卷 Access 2007 VBA宝典 OFFICE2007 OFFICE Access 2007 VBA宝典 2/4 作者:(美)费德玛(Feddema,H.) 著,张波,陈江红,苏丽译 出版社:人民邮电出版社 出版日期:...
  • Access 2007 VBA宝典 3/4

    2012-03-31 08:31:46
    完整清晰版 PDF ,有目录。共 120MB,分为四个分卷 Access 2007 VBA宝典 OFFICE2007 OFFICE Access 2007 VBA宝典 3/4 作者:(美)费德玛(Feddema,H.) 著,张波,陈江红,苏丽译 出版社:人民邮电出版社 出版日期:...
  • Access 2007 VBA宝典 1/4

    2012-03-31 08:12:09
    完整清晰版 PDF ,有目录。共 120MB,分为四个分卷 Access 2007 VBA宝典 作者:(美)费德玛(Feddema,H.) 著,张波,陈江红,苏丽译 出版社:人民邮电出版社 出版日期:2008-6-1 ISBN:9787115175984 字数:843000...
  • 之前一直在做相关工作,由于没有找到解决最佳解决方案,老办法思路是 python先将word pdf,按照页码 提取文字,从而实现word的页索引工作。 最近研究了一下vba,终于找到了最佳解决方案!!! AutoIt 我用AutoIt...

空空如也

空空如也

1 2 3 4 5
收藏数 82
精华内容 32
关键字:

vbaword转pdf