从“善假于物”谈起——浅谈Access在Word中的综合应用

roych

有时候，一些不太熟悉我的版友会觉得，“哇，你的Access怎么学得这么好？在哪里学的？学了多久？有什么推荐的书或者网站视频吗？”
对于他们连珠炮似的发问，有时候我真不知道该怎么回答，姑且闲扯一下吧：
1、事实上，我可能算是滥竽充数的版主了吧。个人觉得，Access学得并不算很好，大概够用的样子。
2、至于在哪里学？我当时是在市面上买了一本书，照着章节做了一遍。然后一些不懂的东西就在论坛上提问。
3、学了多久？一开始我是学了三个月，感觉有些飘飘然了，这窗体什么的，也不难啊。。。然后开发系统的时候，才发现，数据库理论不太熟，建表，写查询，建窗体，发现缺少一些字段，修改表结构，修改查询，又建窗体，发现还有功能无法实现，继续修改表，修改查询……最后不得不推翻重来。真正开始做系统，差不多半年吧。如果只是学着做一些小工具来改善工作效率（例如，几乎都是外部数据的情况下），那么，大约三个月就够了。如果开发系统，悟性高的话，也许三个月也够了。我算是比较驽钝的了。
4、推荐的书。大多数人会推荐《Access 2013宝典》（反正我没认真看过，章节倒是比较详细。）。我的建议是，如果只是开发一些小工具改善工作效率的，随便在市面上买一本就够了。如果需要开发软件的话，那么还是用那本“宝典”吧。至于网站视频，我没有什么推荐的，进阶的阶段，可以看看本站的视频。而网站则推荐本站。各种解决问题的应用示例，还有我以前写的“新手入门”系列扫盲贴，也许对新手有所裨益。

要学好一样东西，都是需要花时间的，还需要自己去寻找一切的学习机会，进行大量的练习。这没什么捷径的。如果只是一次两次需求，当下伸手党倒也无妨。但如果经常需要它来改善工作的话，我觉得还是花点时间吧。天分只是决定你的下限，努力才是决定你的上限的。

我说过，我的Access学得并不太好，但通常并不会影响我帮大家解决问题。这是为什么呢？因为我“善假于物”啊。就拿前段时间一件事来说吧：

前段时间，有人在QQ群问起，如何以Excel作为数据源，用邮件合并的方式，将文件名，图片插入到word当中。效果大体如下：


当时也思考过这个问题，邮件合并大概也不算太复杂，但看了他给的模板，最后有个表格需要填入汇总数据。
邮件合并时插入图片，处理起来并不算一件容易的事情，另外汇总数据更加麻烦（后面如果有时间，在不添加汇总表的情况下，我再试试）。
所以，只能考虑用VBA来实现了。

现在问题是，我对于Word对象的各种属性方法很陌生。咋办？去找demo，帮助文件等等啊。简单点的话，我们可以用word录制宏去把一些对象方法属性提出来，不是么？

还是老规矩，先上代码：

1. Sub wirteWordData()
   
2. '新建文件系统对象
   
3.     Dim fso As New FileSystemObject
   
4. '根目录
   
5.     Dim objRoot As Folder
   
6. '子文件夹
   
7.     Dim objSubFold As Folder
   
8. '子文件夹内的文件
   
9.     Dim objFile As File
   
10. '这里不用New，目的在于后续方便关闭或者退出
    
11.     Dim objWord As Word.Application
    
12. 'Word文档
    
13.     Dim objDoc As Word.Document
    
14. '选区
    
15.     Dim objSelection As Word.Selection
    
16. '序号
    
17.     Dim i As Long
    
18. 
    
19. 
    
20. '根目录
    
21.     Set objRoot = fso.GetFolder(CurrentProject.Path)
    
22. '子文件夹
    
23.     For Each objSubFold In objRoot.SubFolders
    
24. '子文件夹中所有文件
    
25.         i = 1
    
26.         Set objWord = New Word.Application
    
27. '创建一个Word文档
    
28.         Set objDoc = objWord.Documents.Add
    
29. '遍历子文件夹下的文件
    
30.         For Each objFile In objSubFold.Files
    
31. '从第一行开始插入数据，依次插入序号，段落，图片名称，图片
    
32.             With objDoc.ActiveWindow.Selection
    
33.                 .TypeText i
    
34.                 .TypeParagraph
    
35.                 .TypeText objFile.Name
    
36.                 .TypeParagraph
    
37.                 .InlineShapes.AddPicture objSubFold.Path & "" & objFile.Name
    
38.             End With
    
39.             i = i + 1
    
40.         Next
    
41. '插入汇总表格，调整为默认格式（忽略倒数第二个参数则边框线不可见）。
    
42.         objDoc.Tables.Add objDoc.ActiveWindow.Selection.Range, 2, 2, wdWord9TableBehavior, wdAutoFitContent
    
43.         objDoc.Tables(1).Select
    
44. '设置段落居中
    
45.         Set objSelection = objDoc.ActiveWindow.Selection
    
46.         With objSelection
    
47.             .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
48.         End With
    
49. '选择左上角单元格
    
50.         objDoc.Tables(1).cell(1, 1).Select
    
51.         Set objSelection = objDoc.ActiveWindow.Selection
    
52.         With objSelection
    
53. '依次向右移动光标填入数据。
    
54.             .TypeText "设计师"
    
55.             .MoveRight wdCharacter, 1
    
56.             .TypeText "违规个数"
    
57.             .MoveRight wdCharacter, 1
    
58.             .MoveRight wdCharacter, 1
    
59.             .TypeText objSubFold.ShortName
    
60.             .MoveRight wdCharacter, 1
    
61.             .TypeText i
    
62.         End With
    
63. '保存Word文件并退出Word程序，以便下一个子文件夹重新操作
    
64.         objDoc.SaveAs2 CurrentProject.Path & "" & objSubFold.ShortName & ".docx"
    
65.         objDoc.Close
    
66.         objWord.Quit
    
67.     Next
    
68. '完成后弹出提示。
    
69.     MsgBox "done"
    
70. End Sub

复制代码

由于注释已经很清楚了，所以这里就不再详细说明实现的思想过程了。

tmtony

赞一个！

wang1950317

谢谢！受教！

ralfchai

谢谢！受教！

worryd1

学习了