??? ???? ??? Word ????? ?????? ???????? ??????? ???????? ?? OLE ?? Visual FoxPro

?????? ????????? ?????? ?????????
???? ???????: 194306 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

?? ??? ??????

??????

???? ??? ??????? ????? ??????? ????? OLE ?? Visual FoxPro ??? Microsoft Word ?? Windows 97 ?????? ??????? ?????.

??????? ????

??? ???? ?????? ????? ??????? ???????? ??? ??? ?? ????? ??????? ??? ????? ??? ???? ????? ????? ???? ????? ??? ??????? ??????. ??? ???? ???? ???? ??? ??? ?????? ??????? ????? ????????? ???????.

??????? ????????? ?? ??? ???????? ?? ????? LaserJet Hewlett-Packard ???? ??????? ????????.

??????? ??????

?????? ????? ?? Word ?????? ??? ?????? ??????? ???? ??? ??????? ?? ??? ?????. ???? ???????? ???????? ??????? ???:
   oWord=CREATEOBJECT("Word.Application")
   WITH oWord
      .Visible=.T.
      .Documents.Add

      .Activewindow.View.ShowFieldCodes=0   && Don't view field codes.
      * Insert PRINT field & Hewlett-Packard escape code for duplex, long-
      * edge binding.
      * It is an ampersand, lower-case L, numeric 1, and upper-case S.
      .Selection.Fields.Add(.Selection.Range,-1,"PRINT 27 &l1S")
      .Selection.Moveright

      .Selection.Insertafter("Page 1")
      .Selection.Moveright

      odlog=oWord.Dialogs(159) && Insert page break w/ Dialogs collection.
      odlog.Execute

      .Selection.Insertafter("Page 2")
      .Selection.Moveright

      .Printout(0)                   && 0 turns off background printing.

      .Application.Quit(0)           && Quit, don't save & don't prompt.
   ENDWITH
				
?? ???? ???????? ???????? ??? ??? ??? ????? Word ????? ??? ????? ????? ??? ??????? ??????? ? ????.

?????? ???? ??? ???????? ???????? ??? ?? ??????? - 1 ????? (SR-1) ?? Word 97. ????????? ??????? ?? Word 97 ?????? ??????? ???????? ?? ?????? ??? ???????? ????????.

??????? ????? Word ??? ??????? ???? ???? ??? ?? ??? ?? ????? ??? ???? ?? ??????? ??????? ??? ?? ????. ??? ???? ???? ??? ????? ?????? ??? ??? ??????? ??????? ???? ????? ??? ????? ??? ?????? ?????? "??" ????? ?????? ??? "?" ????? ??? ????? ????? ?? ????? ??????? ???? ?????.

??????? ???????

?????? ????? SendKeys ?????? ????? ???????? ??? Word ????? ???????? ??? ???????? ???? ???? ?????? ?????.
   oWord=CREATEOBJECT("Word.Application")
   WITH oWord
      .Visible=.T.
      .Documents.Add

      * This code creates a two page document to print.
      .Selection.Insertafter("Page 1 - With SendKeys")
      .Selection.Moveright
      odlog=oWord.Dialogs(159) && Insert page break w/ Dialogs collection.
      odlog.Execute
      .Selection.Insertafter("Page 2 - With SendKeys")
      .Selection.Moveright
      * End of document creation.

      .Application.Activate
      .Wordbasic.Sendkeys("%fp%p%d{enter}{tab}{enter}", -1)
      =INKEY(2)   && May need to wait couple seconds before quitting.
      .Application.Quit(0)           && Quit, don't save & don't prompt.
   ENDWITH
				
?? ????? Sendkeys % ????? ???? ???????? ??????? ALT ??? ?????? ??? ??????? Windows. ???? ????? INKEY() Word ?????? ????? ???????? ??? Visual FoxPro ?????? ?? Windows ?? ????? ????????. ?? ????? ??? ??? ????? ?? ????? ?? ??? ??????? ???????? ??? ???????.

???????? Sendkeys ??? ?? ???? Word ??????? ?? ????? ? ??? ????? ???????? ??? ???????? ??? ???? ???. ????? ??? Word ???? ?????? ???????? ????? AppMove ???? ?? ???? Word ???? ?? ???? ??? ??? ???? ??????. ?????? ???????? Sendkeys ???? disconcerting ??? ??????? ??????? ?????? ??? ? ?????? ??? ?? ???? ?? Word ?? ????? ??? ???????? ALT + F ???? ??????? "???".

??????? ???????

????? ????? Word ?????? ?? Sendkeys. ??? ?? ????? ??????? SendKey ? ?? ????? ??????? ?? Visual FoxPro ???????? ????? ??????:
     oWord=CREATEOBJECT("Word.Application")
       WITH oWord
       .Visible=.T.
       .Documents.Add
       .Application.Activate
       .Run("SendKey")
       .Application.Quit(0)           && Quit, don't save & don't prompt.
    ENDWITH
				
???? ??? ?????? ????? Word ?????? ?????? ??????? ????????:
   Sub SendKey()
      SendKeys "%fp%p%d{enter}{tab}{enter}"
   End Sub
				
?????? ?? ??????? ???? ?? ??????? ???????? SendKeys ?????? ???? ???????? ?? "??????? ???????".

?????

????? ?? ?????????? ???? ??? ????? ???????? ??????? ?????? ?? "????? ??????? ?? Microsoft:
135569???? ?????? PCL ?????????? ?? ?????
?????? ??? ??????? ?????? ??? ????? ?????? ??? Word ?? Windows 97 ??????? 1 ????? ???? ??? ??? ??????? ?????? ?????? ?? "????? ??????? ?? Microsoft:
172475????? ?????? ??? MS Office 97 SR-1
??????? Visual Basic Microsoft Word

(?) 1998 Microsoft Corporation. ???? ?????? ?????. ????????? ??? Dean Christopher ? Microsoft Corporation.

???????

???? ???????: 194306 - ????? ??? ??????: 16/?? ?????/1425 - ??????: 2.2
????? ???
  • Microsoft Visual FoxPro 5.0a
  • Microsoft Visual FoxPro 6.0 Professional Edition
????? ??????: 
kbmt kbcode kbhowto KB194306 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????194306

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com