从word中把所有图的图题批量提取到excel中

来源：互联网发布：网络喷人侮辱罪编辑：程序博客网时间：2024/06/07 01:04

Sub Macro1()Dim wd, mypath$, wj$, i&, x%, zf$Set wd = CreateObject("word.application")mypath = ThisWorkbook.Path & "\"wj = Dir(mypath & "文件名.doc")With wd.Documents.Open(mypath & wj)    x = .Paragraphs.Count    For i = 1 To x        zf = .Paragraphs(i).Range        If zf Like "*图X-*" Then              Cells(s + 1, 2) = zf              s = s + 1        End If    Next    .Close FalseEnd Withwd.QuitEnd Sub

使用工具：Excel 2013 VBA

运行环境：Windows10

最近整报告，需要把所有的图，表列个清单。对于大量的图，一个个整理，太费时间了。

因此使用VBA编制了一个工具，用于批量提取图题，（表题与图题是一样的）。

步骤：

1.将word版报告与新建excel放在同一目录下。

2.打开VBA代码编辑界面。

3.拷入最上方的代码。

4.修改相应的文件名。

5.运行程序。

6.查看结果。

0 0