精华内容
下载资源
问答
  • 昨天女朋友告诉我她遇到了一比较复杂的难题,需要对七十文档统一格式,改的很简单就是文件太,然后保存为pdf,每文档都有好多页,可能手动改得改一天。听了之后,我突然萌生了给写程序帮她改的想法。...

    昨天女朋友告诉我她遇到了一个比较复杂的难题,需要对七十多篇文档统一改格式,改的很简单就是文件太多,然后保存为pdf,每个文档都有好多页,可能手动改得改一天。听了之后,我突然萌生了给写个程序帮她改的想法。说干就干。后面会把程序贴出来,并记录下遇到的问题。

    首先是导入模块:

    import win32com
    from win32com.client import Dispatch
    import glob

    然后开启一个进程:

    w = win32com.client.Dispatch('kwps.Application') # 可能会报错
    w.Visible = 0
    w.DisplayAlerts = 0

    刚开始我使用的是“Word.Application”,结果报错pywintypes.com_error: (-2147221005, '无效的类字符串', None, None),查了一些资料,说是改成“wps.Application”或者“kwps.Application”,改了之后果然成功了。仔细想来,原理应该是开一个文档处理程序(office或wps)的线程进行处理,因为我电脑没有装office,所以失败了。wps和kwps的区别是你电脑上转wps的版本。

    接下来就是处理的程序:

    def process():
        filenames = glob.glob(root + '\*.doc')
        for filename in filenames:
            print(filename)
            doc = w.Documents.Open(FileName=filename)
            # # 文档最开始插入文字,这里是插入文档的名字
            # insert = filename.split('.')[0] + '\n'
            # myRange = doc.Range(0, 0)
            # myRange.InsertBefore(insert)
    
            par = doc.Range(10, doc.Content.End)
            par.ParagraphFormat.LineSpacing = 12
    
            w.ActiveDocument.Select()
            w.Selection.Font.Name = "微软雅黑"
            w.Selection.Font.Size = "12"
            # 删除空行,这里数量是1,因为回车占一个字符
            for each in w.ActiveDocument.Paragraphs:
                if each.Range.Words.Count == 1:
                    each.Range.Delete()
            print("已处理:" + filename)
            # 保存为PDF
            pdf_name = filename.split('.')[0]
            doc.SaveAs(pdf_name, FileFormat=17)
            doc.Close()
        print("处理完毕!")

    运行完成之后,在目录里生成对应的PDF文件了,每个文件名都跟之前的相对应。

    完整代码如下:

    import win32com
    from win32com.client import Dispatch
    import glob
    
    w = win32com.client.Dispatch('kwps.Application')
    w.Visible = 0
    w.DisplayAlerts = 0
    
    def process():
        filenames = glob.glob(root + '\*.doc')
        for filename in filenames:
            print(filename)
            doc = w.Documents.Open(FileName=filename)
            # # 文档最开始插入文字,这里是插入文档的名字
            # insert = filename.split('.')[0] + '\n'
            # myRange = doc.Range(0, 0)
            # myRange.InsertBefore(insert)
    
            par = doc.Range(10, doc.Content.End)
            par.ParagraphFormat.LineSpacing = 12
    
            w.ActiveDocument.Select()
            w.Selection.Font.Name = "微软雅黑"
            w.Selection.Font.Size = "12"
            # 删除空行,这里数量是1,因为回车占一个字符
            for each in w.ActiveDocument.Paragraphs:
                if each.Range.Words.Count == 1:
                    each.Range.Delete()
            print("已处理:" + filename)
            # 保存为PDF
            pdf_name = filename.split('.')[0]
            doc.SaveAs(pdf_name, FileFormat=17)
            doc.Close()
        print("处理完毕!")
    
    
    if __name__ =='__main__':
        root = r'F:\github\Modify_word_using_python\word'
        process()
    
    
    

    后续:我用了半个小时就搞定了我女朋友一天的工作量,她高兴疯了。我告诉她,知识就是力量!

    展开全文
  • 因此,文档中表格数量太时,要快速统一所有表格的格式,最佳实践是结合VBA来进行自动化操作。以下代码可以将文档中的全部表格统一为同一种样式,所有表格在页面居中,同时将表格的首行区域设置为标题行。这里说的...

    在多人协作的word文档中,经常会出现同一性质的内容格式不一致的情况。要快速统一同一性质的内容的格式,无疑是使用样式功能。但是对于表格而言,对表格样式的编辑无法做到使表格在页面居中,而且对于标题行重复这样的操作,需要指定表格的标题行区域。因此,文档中表格数量太多时,要快速统一所有表格的格式,最佳实践是结合VBA来进行自动化操作。以下代码可以将文档中的全部表格统一为同一种样式,所有表格在页面居中,同时将表格的首行区域设置为标题行。这里说的首行区域并不是只有第一行。举例来说,假设有一个表格有三列,其中第一列没有合并,第二列最上面三个单元格被合并为一个单元格,第三列最上面四个合并为一个单元格,那么首行区域在第一列包含了4行,第二列包含了2行,第三列则是最上面的一行。

    Sub 全文表格风格统一()
        Dim aTable As Table
    	'宏执行过程中停止屏幕滚动,可加快宏执行速度
        Application.ScreenUpdating = False
        For Each aTable In ActiveDocument.Tables
    		'设置表格样式
            aTable.Style = "网格型"
            aTable.Range.Cells(1).Select
            With Selection
    		    '设置表格在页面居中
                .Tables(1).Rows.Alignment = wdAlignRowCenter
    		    '设置表格标题行区域
                .Rows.HeadingFormat = True
            End With
        Next
    	'恢复屏幕滚动
        Application.ScreenUpdating = True
    End Sub
    

    上面的代码中,表格样式的名称可以用任意一个word中已有的样式名称,而不必管样式的格式是什么样的。执行完上面的宏后,再右键点击该样式名称,修改该样式包含的边框底纹标题等各种格式,即可完成全部表格的格式修改。另外,如果文档包含的表格实在太多,以至于宏的执行时间太长,等待执行完毕的过程中让人怀疑word是不是已经崩溃,那么可以考虑分次执行。先将上面代码中的第五行

    For Each aTable In ActiveDocument.Tables

    修改为

    For Each aTable In Selection.Tables

    然后再选择文档的一部分,完成选择后执行宏,即可完成已选择部分的表格样式统一,再在剩余文档中又选择一部分执行宏,直至完成全部文档。

    展开全文
  • 最近很小伙伴问我Word文档中如何快速切换英文大小写?遇到这样的问题相信很多人都是直接将单词一个个的进行修改,这样操作简直是太浪费时间了,看着大家这样操作,我在一旁看着实在是太着急了,于是总结了这方面的...

      最近很多小伙伴问我Word文档中如何快速切换英文大小写?遇到这样的问题相信很多人都是直接将单词一个个的进行修改,这样操作简直是太浪费时间了,看着大家这样操作,我在一旁看着实在是太着急了,于是总结了这方面的技巧来帮助有需要的朋友,一起看看吧!
    Word文档中如何快速切换英文大小写?掌握这个方法轻松完成
      一.快速切换大小写
      常常为了统一英文格式需要切换成英文统一格式,其实很简单,我们可以直接通过快捷键Shift+F3进行操作,也可以点击开始菜单栏,在子菜单栏中找到更改大小写按钮,在弹出的栏目中点击选择更改大小写—切换大小写,之后点击确定即可;
    Word文档中如何快速切换英文大小写?掌握这个方法轻松完成
      这样操作起来是不是很简单呢?比起之前的方法是不是快了很多?接下来我们继续看看还有哪些技巧吧!
      二.如何将段落上下移
      我们在编辑文档的时候如果出现文章段落排版颠倒的时候该怎么办呢?其实我们不需要将段落删除等一系列操作,按Shift+Alt+↑或Shift+Alt+↓就可以快速实现;
    Word文档中如何快速切换英文大小写?掌握这个方法轻松完成
      三.如何将word内容分栏
      很多时候我们为了使文章看上去美观,会将文章进行分栏,怎样操作呢?点击页面布局按钮—分栏,在弹出的栏目中根据自己的需要进行选择即可;
    Word文档中如何快速切换英文大小写?掌握这个方法轻松完成
      四.如何将文章中的首字下沉
      打击平时遇到这样的情况都是采用什么样的方法进行操作的呢?其实很简单,点击插入—选择首字下沉—在弹出的栏目中选择下沉(D)即可;
    Word文档中如何快速切换英文大小写?掌握这个方法轻松完成
      以上就是今天为大家分享的如何快速切换英文大小写以及办公中常用的一些小技巧,希望上述的分享可以帮助到对这方面有需求的伙伴们!

    展开全文
  • word转chm格式

    2008-07-16 16:58:08
    <br>Word2CHM优势: 智能:本软件一次可以同时处理多个帮助文件并分别生成hhp工程文件,层次自动生成, 支持多级层次; 快速:制作一个300页的Word文档大约只需要10分钟; 方便:用户只需维护一份...
  • word文档插入方框加勾

    千次阅读 2015-08-25 16:05:38
    word文档 □ 中添加√ 百度会告诉你很方法,但是总不能遇到就去百度,所以记住一种方法就可以了, 使用Wingdings 是一符号字体系列,它将许多字母渲染成各式各样的符号。 □+√的组合对应的是 字母 R  ...

    word文档

    □ 中添加√


    百度会告诉你很多方法,但是总不能遇到就去百度,所以记住一种方法就可以了,

    使用Wingdings 是一个符号字体系列,它将许多字母渲染成各式各样的符号。

    □+√的组合对应的是 字母 R 

    相比其他的组合键方式更好记一些,而且敲入R与本行其他字体格式统一。

    展开全文
  • Word文档中如何快速切换英文大小写

    千次阅读 2019-08-23 13:43:03
    最近很小伙伴问我Word文档中如何快速切换英文大小写?遇到这样的问题相信很多人都是直接将单词一个个的进行修改,这样操作简直是太浪费时间了,看着大家这样操作,我在一旁看着实在是太着急了,于是总结了这方面的...
  • 4、其他各式各样的场景,反正都满足同样的条件,就是:**个性化定制Word文档,而个性化信息来源于格式统一的Excel。** 这次是应同事小伙伴邀约,以及自己之前也遇到过这样的需求,就搞了一快速生成
  • '对于一多文档合并起来的长文档,它的样式而混乱以致于无法使用,会引起word崩溃 '对于这些样式,移除(即都统一为正文样式),并保留各种格式(变成不受样式控制的直接格式) Dim Para As Paragraph Dim ...
  • 搜索引擎设计软件程序源码+数据库+WORD毕业设计论文文档. 经过对搜索引擎的研究同时与Lucene自身的特性相结合,搜索引擎的设计与实现需要实现的功能阐述如下: (1)支持桌面文件搜索,格式包括txt、doc、xls和ppt; ...
  • 然而,完善的合同管理需要公司的许多资源,如何去解决格式统一而带来的文档管理困难,让不同人员想阅读参考合同时,查找不方便的问题,减少领导了解合同文本时的时间。如何去解决进度控制的困难,减少合同数量而...
  • 智能:本软件一次可以同时处理多个帮助文档并分别生成CHM文档,层次自动生成,支持多级层次; 快速:制作一个300页的Word文档大约只需要10分钟(在PIII733/256M内存环境下); 方便:用户只需维护一份Word格式的文档...
  • 由于有很多个Word文件,所以应用宏会更加方便排版,而且版式较为统一。 Sub 设置列宽() ' ' 设置列宽宏 ' ' ActiveDocument.Tables(1).Cell(7, 2).Width = 45 '将Word表格的第7行第2列(即B7单元格)的...
  • 智能:本软件一次可以同时处理多个帮助文档并分别生成hhp工程文档,层次自动生成,支持多级层次; 快速:制作一个300页的Word文档大约只需要10分钟(在PIII733/256M内存环境下); 方便:用户只需维护一份Word...
  • 可以通过系统属性或配置文件的方式来指定路径,多个路径之间用逗号分隔开 类路径下的词典文件,需要在相对路径前加入前缀classpath: 指定方式有三种: 指定方式一,编程指定(高优先级): WordConfTools.set(...
  • 6.利用VBA对象,导出DataView到一Excel文档中的Excel辅助类(Export2Excel.cs) 7.关联文件(ExtensionAttachUtil.cs) 8.注册文件关联的辅助类(FileAssociationsHelper.cs) 9.打开、保存文件对话框操作辅助类...
  • 12、多文档批量替换:对多个WORD文档执行替换,包含正文、页眉和页脚。同时还支持多个关键字替换,例如将1替换成A,将2替换成B,将3替换成C...... 13、插入编号:插入编号,包含5种样式。 14、段落缩进:让指定的...
  • 多个WORD文档执行替换,包含正文、页眉和页脚。同时还支持多个关键字替换,例如将1替换成A,将2替换成B,将3替换成C...... 段落缩进 让指定的段落首行缩进俩字符。 中英互译 对选区的字符执行中译英、英译中操作.....
  • pdf文件转word怎么转?

    2021-04-01 15:45:38
    朋友研究这问题已经很久了,PDF更利于统一格式传播,Word更便于编辑。PDF文件和Word文档都是我们在工作学习中使用频率最多而且重要程度最高的文件格式。pdf文件转word怎么转?是困扰很上班族的一比较头疼...
  • 如何合并多个PDF文件? 除word,PPT,Excel等文件格式外,PDF文件也越来越成为我们日常工作中的主流常用文件格式。我们处理工作文档是可能经常遇到许多分分散的PDF文件,那么我们如何更有效的管理他们呢?似乎没有...
  • 前一段时间一直苦恼于项目内的文档格式统一的问题,用得最多的自然还是word和excel,但是修改了如何进行比较呢?或许有一些方法,但是试了多种后仍没有找合适的.xls,.doc的比较器。这只是一引子。 过程 于是我...
  • 一、生成一docx结尾的word模板,然后把文档的后缀docx改成zip,zip里会有生成很文件。如下图: 然后打开word文件夹,如下图: 把document.xml拿出来,把后缀xml改成ftl,然后把里面的内容(在线格式化xml)...
  • 文档管理软件免费版

    热门讨论 2013-01-09 18:55:43
    该软件特色在于用户可以直接在本软件中打开word、excel、pdf、dwg、jpg、bmp、gif、htm等文档格式,而无须借助第三方应用软件,兼容原有Office的操作与编辑使用习惯,支持痕迹保留与次版本的回顾及版本恢复,提供...
  • 罗刚君Word精灵 v3.0.rar

    2019-07-13 05:22:16
    多文档批量替换:对多个WORD文档执行替换,包含正文、页眉和页脚。同时还支持多个关键字替换,例如将1替换成A,将2替换成B,将3替换成C...... 拆分文档:将WORD文件的每一页替换成一个文档,适用于每页之间不存在...
  • 如何将PPT转word

    2011-12-10 22:58:29
    然后选择"只使用大纲"单选按钮并单击"确定"按钮,等一会就发现整篇PPT文档在一个Word文档里被打开。  提示: 在转换后会发现Word有很空行。在Word里用替换功能全部删除空行可按"Ctrl+H"打开"替换"对话框,在...
  • 智能:本软件一次可以同时处理多个帮助文件并分别生成hhp工程文件,层次自动生成, 支持多级层次; 快速:制作一个300页的Word文档大约只需要10分钟(在PIII733/256M内存环境下); 方便:用户只需维护一份Word格式...
  • 由于word文档牵涉到较的版权问题,目前还没找到一种可以跨平台的解决方案,请借助 本地软件完成转换 或者求助第三方网站。 协议 本软件原创代码部分以AGPL-3.0授权。 UACTool的作者是 , 其他引用的库可见 。 另外...
  • 撰写公文时常遇到这种情况,一篇Word文档中既有多个纵向页面也有多个横向页面,在我们插入页码时,一般的效果往往都是像下图这样的,在电子文档中看没有任何问题,但打印出来再统一装订后,就出现了各页页码不在同一...
  • 论文排版助手[Word版]

    2019-10-23 16:27:24
    例如,通过“快速题注”按钮可同时生成多个项目(图片、表格或公式)的题注。勾选设置中的“双语”选项时,可生成图片和表格的中英文双语题注。另外,可自动修正题注编号 “图 一.1” 为 “图 1.1”。 【交叉引用】...
  • 面对PDF、Word、Excel、PPT... 让迅捷PDF转换成PPT转换器在对多个PDF文本进行转换时特别好用,而且不局限于PDF转Office,而是将文本格式进一步拓展实现了任意文本之间的相互转换,如文件转TXT、文件转IMG、文件转HT

空空如也

空空如也

1 2 3 4 5 ... 7
收藏数 121
精华内容 48
关键字:

多个word文档统一格式