精华内容
下载资源
问答
  • 2021-11-08 16:56:35

    Sub DeleteShapes()
    Dim T
    Dim doc As Document
    Dim fd As FileDialog
    Dim vrtSelectedItem As Variant
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
    .Title = “拾取Word文档”
    .AllowMultiSelect = True
    .Filters.Add “Word File”, “*.docx; *.doc”, 1
    If .Show = -1 Then
    For Each vrtSelectedItem In .SelectedItems
    Documents.Open FileName:=vrtSelectedItem
    Set doc = ActiveDocument
    For i = 1 To doc.InlineShapes.Count
    doc.InlineShapes(1).Delete
    Next
    For i = 1 To doc.Shapes.Count
    doc.Shapes(1).Delete
    Next
    doc.Save
    doc.Close
    T = T + 1
    Next
    End If
    End With
    MsgBox “操作完成!!” & Chr(10) & “处理了 " & T & " 个文件。”, vbOKOnly, “提示”
    End Sub

    更多相关内容
  • 某些pdf转word工具生成的word文档,会将很多内容放在文本框中,以至于编辑word文档不太方便,例如想全选所有段落中的文字在调整某些格式,文本框中的文字有时候不能像普通段落中的文字一样产生同样的效果。...

    某些pdf转word工具生成的word文档,会将很多内容放在文本框中,以至于编辑word文档不太方便,例如想全选所有段落中的文字再调整某些格式,文本框中的文字有时候不能像普通段落中的文字一样产生同样的效果。于是不免想找一个简单的方法将word文档中所有文本框中的内容全部取出来放到一个普通段落中。遇到大量的、性质相近的、方便自动化执行的工作,首先想到的是VBA。下面的VBA代码可以实现将文档中所有文本框中的内容转换成普通段落的功能:

        Application.ScreenUpdating = False
        Dim aShape As Shape
        For Each aShape In ActiveDocument.Shapes
            If aShape.Type = msoTextBox Or aShape.Type = msoFreeform Then
                txt = aShape.TextFrame.TextRange.Text
                aShape.Select
                Selection.Delete
                Selection.InsertAfter txt
            End If
        Next
        Application.ScreenUpdating = True

    代码太过简单,就不多做解释了。word中插入的图片或者文本框之类,都是shape。通过shape的type属性可以判断是否文本框。type的值可以查MSDN。

    上述代码将文本框中的内容直接插入在文本框所在位置。如果文本框比较奇葩,只在页面中起个定位作用,内容却包含了不同行的文本,那么转换后的内容就难以阅读了。这个问题人是根据上下文一眼可以看出来文本应该放置的位置的,但AI目前还不能做到这一点,VBA就更是无能为力了。希望你好运,碰到的文本框其内容恰好就该放在文本框所在的位置,那么这个宏就真正能用上了。

    展开全文
  • 本代码段中涉及word文档包含一张底图图片,及两个文本框。其他童鞋有需要修改多个文本框内容的,可依次添加。 # 导入包 import os import time from threading import Thread import pythoncom import win32...

           使用word批量制作证书,发现制作好人证书单个保存时有点麻烦, 特用python实现批量修改word文本框内容,生成单个word文件。

           本代码段中涉及word文档包含一张底图图片,及两个文本框。其他童鞋有需要修改多个文本框内容的,可依次添加。

    # 导入包
    import osimport time
    from threading import Thread
    import pythoncom
    import win32com.client
    from openpyxl import load_workbook
    # 声明 doc 之前要加入的代码
    pythoncom.CoInitialize()
    # 模拟打开office
    word = win32com.client.Dispatch('Word.Application')
    # 后台运行
    word.Visible = False
    if not os.path.exists('批量创建word证书'):    
        os.mkdir('批量创建word证书')
    
    # 加载证书明细
    wb = load_workbook("data.xlsx")
    old_text1 = sheet.cell(row=1, column=1).value
    old_text2 = sheet.cell(row=1, column=2).value
    
    # 文本框替换函数
    def text_box_replace(start_num, end_num):    
        for row in range(start_num, end_num):        
        # 打开模板文件        
        doc = word.Documents.Open(r"模板.docx")        
        # 读取需要替换的值       
        new_text1 = sheet.cell(row=row, column=3).value        
        new_text2 = sheet.cell(row=row, column=11).value        
        for shp in doc.Shapes:            
            if shp.TextFrame.HasText:          
               shp.TextFrame.TextRange.Find.Execute(FindText=old_text1,ReplaceWith=new_text1, Replace=1, Forward=True)
               shp.TextFrame.TextRange.Find.Execute(FindText=old_text2, ReplaceWith=new_text2, Replace=1, Forward=True)
        # 文件保存        
        filename = str(sheet.cell(row=row, column=1).value)        
        doc.SaveAs(r'证书-{}.doc'.format(filename))        
        doc.Close()
    
    # 列表推导式 创建多线程
    threads = [Thread(text_box_replace(i, i + 1)) for i in range(2, sheet.max_row + 1, 1)]
    # 启动线程
    [t.start() for t in threads]
    [t.join() for t in threads]
    
    print('证书批量制作完成')

     

    展开全文
  • 单击工具栏 开始 下的 选择 ,在选择的下拉菜单当中选择“选择对象”,然后用鼠标选中所有要删除文本框,然后就一次选中了,然后再右键删除或者键盘上delete就可以了。 还可以一次性把鼠标斜着拖曳,选择一个区域...

    参考:https://plus.wps.cn/blog/p12970.html

    单击工具栏 开始 下的 选择 ,在选择的下拉菜单当中选择“选择对象”,然后用鼠标选中所有要删除的文本框,然后就一次选中了,然后再右键删除或者键盘上delete就可以了。

    还可以一次性把鼠标斜着拖曳,选择一个区域中所有的文本框。
    在这里插入图片描述

    如上图所示,可以看到,如果一个一个单独删除上面一排文本框是比较麻烦和浪费时间的。
    而一次选中再删除就比较方便。

    展开全文
  • 大家好,我—python萌新一枚,今天想用python批量制作word版证书,word文档中需要替换的内容是文本框格式的,程序运行后文件批量生成了,但是文档文本框的内容并未改变,以下是部分代码,我用的是python3.8 +pycharm...
  • 对多个WORD文档执行替换,包含正文、页眉和页脚。同时还支持多个关键字替换,例如将1替换成A,将2替换成B,将3替换成C...... 段落缩进 让指定的段落首行缩进俩字符。 中英互译 对选区的字符执行中译英、英译中操作.....
  • 多个word文档的查找替换;批量word替换
  • 原标题:Word查找技巧:批量删除文档中空格、空行 在日常工作中我们经常会碰到以下2个困扰:如,很多网上下载或拷贝到Word的纯文本形式的资料,最烦的莫过于文档中有一大堆空格或空行(回车符),格式非常混乱,完全不...
  • 解决方法:首先选择所有要打印的文件,这里可以是word、excel、powerpoint文件然后在所选择的文件上,...word批量打印能批量调格式么推荐使用“Office批量打印精灵”——Office文档批量打印软件,支持Word、Excel、...
  • 编按:排版长文档时,许多人对于文档的格式设置非常头痛,时常为此加班熬夜,今天小编将给大家分享3个快速设置文档格式的Word排版技巧,超级实用,快来瞧一瞧你是不是都已经知道了呢?*********提起Word长...
  • 功能描述: 批量提取指定Word文档(docx格式)中所有文本框中的文本。 测试文件: 参考代码: 执行结果:
  • 我经常从猪队友那里或者互联网上拿到这样的word文档:文档的内容有很多明显的标题段落,但是文档的编辑者并没有将这些标题段落应用样式以使文档有很好的层次结构,给文档标题段落的格式统一增加很多麻烦,例如下面...
  • Java 添加Word文本框

    2022-04-21 16:00:09
    Word中,文本框是指一种可移动、可调节大小的文字或图形容器。我们可以向文本框中添加文字、图片、表格等对象,下面,将通过Java编程来实现添加以上对象到Word文本框。 使用工具:Free Spire.Doc for Java (免费...
  • 一、背景和学习资料 这个问题持续困扰了我9天,一...2、网上资料:Python批量提取docx格式Word文档中所有文本框内的文本 如:https://blog.csdn.net/dongfuguo/article/details/104825058 3、python修改xml节点中的文本
  • 【亿愿WORD文档内容搜索及工具集(YYWORDSearch)】 1)专业搜索指定目录下的WORD文件(*.DOC;*.DOCX;)、WPS文件(*.WPS)、Powerpoint文件(*.ppt;*.pptx;*.pps;*.ppsx;*.dps;*.dpt;)、Excel文件(*.xls;*.xlsx;*....
  • 文本框 文本框的内部边距:单击右键——设置形状格式——文本框——设置内部边距 文档部件 1.域:插入——文档部件——域——选择类别(比如:文档信息) 2.去掉页眉一条线:选择空格符——点击正文/光标定位在页眉...
  • word中创建文本框

    2016-02-16 15:54:00
    word中创建文本框  在插入中点击“文本框”选项卡,例如以下图所看到的:  手工加入自己想要的文本框格式,然后选择所创建的文本框,在工具栏处会发现多了一个“格式”选项卡,点击,能够对文本框进行设置...
  • Word2016如何制作虚线文本框

    千次阅读 2021-01-17 19:13:46
    Word是我们比较常用的办公软件,是当前应用最广泛、最实用、功能最强大的文字处理软件,word中想要制作批量文本框效果,比如在制作电子板报时,常需要插入一些漂亮的文本框来美化自己的页面,该怎么创建虚线文本框...
  • 如何使用jquery读取word文档text = ',本地文件,文本内容到PDF的转换,其最终还是调用wkhtmltopdf命令.add_table(rows=1,cols=1,以及使用freemarker这样的模板引擎这样的方式。php中也有一些相应的方法,但在...
  • 假期最后一天,明天就要上班了,今天给大家分享20个Word实用技巧,希望你们能够喜欢。01、一键选择同样的内容编辑Word时,如果需要将相同样式的内容全选复制出去该怎么办呢?你是按住Ctrl键一个个的拖动鼠标选中吗?...
  • 回答:word转换为PPT,也许你很容易做到,但是反之把PPT转换为Word你知道吗?我之前一直用一个很笨的方法,就是把里面的文字一段一段粘出来。文字少了还好说,要是文字多了,那个工作量就可想而知了......步骤/方法...
  • 批量提取ppt文件中的文本和表格信息并存入word文档中
  • 1、批量删除空格 (1)点击【开始】-【编辑】-【替换】按钮或按【Ctrl+H】组合键,打开“查找与替换”对话框,将鼠标光标定位于“查找内容”文本框中,然后点击“更多”按钮。 (2)展开“替换”栏,点击“特殊格式...
  • 编按:说到Word脚注,不少小伙伴们就开始头疼了,觉得它非常难。其实只要你弄懂了脚注操作方法,就会觉得脚注非常简单,再复杂的脚注格式,你也能几分钟就轻松搞定。* * * * * * * * * * * * 对于编辑报告、论文或...
  • 近日有关于word中图片如何进行...那么接下来就由小编来给大家分享下小编所收集到与word中图片如何进行批量替换相关的信息吧(以下内容来自于网络非小编所写,如有侵权请与站长联系删除)以word2013为例,首先在文档中...
  • 作为一名网络小说迷,2011年12月19日在自己写的《数字人生系统》增加了 “阅读记录管理” 模块,自此每一本网络小说都记录开始阅读日期、结束阅读日期、Word版页数、字数、文件大小等基本属性(最初的想法是每季度、...
  • Word批量删除空格(全角空格、半角空格、不间断空格、制表符空格)的技巧从网页中复制过来的文字中会有许多的空段和空格,在Word中排版时也需要清除。那么为什么这一步要删除空格,而不是先删除空段呢?道理是:有些看...
  • 接下来是批量导出word文档批量打印word文件,批量导出word文档批量打印word文件的思路差不多,只是批量打印不用打包压缩文件,而是把所有文件合成一个word,然后通过js来调用word,提交打印机,把word文档的内容...
  • 批量修改多个Word文档内容同时批量修改多个word文档步骤1把要批量修改的文档都放在同一个文件夹中同时批量修改多个word文档步骤2在修改前,先确定多个word文档文件要被修改的内容如小小要修改的内容是多个word文档中...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,755
精华内容 702
关键字:

word文档如何批量删除文本框

友情链接: zhifangdu.rar