将word表格自动批量导入excel

《将word表格自动批量导入excel》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、将Word表格自动批量导入Excel将Word表格自动批量导入Excel重庆罗勇(3月20日第11期)　　公司的日常办公事务中，经常需要将Word格式的表格（图1）转化并整理成一张Excel汇总表，这样看起来更方便和清晰明了（图2）。如果这些Word格式的表格结构一样，只是内容上有差异，且这些表格保存在同一个Word文件中，那就可以用Word的“宏”功能使所有表格自动转换成文本，然后在Excel中导入即可。　图1　图2清理Word表格中的多余内容　　图1中的表格中存在大量的分段和空格等多余内容，首先得把这些多余内容清理掉。　　

2、第一步：由于每个员工的简历表格前都含有表头标题，因此得清除表头文字“集团公司员工简历表”。打开这个简历文档，执行菜单“编辑→替换”命令（或者按下“Ctrl+H”组合键）打开“查找和替换”对话框，在“查找内容”中输入“集团公司员工简历表”，在“替换为”框中留空白，点击“全部替换”按钮即可；　　第二步：同上打开“查找和替换”对话框，在“查找内容”中输入“^p”(不含引号，“^p”为段落标记字符，也可以通过点击替换对话框中的“高级”按钮来输入)，在“替换为”框中留空白，点击“全部替换”；接着在“查找内容”中输入“^w”(“^w”为空

3、白区域标记符，同样可以在“特殊字符”中找到)，在“替换为”框中留空白，点击“全部替换”按钮。这样一张清晰明了的表格就出来了。将Word表格内容转换成文本　　单击表格左上角选中一个表格，分别执行菜单“表格→转换→表格转换成文本”命令，在打开的对话框中选中“其它字符”，并在后面文本框中输入“@”（@是一个分隔符），单击“确定”即可将一个员工的简历表格转化成文本。　　要是每个表格都用以上方法手工一个一个地转换的话，工作量可想而知。那如何快速地完成表格批量转换成文本呢？可以编辑一个自动转换的“宏”来实现。　　第一步：执行菜单“工具→宏

4、→VisualBasic编辑器”命令打开VBA编辑器，展开“Normal”项，双击其下的“ThisDocument”，然后在右侧打开的代码编辑区输入如下代码：　　SubMacro1()　　Selection.WholeStory　　Selection.Find.ClearFormatting　　WithSelection.Find　　.Text="所属公司"'查找文档中包含“所属公司”的字段　　.Replacement.Text=""'替换为空值，将所属公司字段行删除　　.Forward=True　　.Wrap=wdFindC

5、ontinue　　.Format=False　　.MatchCase=False　　.MatchWholeWord=False　　.MatchByte=True　　.MatchWildcards=False　　.MatchSoundsLike=False　　.MatchAllWordForms=False　　EndWith　　Selection.Tables(1).Select　　Selection.Rows.ConvertToTextSeparator:=wdSeparateByDefaultListSeparator,_　

6、　NestedTables:=True　　Fori=1ToN-1'定义循环范围，N为需要转换表格的总个数，根据实际情况进行更改　　Selection.Find.Execute　　Selection.Find.Execute　　Selection.Tables(1).Select　　Selection.Rows.ConvertToTextSeparator:=wdSeparateByDefaultListSeparator,_　　NestedTables:=True　　Nexti'进入下一个转换操作　　EndSub　　第二步：关

7、闭VBA编辑器并保存刚才输入的代码返回Word主界面，点击菜单命令“工具→自定义”，切换到“命令”选项卡，在左侧列表中点选“宏”项，将右侧的“Normal.ThisDocuments.Macro1”宏拖放到Word工具栏空白处，工具栏上将自动添加一个以Macro1命名的按钮。右击该按钮，将它命名为“表格转换文本”，最后关闭自定义对话框。现在就点击工具栏上的“表格转换文本”按钮，Word就会自动将简历文档中的全部简历表格转换成文本了。完成Excel汇总表　　经过以上转换的处理后，Word文档简历表格如图3所示，现在需要将它整理成

8、段落格式并导入到Excel中。　图3　　第一步：按下“Ctrl+H”组合键打开“查找和替换”对话框，在“查找内容”中输入“^p”(不含引号)，在“替换为”框中输入“@”，点击“全部替换”；接着在“查找内容”中输入“所属公司@”，在“替换为”框中输入“^p”，点击“全部替换”按