首先按照正常的工作要求,用Word制作信息收集表,制作完畢后修改待填信息框,切換到開發(fā)模式選項(xiàng)卡,點(diǎn)擊“Aa”格式文本內(nèi)容控件(如果沒有開發(fā)模式選項(xiàng)卡,需要點(diǎn)擊“文件一選項(xiàng)一自定義功能區(qū)”,在右側(cè)勾選“開發(fā)工具”,即可出現(xiàn)這一選項(xiàng)了)(圖2)。
接下來單擊信息框,然后在開發(fā)工具中點(diǎn)選“設(shè)計(jì)模式”。在彈出的對話框中輸入標(biāo)題,這就是信息框的信息提示文字,要是有需要還可以修改邊框顏色、文本樣式等等(圖3、圖4)。
每個信息框都進(jìn)行了相應(yīng)的修改后,點(diǎn)擊開發(fā)模式中的“限制編輯”,在Word右側(cè)欄中勾選“限制對選定的樣式設(shè)置格式”和“僅允許在文檔中進(jìn)行此類型的修改”,并選中“填寫窗體”,Word部分就設(shè)置完畢了,然后只需保存并將文件發(fā)送給被收集信息者(圖5、圖6)。
待調(diào)查表返回后,我們開始用Excel批量自動摘錄Word填表信息。打開Excel,同樣是切換到開發(fā)工具選項(xiàng)卡,點(diǎn)選最左側(cè)的“Visual Basic”。雙擊Sheet1,填寫圖8中的宏代碼(也可從網(wǎng)盤下載,鏈接:https:∥pan.baidu.com/s/1tKUQ-IIcGKjtPluXshq3Cg,提取碼:1iri)(圖7、圖8)。
注意,抄錄好宏代碼后,不要著急關(guān)閉,點(diǎn)選當(dāng)前Visual Basic界面上方工具欄的“工具→引用”,在“可使用的引用”中找到“Microsoft Word 16.0 Obiect Library'并勾選確定(注:Word 2013等版本中的名稱略有不同)(圖9、圖10)。
之后回到Excel主界面,還是在開發(fā)工具選項(xiàng)卡中,點(diǎn)擊“宏”,選中剛才編輯的這個宏命令,單擊“運(yùn)行”,這時Excel會自動彈出文件選擇框,找到要摘錄信息的Word文檔,點(diǎn)選打開,Excel就可以開始自動摘錄信息了。這樣一來數(shù)據(jù)摘錄的工作就完全依靠電腦自動完成了,既大大節(jié)省了工作時間,也避免了手工摘錄的錯誤發(fā)生(圖11、圖12)。