[已解决](Word-＞Excel)N张Word论文，把论文信息提取到Excel表格中以二维表格显示

yjwdjfqb

(Word-＞Excel)N张Word论文，把论文信息提取到Excel表格中以二维表格显示

如图，请老师们帮帮忙，谢谢大家了！
(Word-＞Excel)N张Word论文，把论文信息提取到Excel表格中以二维表格显示.rar (47 KB, 下载次数: 1)

2015-1-25 15:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-25 16:27

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. On Error Resume Next
   
3. Dim mypath$, wj$, arr(1 To 20000, 1 To 6)
   
4. Dim wd As New Word.Application
   
5. mypath = ThisWorkbook.Path & ""
   
6. wj = Dir(mypath & "*.doc")
   
7. Do While wj <> ""
   
8.     s = s + 1
   
9.     arr(s, 1) = s
   
10.     With wd.Documents.Open(mypath & wj)
    
11.         arr(s, 2) = .Paragraphs(1).Range
    
12.         arr(s, 3) = .Paragraphs(2).Range & .Paragraphs(3).Range
    
13.         x = Split(Trim(.Paragraphs(4).Range), "　")
    
14.         arr(s, 4) = x(0)
    
15.         arr(s, 5) = x(1)
    
16.         rq = Trim(.Paragraphs(5).Range)
    
17.         arr(s, 6) = Mid$(rq, 2, Len(rq) - 3)
    
18.         .Close False
    
19.     End With
    
20.     wj = Dir
    
21. Loop
    
22. wd.Quit
    
23. Range("a3").Resize(s, 6) = arr
    
24. End Sub

复制代码

dsmch

………………

yjwdjfqb

dsmch 发表于 2015-1-25 16:27
………………

老师你好，麻烦给我讲下这几句的意思好吧，谢谢老师了

• x = Split(Trim(.Paragraphs(4).Range), "　")
• arr(s, 4) = x(0)
• arr(s, 5) = x(1)
• rq = Trim(.Paragraphs(5).Range)
• arr(s, 6) = Mid$(rq, 2, Len(rq) - 3)　特别是这一句，中间的2和3什么意思
  

dsmch

rq指第5段（回车换行）
第5句指截取字符串