ACCESS傳送數(shù)據(jù)到WORD中的這段代碼如何優(yōu)化呢

簡

我在word里設(shè)了窗體域，用來接收從ACCESS里傳過來的數(shù)據(jù)。
我也是照著例子寫的代碼，卻發(fā)現(xiàn)，在我這程序里，代碼好多好長，不知能否優(yōu)化一下。如果優(yōu)化，又該怎么優(yōu)化呢？
代碼如下：
Set n = CreateObject("word.application")
        n.Visible = False
        DoCmd.Hourglass True
        DoEvents
        
        n.Documents.Open FileName:=mobanPath & "\" & "2上模P1.doc" '打開模板位置下的指定文件
        n.Documents("2上模P1.doc").saveas FileName:=strgyName, Password:=""
        
        n.Documents(strgyName).FormFields("wtxtpinghao").Result = Me.txtpinghao '品號
        
    '表頭
        n.Documents(strgyName).FormFields("wtxtbC0").Result = Me.txtbC '上托長
        n.Documents(strgyName).FormFields("wtxtbK0").Result = Me.txtbK '上托寬
        n.Documents(strgyName).FormFields("wtxtbH0").Result = Me.txtbH '上托厚
        n.Documents(strgyName).FormFields("wtxtz").Result = Me.txtZ  '上托厚
   
    '--------------------------------------------------------------------------------------------------------
   
    '表
   
        n.Documents(strgyName).FormFields("wtxtShubei").Result = Me.txtshu  '備料
        n.Documents(strgyName).FormFields("wtxtShub1").Result = Me.txtshu  '刨
        n.Documents(strgyName).FormFields("wtxtShup1").Result = Me.txtshu  '平磨
        n.Documents(strgyName).FormFields("wtxtShuh1").Result = Me.txtshu  '橫銑
        n.Documents(strgyName).FormFields("wtxtShut1").Result = Me.txtshu  '鉗
        n.Documents(strgyName).FormFields("wtxtShuhua").Result = Me.txtshu  '劃
        n.Documents(strgyName).FormFields("wtxtShut2").Result = Me.txtshu  '鉗
        n.Documents(strgyName).FormFields("wtxtShul").Result = Me.txtshu  '立銑
        n.Documents(strgyName).FormFields("wtxtShut3").Result = Me.txtshu  '鉗
        n.Documents(strgyName).FormFields("wtxtShub2").Result = Me.txtshu  '刨
        n.Documents(strgyName).FormFields("wtxtShuh2").Result = Me.txtshu  '橫銑
        n.Documents(strgyName).FormFields("wtxtShut4").Result = Me.txtshu  '鉗
        n.Documents(strgyName).FormFields("wtxtShup2").Result = Me.txtshu  '平磨
   
    '--------------------------------------------------------------------------------------------------------
    '表尾
        n.Documents(strgyName).FormFields("wtxtGongYi").Result = Me.cbogongyi
    '    n.Documents(strgyName).FormFields("wtxtShenhe").Result = Me.cboShenhe
        
        n.Documents(strgyName).FormFields("wtxtriqi").Result = Format(Me.txtriqi, "yy年mm月dd日")
        n.Documents(strgyName).FormFields("wtxtye").Result = Me.txtYe
        
        n.Visible = True
        DoCmd.Hourglass False

簡

該怎么優(yōu)化呢，可以簡化不？
在此先謝謝大家了。