如何自動化使用 OLE 和 ODBC 的 Word 合併列印

重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤,就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。

按一下這裡查看此文章的英文版本:181926
結論
本文將告訴您,如何使用 OLE 自動化,在 Microsoft Office Word 2003 為 Windows 資料表使用資料從一個 Visual FoxPro (VFP) 中建立郵件合併。
其他相關資訊
下面 Windows 的 Visual FoxPro 程式碼使用 Word.Application 物件模型,會執行郵件合併使用 ODBC 資料來源到現有的 Visual FoxPro 資料表。這段程式碼可以使用現有的資料來源名稱 (DSN) 建立在 ODBC 驅動程式管理員中,或者它可以建立一個即時利用新增和使用資料來源名稱的 API 呼叫。下面範例中 「 Visual FoxPro 資料表 」 是在 ODBC 驅動程式管理員中建立資料來源名稱,並指出 VFP 主資料夾中的 [\Samples\Data] 資料夾。這些路徑最可能會變更以反映使用者的路徑。

附註這個程式碼已測試的 [服務發行-1 (SR-1) 代表 Word 97 與 Microsoft Office Word 2003。 使用先前版本的 Word 97 引起類型不符和其他 OLE 錯誤。

建立一個程式,並輸入下列程式碼:
  ***/ Begin program code /***   * Code to create a new data source to a VFP table.   *   * Use the Declare DLL function to prototype the   * SQLConfigDataSource function.   * Using SQLConfigDataSource prevents having to go into   * the ODBC Driver Manager and create the DSN.   ***   IF VAL(SUBSTR(VERSION(4),2,1))>7lthemes=_screen.Themes_screen.Themes=.f.ENDIF   DECLARE Integer SQLConfigDataSource in odbccp32.dll Integer, ;      Integer, String, String   ***   * Create a string containing the settings appropriate to the driver.   * The following is an example for the Microsoft VFP ODBC driver   * accessing the Customer.dbf file.   ***   *** Change the path below to point to the Customer table ***   *** in the \Samples\Data folder.                      ***   settings="DSN=visual foxpro tables"+chr(0)+;             "Description=VFP ODBC Driver"+chr(0)+;             "SourceDB=e:\vfp7\samples\data"+chr(0)+;             "SourceType=DBF"   =SQLConfigDataSource(0,1,"Microsoft Visual FoxPro Driver",settings)   * NOTE: Ensure there are no spaces on either side of the equal sign (=).   ON ERROR DO errhand WITH ERROR(), MESSAGE(),  MESSAGE(1), PROGRAM( ),   LINENO( ) && Trap OLE & other errors.   * Initialize variables passed to Word to create form letter.   intro1="Congratulations! You are one of our best customers since you have ;   purchased $"   intro2=" each month from us. "   intro3="As a result, your maximum order amount has been increased by ;   $2500.00. If you have any questions, please feel free to contact us."   oWord = CREATEOBJECT("Word.Application")      WITH oWord         * Assign values to variables         dsname="e:\VFP7\SAMPLES\DATA\customer.DBF"         wformat=0         wconfirmconv=0         wreadonly=0         wlinktosource=0         waddtofilelist=0         wpassworddoc=""         wpasswordtemp=""         wrevert=0         wprotectdoc=""         wprotecttemp=""         wconn="DSN=visual foxpro tables;uid=;pwd=;"+;            "sourcedb=e:\vfp7\samples\data;sourcetype=dbf"+;            "exclusive=no;backgroundfetch=yes;collate=machine;"         wsqlstatement="SELECT contact,company,title,address,city,;            postalcode,STR(maxordamt,12,2) as maxordamt FROM customer ;            WHERE (customer.maxordamt>$100000)"         .Visible=.T.      && Make Word visible.         .WindowState = 2   && Minimize Word.         .Documents.Add      && Add new document.         .Selection.InsertParagraphAfter         .ActiveDocument.MailMerge.OpenDataSource;            (dsname,wformat,wconfirmconv,wreadonly,wlinktosource,;             waddtofilelist,wpassworddoc,wpasswordtemp,wrevert,;             wprotectdoc,wprotecttemp,wconn,wsqlstatement)         .ActiveDocument.MailMerge.EditMainDocument         .Selection.InsertDateTime("dddd, MMMM dd, yyyy", 1)         .Selection.MoveRight         .Selection.InsertParagraphAfter         .Selection.MoveDown         .ActiveDocument.MailMerge.Fields.Add;            (oWord.Selection.Range,"contact")         .Selection.InsertParagraphAfter         .Selection.MoveDown         .ActiveDocument.MailMerge.Fields.Add;            (oWord.Selection.Range,"company")         .Selection.InsertParagraphAfter         .Selection.MoveDown         .ActiveDocument.MailMerge.Fields.Add;             (oWord.Selection.Range,"title")         .Selection.InsertParagraphAfter         .Selection.MoveDown         .ActiveDocument.MailMerge.Fields.Add;            (oWord.Selection.Range,"address")         .Selection.InsertAfter(", ")         .Selection.MoveRight         .ActiveDocument.MailMerge.Fields.Add(oWord.Selection.Range,"city")         .Selection.InsertAfter("  ")         .Selection.MoveRight         .ActiveDocument.MailMerge.Fields.Add;            (oWord.Selection.Range,"postalcode")         .Selection.MoveRight         .Selection.InsertParagraphAfter         .Selection.InsertParagraphAfter         .Selection.InsertAfter("Dear ")         .Selection.MoveRight         .ActiveDocument.MailMerge.Fields.Add;            (oWord.Selection.Range,"contact")         .Selection.MoveRight         .Selection.InsertAfter(":")         .Selection.MoveRight         .Selection.InsertParagraphAfter         .Selection.InsertParagraphAfter         .Selection.MoveDown         .Selection.InsertAfter(intro1)         .Selection.MoveRight         .ActiveDocument.MailMerge.Fields.Add;            (oWord.Selection.Range,"maxordamt")         .Selection.MoveRight         .Selection.InsertAfter(intro2)         .Selection.MoveRight         .Selection.InsertAfter(intro3)         .Selection.MoveRight         .Selection.InsertParagraphAfter         .Selection.InsertParagraphAfter         .Selection.MoveDown         .Selection.InsertAfter("Thank you,")         .Selection.MoveRight         .Selection.InsertParagraphAfter         .Selection.InsertParagraphAfter         .Selection.MoveDown         .Selection.Fields.Add(oWord.Selection.Range,-1,"author")         .ActiveDocument.MailMerge.Destination = 0 && new document.         .ActiveDocument.MailMerge.Execute         && Run the merge.         nanswer = MESSAGEBOX("Would you like to view the finished ;         document?",36,"Switch to Word")         DO CASE            CASE nanswer = 6               .ActiveWindow.View.Type = 3    && Page layout view.               .Visible = .T.               .Application.Activate   && Bring Word forward.               .WindowState = 0         && Word in normal state.               =INKEY(5)         && Wait 5 seconds then bring VFP back.               .WindowState = 2    && Then minimize Word.              ENDCASE         nanswer = MESSAGEBOX("Print the document?",36,;         "Print the merged document.")         DO CASE            CASE nanswer = 6         && Yes               .ActiveDocument.PrintOut   && Print the merged form letter.         ENDCASE         nanswer = MESSAGEBOX("Save the document?",36,;         "Enter the name to save the merged document.")         DO CASE            CASE nanswer = 6         && Yes               cbaddoc=SPACE(25)               DO WHILE .T.                  DEFINE WINDOW getname FROM 1,1 TO 15,60 ;                     FONT 'COURIER NEW',10 FLOAT GROW ZOOM                     ACTIVATE WINDOW getname                     cdoc=SPACE(25)                     mquit = SPACE(1)                  IF !EMPTY(cbaddoc)                     @2,1 SAY "Existing file name: "+cbaddoc COLOR R+/w                  ENDIF                  @4,1 SAY "Enter a name for the Word document."                  @5,1 GET cdoc color b/w VALID emptyChk(cdoc)                  @7,25 GET mquit FUNCTION '*T Save' SIZE 2,10                  READ CYCLE                  CLEAR WINDOW getname                  cdoc=ALLTRIM(cdoc)                  cpath= .Options.DefaultFilePath(0)   && Get Word's                                                 && default document path.                  IF FILE(cpath+"\"+cdoc+".doc")                     WAIT WINDOW "Document already exists! Enter another ;                     file name." TIME 1                     cbaddoc=cdoc                     LOOP                  ELSE                     .ActiveDocument.SaveAs(cdoc)                  ENDIF                  .Documents.Close(0)                  .Application.Quit                  EXIT               ENDDO            CASE nanswer = 7         && No               .Documents.Close(0)               .Application.Quit            ENDCASE      ENDWITH   ON ERROR  && Restore system error handler.   IF VAL(SUBSTR(VERSION(4),2,1))>7_screen.Themes=lthemes   endif   PROCEDURE emptychk   PARAMETER pcdoc   IF !EMPTY(pcdoc)      RETURN .T.   ELSE      WAIT WINDOW "Enter a name for the Word Document"      RETURN 0   ENDIF   PROCEDURE errhand   PARAMETER merror, mess, mess1, mprog, mlineno   CLEAR   IF merror=1426      mlineno=LTRIM(STR(LINENO()))      merror=LTRIM(STR(merror))      =MESSAGEBOX("You have an OLE error. Usually this is caused by      quitting Word or canceling out of a dialog box in Word. "+CHR(13)+;      "The error message is "+mess)   ELSE      mlineno=LTRIM(STR(LINENO()))      merror=LTRIM(STR(merror))      =MESSAGEBOX("An error occured on line "+mlineno+;      ". The error message is "+mess+" The error number is "+merror)   ENDIF   ON ERROR   RETURN   ***/ End program code /***						
参考
如需有關如何取得 Windows 97 服務的 Word 版本 1 (SR-1) 的詳細資訊,按一下 [下面的文件編號,檢視 「 Microsoft 知識庫 」 中的發行項]:
172475如何取得並安裝 MS Office 97 SR-1
Microsoft Visual Basic 應用程式說明 (Word ' 97) ; 在 OLE 」 上搜尋

警告:本文為自動翻譯

內容

文章識別碼:181926 - 最後檢閱時間:02/16/2005 05:38:06 - 修訂: 3.4

Microsoft Visual FoxPro 3.0 Standard Edition, Microsoft Visual FoxPro 3.0b Standard Edition, Microsoft Visual FoxPro 5.0 Standard Edition, Microsoft Visual FoxPro 5.0a, Microsoft Visual FoxPro 6.0 Professional Edition, Microsoft Visual FoxPro 7.0 Professional Edition, Microsoft Visual FoxPro 8.0 Professional Edition, Microsoft Visual FoxPro 9.0 Professional Edition

  • kbmt kbautomation kbhowto kbinterop KB181926 KbMtzh
意見反應