vba编程基础知识_vba中文攻略

几天前，由于工作需要，有数百人不得不向相关人员反馈一堆问题。使用问题反馈表word电子邮件合并功能调用excel产生的。word邮件合并只能在一个文件中生成，而不能在每个记录中生成单独的文件。如果涉及数百人，如果手工拆成单独的文件，不要累死？作为资深菜鸟，只知一不知二是必然的。

所以，在网上找大神。真的有大神提供了解决方案，说下一段是VBA代码放到word里去运行就OK了！

----------------我是菜鸟，不会排版-----------------

(这个代码不是菜鸟应该研究的。反正我们只需要按照中间注释的说明修改路径就可以了。我试过。

VBA代码：

Sub myMailMerge()

Dim myMerge As MailMerge, i As Integer, myname As String

Application.ScreenUpdating = False

Set myMerge = ActiveDocument.MailMerge

With myMerge.DataSource

If .Parent.State = wdMainAndDataSource Then

.ActiveRecord = wdFirstRecord

For i = 1 To .RecordCount

.FirstRecord = i

.LastRecord = i

.Parent.Destination = wdSendToNewDocument

以数据源第一个和第二个字段的当前数据命名所生成的文件名，请修改命名公式

myname = .DataFields(1).Value & .DataFields(2).Value

.ActiveRecord = wdNextRecord

.Parent.Execute

With ActiveDocument

.Content.Characters.Last.Previous.Delete

生成的文档保存在D盘根目录下，请修改文档保存的路径

.SaveAs "D:\" & myname & ".doc"

.Close

End With

Next

End If

End With

Application.ScreenUpdating = True

End Sub

----------------我是菜鸟，不会排序-----------------

但是大神就是大神。他绝对想不到我们菜鸟。word中怎么运行VBA没有。我不得不继续搜索，终于明白了。word中运行VBA总共分为三个步骤(和把大象放在冰箱里一样简单):

第一步：打开word。按下键盘上的两个键：ALT和F11。

第二步:双击左侧ThisDocument节点，会弹出一个大的空白窗，把那堆VBA粘贴代码。

第三步:点击上面一排按钮中看起来像播放按钮的右小三角按钮。OK了!

点击后，您会发现界面不断闪烁，每次闪烁表示生成一个单独的文件，闪烁后，您到D盘根目录找到一堆生成的文件(VBAD盘根目录默认设置在代码中，就是这句话:.SaveAs "D:\……可自行修改)。

-----------------------

编后废话：

这是小编头条发的第一张贴纸，自我介绍：

菜鸟最怕的就是看大神的攻略，都是术语看头大！作为一名对一切都感兴趣的资深菜鸟，我已经致力于研究各种技术20多年了。我从事网站、写程序、艺术家、书法、绘画、文章、管理和假装。IT最懂艺术的，搞HR最懂画画的，最懂文字里的程序的，最后一事无成，博而不精，只留下一堆手记。从菜鸟的角度写手记，同样的白更容易理解，你值得拥有！