接上文，体会到了vba在office套件中的强大功能。于是我认真思考了平常工作中有没有哪些机械重复性的操作是需要自动化的程序替代的。我司产品的图号（drawing）都是用一长串数字来命名的，很难以记忆。而客户很喜欢用自己习惯的简称来进行沟通。我在与德国同事沟通的每封邮件中都必须写清楚针对的是哪个图号，所以我很需要在输入邮件时快速地将简称替换为图号。
我为这个宏构思的操作步骤是：在写邮件时先输入简称，然后选中这个简称后运行宏，选中部分直接转换为图号。 由于上一次已经简单了解了vba语言的结构，所以我只要知道如何将字符串定义为鼠标选中的文本，后面的替换工作只需要简单地if判断后为选中文本定义新的字符串值即可。 据此，我又在google中进行了一番学习。。。
代码并不难，但是没想到一直报错。后来终于发现，如果需要将object定义为Word.Application对象的话，前提是要在outlook的库中勾选word library，如图：
最终可用的代码如下：
Sub QuickDrawing()
Dim objItem As Object
Dim objInsp As Outlook.Inspector
' Add reference to Word library in VBA Editor, Tools, References
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim objSel As Word.Selection
On Error Resume Next
'Reference the current Outlook item
Set objItem = Application.ActiveInspector.CurrentItem
If Not objItem Is Nothing Then
If objItem.Class = olMail Then
Set objInsp = objItem.GetInspector
If objInsp.EditorType = olEditorWord Then
Set objDoc = objInsp.WordEditor
Set objWord = objDoc.Application
Set objSel = objWord.Selection
If objSel = "Nickname1" Then
objWord.Selection = "DrawingXXXXXXXXXX"
End If
If objSel = "Nickname2" Then
objWord.Selection = "DrawingYYYYYYYYYY"
End If
'重复使用多个if判断
End If
End If
End If
Set objItem = Nothing
Set objWord = Nothing
Set objSel = Nothing
Set objInsp = Nothing
End Sub后续改进：
- 很无脑地直接使用多个if来判断，不便于后期添加更多的图号。标准的做法应该是在Excel中有一个简称和图号的对应表，选中的文本和表中的简称进行对比后返回相应的图号。但是这样又涉及到Excel对象的操作，又要花点时间去摸索。
- 目前的选中文本仅对于邮件正文区域有效，主题栏中选中的文本并不起作用。其实我一开始先做了一个在空白主题栏中输入简称后将整个主题替换为图号的宏，但是觉得那样在实际操作中限制过多，于是改为替换选中文本的方案。
实际使用后发现，vba真香！