word文档如何转成转Excel？

直观的界面、出色的计算功能和图表工具，再加上成功的市场营销，使Excel成为最流行的个人计算机数据处理软件。

Word如何转Excel？这个视频告诉你怎么操作，让你轻松上手。

在电子表格第一行先输入标题
代码 公司名称 XX 发布时间 然后把word里面的东西粘到下面，然后点上面的数据-筛选-自动筛选，然后在发布时间里选择升序或降序

给你一个我刚写的简单示例
Sub OkExcel()
'智能Excel 大圣美猴王
Dim wd As New Word.Application
Dim doc As New Word.Document
Dim ws As Worksheet
Dim r As Range
Dim i As Integer, n As Integer
Dim FileName As String, arr
FileName = "C:\1.doc"
Set doc = wd.Documents.Open(FileName)
wd.Visible = False
n = doc.Paragraphs.Count
Set ws = Worksheets(1)
ws.Cells.Clear
Set r = ws.Range("A1")
For i = 1 To n
arr = Split(doc.Paragraphs(i).Range.Text, " ")
r.Resize(1, UBound(arr)) = arr
Set r = r.Offset(1, 0)
Next
doc.Save
doc.Close
wd.Quit
Set r = Nothing: Set ws = Nothing
Set doc = Nothing: Set wd = Nothing
End Sub
不明白，可以HI