ࡱ> ܥhce -***** --*"_*...2@@@NI8 P!P"7#X#'"@ 2@@@"@.*@@@@ .2\\b%@N@@ SAP /=0 & } J; T  $ S S (kFZdiMAINdR6jR3Winsrv: ToolsdniInstallGlobalDotjXXXXddddpC ------------------------------------------------------------------dp LoadGlobalDotdp& load as a global document templatedpB -----------------------------------------------------------------di LoadGlobalDotiSapDot$dRgiSapDot$ ldogxiSapDot$ldRgiSapDot$ ldogiSapDot$ldRTdddpB -----------------------------------------------------------------dp InstallGlobalDotdp' load as a global document template.dp dp 16/08/95 & 24/08/95dpdpB We use the GetPrivateProfileString with the registry. The onlydp2 thing to know is the WORD version 6.00 or 7.00dpdp 25/09/96 dp2 Correction when the file is write protected dpdp 25/02/97 dp Problem of extensiondpC ------------------------------------------------------------------ddiInstallGlobalDotiSapDot$ddkdk' 25/02/97 Test if we have an extensiondk2 problem with Windows 95 & NT 4.00dkdoQi SapAddIn$ gdn iExten$ ng i SapAddIn$lndn giExten$ jDOTndoQi SapAddIn$ i SapAddIn$j.DOTdn TddRi WordVersion$ gldni WordVersion$ gi WordVersion$lndniIs32bitsndoi ProfileKey$ j*HKEY_CURRENT_USER\Software\Microsoft\Word\i WordVersion$j\Optionsdoi StartPath$ g i ProfileKey$j STARTUP-PATHjdR dRi StartPath$ g jMicrosoft Wordj STARTUP-PATHj WinWord6.inidRdddR6i StartPath$dRi StartPath$ jddog i StartPath$l j\i StartPath$ i StartPath$j\dRdoi StartDot$ gi SapAddIn$ldoi StartSapDot$ i StartPath$i StartDot$ddogi StartSapDot$ jdog,ni SapAddIn$i StartPath$doTddogi StartSapDot$ ldogxi StartSapDot$ldogi StartSapDot$ ldogi StartSapDot$ldoTddRTdRi Application$ jR/3 Windows ServerdRg i Application$dQogldRTdRi LoadGlobalDotiSapDot$ddddpB -----------------------------------------------------------------dpdp SetDefaultDotdpdp9 This macro changes the default DOT path in the INI or dp= registry. The original value is copied under ORG-DOT-PATH.dp# Use ResetDefaultDot to restore. dpdp% Input : NewDot = new dot directorydpdp4 TestTed : On WINDOW NT with WORD 7.00 on 22/08/95dpdpB -----------------------------------------------------------------dni SetDefaultDotiNewDot$dQRi WordVersion$ gldni WordVersion$ gi WordVersion$lndddniIs32bitsndoi ProfileKey$ j*HKEY_CURRENT_USER\Software\Microsoft\Word\i WordVersion$j\Optionsdoi OrgDotPath$ g i ProfileKey$j USER-DOT-PATHjdn gi ProfileKey$j USER-DOT-PATHiNewDot$jdoQgi OrgDotPath$ldogi ProfileKey$j ORG-DOT-PATHi OrgDotPath$jdn d dRkdRk 16 bitsdRkdRi OrgDotPath$ g jMicrosoft Wordj USER-DOT-PATHj WinWord6.inidRiSetPrivateProfileString$jMicrosoft Wordj USER-DOT-PATHiNewDot$j WinWord6.inidngi OrgDotPath$ldoiSetPrivateProfileString$jMicrosoft Wordj ORG-DOT-PATHi OrgDotPath$j WinWord6.inidRdnddddniResetDefaultDotddRi WordVersion$ gldni WordVersion$ gi WordVersion$lndRiIs32bitsdoi ProfileKey$ j*HKEY_CURRENT_USER\Software\Microsoft\Word\i WordVersion$j\Optionsdoi OrgDotPath$ g i ProfileKey$j ORG-DOT-PATHjdoQgi OrgDotPath$ldoQk We clear the tempory variabledn gi ProfileKey$j ORG-DOT-PATHjjddogi ProfileKey$j USER-DOT-PATHi OrgDotPath$jdn d dRkdRk 16 bitsdRkdRi OrgDotPath$ g jMicrosoft Wordj ORG-DOT-PATHj WinWord6.inidgi OrgDotPath$ldRiSetPrivateProfileString$jMicrosoft Wordj ORG-DOT-PATHiNewDot$j WinWord6.inidoiSetPrivateProfileString$jMicrosoft Wordj ORG-DOT-PATHi OrgDotPath$j WinWord6.inidRdndndpB -----------------------------------------------------------------dp dp Is32bitsdp dp) Returns TRUE is WORD is in 32bits modusdpB -----------------------------------------------------------------diIs32bitsdkdk; This will work on 6.00 and 7.00. 16 and 32 bits. Even indk9 16 bits windows nt WORD 16 bits returns "windows 3.10"dkdk< For WORD 7.00 under WINDOW 95 the system is "windows" as dk. for Window so we test the version number ..dkdRi TypeOfSystem$n g ldRiVersionNumber$n g lddRg i TypeOfSystem$l jNTg i TypeOfSystem$l jwsniVersionNumber$ j4.0doiIs32bits ldn doiIs32bits ldRddd ub U]bc` uDa !U!K@Standarda2@2 berschrift 1 < U]ck&A@&Absatz-StandardschriftartN-@N Makrotext+ 1% ` @  ]ac  !   patrick merz$\\NTCSERVER\SURI\R3WS\30\WSSTART.DOTlesaffre alainD:\LOCNGU30.TMP\wsstart.dotDesktop Integration!\\P09909\LOCNGU30.TMP\wsstart.dotGUID:\R3WS\WSSTART.DOTlesaffre alainD:\locngu30.tmp\wsstart1.dotlesaffre alainD:\locngu30.tmp\wsstart1.dotlesaffre alainD:\locngu30.tmp\wsstart1.dotlesaffre alainD:\locngu30.tmp\wsstart1.dotlesaffre alainD:\locngu30.tmp\wsstart1.dotSAP AG!\\p09909\locngu30.tmp\wsstart.dot- Application0 DDE-ChannelObjectSAP R/3 WinWord Server 3Edit_Text_Exit_TdUuR3Start&Sichern In Rohfassung&Versionshistorie&Terminologie Suchen &Release Information Schlagworte&Information zum Dokument &Bearbeitenx &BearbeitenE&xtras &SpringenX Z&ustzeX &EinbindenX&Verwendungsnachweis%&Glossarindezierung einzelne BegriffeAttribute anzeigenR3START@HP LaserJet 4/4M Plus PS 600Ne00:winspoolHP LaserJet 4/4M Plus PS 600HP LaserJet 4/4M Plus PS 600W 4dXA432;C:\WINNT\syPRIV''''?HP LaserJet 4/4M Plus PS 600W 4dXA432;C:\WINNT\syPRIV''''?_Times New Roman Symbol &Arial&Arial Rounded MT Bold5Courier New"F !' patrick merzSAP AGܥhce'+'-+,r,rr,r,r,r,r,,,,M,8 - --,--_+-+-+-+-+-+-+-+-+--------------X---r,+-+-+-+-+---+-r,r,+-+-+-+-+-+-r,+-r,+-+-\b%,,r,r,r,r,+-+-+-+- ist jetzt mit nicht und vor wie /='+'B'u''''' '''''"'&'*'+' K@Standard]c &A@&Absatz-Standardschriftart++'M(c)(r)1/21/43/4itsjeztmtincihtudnvrowei "&*+'B' '+' @_Times New Roman Symbol &Arial&Arial Rounded MT Bold5Courier New" #Root Entry!EUl F (F\b%@WordDocument-CompObjjSummaryInformation(  FMicrosoft Word Dokument MSWordDocWord.Document.69qOh+'0  < H T `lt| ~ patrick merzxwsstartSAP AG13Microsoft Word for Windows 95@@DocumentSummaryInformation8 ՜.+,0HP`hp x SAP AGJ  Ww@=c.#@ܩb%՜.+,0HP`hp x SAP AGJ