ࡱ> Z[YܥhW Te±HHHHHH@CHLLLPTTT8J6"Xۦ,@TJKPTTT@^LH^^^T LP,\0FXƿ2:T^^ .AdAiGetModuleHandleNjkerneliname$4CdAiWinExecNjkerneliCmd4FishowCmd4C4CdAiSetHandleCountNjkerneliCnt4C4Cddp: ---------------------------------------------------------dp Test subroutinedp0 use the WordBasic Debugger the check this codedp: ---------------------------------------------------------ddiMAINdRiFcode$ jDBGdRiMask$ ggjDBG: Enter Filemask:ititle$jdRiN giMask$gl dRiN liMask$ giMask$iNldRiLevel$ gjDBG: Enter Level:ititle$j5dRiN giLevel$gl dRiN liLevel$ giLevel$iNldRdRi Application$ gMj ApplicationdRiObject$ gMjObjectdRiTitle$ jSAP R/3dRiRtfFile$ jsap.rtfRdRiChan$ gMj DDE-ChannelddRi Application$ jiChan$ jdog+jConnection not initializediTitle$l0doichan$ jdo*ierrdRTddRiChannel giChan$ddRg i Application$ ldog+i Application$j is not running (iFcode$j,iFlags$j)iTitle$l0do*ierrdRTdRdRi Argument$ iLevel$j||iMask$dR6j Execute: (iFcode$(j,(i Argument$ddQRg`iChanneliFcode$i Argument$ddRgcjMicrosoft WordlddR*iexitdeerrdRp ERROReexitdddp: ---------------------------------------------------------dp Call R/3 Function Call dpdp dp Arguments: dp7 Fcode$: the function code, see interface description dp in transaction SE37dp, Flags$: flags, which data should be passeddp/ S: save document in RTF format to tmp-filedp" before executing the RFC calldp* I: insert the string returned in the dp) StringToInsert field at the current dp positiondp( C: copy the exported table from the dp( Lines field at the current positiondp E: exit worddp: ---------------------------------------------------------dd/0Ri Application$d/0RiObject$d/0RiTitle$d/0Ri StartCommand$d/0RiRtfFile$dodiExecuteiFcode$iFlags$dR6njR3WinSvr::Execute((iFcode$(j,(iFlags$(j)dddp( TEST: normaly the prg should abort heredp. TEST If WinExec(StartCommand$, 0) <= 32 Thendp; TEST MsgBox("Cannot start " + StartCommand$, Title$, 48)dp TEST Goto exitdp TEST EndIfdp' TEST Connect(Application$, Object$) dp1 TEST Chan$ = AbrufenDokumentVar$("DDE-Channel")dddRgjTEMP jdoiEnv$ gjTEMPdRgjTMP jdoiEnv$ i Umgebunng$jTMPdR doiEnv$ jC:\dRTdRdRg iEnv$l j\doiTmpFile$ iEnv$iRtfFile$dR doiTmpFile$ iEnv$j\iRtfFile$dRTddRi SaveFlag$ j ddRgliFlags$jSldoi SaveFlag$ jXdQoi OriginalFile$ g%ldogTs iTmpFile$s ls ls` jsU ls js ls ls ls lddogTs i OriginalFile$s ls ls` jsU ls js ls ls ls ldRdRTddQRi MarkedString$ grgogpddRiStringSeparator$ j|dRiFcode$ jDBGdoi Argument$ iFlags$dR doi Argument$ i SaveFlag$iStringSeparator$iTmpFile$iStringSeparator$i MarkedString$dRTdR6j Execute: (iFcode$(j,(i Argument$dQRg`iChanneliFcode$i Argument$ddRgliFlags$jIldo6j Request: (jStringToInsertdoiStringToInsert$ gaiChanneljStringToInsertdo6jInsert:(iStringToInsert$dogiStringToInsert$dRTddRgliFlags$jCldo6j Request: (jTmpFiledoi Newcursor$ gaiChannelj Newcursordoi Newcursor$ jXdoiTmpFile$ gaiChanneljTmpFiledoitmpfile$ jdog+jCannot get tmpfileiTitle$l0do*iexitdoTdo6j Include: iTmpFile$ddogs iTmpFile$sI ls ldo do6jNo changed from R/3doTdRTddRiChan$ jdo6j Termnate: (iChanneldog]iChanneldRTddp# TEST DDEExecute(Channel, "[TEST]")ddRgliFlags$jEldo6jClose: (g%ldoi Disconnectdogրldogldogրlddop If ZhlenFenster() < 1 Thendop DateiBeenden 1dop EndIfdRTddR6jO.K.ddR*iexitddp7 ------------ Error exit ------------------------------eerrdRiMessage$ jCannot execute macro, error giErrdRg+iMessage$iTitle$l0dR6j Terminate AlldRg^ddp7 ------------ Normal exit -----------------------------eexitdddp7 ======================================================dp" Init connection to server programdp7 ------------------------------------------------------ddiConnectiAppl$iObj$ddR6jR3WinSvr::Connect ((iAppl$(j,(iObj$(j)ddRg i Application$ ldog+i Application$j is not runningiTitle$l0doiChan$ jdo*ierrdRTddRiSetHandleCountl2ddRgjMicrosoft Wordj DDETimeOutj1200j WINWORD6.INIddRgLj ApplicationiAppl$dRgLjObjectiObj$ddRldo6j Initiate: (iAppl$(j,(iObj$doiChannel g\iAppl$iObj$doiChan$ giChanneldogLj DDE-ChanneliChan$dRTddRi OrgDotPath$ g jMicrosoft Wordj ORG-DOT-PATHj WINWORD6.INIdRi OrgDotPath$ jdogjMicrosoft Wordj USER-DOT-PATHi OrgDotPath$j WINWORD6.INIdopM SetPrivateProfileString "Microsoft Word", "ORG-DOT-PATH", "", "WINWORD6.INI"dRTddRgCjMicrosoft WorddRgcjMicrosoft WordlddR*iexiteerrdeexitdddp7 ======================================================dp Release connectiondp7 ------------------------------------------------------ddi DisconnectddR6jR3WinSvr::Disconnect ddRiChan$ gMj DDE-ChanneldRi Application$ gMj ApplicationddRg i Application$ ldog+i Application$j is not runningiTitle$l0doiChan$ jdo*ierrdRTdddRiChan$ jdoiChannel giChan$do6j Terminate: (iChanneldog]iChanneldRTdRdRgAjMicrosoft WordlddR*iexitdeerrdeexitddk4----------------------------------------------------dk NAME : R3Docdkdk6 COMMENTS: The functions and subroutines available dk. in this macro are accessable by customizeddk templates.dk dk9 All of them deal with the document representation. dkdk History:dk 08/09/96 A-00244dk! Save the default Font & Size dk 08/09/96 A-00245dk- Build function to save and to restore thedk current page layout dk% Document variable used : PageViewdkdk 15/09/96 A-00245dk0 Build function SaveNormalFont. This functiondk" is called at document creationdk7 Document variable used = NormalFont dk & SizeNormalFontdk dkdk4----------------------------------------------------diMAINdRg+j2Last modification on : 15/09/96. A-00245 & A-00244jRELEASEDl@dRi SavePageViewdRiSaveNormalFontdniSetDefaultFontdniRestorePageViewddk4----------------------------------------------------dkdk InitOrgProtectiondkdk DATE : 28/05/95dk4----------------------------------------------------dkdk3 This function save the orginal protection. This dk; function must be call at the beginning of the process dk0 SetDocumentDirty 0 ' The document is cleaneddkdk 17/07/96 A-00233dk0 The type of word is tested if word 7.00 dk0 DocumentProtection(). what do we do withdk, other type of WORD !!! We should putdk, the protection value in the documentdkdk6------------------------------------------------------diInitOrgProtectiondRiProtect g+RdRiProtectn lg dRgLj OrgProtectiongiProtectdng$nlnk The document is cleaneddddddiSetOrgProtectiondRi OrgProtect$ gMj OrgProtectiondRiOrdProtn gi OrgProtect$dRg$nlnk The document is cleaneddn13iOrdProtdo3lnk Formdogs ls ldo3lnk Annotationdogs ldo3 nk NothingdodR1dddk4----------------------------------------------------dkdk IsDisplaydkdk DATE : 20/12/95dk4----------------------------------------------------dkdk* This function return TRUE ( -1 ) if thedk- document has been selected to be in display dk modus only. dkdk dk4----------------------------------------------------di IsDisplaydoiBack$ i R3VariablewGet$jDisplaydogiBack$ jXndn i IsDisplay ldo doni IsDisplay nlRdoTdddk4----------------------------------------------------dkdk Deletedkdk DATE : 21/12/95dk4----------------------------------------------------dkdk1 Signal to the server that the document has beendk deleteddk dk4----------------------------------------------------di DeleteDocdRiChannel iR3WinSrvv GetChanneldRg_iChanneljdeleteddk4----------------------------------------------------dkdk Changedkdk DATE : 22/12/95dk4----------------------------------------------------dkdk1 Signal to the server that the document has beendk changeddk dk4----------------------------------------------------di HasChangeddRiChannel iR3WinSrvv GetChanneldRg_iChanneljchangedddk4----------------------------------------------------dkdk SavePageViewdk! & RestorePageViewdkdk DATE : 08/09/96dk4----------------------------------------------------dkdk/ Save in the document variable 'PageView' the dk current page view.dk6 If the document is protected we do nothing as a setdk, variable will generate a word basic errordk dk4----------------------------------------------------di SavePageViewdQg+ ldRgsQRgLjPageViewgldRgugLjPageViewgldRgtgLjPageViewgldRggLjPageViewgldRg$nldQTdddiRestorePageViewdQg+ ldni FirstView ggMjPageViewdRi FirstView lgsdRi FirstView lgudRi FirstView lgtdRi FirstView lgdRgLjPageViewjdRg$nldQTddddk4----------------------------------------------------dkdk SetDefaultFontdkdk DATE : 08/09/96dk4----------------------------------------------------dkdk2 Set the default font for all SAP Document as we dk1 do not add it to the template we do not need todk0 set back the original. We set this value when dk/ we do a mail merge as the translation use thedk fontdk dk4----------------------------------------------------diSetDefaultFontdg+ ldiFontToRestore$ gMj NormalFontdiSizeFontToRestore$ gMjSizeNormalFontddiFontToRestore$ jniSizeFontToRestore$ jdRgs jNormals| jNormals ls,dRgs" iSizeFontToRestore$s( ls# ls ls ls ls' ls] ls; ls- js+ js ls js j0s! iFontToRestore$s$ ls% ls) ls ldTdTddddk4----------------------------------------------------dkdk SetDefaultFontdkdk DATE : 15/09/96dkdk. WARNING: This function is country dependantdk4----------------------------------------------------diSaveNormalFontddg+ ldRgs jNormals,dR/i CurFontValue4gdR>ni CurFontValuedRgLj NormalFontni CurFontvalues!dngLjSizeNormalFontnni CurFontvalues"dRg$nldTdddiMAINddgPs j C:\TEMP\TAB.TXTddgddgs j1s jAutos j0s j167ddgTs jTAB.RTFs lddddiGenerateiTextTab$iDestTab$dddpB -----------------------------------------------------------------dpdp dp History :dpdp> 23/10/95 - A-00099. WORDMACRO Error the document is already dp- closed and we want to access variablesdpdp6 26/01/96 - Subproject SHE DotFile in OpenDocument isdp is optionaldp dp9 21/03/96 - A-00188. The document protection is not set dp6 in display mode. The Released message has been dp addeddpdpB 04/04/96 - For SHE. In OpenDocument. Back from R3OpenDocumentdp> the actif document is no the original one !!!!dpdp> 12/04/96 - The SHE correction creates a problem. Be careful dp with the testsdpdp; 28/05/96 - A-00216 - When a document is in Modus form dp3 protection we have an error to load the file. dp' Modification in R3WsWinsrv as well dpdp< 03/06/96 - A-00219 - Where the document is in protecteddp8 mode the document should be set as clean. dpdp 23/12/96 - A-00318. dp? On Windows 95 or Window NT when the option nodpL extension is used then the document could not be protecteddp$ in display modus. dpdp= 25/05/2000 GB25052000, Gerd Balzuweit, Use the style of thedp given template.dpdpB -----------------------------------------------------------------diMAINdRg+j(Last modification on : 23/12/96. A-00318jReleasedl@dddpB -----------------------------------------------------------------dp Set R/3 Language Variabledp3 DocFile$ : Full name of the Word-document to opendp< dotfile$ : Basename of the dot-file (with extension .dot) dp0 language joker '%' is subs. by the current dp language dp OPTIONAL dpdp, DocProt$ : OPTIONAL still used by officedpdpB -----------------------------------------------------------------di OpenDocumentiDocFile$iDotFile$iDocProt$ddRgPs iDocFile$dRkdRk* Test if some kind of original protection dRkdRiDocProt$ jdog dRTdRdRgLj DocProtectioniDocProt$dRkdRk/ A-00216 . No the protection should be removedRk dnk R3Doc.InitOrgProtection()dnRiDotFile$ jdoiDotPath$ ggldoiNewDot$ i BuildDot$iDotPath$iDotFile$jDddok% Use the style of the given template.dok GB25052000dok MsgBox NewDot$dogWsR iNewDot$s' ldnTdRk Call user macrodRgĀjR3OpenDocumentdo)iR3OpenDocumentdRTdnddRp7 ----------------------------------------------------- dRp6 A-00099. When print with SAPMS_FORM_EDIT the documentdRp% is already closed at this point !!!!dRp5 So we scan if the document is still open then we do dRp the normal processdRp6 -----------------------------------------------------dRiDocName$n giDocFile$ldRi NumbWindowsn g:ddR#iCurDoc l$i NumbWindowsRdnkG A-00188 & A-000318 The extension is removed of the name of the windowsdnk this should happendni NameOfWin$n ng;iCurDocdniFoundExtensionn ngi NameOfWin$j.dniFoundExtension ldoQi NameOfWin$ gi NameOfWin$iFoundExtensionldnTdnk dnk0 Now we compare with the file without extensiondRk dngi NameOfWin$n giDocName$RdRnp A-00197dnRgbg;iCurDocddoiDocProt$ gMj DocProtectiondRndog$ldoiR3Docv IsDisplaydogs ldo doiDocProt$ jdoiMode giDocProt$dogs imodes ldn dokdok A-00216 . No only for Word 7.00dn kdok R3Doc.SetOrgProtection doTdoTddo*i EndOpenDocdRndR&iCurDocde EndOpenDocddddpB -----------------------------------------------------------------dp Set R/3 Language Variable rem dp3 DocFile$ : Full name of the Word-document to opendp< dotfile$ : Basename of the dot-file (with extension .dot) dp8 language joker '%' is subs. by the current lenguagedpB -----------------------------------------------------------------diActivateDocumentiDocFile$iDotFile$ddRiDocProt$ gMj DocProtectiondRiDocDirty g#ddnR,-*i ProtectionOffdndRg ddp If DocProt$ = "" Thendp$ Dim Dlg As ExtrasDokumentSchtzendp GetCurValues Dlgdp DocProt$ = Str$(Dlg.Art)dp9 DokumentVariableBestimmen("DocProtection", DocProt$) dp EndIfddR*iProtectionResumede ProtectionOffdRgLj DocProtectionjdeProtectionResumedR,-*ldRiR3WinSrvv ReconnectiDocFile$jdodRiDotPath$ ggldRiNewDot$ i BuildDot$iDotPath$iDotFile$jDddRgWsR iNewDot$ddRgĀj R3Reconnectdo)i R3ReconnectdRTddRiDocProt$ gMj DocProtectiondRdRg$iDocDirtyddniR3Docv Isdisplaydogs ldRQ doiDocProt$ jdoiMode giDocProt$dogs iModes ldoTdRTdddddddpB -----------------------------------------------------------------dp Set R/3 Language Variabledp3 DocFile$ : Full name of the Word-document to opendp< dotfile$ : Basename of the dot-file (with extension .dot) dp! language joker '%' is subs. dpB -----------------------------------------------------------------di NewDocumentiDocFile$iDotFile$ddR6jSAP R/3: Create new document (iDocFile$(j, use template (iDotFile$ddRiType$ g iDocFile$ldRgiType$ jRTFdoiFmt ldRgiType$ jDOCdoiFmt ldR doi ErrorExitjIllegal document type: iType$iErrdRTddRiDotPath$ ggldRiNewDot$ i BuildDot$iDotPath$iDotFile$jDddRgOsR iNewDot$dRgTs iDocFile$s iFmtddRgLj IsNewFilej1ddRgĀj R3NewDocumentdo)i R3NewDocumentdRTdddddpC ------------------------------------------------------------------dp GetLanguage$dp1 return: the current winword-language (one char)dpC ------------------------------------------------------------------dddi GetLanguage$ddRi WordLang$ glddRgi WordLang$l jDeutschdoiR3Lang$ jDdRgi WordLang$l jEnglishdoiR3Lang$ jEdRgi WordLang$l jFranaisdoiR3Lang$ jFdRgi WordLang$l  j NederlandsdoiR3Lang$ jNdRgi WordLang$l jItalianodoiR3Lang$ jIdRgi WordLang$l jNorskdoiR3Lang$ jOdRgi WordLang$l  j PortugusdoiR3Lang$ jPdRgi WordLang$l jEspaoldoiR3Lang$ jSdRgi WordLang$l jDanskdoiR3Lang$ jKdR doiR3Lang$ jDdoiDbgl6jUnknown WinWord Language (g~(j, use (iR3Lang$dRTddRi GetLanguage$ iR3Lang$ddddpC ------------------------------------------------------------------dp ChangeDotdp5 OldDotFile$: full name of the old document templatedpB NewDotFile$: basename (with ext. and lang. joker) of the new dotdpC ------------------------------------------------------------------ddi ChangeDoti OldDotFile$i NewDotFile$ddRi NewDotFile$ jdoi ErrorExitjNewDotFile missingldRTddRiDotPath$ ggldRiNewDot$ i BuildDot$iDotPath$i NewDotFile$jDddRgiNewDot$ giDotPath$i OldDotFile$dogWsR iNewDot$dRTddddpC ------------------------------------------------------------------dp BuildDotdp DotPath$ : Dir. of SAP-Dot'sdp2 DotFile$ : basename w. ext. of document templatedp< DefaultLang$ : language used, if current dot ist not founddpC ------------------------------------------------------------------ddi BuildDot$iDotPath$iDotFile$i DefaultLang$ddRgiDotFile$l iDotFile$dog iDotPath$l j\doiDotPath$ iDotPath$j\doTdoiDotFile$ iDotFile$iDotPath$dRTdRdRiOrgDot$ iDotFile$dRiN gliDotFile$j%dRdRiNldoiLang$ i GetLanguage$doiDotFile$ giDotFile$iNliLang$g iDotFile$giDotFile$iNddogiDotFile$ jdoiDbgl6j Language (iLang$(jnot found, use (i DefaultLang$doiDotFile$ giDotFile$iNli DefaultLang$g iDotFile$giDotFile$iNdoTddogiDotFile$ jdoiDbgl6j Customer (giDotFile$l(jnot found, use (i DefaultCust$doiPath$ giDotFile$ldoiName$ giDotFile$ldoiDotFile$ iPath$jWSg iName$giName$ldoToddRgiDotFile$ jddoiDbgl6j Customer (giDotFile$l(jnot found, use (i DefaultCust$doiPath$ giOrgDot$ldoiName$ giOrgDot$ldoiDotFile$ iPath$jWSg iName$giName$ldRTRdRdRgiDotFile$ jdoi ErrorExitjDocument template iDotFile$j not foundldRTodRdRi BuildDot$ iDotFile$ddddpC ------------------------------------------------------------------dp ErrorExitdpC ------------------------------------------------------------------ddi ErrorExitiMessage$iErrNoddRiErrNo ldog+iMessage$jSAP R/3l0dogGdR do-iErrNodRTdddiMAINdRdRiVar$ gjDBG: Enter Var-Name:ititle$jdRiResult$ i R3VariablewGet$iVar$dR6j Request for 'iVar$j' => 'iResult$j'dQddiMAINdRdRiVar$ gjEnter variable name:ititle$jdRiValue$ gjEnter new value:ititle$jdRi R3VariablevDeposeiVar$iValue$dddp: ---------------------------------------------------------dp Historydp dp6 28/05/96 A-00216- Error with the protection fordp' form fields. See function Terminatedpdpdp: ---------------------------------------------------------d/0niDbgodp: ---------------------------------------------------------dp Test subroutinedp0 use the WordBasic Debugger the check this codedp: ---------------------------------------------------------diMAINdRg+j(Last modification on : 12/11/96. A-00306jBETAl@ddk9---------------------------------------------------------dk Call R/3 Function Call dk Arguments: dk8 Fcode$: the function code, see interface description dk dkdk, Flags$: flags, which data should be passeddk/ S: save document in RTF format to tmp-filedk" before executing the RFC calldk E: exit worddk9 T: Terminate DDE connection, but do not close documentdk3 ( This function has been modified )dk. I: Include PasteString after function call,dk' PasteString must be a defined valuedk, C: Include a file at the insertion pointdk after the function-call, dk& if the value of IsChanged is "X".dk( The value IsChanged must be defineddk M: Minimize Worddkdkdk COMMENTS :dkdk6 15/02/96 This function is not called by the officedk function anymore. dk9---------------------------------------------------------ddiExecuteiFcode$iFlags$dRiDbglR6g(j R3WinSvr::Execute((iFcode$(j,(iFlags$(j)ddR6jCall SAP R/3 Code:(iFcode$(j Options:(iFlags$ddRiDocFile$ g%ddRiChannel i GetChannelddRp( temp. for SapDocu: value changed = 'X' dRi CmdFlags$ iFlags$ddRgliFlags$jSldodnk; 04/09/95 Bug A-0085. Some application terminate with the dRk0 Flag$ = "SE". In this case we save twice. dnkC With the flag E with call Terminate where the file is ' saveddokdQogliFlags$jE ldodoi ReadOnly$ gMjReadOnlydoi ReadOnly$ jg# ldo)iCheckOledoQo)iSaveDocdoTdoTdRQodRTddRgliFlags$jTldoi R3VariablevDeposej DocOpenedjXdRTddRiFcode$ jdQoi MarkedString$ grgogpddoiCommand$ iFcode$j(i CmdFlags$j,iDocFile$j,dogli MarkedString$gl" lgi MarkedString$ldoiCommand$ iCommand$gl"i MarkedString$gl"doTdoiCommand$ iCommand$j)ddoiDbglR6jExecute:(iCommand$dog_iChanneliCommand$ddRTddRgliFlags$jEldoiDbglR6jClose Documentdoi Terminatedo*iexitdRTddRgcjMicrosoft WordlddRgliFlags$jIldog+j)Sorry, Option I not impl. in this versionjSAPl0dRTddRgliFlags$jCldog+j)Sorry, Option C not impl. in this versionjSAPl0dRTddRgliFlags$jPldog+j)Sorry, Option P not impl. in this versionjSAPl0dRTdddk6 28/06/95 ****** WARNINGS **************************dkdk3 I assume that Office is the only one to use thisdk5 special part of the macro. Somebody will be happy dkdk6 ***************************************************ddRgliFlags$jTldog]iChanneldogLj DDE-Channeljddnk$ The activation is done by WsWinsrv.dnkdokIf AppIsRunning("SAP R/3") Thendok AppActivate "SAP R/3", 1dokEndIf ddo6jControl passed to SAP R/3dR do6jCallback to SAP R/3 completeddRTddRgliFlags$jMldogAjMicrosoft WordldRTdeexitddddp7 ======================================================dp" Init connection to server programdp7 Appl$ : Application Name i.e. "R/3 Windows Server"dp2 Obj$ : Functionmodule to connect (or "none")dp7 ------------------------------------------------------ddiInitiateiAppl$iObj$ddRiDbglR6jR3WinSvr::Connect ((iAppl$(j,(iObj$(j)dRdRg iAppl$ ldoi ErrorExitiAppl$j is not runningiErrdRTddRgjMicrosoft Wordj DDETimeOutj1200j WINWORD6.INIddR6j Initialize connection to SAP R/3ddRiDbglR6j Initiate: (iAppl$(j,(iObj$dRiChannel g\iAppl$iObj$dRiChan$ giChannelddRgLj ApplicationiAppl$dRgLjObjectiObj$dRgLj DDE-ChanneliChan$ddRggl lgCjMicrosoft WorddRgcjMicrosoft Wordlddddp7 ======================================================dp& Aktivate connection to server programdp4 Document$ : Window name of the document to connectdp Option$ : not useddp7 ------------------------------------------------------ddi Reconnecti Document$iOptions$ddRiDbglR6jR3WinSvr::Reconnect ((i Document$(j,(iOptions$(j)ddRgbi Document$ddRi Application$ gMj ApplicationdRiObject$ gMjObjectdQdRg i Application$ ldoi ErrorExiti Application$j is not runningiErrdRTddR6j Initialize connection to SAP R/3ddRiDbglR6j Initiate: (i Application$(j,(iObject$dRiChannel g\i Application$iObject$dRiChan$ giChannelddRgLj DDE-ChanneliChan$ddRggl lgCjMicrosoft WorddRgcjMicrosoft Wordldddddk6======================================================dkdk NAME : Terminatedkdk Release connectiondkdk1 A-00182 The docmented could be release with notdk logic dkdk' A-00216 Error when in Form protectiondk dk A-00306 We clean the channel dkdk6======================================================di TerminatedRi DocStatusn g#dRiChanneln i GetChannelddRi Application$ gMj ApplicationddRg i Application$ ldoi ErrorExiti Application$j is not runningiErrdRTddRk:----------------------------------------------------------dRk( 03/09/95 & moved on th 19/04/96 A-00182dRk:----------------------------------------------------------dRk3 As for the modification of 10/08/95 the normal.dotdRk. is linked to the document which ask for untildRk< now only SAPSCRIPT as Office do not seem to car about this dRk any more.dRk: The flag NoLogic is set if the original document does notdRk' want to be linked to the SAP template.dRk:----------------------------------------------------------dRk 05/06/96dRk2 A-00216 We do only if we are not in display modusdRk:----------------------------------------------------------dnniR3Docv IsDisplay iFALSEdn dRi R3VariablewGet$jNoLogic jXdongWsR j normal.dotdRddok dok( Save file, in case of IMG this path isdok never takendok doi DocStatus ldo)iCheckOledo)iSaveDocdnRk At this level we can not call dnRk R3Doc.HasChanged as we shall dRQog_iChanneljchangedoTdokdok A-00216. Reopenneddokdog$lddRTnk End of displayddR,-&dRg dR,-*lddRgրldRgldRgրldRdR6jTerminate connection to SAP R/3ddRiSapDot$ gdQRgiSapDot$ldogiSapDot$ldogiSapDot$ldo dogwiSapDot$doTdRTddRgAjMicrosoft WordlddRg]iChanneldddpC ------------------------------------------------------------------dp Get DDE channel numberdp, return: Channel number of the DDE channel dpC ------------------------------------------------------------------ddi GetChannelddRi Application$ gMj ApplicationdRiObject$ gMjObjectdRiChan$ gMj DDE-ChanneldRi ErrorText$ jNo errorddRi Application$ jdoi ErrorExitjConnection not initializediErrdRTddRg i Application$ ldoi ErrorExiti Application$j Is Not running iErrdRTddRiChan$ jdoi ErrorExitjNo connection for i Application$iErrdR doi GetChannel giChan$dRTdddpC ------------------------------------------------------------------dp ErrorExitdpC ------------------------------------------------------------------ddniSaveDocddRiDocFile$ g%dRiFmt ldRiType$ g iDocFile$ldRgiType$ jRTFdoiFmt ldRgiType$ jDOCdoiFmt ldRgiType$ jTXTdoiFmt ldR doi ErrorExitjIllegal document type: iType$iErrdRTdnkdRk A-00306 dnk We clear the channel dnkdQRiChan$ gMj DDE-ChanneldngLj DDE-ChanneljdRgTs iDocFile$s iFmtdRgLj DDE-ChanneliChan$dRg$lddddpC ------------------------------------------------------------------dp GetDocTypedpC ------------------------------------------------------------------ddiCheckOledRdR,-*i NoOleLinksdRdR/idlg4g|deloop_oleddR>iDlgddRi ErrorExitj)OLE-Links not allowed, please break linkslddRiStatus ?idlgdRiStatus ldo>iDlgdoiLink$ iDlgsdog|s ilink$sZdRTde NoOleLinksdR,-*ldddodpC ------------------------------------------------------------------dp ErrorExitdpC ------------------------------------------------------------------ddi ErrorExitiMessage$iErrNoddRiErrNo ldog+iMessage$jSAP R/3l0dogGldRiErrNoldo-iErrNodR dog+iMessage$jSAP R/3l0dRTddddp the enddRddp: ---------------------------------------------------------dp Test subroutinedp0 use the WordBasic Debugger the check this codedp: ---------------------------------------------------------ddiMAINdRiCR$ gl gl ddRiFct$ gjEnter TD Command:ititle$jTDHIdRiN giFct$gl dRiN liFct$ giFct$iNlddRiFlags$ gj5Enter Flags: (S:ave,I:nsert_String,C:opy_File,E:xit)ititle$jdRiN giFlags$gl dRiN liFlags$ giFlags$iNlddRgGdRiR3WinSrvvExecuteiFct$iFlags$dRdddiMainddRiSrc$ gj Substitude:jSAPjdRiRepl$ gj Replacement:jSAPjddRgHldRgjMakros aus Dot-Vorlage ggiAnzahlldRgdRgHlddRidoc$ g;dR#iAnzahl l$gldoiName$ giAnzahlldogHldogiName$gl dogHldRdoggiName$dogddoiName$ jUtildogs iName$ssP ldogus iSrc$s iRepl$nss} ldp+ insert word commands to modify macro heredoid$ g;dogldnRTdogbidoc$dR&iAnzahldddiMAINdii ld/im$l2din$ gj Macro name:jSAPjdgs iN$ssP ldgldlddp7 ExtrasMakro .Name = "TEST", .Bearbeiten, .Anzeigen = 1deloopdii iildiilglldglldim$ii gd6ii(j:(im$iidgim$iijEnd Sub l*iloopddgddiMAINdR6jMacro R3Variabledddp: ---------------------------------------------------------dp Get R/3 Valuedpdp dp Arguments: dp Item$: Field namedp: ---------------------------------------------------------dodiGet$iItem$dRiDbglnjR3Variable::Get((iItem$(j)ddRiChannel i GetChannelddRiDbglj Request: (iItem$dRiResult$ gaiChanneliItem$ddRgcjMicrosoft WordldRiDbgljO.K. ((iResult$(j)ddRiGet$ iResult$dddp: ---------------------------------------------------------dp Set R/3 Valuedp- depose a new value in a function parameterdp dp Arguments: dp Item$: Field namedp Value$: New valuedp: ---------------------------------------------------------dodiDeposeiItem$iValue$dRiDbglnjR3Variable::Depose((iItem$(j,(iValue$(j)ddRiChannel i GetChannelddRiDbgljPoke: (iItem$(j,(iValue$dRg`iChanneliItem$iValue$ddRgcjMicrosoft WordldRiDbgljO.K.dRdddpC ------------------------------------------------------------------dp Get DDE channel numberdpC ------------------------------------------------------------------ddi GetChannelddRi Application$ gMj ApplicationdRiObject$ gMjObjectdRiChan$ gMj DDE-ChanneldRi ErrorText$ jNo errorddRi Application$ jdoi ErrorExitjConnection not initializediErrdRTddRg i Application$ ldoi ErrorExiti Application$j Is Not running iErrdRTddRiChan$ jdoi ErrorExitjNo connection for i Application$iErrdR doi GetChannel giChan$dRTddddpC ------------------------------------------------------------------dp ErrorExitdpC ------------------------------------------------------------------ddi ErrorExitiMessage$iErrNoddRiErrNo ldog+iMessage$jSAP R/3l0dogGldR do-iErrNodRTdddp dp NAME : R3Functions dp dp DATE : 19/12/95 dp dp/ COMMENTS : Macro for special R3 Functions dp dp. 1) Scan the mergefields and send then to thedp WSWINSERVER dpdpdp HISTORY : dp/ 25/01/96 - Modification of SendMergeFielddp to work in other Mailmergedp modusdpdp 10/10/96 - A-00298dp: Error in SendMergefield an empty {}dp1 could be selected has MERGEFIELD dp !!!! dp 28/10/96 - A-00301dpB We should cut the trailing /* in mergefielddp= this is authorized in WORD. There is dp= an other problem with nest mergefield dp9 in case of conditional if etc.... dpdp 05/06/98- A-00524 dp0 Remove the formatting of the mergefield.diMAINdddkr------------------------------------------------------------------------------------------------------------------dkdk GetMergeField$dkdkdks-------------------------------------------------------------------------------------------------------------------dni GetMerge$ddni SLanguage$ i SapWordInfow GetLanguage$Rdn13i sLanguage$do3jDdoi GetMerge$ jSERIENDRUCKFELDdo3jEdoi GetMerge$ j MERGEFIELDdo3 doi GetMerge$ j UNSUPPORTEDdo1ddddk:----------------------------------------------------------dk SendMergeFielddk3 We expecte than the DDE channel is open. The full dk2 document is scanned and all the information aredk2 send to the server. This Function has been build dk1 on R3CollectField form HR. ( Thank you BERND ) dkdk" ' WINWORD server used commands :dk addmergefield( ) dk< '----------------------------------------------------------diSendMergeFieldddQddk3---------------------------------------------------dkdk Name : SAPWordInfo dkdk dk Author : Alain Lesaffredkdk Project : SAP WINWORDdkdk SubProject : dkdk Version : 2.00dkdkdk4----------------------------------------------------diMAINddddpB -----------------------------------------------------------------dp GetLanguage$dp1 return: the current winword-language (one char)dpB -----------------------------------------------------------------di GetLanguage$dRi WordLang$ gldRgi WordLang$l jDeutschdoiR3Lang$ jDdRgi WordLang$l jEnglishdoiR3Lang$ jEdRgi WordLang$l jFranaisdoiR3Lang$ jFdRgi WordLang$l  j NederlandsdoiR3Lang$ jNdRgi WordLang$l jItalianodoiR3Lang$ jIdRgi WordLang$l jNorskdoiR3Lang$ jOdRgi WordLang$l  j PortugusdoiR3Lang$ jPdRgi WordLang$l jEspaoldoiR3Lang$ jSdRgi WordLang$l jDanskdoiR3Lang$ jKdR doiR3Lang$ jDdoiDbgl6jUnknown WinWord Language (g~(j, use (iR3Lang$dRTddRi GetLanguage$ iR3Lang$dddiMAINddRg+jCreate Makro 'MakeMenu' ?jSAPl0ddRgs jMakeMenustsu j MakeMenuOlddRgs jMakeMenuss6 jsu jddRgj(REM ADD MENUES DIFFERING FROM NORMAL.DOTdRgddRgj.ExtrasAnpassenMen .VorgabeAlles, .Kontext = 1dRgdRiqt$ gl"ddR#ii l$g?lldoim$ g@liildoif ldo#ik l$g?lldog@likl im$if ldo&ikdoif ldogjREM STANDARD giigl j:im$dogdo doic$ jExtrasAnpassenMenleistedoic$ ic$j .Position = giij,doic$ ic$j .MenText = iqt$im$iqt$j,doic$ ic$j .Hinzufgen, doic$ ic$j .Kontext = 1dogic$dogdoTdo#ij l$gAim$lldoie$ g=im$lijldoix$ g>im$lijldoig ldoif ldo#ik l$gAim$lldo6ii(j: (im$(j (ij(j: (ie$(j (g=im$likldog=im$likl ie$ig ldo&ikdoTdoig ldoggl jREM STANDARD gijj ie$j:ix$dogdo doikat ldo#ik l$gldo6ii(j: (im$(j (ij(j: (ie$(j (gikldoggikl gix$ikat ldo&ikodoix$ j (Trennlinie)ikat ldoic$ jExtrasAnpassenMen doic$ ic$j .Position = gijj,doic$ ic$j .Kategorie = gikatj,doic$ ic$j .Name = iqt$ix$iqt$j,doic$ ic$j .Men = iqt$im$iqt$j,doic$ ic$j .MenText = iqt$ie$iqt$j,doic$ ic$j .Hinzufgenj,doic$ ic$j .Kontext = 1doggl ic$dogdoTdo&ijdR&iiddRgj(REM REMOVE UNUSED MENUES FROM NORMAL.DOTdRgddR#ii l$g?lldoim$ g@liildoif ldo#ik l$g?lldog@likl im$if ikdo&ikddoifldogjREM USE STANDARD giigl j:im$dogddo#ij l$gAim$lldoie$ g=im$lijldoix$ g>im$lijldodoig ldo#ik l$gAim$lldo6ii(j: (im$(j (ij(j: (ie$(j (g=im$likldog=im$likl ie$ig ldo&ikdoig ldoggl jREM STANDARD gijj ie$j:ix$dogdo dodoic$ jExtrasAnpassenMen doic$ ic$j .Position = -1,dop- c$ = c$ + " .Kategorie = " + Str$(kat) + ","doic$ ic$j .Name = iqt$ix$iqt$j,doic$ ic$j .Men = iqt$im$iqt$j,doic$ ic$j .MenText = iqt$ie$iqt$j,doic$ ic$j .Entfernenj,doic$ ic$j .Kontext = 1doggl ic$dogdoTdo&ijdo doic$ jExtrasAnpassenMenleistedoic$ ic$j .Men = iqt$im$iqt$j,doic$ ic$j .Entfernen, doic$ ic$j .Kontext = 1dogic$dogdoTdR&iiddRgj REM READYdRgddR6jReadydddiMAINdRi ReadOnly$ gMjReadOnlydRi ReadOnly$ jdo-l!dR dogdRTddiMAINdRi ReadOnly$ gMjReadOnlydRi ReadOnly$ jdo-l!dR dog dRTdup p p p p p p K@Normala.@. Heading 1 < U]ck,@, Heading 2 < UV]c"A@"Default Paragraph FontN-@N Macro Text+ 1% ` @  ]ac!lesaffre alainD:\locngu30.tmp\wsword.dotlesaffre alainD:\locngu30.tmp\wsword.dotlesaffre alainD:\locngu30.tmp\wsword.dotlesaffre alainD:\locngu30.tmp\wsword.dotlesaffre alainD:\locngu30.tmp\wsword.dotlesaffre alainD:\locngu30.tmp\wsword.dotLesaffre Alain C:\wsword.dotGerd Balzuweit+C:\projekte\WordLinkR3\CurrDot95\wsword.dotiXOS AS GmbH Leipzig)F:\Program Files\sapgui\SAPGUI\wsword.dotGerd Balzuweit)C:\Program Files\SAPpc\SAPGUI\wsword1.dot- Application DDE-ChannellObjectSAP R/3 WinWord Server 3Edit_Text_Exit_TdU U%%U@,@,U ,UMMU CNHNU N!NUp"pU  rrU t tU uuU ||U JUއ9 UOUfOkR3WinSrvR3GetVarR3DbgR3SetVar R3GenMakeMenu R3ExecuteFGenerate Macro 'MakeMenu', which builds the actual menu configuration  R3Replace+Interactive macro: Send command to serverReplace a string in all macros R3GenMakroCommuniction routines for R/3 Windows-Server Connect (ServerName$,FunctionModuleName$) Execute (Function$,Flags$) Disconnect SetVar(VarName$, NewValue$) GetVar(VarName$) Reconnect (Window$)Set trace valueIInteractive macro: Set a variable (import-parameter) in the R/3 RFC callKInteractive macro: Get a variable (export-parameter) from the R/3 RFC call R3VariableR3ToolsR3TableEinfgenAnmerkungDFgt ein Anmerkungszeichen ein und ffnet den Anmerkungs-Ausschnitt.ExtrasDokumentschutzAufheben4Hebt den Dokumentschutz fr das aktive Dokument auf.R3DocxUser access to the global document information. The functions and subroutines gives direct access to R3 document states. R3Functions!Entry point for SAP WORD server.  SAPWordInfo&Sichern In Rohfassung&Versionshistorie&Terminologie Suchen &Release Information Schlagworte&Information zum Dokument &Bearbeitenx &BearbeitenE&xtras &SpringenX Z&ustzeX &EinbindenX&Verwendungsnachweis%&Glossarindezierung einzelne BegriffeAttribute anzeigenR3DBGR3DOCR3TABLER3TOOLSR3GETVARR3SETVARR3WINSRV R3EXECUTE R3REPLACE R3GENMAKRO R3VARIABLE R3FUNCTIONS SAPWORDINFO R3GENMAKEMENUEINFGENANMERKUNGEXTRASDOKUMENTSCHUTZAUFHEBEN@PS to FileNe00:winspoolApple LaserWriter II NT v47.0PS to File P|p od,etter od,LPRIV''''PS to File P|p od,etter od,LPRIV''''CTimes New Roman Symbol &Arial5Courier New"E0E !, GUIiXOS AS GmbH LeipzigܥhW e+±+lllllllMͰ8'C%%%%%%%%%''''''jX±'l%VW%%%%'%ll%%%%%%l%l%%0FXƿllll%%%% ist jetzt mit nicht und vor wie .A+Bu "&*+ K@Normal]c "A@"Default Paragraph Font++M(c)(r)1/21/43/4itsjeztmtincihtudnvrowei "&*+BJV+KW@CTimes New Roman Symbol &Arial5Courier New"  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWX]eRoot Entry ~P F`[0FXƿ\TWordDocument@@]8±CompObj8jSummaryInformation(  FMicrosoft Word Document MSWordDocWord.Document.69qࡱ3Oh+'0  D P \ ht| anmGUImWRM wsword.dotiXOS AS GmbH Leipzig]11MMicrosoft Word for Windows 95do@GDocumentSummaryInformation8 3՜.+,0HP`hp x SAP AG  @*Ww@NxMƿ@Э8Xƿࡱ> Z3՜.+,0HP`hp x SAP AG  ࡱ>