將word表格自動批量導(dǎo)入excel

《將word表格自動批量導(dǎo)入excel》由會員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。

1、將Word表格自動批量導(dǎo)入Excel將Word表格自動批量導(dǎo)入Excel重慶羅勇(3月20日第11期)　　公司的日常辦公事務(wù)中，經(jīng)常需要將Word格式的表格（圖1）轉(zhuǎn)化并整理成一張Excel匯總表，這樣看起來更方便和清晰明了（圖2）。如果這些Word格式的表格結(jié)構(gòu)一樣，只是內(nèi)容上有差異，且這些表格保存在同一個Word文件中，那就可以用Word的“宏”功能使所有表格自動轉(zhuǎn)換成文本，然后在Excel中導(dǎo)入即可?！D1　圖2清理Word表格中的多余內(nèi)容　　圖1中的表格中存在大量的分段和空格等多余內(nèi)容，首先得把這些多余內(nèi)容清理掉?！　?/p>

2、第一步：由于每個員工的簡歷表格前都含有表頭標(biāo)題，因此得清除表頭文字“集團(tuán)公司員工簡歷表”。打開這個簡歷文檔，執(zhí)行菜單“編輯→替換”命令（或者按下“Ctrl+H”組合鍵）打開“查找和替換”對話框，在“查找內(nèi)容”中輸入“集團(tuán)公司員工簡歷表”，在“替換為”框中留空白，點(diǎn)擊“全部替換”按鈕即可；　　第二步：同上打開“查找和替換”對話框，在“查找內(nèi)容”中輸入“^p”(不含引號，“^p”為段落標(biāo)記字符，也可以通過點(diǎn)擊替換對話框中的“高級”按鈕來輸入)，在“替換為”框中留空白，點(diǎn)擊“全部替換”；接著在“查找內(nèi)容”中輸入“^w”(“^w”為空

3、白區(qū)域標(biāo)記符，同樣可以在“特殊字符”中找到)，在“替換為”框中留空白，點(diǎn)擊“全部替換”按鈕。這樣一張清晰明了的表格就出來了。將Word表格內(nèi)容轉(zhuǎn)換成文本　　單擊表格左上角選中一個表格，分別執(zhí)行菜單“表格→轉(zhuǎn)換→表格轉(zhuǎn)換成文本”命令，在打開的對話框中選中“其它字符”，并在后面文本框中輸入“@”（@是一個分隔符），單擊“確定”即可將一個員工的簡歷表格轉(zhuǎn)化成文本?！　∫敲總€表格都用以上方法手工一個一個地轉(zhuǎn)換的話，工作量可想而知。那如何快速地完成表格批量轉(zhuǎn)換成文本呢？可以編輯一個自動轉(zhuǎn)換的“宏”來實(shí)現(xiàn)?！　〉谝徊剑簣?zhí)行菜單“工具→宏

4、→VisualBasic編輯器”命令打開VBA編輯器，展開“Normal”項(xiàng)，雙擊其下的“ThisDocument”，然后在右側(cè)打開的代碼編輯區(qū)輸入如下代碼：　　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'定義循環(huán)范圍，N為需要轉(zhuǎn)換表格的總個數(shù)，根據(jù)實(shí)際情況進(jìn)行更改　　Selection.Find.Execute　　Selection.Find.Execute　　Selection.Tables(1).Select　　Selection.Rows.ConvertToTextSeparator:=wdSeparateByDefaultListSeparator,_　　NestedTables:=True　　Nexti'進(jìn)入下一個轉(zhuǎn)換操作　　EndSub　　第二步：關(guān)

7、閉VBA編輯器并保存剛才輸入的代碼返回Word主界面，點(diǎn)擊菜單命令“工具→自定義”，切換到“命令”選項(xiàng)卡，在左側(cè)列表中點(diǎn)選“宏”項(xiàng)，將右側(cè)的“Normal.ThisDocuments.Macro1”宏拖放到Word工具欄空白處，工具欄上將自動添加一個以Macro1命名的按鈕。右擊該按鈕，將它命名為“表格轉(zhuǎn)換文本”，最后關(guān)閉自定義對話框?，F(xiàn)在就點(diǎn)擊工具欄上的“表格轉(zhuǎn)換文本”按鈕，Word就會自動將簡歷文檔中的全部簡歷表格轉(zhuǎn)換成文本了。完成Excel匯總表　　經(jīng)過以上轉(zhuǎn)換的處理后，Word文檔簡歷表格如圖3所示，現(xiàn)在需要將它整理成

8、段落格式并導(dǎo)入到Excel中?！D3　　第一步：按下“Ctrl+H”組合鍵打開“查找和替換”對話框，在“查找內(nèi)容”中輸入“^p”(不含引號)，在“替換為”框中輸入“@”，點(diǎn)擊“全部替換”；接著在“查找內(nèi)容”中輸入“所屬公司@”，在“替換為”框中輸入“^p”，點(diǎn)擊“全部替換”按