根據(jù)工作要求，有時候會安排發(fā)放一些基本信息調(diào)查表，內(nèi)容各不相同，等收回來的時候，一個一個文檔進行重新錄入，工作量十分巨大。有沒有好的辦法能夠自動將數(shù)據(jù)統(tǒng)一錄入到一起呢？Office的最大優(yōu)勢就是聯(lián)動，尤其從2013版本開始，PPT、Word、Excel里功能互相融合的趨勢更加明顯。今天小編就分享一個通過Word文件收集信息，使用Excel自動摘錄數(shù)據(jù)的方法。

首先按照正常的工作要求制作Word信息收集表，制作完畢后修改待填信息框，切換到開發(fā)模式選項卡，點擊“Aa”格式文本內(nèi)容控件（如果沒有，點擊文件—選項—自定義功能區(qū)，右側(cè)勾選“開發(fā)工具”）。

接下來單擊信息框然后在開發(fā)工具中點選“設計模式”。

彈出對話框輸入標題，這就是信息框的信息提示文字，要是有需求，還可以修改邊框顏色、文本樣式等等。

每個信息框都做了相應的修改后，點擊開發(fā)模式中的“限制編輯”，在Word右側(cè)欄中，勾選“限制對選定的樣式設置格式”和“僅允許在文檔中進行此類型的修改”并選中“填寫窗體”。

Word部分就設置完畢了，這時候可以將文件發(fā)送給被收集信息者，待返回后，開始用Excel批量自動摘錄Word填表信息。打開Excel，同樣是切換到開發(fā)工具選項卡，點選最左側(cè)的“Visual Basic”。

雙擊Sheet1，填寫宏代碼（登錄PC版微信，訂閱號中找到辦公便簽，點擊查看歷史消息找到本文再進行復制）：

Option Base 1

Sub readDoc()

Dim WordApp As Word.Application

Set WordApp = CreateObject("Word.Application")

Dim WordDoc As Word.Document

Dim diag1 As FileDialog

Dim return1 As String

Dim filePathArray()

Set diag1 = Application.FileDialog(msoFileDialogFilePicker)

'定義文件選擇對話框

With diag1

.AllowMultiSelect = True '設置文件選擇對話框能夠選擇多個文件

return1 = .Show '打開文件選擇對話框

n = .SelectedItems.Count '將選中文件個數(shù)保存至變量n

If return1 = -1 Then

'如選中文件(retun1=-1)則將選中的文件路徑保存到filePathArray數(shù)組