通过Word文件收集信息 使用Excel自动摘录数据方法
根据工作要求,有时候会安排发放一些基本信息调查表,内容各不相同,等收回来的时候,一个一个文档进行重新录入,工作量十分巨大。有没有好的办法能够自动将数据统一录入到一起呢?Office的最大优势就是联动,尤其从2013版本开始,PPT、Word、Excel里功能互相融合的趋势更加明显。今天小编就分享一个通过Word文件收集信息,使用Excel自动摘录数据的方法。
首先按照正常的工作要求制作Word信息收集表,制作完毕后修改待填信息框,切换到开发模式选项卡,点击“Aa”格式文本内容控件(如果没有,点击文件—选项—自定义功能区,右侧勾选“开发工具”)。
接下来单击信息框然后在开发工具中点选“设计模式”。
弹出对话框输入标题,这就是信息框的信息提示文字,要是有需求,还可以修改边框颜色、文本样式等等。
每个信息框都做了相应的修改后,点击开发模式中的“限制编辑”,在Word右侧栏中,勾选“限制对选定的样式设置格式”和“仅允许在文档中进行此类型的修改”并选中“填写窗体”。
Word部分就设置完毕了,这时候可以将文件发送给被收集信息者,待返回后,开始用Excel批量自动摘录Word填表信息。打开Excel,同样是切换到开发工具选项卡,点选最左侧的“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 '将选中文件个数保存至变量n
If return1 = -1 Then
'如选中文件(retun1=-1)则将选中的文件路径保存到filePathArray数组
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))
'根据filePathArray数组中的路径逐个打开Word文件
Dim ccSet
Set ccSet = WordDoc.ContentControls
'将ccSet设为打开文档的内容控件集合
i = 1
For Each cc In ccSet '遍历所有内容控件
Application.ActiveSheet.Cells(j, i) = cc.Range.Text '将内容控件内容保存至单元格
i = i + 1
Next
WordDoc.Close '关闭当前Word文档
Next
WordApp.Quit
End Sub
注意,抄录好宏代码后,不要着急关闭,点选当前Visual Basic界面上方工具栏的“工具—引用”,在“可使用的引用”中找到“Microsoft Word 16.0 Object Library”并勾选确定(Word2013中名称略有不同)。
回到Excel主界面,还是在开发工具选项卡中,点击“宏”,选中刚才编辑的这个宏命令,单击“运行”,这时Excel会自动弹出文件选择框,找到要摘录信息的Word文档点选打开,Excel就可以开始自动摘录信息了。这样一来,数据摘录的工作就完全依靠电脑自动完成了,大大节省了工作时间,也避免了手工摘录的出错几率。
以上就是通过Word文件收集信息,使用Excel自动摘录数据方法介绍,不知道大家有没有学会,这篇教程很实用,值得大家学习,希望大家喜欢!相关文章
- word目录怎么对齐后面的点点?word手动制作目录的时候,目录后面的........该怎么对齐呢?下面我们就来看看Word手动制作目录的技巧2023-05-27
- 怎么用word身份证照片打印出复印效果?想要复印身份证,但是如果身边没有身份证该怎么办呢?我们可以用图片实现复印身份证的效果,下面我们就来看看word中身份证图片打印跟2023-05-25
word中人员名单怎么对齐? Word 人员名单排版技巧分享
word中人员名单怎么对齐?word文档中的人员名单是文章样式的,想要排版成一列一列的,该怎么操作呢?下面我们就来看看Word 人员名单排版技巧分享2023-05-22- word发货单怎么做?发货记录单模板工作中听常用的,想要做一个模板,该怎么制作呢?下面我们就来看看word文档制作回签单的技巧2023-05-18
Word怎么快速制作公司信息表? Word批量制作上百份表格技巧分享
Word怎么快速制作公司信息表?公司信息表批量制作是最快的,有哪些技巧可以辅助工作呢?下面我们就来看看Word批量制作上百份表格技巧分享2023-05-18- Word制表位有哪些使用技巧?word中制表位不止很常用吗,如果使用制表位排版技巧可不少,下面我们就来看看下文详解制表位的使用方法2023-05-13
Word怎么给文字添加不规则形状底纹? Word艺术字效果制作过程
Word怎么给文字添加不规则形状底纹?word中输入的文字想要添加不规则形状作为底纹,该怎么操作呢?下面我们就来看看Word艺术字效果制作过程2023-04-26word文档单实线边框怎么添加? Word设置单实线边框的技巧
word文档单实线边框怎么添加?word中想要设置边框,下面我们就来看看Word设置单实线边框的技巧2023-04-25word折线图怎么添加垂直线? word折线图垂直轴设置方法
word折线图怎么添加垂直线?word制作的折线图想要添加垂直轴,该怎么操作呢?下面我们就来看看word折线图垂直轴设置方法2023-04-24Word怎么按字母顺序排序目录? word目录按首字母排序的技巧
Word怎么按字母顺序排序目录?word中想要制作按字母顺序排序的效果,该怎么操作呢?下面我们就来看看word目录按首字母排序的技巧2023-04-24
最新评论