' Equipment and location

    ‘下面这些是垃圾.为了保证打印的完整性.

    If reqdoc.equipment1<>"" Then

    Call SetBookmark ( WordDoc , "equipment1"  , reqdoc.equipment1(0) )

    Call SetBookmark ( WordDoc , "location1"  , reqdoc.location1(0) )

    End If

    If reqdoc.equipment2<>"" Then

    Call SetBookmark ( WordDoc , "equipment2"  , reqdoc.equipment2(0) )

    Call SetBookmark ( WordDoc , "location2"  , reqdoc.location2(0) )

    End If

    If reqdoc.equipment3<>"" Then

    Call SetBookmark ( WordDoc , "equipment3"  , reqdoc.equipment3(0) )

    Call SetBookmark ( WordDoc , "location3"  , reqdoc.location3(0) )

    End If

    If reqdoc.equipment4<>"" Then

    Call SetBookmark ( WordDoc , "equipment4"  , reqdoc.equipment4(0) )

    Call SetBookmark ( WordDoc , "location4"  , reqdoc.location4(0) )

    End If

    If reqdoc.equipment5<>"" Then

    Call SetBookmark ( WordDoc , "equipment5"  , reqdoc.equipment5(0) )

    Call SetBookmark ( WordDoc , "location5"  , reqdoc.location5(0) )

    End If

    If reqdoc.equipment6<>"" Then

    Call SetBookmark ( WordDoc , "equipment6"  , reqdoc.equipment6(0) )

    Call SetBookmark ( WordDoc , "location6"  , reqdoc.location6(0) )

    End If

    If reqdoc.equipment7<>"" Then

    Call SetBookmark ( WordDoc , "equipment7"  , reqdoc.equipment7(0) )

    Call SetBookmark ( WordDoc , "location7"  , reqdoc.location7(0) )

    End If

    If reqdoc.equipment8<>"" Then

    Call SetBookmark ( WordDoc , "equipment8"  , reqdoc.equipment8(0) )

    Call SetBookmark ( WordDoc , "location8"  , reqdoc.location8(0) )

    End If

    If reqdoc.equipment9<>"" Then

    Call SetBookmark ( WordDoc , "equipment9"  , reqdoc.equipment9(0) )

    Call SetBookmark ( WordDoc , "location9"  , reqdoc.location9(0) )

    End If

    If reqdoc.equipment10<>"" Then

    Call SetBookmark ( WordDoc , "equipment10"  , reqdoc.equipment10(0) )

    Call SetBookmark ( WordDoc , "location10"  , reqdoc.location10(0) )

    End If

    If reqdoc.equipment11<>"" Then

    Call SetBookmark ( WordDoc , "equipment11"  , reqdoc.equipment11(0) )

    Call SetBookmark ( WordDoc , "location11"  , reqdoc.location11(0) )

    End If

    If reqdoc.equipment12<>"" Then

    Call SetBookmark ( WordDoc , "equipment12"  , reqdoc.equipment12(0) )

    Call SetBookmark ( WordDoc , "location12"  , reqdoc.location12(0) )

    End If

    ‘垃圾结束.

    ' file name for extracting and attaching

    wordPODocName = pathName & fileName & reqDoc.WorkOrderNum(0) & fileExt

    ‘这句非常关键,如果使用原来的名字,则原来的word文档就被冲掉了.

    WordDoc.SaveAs  wordPODocName , wdFormatDocument

    WordDoc.Application.PrintOut

    ' clean up word objects

    WordDoc.Close

    WordDoc = Null

    WordObj = Null

    Exit Sub

    ErrorHandler:

    errMsg="Error in Common.CreateWordPO  " & Str$(Err) & ": " & Error$ & "-- Line: #>" & Cstr(Erl)

    ' WriteErrDoc ( errMsg )

    Resume Next

    End Sub

    Function SetBookmark( wrdDoc As Variant, fieldName$, itemValue$ ) As Integer

    ' Set's the value of a bookmark in a Word document

    On Error Goto ErrorHandler

    Dim range As Variant

    On Error Goto ErrorHandler

    Set range = wrdDoc.Bookmarks( fieldName$ ).range

    range.end = range.end

    range.text = itemValue$

    SetBookmark = True

    Exit Function

    ErrorHandler:

    Dim errMsg$

    errMsg= "Error in Common.SetBookmark  " & Str$(Err) & ": " & Error$ & "-- Line: #>" & Cstr(Erl)

    ' WriteErrDoc ( errMsg )

    SetBookmark = False

    Exit Function

    End Function

    WO_DOC.zip