将Word表格自动批量导入Excel.doc

《将Word表格自动批量导入Excel.doc》由会员分享，可在线阅读，更多相关《将Word表格自动批量导入Excel.doc（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

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”为空白区域标记符，同样可以在“特殊字符”中找到)，在“替换为”框中留空白，点击“全部替换”按钮。这样一张清晰明了的表格就出来了。 将Word表

3、格内容转换成文本单击表格左上角选中一个表格，分别执行菜单“表格转换表格转换成文本”命令，在打开的对话框中选中“其它字符”，并在后面文本框中输入“”（是一个分隔符），单击“确定”即可将一个员工的简历表格转化成文本。 要是每个表格都用以上方法手工一个一个地转换的话，工作量可想而知。那如何快速地完成表格批量转换成文本呢？可以编辑一个自动转换的“宏”来实现。第一步：执行菜单“工具宏VisualBasic编辑器”命令打开VBA编辑器，展开“Normal”项，双击其下的“ThisDocument”，然后在右侧打开的代码编辑区输入如下代码： Sub Macro1()Selection.WholeStory

4、Selection.Find.ClearFormattingWith Selection.Find .Text = 所属公司 查找文档中包含 “所属公司” 的字段.Replacement.Text = 替换为空值，将所属公司字段行删除 .Forward = True.Wrap = wdFindContinue .Format = False.MatchCase = False .MatchWholeWord = False.MatchByte = True .MatchWildcards = False.MatchSoundsLike = False .MatchAllWordForms =

5、FalseEnd With Selection.Tables(1).SelectSelection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _ NestedTables:=TrueFor i = 1 To N-1 定义循环范围，N为需要转换表格的总个数，根据实际情况进行更改 Selection.Find.ExecuteSelection.Find.Execute Selection.Tables(1).SelectSelection.Rows.ConvertToText Separator:=wdSepar

6、ateByDefaultListSeparator, _ NestedTables:=TrueNext i 进入下一个转换操作 End Sub第二步：关闭VBA编辑器并保存刚才输入的代码返回Word主界面，点击菜单命令“工具自定义”，切换到“命令”选项卡，在左侧列表中点选“宏”项，将右侧的“Normal.ThisDocuments.Macro1”宏拖放到Word工具栏空白处，工具栏上将自动添加一个以Macro1命名的按钮。右击该按钮，将它命名为“表格转换文本”，最后关闭自定义对话框。现在就点击工具栏上的“表格转换文本”按钮，Word就会自动将简历文档中的全部简历表格转换成文本了。 完成Exce

7、l汇总表经过以上转换的处理后，Word文档简历表格如图3所示，现在需要将它整理成段落格式并导入到Excel中。 图3第一步：按下“Ctrl+H”组合键打开“查找和替换”对话框，在“查找内容”中输入“ p”(不含引号)，在“替换为”框中输入“”，点击“全部替换”；接着在“查找内容”中输入“所属公司”，在“替换为”框中输入“ p”，点击“全部替换”按钮，再按下F12键将它另存为纯文本文档并退出Word； 第二步：启动Excel后按下“Ctrl+O”组合键打开刚才保存的纯文本文件，在出现的“文本导入向导”对话框中选中“分隔符号”，单击“下一步”，接着在文本导入向导中选择“其他”项，在右面框中键入“”，在下面的预览分列中可以看到文本文件数据被划分开来（图4），最后点击“完成”按钮就可将文本文档转换成Excel汇总表了。 图4第三步：转换完成后，按住Ctrl键并选中删除不符合要求的“姓名”、“性别”、“职务”等多余的行，然后再根据实际情况对汇总表格作适当调整，Excel的简单操作这里不再赘述，完成后最终效果如图2。