近來在ERP人事模塊的實施過程中，遇到一個與word集成的應用。應聘者最終通過層層面試，人事專員需要打印一份word版本的Offer（入職通知書）出來。這時候就需要將Excel中的應聘數據導入到Word文檔中，比如說：應聘人員姓名、應報道時間等動態信息。而入職通知書的word文檔已經有現成的了。所以本應用就是需要將如上的動態數據，導入到word文檔中的指定位置。
實現的效果如下：
點擊，發送offer按鈕，將姓名、應報道日期寫入word文檔中。如下圖：
生成一份word文檔，並將信息寫入word中：
在Excel平臺中的實現步驟如下：
1、點擊發送offer按鈕，將word文檔以附件形式獲取出來（word文檔中數據位置應先指定，如：數據001、數據002）
2、將word文檔另存爲本地
3、將本表的數據，填入到word文檔中的指定位置。
附件中的案例，主要代碼如下：
PrivateSubCommandButton1_Click()
Dim當前路徑,導出文件名,導出路徑文件名,i,j
DimStr1,Str2
當前路徑=ThisWorkbook.Path
導出文件名="社保手續通知書"
FileCopy當前路徑&"\社保手續通知書(模版).doc",當前路徑&"\"&導出文件名&".doc"
導出路徑文件名=當前路徑&"\"&導出文件名&".doc"
SetWord對象=CreateObject("word.application")
WithWord對象
.Documents.Open導出路徑文件名
.Visible=True
判斷=0
.Selection.EndKeyUnit:=wdStory'光標置於文件尾
Forj=1To4
Str1="數據"&Format(j,"000")
Str2=Sheets("社保準備信息").Cells(i,j+1)
WithWord對象.ActiveWindow.Selection.Find
.Text=Str1
.Replacement.Text=Str2
.Forward=True
.Wrap=1
.ExecuteReplace:=2
EndWith
Nextj
EndWith
Word對象.Visible=True
SetWord對象=Nothing
EndSub
其中有用到，excel控制word的vba代碼，可以上本人的多貝公開課<ExcelVBA在設計大型管理系統中的應用>-word集成案例中找到答案。公開課地址：http://www.duobei.com/course/6701617857
也歡迎加入ERP羣交流、下載附件：
