精华内容
下载资源
问答
  • 之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。思路和代码结构和之前提取word表格的...
    9bcde74e6d77720fcfeb9d5fcf27931d.gif

    之前介绍过用vba批量提取word中表格的内容今天来介绍一个提取word文字的实例,如下图:

    f04ea4ab0adc07b043a5af5fa7f7a5f4.png

    b8c0234e7d83051b62521d86d1ad63f3.png

    这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。

    思路和代码结构和之前提取word表格的差不多,核心代码如下图

    16dc601fba96b2436c943503b932ed21.png

    关于文字的提取,因为表格结构基本一致,可以用到word中Paragraphs的这个对象,即文档中的整行。

    Set WordD = .Documents.Open(filename)'打开文档
    contents = WordD.Paragraphs(3).Range.Text '提取第三行,根据实际情况进行修改

    效果:

    1eb9e4820e006630e803503e5399ded3.gif

    可以对提取的信息进一步处理,把只在客户栏中保留客户的姓名,其余的不要。只需要将原句修改为:

    contents =Split(WordD.Paragraphs(3).Range.Text,":")(1)

    效果:

    5546d6d7cb8831452ad95b396e9f4af8.gif

    以上就是关于这个实例的演示。

    这个方法简单方便使用,适合于所有word文档都用同一个模板的时候。如果结构都不一样的话,就需要使用其他的诸如正则查找等方式来进行操作。

    感兴趣的可以在公号内回复「提取文字」自取试用,尽快吧。

    如果觉得实用,分享给更多的朋友吧~~~

    相关阅读:

    Excel VBA 实例(25) - 班级随机点名并播放Excel VBA 实例(24) - 新股(债)中签一键批量查询Excel VBA 实例(23) - 一键批量提取word表格内容Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据

    欢迎交流!

    微信公众号:永恒君的百宝箱个人博客:www.yhjbox.com

    47baa40bc1ac747c13eb39435190c433.png点个在看支持下永恒君吧
    展开全文
  • 之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。思路和代码结构和之前提取word表格的...

    之前介绍过用vba批量提取word中表格的内容,今天来介绍一个提取word文字的实例,如下图:

    150347b7d670f611f0b4bef7ddb1aeff.png
    d823960e7cb7f88cb409f6532464ee0a.png

    这里有n个word文档,每个的结构基本一致,只有一些信息不一样。需要提取图中红框的内容。

    思路和代码结构和之前提取word表格的差不多,核心代码如下图

    2b59df55e369b527a1f4627d7d632be0.png

    关于文字的提取,因为表格结构基本一致,可以用到word中Paragraphs的这个对象,即文档中的整行。

    Set WordD = .Documents.Open(filename)'打开文档contents = WordD.Paragraphs(3).Range.Text '提取第三行,根据实际情况进行修改

    效果:

    b960a11914cce881266ef6c23e28f4af.gif

    可以对提取的信息进一步处理,把只在客户栏中保留客户的姓名,其余的不要。只需要将原句修改为:

    contents =Split(WordD.Paragraphs(3).Range.Text,":")(1)

    效果:

    c762f3b9e22e82e32160e4d5bd8aa579.gif

    以上就是关于这个实例的演示。

    这个方法简单方便使用,适合于所有word文档都用同一个模板的时候。如果结构都不一样的话,就需要使用其他的诸如正则查找等方式来进行操作。

    感兴趣的可以在公号内回复「提取文字」自取试用,尽快吧。

    如果觉得实用,分享给更多的朋友吧~~~

    相关阅读:

    Excel VBA 实例(25) - 班级随机点名并播放

    Excel VBA 实例(24) - 新股(债)中签一键批量查询

    Excel VBA 实例(23) - 一键批量提取word表格内容

    Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据


    欢迎交流!

    展开全文
  • 需求是:将所有的word里面表格的内容全部汇总到一个excel表格当中,如下图:没错,word里面同样也是可以用vba代码的。思路也是很简单:遍历读取每个word文档,提取指定的表格内容到excel表中即可,源代码如下,大...
    969ce550cf7726d63a0b0d69e0c78e4d.gif永恒君的百宝箱设为星标 精品文章第一时间读

    今天的这个实例来自公号的一位粉丝,如下图:

    fdc4f5538bcece60839adac12f67306d.png

    463497042ce4e0ba36d496f1d5b3df52.png

    这里有若干份同样表格,但是不同内容的word文档。需求是:将所有的word里面表格的内容全部汇总到一个excel表格当中,如下图:

    e2b4cb71e44dfdc444bebc32f8e0923c.png

    没错,word里面同样也是可以用vba代码的

    思路也是很简单:遍历读取每个word文档,提取指定的表格内容到excel表中即可,源代码如下,大部分网上都有现成的,永恒君做了一些修改而言。

    Sub 提取word表格()
        
        mypath = ThisWorkbook.Path & "\"
        myname = Dir(mypath & "*.docx")
        m = 1
            Do While myname <> ""
            Set mydoc = GetObject(mypath & myname)
            With mydoc
                m = m + 1
                With .Tables(1)
                    Cells(m, 1) = m - 1          '序号
                    Range("A1:F1") = Array("序号""姓名""性别""身份证号""住址""联系方式")
                    Cells(m, 2) = Replace(.cell(12).Range.Text, """")
                    Cells(m, 3) = Replace(.cell(22).Range.Text, """")
                    Cells(m, 4) = Replace(.cell(32).Range.Text, """")
                    Cells(m, 5) = Replace(.cell(42).Range.Text, """")
                    Cells(m, 6) = Replace(.cell(52).Range.Text, """")
                End With
                .Close False
            End With
            myname = Dir()
            Loop
            Set mydoc = Nothing
            MsgBox "提取完成"

    End Sub

    看一下效果:

    dbfeab70fb658ef23fb8c2f3015ef5bf.gif

    是不是很神奇?

    如果你在操作过程中有疑问,欢迎来交流。源文件准备好,需要的话再后台回复「word表格」即可。

    相关阅读:

    Excel VBA 实例(22) - 一键筛选其他工作表或工作簿的数据

    Excel vba 实例(21) - 如何快速准确录入数据

    Excel vba 实例(20) - 一键填充每月员工拜访地区

    欢迎加入我的知识星球,为您提供更多VBA、python等效率提升服务和资源!6d6ad8104601e2c789396cd63bdb5c25.png

    微信公众号:永恒君的百宝箱个人博客:www.yhjbox.com

    展开全文
  • vba实践+提取word章节标题文本及其起止页码信息声明:需要先打开文档再执行代码。在执行操作前,请先备份文件。有一个扫描版的pdf文档,进行文字识别后,得到一个与其对应的word文档(每页内容都与pdf文档一一对应)...

    aaeb247383e301c7e0deffdb4a908500.png

    vba实践+提取word章节标题文本及其起止页码信息

    声明:需要先打开文档再执行代码。在执行操作前,请先备份文件。

    有一个扫描版的pdf文档,进行文字识别后,得到一个与其对应的word文档(每页内容都与pdf文档一一对应)。对该word文档进行了排版,设置好了各种标题样式和大纲级别。现在要求对pdf文档按章节进行拆分,所以想到从这个对应的word中先提取章节标题文本及其起始页码和结尾页码,再根据这些信息对pdf进行拆分和命名。从word中读取的信息放到一个txt中。

    需要拆出的章节的标题文本已经提前输入到一个文本文件(LIST.TXT)中,一个标题文本一行,内容结构如下图所示。

    0e5520913d438d283dc076d0c82b87ef.png

    实现代码如下。主要思路:先从LIST.TXT中读取一个标题文本,然后用Find方法从word文档中搜索到该标题,通过Selection.Bookmarks("headinglevel").Range 属性取得该标题下的章节内容,再通过Range.Information(wdActiveEndPageNumber)属性读取该章节起始页码和结束页码。最后所信息写入到一个txt文本文件中。

    Sub 提取章节标题及章节起止页码()
    '需要的标题已经提前放到LIST.TXT中。从其中读取标题文本到word文档中寻找
    '找到标题之后,读取起始页码,把标题文本、起始页码放到一个txt文件中
    
    Dim TiStr As String
    Dim TiPar As Paragraph, EndPar As Paragraph, TiRng As Range
    Dim StartP As Integer, EndP As Integer, TiCount As Integer
    
    Open "F:userdataDesktop LIST.TXT" For Input As #1
    Open "F:userdataDesktop TitlePage.TXT" For Append As #2
    Open "F:userdataDesktop NoTitle.TXT" For Append As #3
    
    TiCount = 0
    Line Input #1, TiStr '读取第一个标题
    Do While Not EOF(1) '未达到结尾时执行循环,应该在文本文件末尾再加一行无意义行,确保所有行读取完
        Selection.HomeKey wdStory '光标加到文首
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = TiStr
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindStop
            .MatchWildcards = False
     
            '开始执行查找,因为可能存在多个TiStr,所以要循环
            If Not .Execute Then
                Print #3, TiStr & "  没有找到" & vbCrLf
            Else
                Selection.HomeKey wdStory '光标加到文首
                Do While .Execute
                    Set TiPar = Selection.Paragraphs(1)
                    If TiPar.OutlineLevel < 4 Then '如果是大纲级别4以上时,执行动作
                        StartP = TiPar.Range.Information(wdActiveEndPageNumber) '获得起始页码
                        Set TiRng = Selection.Bookmarks("headinglevel").Range
                        Set EndPar = TiRng.Paragraphs(TiRng.Paragraphs.Count)
                        EndP = EndPar.Range.Information(wdActiveEndPageNumber) '获得结束页码
                        Print #2, Left(TiPar.Range, Len(TiPar.Range) - 1) & vbTab & StartP & vbTab & EndP & vbLf '写入信息。文本文件行的结尾用vbcr会发生混乱,应该用vblf
                        TiCount = TiCount + 1 '找到标题,则计数
                        Exit Do
                    End If
                Loop
            End If
        End With
     
        Line Input #1, TiStr '读取下一个标题文本
    Loop
    Print #3, "共找到并提取了页码" & TiCount & "次"
    Close #1: Close #2: Close #3
    Set TiRng = Nothing: Set TiPar = Nothing: Set EndPar = Nothing
    MsgBox "完成"
    End Sub

    信息提取结果如下图所示。标题文本与起止页码之间用tab符相隔。

    8fde1551fef6d67b1fefb2c1a597874d.png
    展开全文
  • 使用Word.application读取 Word内容,根据关键字去判断这个是使用 用office的导入库,但是要求跑程序的机器上有安装office,而且版本必须和开发环境一样Do While Selection.Find.Execute(findtext:="关键字", ...
  • VBA实践+按章节标题提取(保留)word文档内容声明:在进行操作前,请备份文档!有这样一个文档,它的导航结构图如下所示,这些章节标题都设置好了样式和大纲级别,结构层次清晰易懂。一章的内容一般由基本知识和自测...
  • word文档内容格式:Excel表格格式:二、实现思路利用ExcelVBAWord进行交互操作,根据段落进行初步的内容定位,再利用正则表达式提取段落中的有效信息。三、实现代码Public Sub ExcelVba正则提取...
  • vba实践+提取word章节标题文本及其起止页码信息声明:需要先打开文档再执行代码。在执行操作前,请先备份文件。有一个扫描版的pdf文档,进行文字识别后,得到一个与其对应的word文档(每页内容都与pdf文档一一对应)...
  • 之前介绍过提取word文件内容的vba实例(见文末),其实对于word中加粗的文字这类涉及到文字格式的内容,一样也可以想...看过之前关于vba提取word内容的文章的朋友们应该有印象,这次的需求最核心问题就是如何判断段...
  • 那么客户的这种需求就涉及到需要对很多份word的报告(少则几十份,多则数百份)进行特定信息的提取并汇总到一张表格。往往这种需求是不能向客户收费的,属于一种增值的服务。 这种情况我们通常是怎么解决呢?大多数...
  • 在做数据筛选时,会要求提取带有特定关键词的短句。 楼主比较懒,代码只提供了提取关键词短句的部分,并未加入重复检测功能 待提取word文档格式如下:(关键词为XX) ...Sub 提取内容() Dim temp_text, tex...
  • 我们经常会面对Excel中的各种数据,有时候需要将混乱数据中...01提取数字先选中数据单元格,然后复制到Word中,在Word中使用「Ctrl + H」打开查找和替换。查找内容:[!0-9]替换为:空勾选“通配符”,最后“全部替换...
  • 上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。写入Word文档当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,...
  • 关于vba操作excel及word的常见demo,包含在rpa操作excel及提取word内容案例,仅供学习使用
  • 工作中需要对一个模板Word进行批量输入信息,但Word是个受保护的文档,并且内部有很多文本型窗体域。直接用vbs替换比较困难。这里补充下文本型窗体域是什么:窗体域是用来给人填写调查之用。下拉式窗体是只能选择...
  • word 2010 宏的使用Word中对宏的定义Word宏的优缺点Word宏运用实例---批量提取word数据结语 Word中对宏的定义 Microsoft Word中对宏定义为:“宏就是能组织到一起作为一独立的命令使用的一系列word命令,它能使日常...
  • 实例2:快速提取脚注内容 实例3:从任意页面编排页码 实例4:将多页文档分解成单页文档 实例5:快速更新参考文献编号 实例6:快转大纲级别并自动提取目录 实例7:完成虚框→实框的批量转换 实例8:批量实现缩放打印 ...
  • 遇到一个小需求,需要提取Word文档标题前面的序号,例如: /**************举例文档*******************/1. 一级标题1 /*一级标题的编号+标题内容,编号可能是系统内置编号样式,也可能是用户 *自定义的样式*/ ...
  • 提取内容如下图所示,需要将图中加粗部分单独提出后进行去噪处理。如果通过word处理,文字量小的时候尚可实现,但几十万字的处理量很容易就造成假死。因此采用了EXCEL进行数据处理。 代码如下:功能是将B列中的数据...
  • 上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。写入Word文档当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,...
  • Excel数据和Word数据交互,很多时候就是和Word内部的表格内容进行交互读取:一、了解Word VBA表格的表示方法■知识点一:创建表格在Word中插入2行3列的表格,录制宏得到下面的代码:2行3列的表格Sub 宏1() ...
  • 主要涉及到问题就是word文档中一列得分要转成Excel一行内容,如果一个人就复制,粘贴到Excel,再复制,转置即可。人一多,显得很麻烦。于是写了一段VBA来处理,在此保留备份。   Sub 汇总个人评分() D...
  • 上篇文章我们介绍了如果在Excel中利用VBA技术访问Word文档,今天我们就说说如何在Excel中利用VBA写入/提取Word文档中的数据。写入Word文档当前文件夹中存在一个test的Word文档,文档中仅有一张六列三行的空表格,...
  • 将永恒君的百宝箱设为星标精品文章第一时间读之前介绍过如何批量提取word内容到excel的实例:实例(23) - 一键批量提取word表格内容实例(26) – 一键批量提取word文字内容今天这个实例就来说说如何将excel中的内容...
  • 提取数据时,会遇到具有相似格式的内容,例如同一个word文档中出现了“(C01B35/06优先)”、(C01C11/00优先),(C01C18/00优先)……等,其存在相似的通配符格式,即&amp;amp;amp;quot;\(*优先\)&amp...
  • Word中可以用「邮件合并」功能批量制作文档,那Excel怎么办呢?如果现在需要把一个有200行数据的工作表中的每一行数据都按照某一种模板生成一个新的工作表。比如要在Excel中为下面这个学生成绩表中的每个学生按...
  • Office编程百宝箱29.0,简称VBA百宝箱。为Office编程国产首款超大型插件,原创30多个功能宝贝。所有功能通用于Excel、Word、PowerPoint、Outlook、Access、Publisher、Project、Office全家福。适用于微软Office2003...
  • PowerPoint (PPT) 文档 文本内容提取

    千次阅读 2017-10-14 11:35:47
    ppt文档里面 有很多文字,有些时候需要提取出来在WORD里面做素材用,网上搜索了下,首推的是pptConverttodoc,可我下载下来试验了下,要么是空白,要么不全,或许与我的系统环境有关。其它还有什么存为大纲之类,都...
  • word中自带正则表达式,不过Excel中却没有内置。可以在VBA中定义一个正则表达式函数,然后Excel中就可以调用了。VBA代码如下(VBA高亮无效,凑合着看):1.Function ExStr(Str As String, Parttern As String, Action...
  • 有时,想对一个文件夹中的文件进行管理,比如想给这些文件建立一个目录,这时我们需要首先将这些文件名导入到Word文档或者是Excel中去,然后通过超链接来管理。一个个复制粘贴?这种勤奋的精神我们还是不学为好。...

空空如也

空空如也

1 2 3
收藏数 56
精华内容 22
关键字:

vba提取word内容