Dim projectno為字符串，projectname為字符串，datereceive為日期，datecomplate為日期，functionary為字符串
Dim arr作為對象
暗淡我壹樣長
昏暗的brr
projectno = ActiveDocument。部分(1)。headers(wdHeaderFooterPrimary). range . tables(1)。單元格(1，2)。範圍
Dim excelobject作為對象
set excel object = GetObject(" D:\ Downloads \ project(word)\ project . xls ")
設置arr = excelobject。張(1)。使用範圍()
brr = arr
對於i = 2至下界(brr)
If InStr(1，projectno，brr(i，1))& gt；那麽0
projectname = brr(i，2)
datereceive = brr(i，3)
datecamplate = brr(I，4)
functional = brr(I，5)
為...退出
如果…就會結束
接下來我
ActiveDocument表格(1)。單元格(1，2)。Range =項目名稱
ActiveDocument表格(1)。單元格(2，2)。範圍=日期接收
ActiveDocument表格(1)。單元格(3，2)。Range = datecomplate
ActiveDocument表格(1)。單元格(4，2)。範圍=工作人員
excelobject。關閉假
末端接頭