如何从word里导出内容到excel表格

1.怎么从word里导出内容到excel表格

方法如下： 1、首先，打开媒介工具“记事本”，将word文件里需要导入的数据，复制粘贴到记事本当中，然后保存成为txt文件，本例中将txt文件取名为“1.txt”。

2、打开excel表格，点击“数据”选项卡，在“获取外部数据”当中，找到“自文本”。 3、点击“自文本”，弹出下一窗口，选择刚才保存的名为1的txt类型文件，点击“导入”。

因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn，所以需要事先将word转变为txt。 4、弹出文本导入对话框，选择默认的固定宽度，意思就是数据与单元格一一对应。

如果选择分隔符号，则导入的所有数据将会在一个单元格当中，接着，点击下一步。 5、设置分行线，其实就是导入数据列数的控制，单击鼠标，可以在任意位置增加分行线。

双击任意分行线，就会删除。完成设定后，点击下一步。

6、设置输出数据的格式，一般不需要进行任何设置，选择常规即可，点击“完成”。 7、导入完成。

2.如何提取WORD中的特定内容制成excel表格

用宏命令。

Sub abc() Dim App, WrdDoc, Mypath As String, StrA As String, StrB As String Mypath = ThisWorkbook.Path & "\aaa.doc" '请修改实际储存路径！ Set App = CreateObject("Word.Application") '用Set关键字创建Word应用成序对象！ App.Visible = True'根据实际情况修改是否可见 Set WrdDoc = App.Documents.Open(Mypath) '打开这个Word文件！ StrA = WrdDoc.Tables(1).Cell(1, 2).Range.Text ' 你要的第一个内容：第一行，第二列 StrB = WrdDoc.Tables(1).Cell(2, 2).Range.Text ' 你要的第一个内容：第二行，第二列 WrdDoc.Close ' 关闭文件 Set App = Nothing Debug.Print StrA Debug.Print StrBEnd Sub。