可以批量从多个word结构一样的 中取三个数值到excel中吗！谢谢

lj1226189

新建文件夹 (2).zip (45.14 KB, 下载次数: 10)

2021-6-29 13:57 上传

点击文件名下载附件

领导催着要 女儿急得不得了 求各位高手帮帮我吧！！不胜感激！！

ming0018

vba把对应段落文本提取出来，然后正则定位抓出想要的字符串。

daibao88

VBA可以，专门干这活的。

zhanglei1371

1. Sub def()
   
2. MsgBox "必须启动word，否则出错！"
   
3.     Dim arr(), brr(), crr(), i%, wdapp As Object, f
   
4.     Dim mydoc As Object
   
5.     Set wdapp = GetObject(, "word.application")
   
6.     wdapp.Visible = True
   
7.     With Application.FileDialog(msoFileDialogFilePicker)
   
8.         If .Show <> -1 Then Exit Sub
   
9.         For Each f In .SelectedItems
   
10.             With wdapp.Documents.Open(f, Visible:=-1)
    
11.                 i = i + 1
    
12.                 Range("A" & i).Value = .Paragraphs(1).Range.Text
    
13.                 With .Range.Find
    
14.                     .Text = "编号："
    
15.                     If .Execute Then
    
16.                         Range("B" & i).Value = wdapp.Documents(f).Range(.Parent.End, .Parent.Paragraphs(1).Range.End - 1).Text
    
17.                     End If
    
18.                     .Parent.collapse 0
    
19.                     .Text = "已完成"
    
20.                     If .Execute Then
    
21.                         Range("C" & i).Value = Split(wdapp.Documents(f).Range(.Parent.End, .Parent.Paragraphs(1).Range.End - 1).Text, "，")(0)
    
22.                     End If
    
23.                 End With
    
24.                 .Close False
    
25.             End With
    
26.         Next
    
27.     End With
    
28.     MsgBox "已完成！"
    
29. End Sub

复制代码