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

Excel2003綠色版 EXCEL2003精簡綠色版 (附excel2003綠色工具)

• 類型：辦公軟件
• 大?。?/span>13.3MB
• 語言：簡體中文
• 時間：2012-06-19

查看詳情

word2013 官方免費版

• 類型：辦公軟件
• 大小：20.5MB
• 語言：簡體中文
• 時間：2014-07-21

查看詳情

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

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

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

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

Word部分就設(shè)置完畢了，這時候可以將文件發(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 '設(shè)置文件選擇對話框能夠選擇多個文件

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

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

If return1 = -1 Then

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

ReDim filePathArray(n)

For i = 1 To n

filePathArray(i) = .SelectedItems(i)

Next

Else '如果未選中任何文件則提示

MsgBox "未選擇任何文件", vbExclamation

End If

End With

For j = 1 To n

Set WordDoc = WordApp.Documents.Open(filePathArray(j))

'根據(jù)filePathArray數(shù)組中的路徑逐個打開Word文件

Dim ccSet

Set ccSet = WordDoc.ContentControls

'將ccSet設(shè)為打開文檔的內(nèi)容控件集合

i = 1

For Each cc In ccSet '遍歷所有內(nèi)容控件

Application.ActiveSheet.Cells(j, i) = cc.Range.Text '將內(nèi)容控件內(nèi)容保存至單元格

i = i + 1

Next

WordDoc.Close '關(guān)閉當前Word文檔

Next

WordApp.Quit

End Sub

注意，抄錄好宏代碼后，不要著急關(guān)閉，點選當前Visual Basic界面上方工具欄的“工具—引用”，在“可使用的引用”中找到“Microsoft Word 16.0 Object Library”并勾選確定（Word2013中名稱略有不同）。

回到Excel主界面，還是在開發(fā)工具選項卡中，點擊“宏”，選中剛才編輯的這個宏命令，單擊“運行”，這時Excel會自動彈出文件選擇框，找到要摘錄信息的Word文檔點選打開，Excel就可以開始自動摘錄信息了。這樣一來，數(shù)據(jù)摘錄的工作就完全依靠電腦自動完成了，大大節(jié)省了工作時間，也避免了手工摘錄的出錯幾率。

最新評論