如何将word里的特定信息提取到excel里?

kuaidi.ping-jia.net  作者:佚名   更新日期:2024-09-11
如何从多个WORD文件中提取想要的文字到EXCEL里

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


  2、打开excel表格,点击“数据”选项卡,在“获取外部数据”当中,找到“自文本”。
  3、点击“自文本”,弹出下一窗口,选择刚才保存的名为1的txt类型文件,点击“导入”。因“自文本”方式数据导入默认的只有三种文件类型txt、csv、prn,所以需要事先将word转变为txt。


  4、弹出文本导入对话框,选择默认的固定宽度,意思就是数据与单元格一一对应。如果选择分隔符号,则导入的所有数据将会在一个单元格当中,接着,点击下一步。


  5、设置分行线,其实就是导入数据列数的控制,单击鼠标,可以在任意位置增加分行线。双击任意分行线,就会删除。完成设定后,点击下一步。


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


  7、导入完成。

用宏命令。
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 StrB
End Sub

提取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 StrB
End Sub

我对提取网站信息不太懂,你能确保格式都是一样的信息吗,是只取到站点空泊位数吗?
如果以上都是的话,把这些信息直接粘到EXCEL中变成一列(如第一列A),然后在第二列B中逐项输入公式:
第一行站点编号 =MID(A1,FIND("ID",A1)+4,FIND(">",A1)-FIND("ID",A1)-4-1)
第二行往下 =MID(A2,FIND(">",A2,2)+1,FIND("<",A2,2)-FIND(">",A2,2)-1)
已经测试过,应该没有问题,得到结果为:
1

River Street , Clerkenwell

51.52916347

-0.109970527

4

15

如对你有帮助,请采纳。

这个好像是XML格式,右键打开方式里,直接选excel打开
如果是word 文档,那就另存为xml格式或文本格式

这些文件不能直接在ipad里面看到的。他们需要特定的软件打开。\r\n你可以试试同步助手的文件管理功能,足够解决你的关于 word excel的问题了。

看看能否使用“超链接”来实现!

  • 如何将Word里的数字快速复制到Excel
    答:首先选中Excel表格中所有需要粘贴的单元格,当然可以超出相应的范围选取,点击鼠标右键,在弹出的对话框中选择【设置单元格格式】:在弹出的【单元格格式】对话框中,“数字”一栏选择“文本”,并点击确定:回到Word文档中,选择所有需要复制的数字,点击右键,在弹出的菜单栏中选择【复制】:右键点击需要复...
  • 如何把用word编写的文件拷贝/粘贴到E-mail中
    答:1、E-MAIL中本身就有浏览添加附件的 点浏览可以把你存在那个盘的的文件找出直接点击你所需要的文件名就可以。2、在word 编辑里有个复制然后到E-mail点右键粘贴就可以了。需要注意的是有很多邮箱默认的是纯文本编辑器,这时,你要点击,或者是选项,选多媒体编辑器,才可以把图片和格式贴上去!
  • 怎样把word表格复制到excel里去呢?
    答:1、首先,打开媒介工具“记事本”,将word文件里需要导入的数据,复制粘贴到记事本当中,然后保存成为txt文件,本例中将txt文件取名为“数据源.txt”。2、打开excel表格,点击“数据”选项卡,找到“自文本”。3、点击“自文本”,弹出下一窗口,选择刚才保存的名为“数据源”的txt类型文件,点击“导入...
  • 如何将Word文档中出现的所有电子邮件文字快速地更改为E-mail
    答:替换内容中输入E-mail。点击全部替换即可。
  • 如何快速变word中的数据为excel表格
    答:方法1 1、打开Word文档,将Word中需要转换的表格整体选中,复制;2、打开Excel工作薄,在需要的工作表上,选中放置的单元格,粘贴.方法2 第一步,在Word中,用“编辑”·“ 替换”命令,将所有单元格中的分段取消.即:在“查找和替换”对话框的“替换”选项卡上,“查找内容”框中输入(特殊字 符)段落...
  • 在word中需将c列除以一定数,结果放到e列。因需大量重复操作请问有简洁...
    答:1.在E列第一个单元格输入以下公式:{ ={ QUOTE "C { ={SEQ A} +1 }/5" } } 这里的大括号为域括号,必须用ctrl+F9输入才能有效 2.复制这个域代码,然后选择E列所有单元格,点编辑菜单-选择性粘贴-选“带格式文本(RTF)”,即将公式填充到E列所有单元格 3.选择E列,按F9,再按alt+...
  • word中如何把整片文章中不同位置的特定的字改成另外的字,例如,把整片...
    答:“编辑”菜单—替换-查找内容后输入“S”—替换为后输入“E”—点“替换”可以一处一处替换,点“全部替换”可以替换全部S。
  • 将Word表格复制到Eexcel中不,仍不能输超过15位数字,请问怎么办?0分...
    答:要想超过15位数字很简单,在你想输入的哪个EXCEL表格加上‘ 也就是ENTER键旁边的的那个键
  • 用WORD或是EXCEL,怎么把网页上格式的东西复制到W/E软件上(比如说化学...
    答:1变成图片方式贴到W/E文件中,2把页面用front page 或是dream wave 等软件将页面另存成文件,然后再插入文件方式就可以了
  • 将Word表格复制到Eexcel中不,仍不能输超过15位数字,请问怎么办?_百度...
    答:首选 设置excel单元格为文本 从word复制以后,不要直接粘贴 而是右键——选择性粘贴——无格式文本