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

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

• 類(lèi)型：辦公軟件
• 大?。?/span>13.3MB
• 語(yǔ)言：簡(jiǎn)體中文
• 時(shí)間：2012-06-19

查看詳情

word2013 官方免費(fèi)版

• 類(lèi)型：辦公軟件
• 大?。?/span>20.5MB
• 語(yǔ)言：簡(jiǎn)體中文
• 時(shí)間：2014-07-21

查看詳情

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

接下來(lái)單擊信息框然后在開(kāi)發(fā)工具中點(diǎn)選“設(shè)計(jì)模式”。

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

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

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

雙擊Sheet1，填寫(xiě)宏代碼（登錄PC版微信，訂閱號(hào)中找到辦公便簽，點(diǎn)擊查看歷史消息找到本文再進(jìn)行復(fù)制）：

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)

'定義文件選擇對(duì)話(huà)框

With diag1

.AllowMultiSelect = True '設(shè)置文件選擇對(duì)話(huà)框能夠選擇多個(gè)文件

return1 = .Show '打開(kāi)文件選擇對(duì)話(huà)框

n = .SelectedItems.Count '將選中文件個(gè)數(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ù)組中的路徑逐個(gè)打開(kāi)Word文件

Dim ccSet

Set ccSet = WordDoc.ContentControls

'將ccSet設(shè)為打開(kāi)文檔的內(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)閉當(dāng)前Word文檔

Next

WordApp.Quit

End Sub

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

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

最新評(píng)論