╨╧рб▒с>■  #$■   "                                                                                                                                                                                                                                                                                                                                                                                                                                                ▄еhWр e░C,j,jj,j,j,j,j,Ф,Ф,Ф,Ф,Ф,CCФ,@81Ф,Ф,Ф,Ф,Ф,Ф,Ф,Ф,╨.B6668J6ь67ь"8q8X╔8.@8j,Ф,Ф,Ф,Ф,Ф,@8Ф,j,j,Ф,Ф,Ф,Ф,Ф,Ф,j,Ф,j,Ф,t.\┬╗Ц▄4┐~,Ж,j,j,j,j,Ф,╨.Ф,рФ, дГ.е╚Aжзиайакл dkdk NO COMMENTSdkdk: 11/07/95 This macro has been modified to call the macrodk3 R3SichernUndZur№ck in the same templatedkdk8 22/08/95 This macro is called by end of print and we dk$ should stop the communication. dkdk6 03/09/95 The comments of the 22/08 is irrelevant wedk change the logicdkdiMAINddp, If GetDocumentVar$("IsNewFile") > "0" Thendp+ R3Variable.Depose("Ttxct-Function", "I")dp FileSavedp: ElseIf CmpBookmarks("\StartOfDoc", "\EndOfDoc") = 0 Thendp+ R3Variable.Depose("Ttxct-Function", "D")dp FileSavedp ElseIf IsDocumentDirty() Thendp+ R3Variable.Depose("Ttxct-Function", "U")dp FileSavedp Elsedp+ R3Variable.Depose("Ttxct-Function", " ")dp EndIfdp dRndRi ChannelName$ gMБj DDE-ChanneldRi ChannelName$jdoiR3SichernUndZur№ckdRTdddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dkdk7 Makro: contains a debugging utility for the tracing indk word basic macrosdkdk Date: 25.01.95dkdk Fus:dk R3GetLogFileName$dkdk R3CreateLogFile dk R3WriteLogLine(oneline$)dk R3DeleteLogFiledkdk, LogError display an error in the logfiledkdk history: dk 25.01.95 Genesisdk 06.04.95 documenteddkC 13.04.95 handle a local logfile error added due to makro recursiondk( 27.07.98 Gerd Balzuweit, more loggingdkf 22.11.99 Gerd Balzuweit, Logging configuration by using ' the registry.dkddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'diMAINdRk stubdddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'diR3GetLogFileName$ddRi sDocPath$ RgюАjTEMPj\dRiR3GetLogFileName$ i sDocPath$j wwr3log.txtddddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'diR3CreateLogFiledRdR,-*iR3CreateLogFileErrddR/isFName$dRdRisFName$ iR3GetLogFileName$ddRgMБjR3DEBUG jXdo=isFName$#;4qldo6qljWSHRPA Logfile :g Аj g АdoLqldRTdd*iR3CreateLogFileExiteR3CreateLogFileErrdoi LogHandleiErrjR3LogFile.R3CreateLogFileReR3CreateLogFileExitdddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'diR3WriteLogLineioneline$ddR,-*iR3WriteLogLineErrddR/isFName$dRdRisFName$ iR3GetLogFileName$ok get the filenameddRgMБjR3DEBUG jXdo=isFName$#<4qldo6qlj(g Аnj) ioneline$doLqldRTddR*iR3WriteLogLineExiteR3WriteLogLineErrdRdoi LogHandleiErrjR3LogFile.R3WriteLogLinedReR3WriteLogLineExitdddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'diR3DeleteLogFileddR,-*iR3DeleteLogFileErrRddR/isFName$ddRisFName$ iR3GetLogFileName$ddRgMБjR3DEBUG jXdogлАisFName$dRTddR*iR3DeleteLogFileExiteR3DeleteLogFileErrdRdoi LogHandleiErrjR3LogFile.R3CreateLogFiledReR3DeleteLogFileExitdddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'di LogHandleiiNoErrorisFuName$ddRgБldRk AppShowdRk AppMinimize "Microsoft Word", 0dRg+АjError gАiiNoErrorj occured at: isFuName$rdn j Logfile Errorll0ldR-iiNoErrorok show all errorsdRiErr ldddkD''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''dk'dk(' Get the logging from the registry key:dk)' HKEY_CURRENT_USER\Software\SAP\Wswinsrvdk'diSetLoggingFromRegistrydR/iLogging$dRdRk Switch the logging off.dRgLБjR3DEBUGjddRk Ask the registry for loggingdRiLogging$ g Бj'HKEY_CURRENT_USER\Software\SAP\WswinsrvjLoggingjddRiLogging$ jOndogLБjR3DEBUGjXdRTddk2 03/10/95 - We choice to go back to the old model dk- the SAPSCRIPT documents are linked to the dk, normal.dot template. ( See WsWORD.dot fordk comments )dkdkdkdiMAINddRiR3WinSrvvInitiatejR/3 Windows ServerjNonedRiDisplay$ i R3VariablewGet$j Ttxct-AppDispdRgпАiDisplay$ jXdogўldRTddddkD--------------------------------------------------------------------dk Open Documentdkdk< 26/06/95- There was a type mimatch... The tests have beendk properly donedk dk6 07/08/95 - Remove the menu item Delate from the menu dk File ( A-00046)dk dk@ 10/08/95 - To Remove the menu we should check in both language dk9 if the english macro is not found then we take the dkC english. We espect the Item in the third position of dk the menu Filedkdk4 18/08/95 - Set document variable R3MacroRunning = Xdkdk? 01/09/95 - Old model so we ask for a connection in this moduledkdk> 04/09/95 - See the german template. Do not test the channeldk: please.. We have an unexpected behaviour with WORDdk 7.00 and WINDOW NTdk dk1 20/12/95- Problem A-100. Correction is read onlydk6 27.07.98 Gerd Balzuweit add logging for that moduldkD--------------------------------------------------------------------diMAINdRi R3LogFilevSetLoggingFromRegistrydnRi R3LogFilevR3CreateLogFileodni R3LogFilevR3WriteLogLinejR3OpenDocumentddRiR3WinSrvvInitiatejR/3 Windows ServerjNonedni R3LogFilevR3WriteLogLinejR/3 Windows Server initializedddRiToPrint$ i R3VariablewGet$jToPrintdRiToPrint$ jdRk/ 11/08/95 Remeber is the Delete file is presentdRi MyMenuName$ g@Бlldni DeleteItem iIsDeletedRiR3Docv IsDisplaydogLБjDocModejLdok 07/08/95 dnk8 Remove form File Menu the Save remove and the separatordRnkdok 10/08/95dok doi DeleteItem ldog▒sм ls i MyMenuName$s+ ls j R3LЎschens ls╣dnd doi DeleteItem ldok# WARNING :: LANGUAGE DEPENDENT PARTdog▒sм ls i MyMenuName$s+ ls j R3LЎschens j &Delete files lsШdndok 15/08/95 dok This variable must be cleardok dogLБjDocModejdndnnk End of printdni R3LogFilevR3WriteLogLinejR3OpenDocument donedddkD--------------------------------------------------------------------dk 11/08/95dkdk FUNCTION : IsLЎschendkdkdkD--------------------------------------------------------------------diIsDeletedok 10/08/95 dok; Take the first menu name in this way no language problem. dok+ Ask for the third macro if there remove itdok dni R3LogFilevR3WriteLogLinejIsDeletedoi MyMenuName$ g@Бlldnk# Select the current available menudni ThirdMacro$ g>Бi MyMenuName$llldngпАi ThirdMacro$ j R3L╓SCHENdoiIsDelete ldo dRQoiIsDelete ldoddiMAINddR)iAutoOpendddk AutoOpen Makro dkdk7 22/08/95 This macro is called by print, we should opendk1 the communication channel !! and if an otherdk$ program call with this macro !!dkdk= 01/09/95 We choice to go back to the old model for SAPSCRIPTdk2 they are linked to normal.dot by defaultdkdiMAINdRgLБj DDE-ChanneljdRg$Аlddk? Dies ist eine Vorlage f№r ein Makro, was programmgesteuert diedk> Men№zeile und Men№eintrфge anpasst. Die Dialogboxen haben dendk@ Nachteil, da▀ Einstellungen schwer nachtrфglich zu фndern sind.dk: F№r weitere Hilfe bitte Wort selektierung und F1 dr№cken.ddiMAINddk9 Zur№cksetzen der Men№zeile auf das Layout von NORMAL.DOTdi R3LogFilevR3WriteLogLinejMakeMenudg▒ss lddk) F№ge ein neues Men№ in die Men№zeile einddggs+ nls j&GotosШns lddk> F№ge einen Eintrag in das Men№ ein, der dieses Makro aufruft.ddRg▒ns+ nlsH nls jMakeMenus j&Gotos j &Build MenusШs lddk) Drucken wird aus dem Datei Men№ entferntddRg▒sм ls+ lsH ls j FilePrints j&Files j &Print...s╣s lddk( Das gesammte Men№ Format wird entfernt ddRggs j&Formats╣ns ldddkD====================================================================dk dk Version : 2.00dkdk; Comments : This macro is called when the Loschen menu is dk selecteddkdk History : dk 09/06/95dk5 The new dialog "Sind Sie sicher ?" has been addeddkdkD====================================================================diMAINdRM?g)l@lFj Delete filedRg╔АlZllБl jAre you sure ?vText1dRg╟Аl'l"lXldRg╚Аlлl"lXldR?ddR/iSure4g)ddR?iSurel ldogБldokdok. 04/09/95 Thank you. Il est rare de travaillerdok% avec des gens si cooperatifdok dogLБjR3MacroRunningjXdog$АldniR3Docv DeleteDocdoiR3WinSrvv TerminatedRdddiMAINdRgLБjR3MacroRunningjXdRi R3VariablevDeposejTtxct-Functionj dRiR3Docv IsDisplay lQRg$АldRiR3WinSrvv Terminateddk dk HISTORY :dkdk 11/07/95dk6 We call the the macro R3Winsrv.Execute instead of dkA terminate. This is to avoid the insertion of the template in dk< the document. The template reference is inserted in the dk? SAPSCRIPT header anyway.( A-0010 Error ). Remember we save dk" with no logic. ( A0025- Error)dkdk 10/08/95 dk( The template could have been modified.dkdk 16/08/95dk2 Add set variable. Thank you for the information.dkdkdiMAINdRdni R3LogFilevR3WriteLogLinejR3SichernUndZurueckdRQiR3Docv IsDisplaydng dRngБldRng$АldniR3WinSrvv Terminatedn*niAtEnddRn dRngБldRnTdRdRdRkdRk. 16/08/95 Thank you. Il est rare de travaillerdRk% avec des gens si cooperatifdRk dRgLБjR3MacroRunningjXdRgАj \StartOfDocj \EndOfDoc ldoniR3Docv DeleteDocdoiR3WinSrvv TerminatednR doniR3Docv HasChangeddoiR3WinSrvv TerminatedRTdeAtEnddж'■u■z ЁK@ё Normala"A@Є б"Default Paragraph Font      !  рlesaffre alainD:\LOCNGU30.TMP\wsstd__e.dotlesaffre alainD:\LOCNGU30.TMP\wsstd__e.dotlesaffre alainD:\LOCNGU30.TMP\wsstd__e.dotlesaffre alainD:\LOCNGU30.TMP\WSSTD__E.DOTlesaffre alainD:\LOCNGU30.TMP\WSSTD__E.DOTlesaffre alainD:\LOCNGU30.TMP\WSSTD__E.DOTlesaffre alainD:\LOCNGU30.TMP\WSSTD__E.DOTlesaffre alainD:\LOCNGU30.TMP\WSSTD__E.DOTGerd Balzuweit-C:\projekte\WordLinkR3\CurrDot95\wsstd__e.dotiXOS AS GmbH Leipzig+F:\Program Files\sapgui\SAPGUI\WSSTD__E.DOT< Application░■DocMode°▀!ObjectШЦR3MacroRunningРйR/3 Windows ServerLNoneX  U  A U!  \н \U(   C U)  L╛ LU,U    U-  &P &U.|  vA vU0  ╖ ├ ╖ U1 z#Р z#U2   $Ь $# ┴  y Б Y        б й 2 2 Щ ╣  2 0 A y               Б б б /  0 ┴ 1 1 1 0 2 2 1 !1AutoOpen AutoClose&Goto&Stop &Print...&New...&Open...R3OpenDocumentR3SichernUndZur№ckBricht eine Aktion ab.Close/Close All R3AbbrechenSave As/Save Copy As&Zur№ck R3LЎschen R3NewDocumentSave/Update All R3LogFile&Back &Save & Back&Save and back Save/Update &Templates...E&xit &Delete FileProtect Document... &Sichern In Rohfassung Save &As ... File Delete &Delete file &Back to R3&Save and back to R/3&Abort and back to R/3&Versionshistorie&Terminologie Suchen &Release Information SchlagworteAutoNew&Information zum Dokument &Bearbeitenx &BearbeitenE&xtras &SpringenX Z&usфtzeX &EinbindenX&Verwendungsnachweis%&Glossarindezierung einzelne BegriffeAttribute anzeigenMakeMenu ,AUTONEW-AUTOOPEN.MAKEMENU/R3SAVEAS AUTOCLOSE! R3LOGFILE0 R3L╓SCHEN1 R3ABBRECHEN( R3NEWDOCUMENT)R3OPENDOCUMENT2R3SICHERNUNDZUR▄CK@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а''''А1РTimes New Roman РSymbol &РArial"К─й.ыЕ│;&%zГ!.SAP AGiXOS AS GmbH Leipzig▄еhWр e=+=░C+BlBllBlBlBlBlBАBАBАBM═B8CCCАB'C1%C%C%C%C%C%C%C%C%C'C'C'C'C'C'CXCX░C'ClB%C %C%C%C%C'C%ClBlB%C%C%C%C%C%ClB%ClB%C%C┬╗Ц▄4┐АBАBlBlBlBlB%C%C%C%Cй о ╜ ╝ ╛ ist jetzt mit nicht und vor wie д╨/ер=жзиайак=+=B=■u===== ====="=&=*=+=■■■■■■■■■■■■■ K@ё Normal]■c╠ "A@Є б"Default Paragraph Font+ +=     M(c)(r)1/21/43/4itsjeztmtincihtudnvrowei "&*+=B==+=  @1РTimes New Roman РSymbol &РArial"А─йГ  !■   ¤   &■   .■                               ■                                                                                                                                                                                                                                                                                                                                       Root EntryЁЁ CGў╨╨         └FрИ┴ї║╜┬╗Ц▄4┐%АWordDocument       ░CCompObj              jSummaryInformation(        ╠■    ■    ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ■       └FMicrosoft Word Document MSWordDocWord.Document.6Ї9▓q╨╧рб▒с■ 3рЕЯЄ∙OhлС+'│┘0ЬШам╕╚╘р° $ L X d p|ДМФфmanr..SAP AGe: WSSTD__E.DOT iXOS AS GmbH Leipzig6293Microsoft Word for Windows 95@DocumentSummaryInformation        8                                 ╘                                                                                                                                                                                                                                                                                                                                                                                        ■ 3╒═╒Ь.УЧ+,∙о0дHP`hp xА ИфSAP AG` \ @@,[2Л╣@Ё}▄4┐╨╧рб▒с>■  #■ 3╒═╒Ь.УЧ+,∙о0дHP`hp xА ИфSAP AG` ╨╧рб▒с>■