Question

excel中如何使用VBA代码将word中每一段话提取到excel表格中

例如word文件1.docx，文件中文字为第一段为1.xxxxxxxxxx，第二段为2.xxxxxxxxxxxx，第三段为3.xxxxxxxxxx,等等，如何利用excel中的VBA代码将word每一段提取到excel中？感谢各位大神！

Answer 1

word另存为txt，再用excel打开这个txt文件，OK。

Answer 2

可以的，vba无所不能，只有想不到，没有做不到

Answer 3

可以完成。但要说如何完成，那就不是几句话能说清了。

Answer 4

试试下面的代码：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Sub 宏1()
Dim wordapp As Object
Dim mydoc
Dim mypath$, myname$
Dim wdRng As Object
Dim pos1%, pos2% '定义找到的字段的首位位置
Application.DisplayAlerts = False
Set wordapp = CreateObject("word.application")
mypath = ThisWorkbook.Path & ""
myname = Dir(mypath & "*.doc*")
Set mydoc = wordapp.Documents.Open(mypath & myname)
Set wdRng = mydoc.Range
wdRng.Find.Execute ("（一）")
pos1 = wdRng.Start
Set wdRng = mydoc.Range
wdRng.Find.Execute ("五、")
pos2 = wdRng.Start
mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容
mydoc.Close False
wordapp.Quit
Worksheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Answer 5

复制粘贴