ࡱ> #&$Root Entry  Fc٭q@U+q CompObj&'()*+,-./056789n@WordDocumentHIJKLMNOPUVWXY$l`ObjectPoolghijklmnopjգqjգq~  !"A=>?@PBCHEFGWIJKLMNO<QRDXYSummaryInformation(\?J\?J I  FMicrosoft Word 6.0 Document MSWordDocWord.Document.69qࡱ_Oh+'0 D h   @d C:\WINWORD\TEMPLATE\NORMAL.DOT1WideOpen: Long File Names for Microsoft Word 6.0Phillip BoglePhillip Bogle@a!>@Y@tsq^@Microsoft Word 6.0457\?J\?J It|*.txt|MS-DOS-Text + Zeilenwechsel|*.txt|Rich Text Format|*.rtf|MS-DOS Text mit Layout|*.asc|Text mit Layout|*.ans|Word fr Windows 1.x|j*.doc|Word fr Windows 2.0|*.doc|Word fr Macintosh 4.0|*.mcw|Word fr Macintosh 5.1|*.mcw|WordPerfect 5.0|*.doc|WordPerfect 5.1 fr MS-DOS|*.doc|WordPerfect 5.x fr Windows|*.doc|Windows Write 3.1|*.wri|Microsoft Excel Tabellenblatt|*.xls |jAlle Dateien (*.*)|*.*|'dd dRifilter$ jq-filter 'Word Document|*.doc|Document Template|*.dot|Rich Text Format|*.rtf|Text Only|*.txt|All files (*.*)|*.*|'ddddk Do the actual file dialogdg_ichanneljsave ifilter$ifile$idir$diname$ gaichannelj ShortNameddp. Use default dialog if shift key is held down diname$ j ::Default::eDefaultdR,-*iFinisheddR/isavedlg4gTdR>isavedlgdR?isavedlgdRgTisavedlgddp) If they didn't cancel then save the filediname$ jdRp% See what format they want To save indRdRgg~l jEnglishdoi formatName$ gaichannelj FilterNamedoiformat gi formatName$dR doiformat i GuessFormatiname$dRddRiformat ldog+jRA converter for this format is not installed in Word. Using Word document format.doiformat ldRddRgTs iname$s iformatdTd*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE or some other component of WideOpen. You may want to try reinstalling WideOpen. Please be sure that WIDEN14.EXE is copied into your Windows directory or run the macro WidenUninstall to uninstall WideOpen.d*iDefaultdeFinisheddichannel lg]ichanneldddp? This is just a cheap hack to try to guess that format for Worddp> versions other than English for which the format descriptionsdp= in this macro don't apply. The real solution is to translatedp the filter$.ddi GuessFormatiname$dRiext$ g iname$lddRiformat ldRiext$ jDOTdoiformat ldRiext$ jTXTdoiformat ldRiext$ jRTFdoiformat ldRTdRdRi GuessFormat iformatdttt!telVUnknown Naveen Gargt= Phillip BogleO>U b>b>U ? ?U"lVU6N6NU <<U-; -1FileOpen&Opens an existing document or template WidenInstallFileSave%Saves the active document or template FileSaveAs/Saves a copy of the document in a separate file WidenSaveAsWidenUninstall FileClose0Closes all of the windows of the active documentTestTestDDEAutoexec TESTTESTDDEAUTOEXECFILEOPENFILESAVE FILECLOSE FILESAVEAS WIDENSAVEAS WIDENINSTALLWIDENUNINSTALL@4qrstkVrsCTimes New Roman Symbol &Arial5Courier New"BV h0%e^!^0WideOpen: Long File Names for Microsoft Word 6.0 Phillip Bogle Phillip Bogleࡱ> ܥe3 Eet$lr,,eeeeeeeeeee e e/kCf f f f f f f fIhjjjjjjrkTk^j9e f f f f fj fee fe f f f fe fe fIheeeeee fIh f= fYou have opened WIDEN.DOT, the WideOpen template file. Please close this window, then open WIDEOPEN.DOC instead! dAiGetActiveWindowNj user32.dll4CdiMAINddihw iGetActiveWindowddg+gihwnddiMAINdp FileList 1ddiMaindRp9 staiondk for files of that type.ddgg~l jEnglishdRifilter$ j-filter 'Word Document|*.doc|Document Template|*.dot|Rich Text Format|*.rtf|Text Only|*.txt|Text Only with Line Breaks|*.txt|MS-DOS Text|*.txt|MS-DOS Text with Line Breaks|*.txt|MS-DOS Text with Layout|*.asc|Text with Layout|*.ans|Word for Windows 1.x|j*.doc|Word for Windows 2.0|*.doc|Word for Macintosh 4.0|*.mcw|Word for Macintosh 5.1|*.mcw|WordPerfect 5.0|*.doc|WordPerfect 5.1 for MS-DOS|*.doc|WordPerfect 5.x for Windows|*.doc|Windows Write 3.1|*.wri|Microsoft Excel Worksheet|*.xls |jAll files (*.*)|*.*|'ddkB Thanks to all the German users who helped me write the following!dgg~l jDeutschdRifilter$ j-filter 'Word-Dokument|*.doc|Dokumentvorlage|*.dot|Nur Text|*.txt|Nur Text + Zeilenwechsel|*.txt|MS-DOS-Text|*.txt|MS-DOS-Text + Zeilenwechsel|*.txt|Rich Text Format|*.rtf|MS-DOS Text mit Layout|*.asc|Text mit Layout|*.ans|Word fr Windows 1.x|j*.doc|Word fr Windows 2.0|*.doc|Word fr Macintosh 4.0|*.mcw|Word fr Macintosh 5.1|*.mcw|WordPerfect 5.0|*.doc|WordPerfect 5.1 fr MS-DOS|*.doc|WordPerfect 5.x fr Windows|*.doc|Windows Write 3.1|*.wri|Microsoft Excel Tabellenblatt|*.xls |jAlle Dateien (*.*)|*.*|'dd dRifilter$ jq-filter 'Word Document|*.doc|Document Template|*.dot|Rich Text Format|*.rtf|Text Only|*.txt|All files (*.*)|*.*|'ddddk Do the actual file dialogdg_ichanneljsave ifilter$ifile$idir$diname$ gaichannelj ShortNameddp. Use default dialog if shift key is held down diname$ j ::Default::eDefaultdR,-*iFinisheddR/isavedlg4gTdR>isavedlgdR?isavedlgdRgTisavedlgddp) If they didn't cancel then save the filediname$ jdRp% See what format they want To save indRdRgg~l jEnglishdoi formatName$ gaichannelj FilterNamedoiformat gi formatName$dR doiformat i GuessFormatiname$dRddRiformat ldog+jRA converter for this format is not installed in Word. Using Word document format.doiformat ldRddRgTs iname$s iformatdTd*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE or some other component of WideOpen. You may want to try reinstalling WideOpen. Please be sure that WIDEN14.EXE is copied into your Windows directory or run the macro WidenUninstall to uninstall WideOpen.d*iDefaultdeFinisheddichannel lg]ichanneldddp? This is just a cheap hack to try to guess that format for Worddp> versions other than English for which the format descriptionsdp= in this macro don't apply. The real solution is to translatedp the filter$.ddi GuessFormatiname$dRiext$ g iname$lddRiformat ldRiext$ jDOTdoiformat ldRiext$ jTXTdoiformat ldRiext$ jRTFdoiformat ldRTdRdRi GuessFormat iformatddiMAINd,-&diprogDir$ gl di normaldot$ glj \normal.dotdgs s i normaldot$s jFileOpens ldgs s i normaldot$s jFileSaves ldgs s i normaldot$s j FileSaveAss ldgs s i normaldot$s j FileCloses ldgs s i normaldot$s j WidenSaveAss ldgs s i normaldot$s jWidenUninstalls lddg+jWideOpen Removed!ddiMAINdichannel g\jSoundSrvjSounddichannel lRg+jFailed To Open Channelddg_ichannelj[PlayResource(whip)]ddg]ichannelddk Uncomment for 32-bit worddQAiGetWindowsDirectoryNj Kernel32.dllHjGetWindowsDirectoryAibuffer4FiLength4C4Cddk Uncomment for 16-bit worddk Declare Function GetWindowsDirectory Lib "Kernel.dll" Alias "GetWindowsDirectory"(buffer As String, Length As Integer) As IntegerddiMAINdidocdir$ gld,-&ddg j*WideOpen 1.4*dRichannel g\jWiden14jWiden14dRg_ichannelj [Shutdown]dRg]ichannelRdTd!g j*WideOpen 1.4*d"dddgg~l jEnglishdR)iNonEnglishWarningdddiwidenFilename$ g%di widenPath$ giwidenFilename$ldiprogDir$ iGetWindowsDir$ddgg~l jEnglishdRi FileOpen$ jFileOpendRi FileSave$ jFileSavedRi FileSaveAs$ j FileSaveAsdRi FileClose$ j FileClosed dRi FileMenuName$ g@lldRi FileOpen$ g>i FileMenuName$lldRi FileSave$ g>i Filert up the WideOpen server if it isn't running alreadyddR,-&dRg j*WideOpen 1.4*g-j widen14.exeddRichannel g\jWiden14jWiden14dRichannel ldog+jdFailed to connect to WideOpen. Either start widen14.exe manually or run Tools|Macro|WidenUninstall.do*iErrdRddRp) *** Customized filter$ to your language ddgg~l jDeutschdRifilter$ j -filter 'Word Documents (*.doc)|*.doc|Document Templates (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Worksheet (*.xls)|*.xls|All files (*.*)|*.*|' dd dkB Thanks to all the German users who helped me write the following!dRifilter$ j -filter 'Word-Dokument (*.doc)|*.doc|Dokumentvorlage (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Nur Text (*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Tabellenblatt (*.xls)|*.xls|Alle Dateien (*.*)|*.*|' dTddRk? Try to guess if this is the first time they have opened a filedRk3 Change to the default document directory if it is.dRk8 Otherwise just use the last directory they opened from dRidir$ jdRg: ldogS jdoidir$ j -dir 'glj' doTdRTdRdRg_ichanneljopen ifilter$idir$dRiname$ gaichannelj ShortNameddRp= If the below value is return, the user is holding down shiftdRp0 to indicate that default dialogs should be usedddRiname$ j ::Default::eDefaultdR,-*iExitProcdo6j+WideOpen disabled-- hit insert to enable itdo/idlg4gPdo>idlgdo?idlgdogPidlgdo6jddRiname$ jodoi readOnly$ gaichanneljReadOnlydoi formatName$ gaichannelj FilterNamedogPs iname$s gi ReadOnly$dRTdeExitProcdRg]ichannelddiMAINdidoc$ gSRdidoc2$ g%didoc$ jdR)i WidenSaveAsd dRgSdddiMAINdichoice ldg# ldRichoice g+j#Do you want to keep the changes to g;j?jll0dRichoice ldogSdRTdRg$ldTdichoice lgddiMAINd)i WidenSaveAsddiMaindd,-&ddp9 start up the WideOpen server if it isn't running alreadydg j*WideOpen 1.4*dRg-j widen14.exedTddichannel ldichannel g\jWiden14jWiden14dichannel ldRg+jXFailed to connect to WideOpen. Either start WIDEN14.EXE manually or run WidenUninstall.dR-ierrdddifile$ jdg% jdRifile$ j -file 'g%j' dTddkB Set the initial directory to be the path of the old file (if any)dk$ or the default directory otherwise.didir$ jdgS jdRidir$ j -dir 'gg%lj' d dRidir$ jdTd,-*lddk Set the list of format namesdk9 If the user is working with the English version of Word,dkB allow a full set of file types since we can look them up based ondk< their format name. Otherwise use a smaller set that can bedk recognized by extension. ddk? International users may be able to translate filter$ to fully dkC support all formats in their language; how is left as an exercise.ddk0 (Additional file formats can be added by addingdk9 the format name (exactly as listed in the Word file opendkA dialog) followed by '|' followed by a single wildcard expressMenuName$lldRi FileSaveAs$ g>i FileMenuName$lldRi FileClose$ g>i FileMenuName$lldddg€i widenPath$jWiden:WidenUninstalljGlobal:WidenUninstalldg€i widenPath$jWiden:WidenSaveAsjGlobal:WidenSaveAsdg€i widenPath$jWiden:FileOpenjGlobal:i FileOpen$dg€i widenPath$jWiden:FileSaveAsjGlobal:i FileSaveAs$dg€i widenPath$jWiden:FileSavejGlobal:i FileSave$dg€i widenPath$jWiden:FileClosejGlobal:i FileClose$ddk6 Copy the WideOpen executable to the windows directorydgi widenPath$j widen14.exe j*i HandleErrorddisource$ i widenPath$j widen14.exedg,isource$iprogDir$ddk) Make sure the old widen has really quited#ii l$ld&iiddk9 Start widen and change to the default document directorydg-j widen14.exedichannel g\jWiden14jWiden14dg_ichanneljChDir idocdir$dg]ichannelRddg+jWideOpen Installed!d*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE. Please be sure you are running this macro from WIDEOPEN.DOC (not WIDEN.DOT) and that WIDEN14.EXE is in the same directory as WIDEOPEN.DOC.jl0deFinisheddddddiNonEnglishWarningdRg+jAttention! Achtung! Warning! WideOpen has not been tested with non-English versions of Word. You may need to customize the WideOpen macros to fully support your language.jl0ddddiGetWindowsDir$dRibuffer$ jS dRiLength iGetWindowsDirectoryibuffer$gibuffer$dRiresult$ gibuffer$ilengthdRiGetWindowsDir$ iresult$d ehrst & &-97:7OOkVlVeu^Root Entry  Fc٭q8q' CompObj&'()*+,-./056789n@WordDocumentHIJKLMNOPUVWXY)$l`ObjectPoolghijklmnopjգqjգq~91%(*+,-./02345678H:;S=>?@PEFGWIJKLMNO<QRDTUVXYSummaryInformation(\?J\?J I  FMicrosoft Word 6.0 Document MSWordDocWord.Document.69qࡱ_Oh+'0 D h   @d C:\WINWORD\TEMPLATE\NORMAL.DOT1WideOpen: Long File Names for Microsoft Word 6.0Phillip BoglePhillip Bogle@a!>@Y@tsq^@Microsoft Word 6.0458d[jjgF^7PjFPj5^7Vd[~t ^7v[v_*^Uvv u9uh2B3ܥe3 Uetlr,,eeeeeeeeeee e ekC f f f f f f f f3hjjjjjj\kTk^j9e f f f f fj fee fe f f f fe fe f3heeeeee f3h f& fYou have opened WIDEN.DOT, the WideOpen template file. Please close this window, then open WIDEOPEN.DOC instead! dAiGetActiveWindowNj user32.dll4CdiMAINddihw iGetActiveWindowddg+gihwnddiMAINdp FileList 1ddiMaindRp9 start up the WideOpen server if it isn't running alreadyddR,-&dRg j*WideOpen 1.4*g-j widen14.exeddRichannel g\jWiden14jWiden14dRichannel ldog+jdFailed to connect to WideOpen. Either start widen14.exe manually or run Tools|Macro|WidenUninstall.do*iErrdRddRp) *** Customized filter$ to your language ddgg~l jDeutschdRifilter$ j -filter 'Word Documents (*.doc)|*.doc|Document Templates (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Worksheet (*.xls)|*.xls|All files (*.*)|*.*|' dd dkB Thanks to all the German users who helped me write the following!dRifilter$ j -filter 'Word-Dokument (*.doc)|*.doc|Dokumentvorlage (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Nur Text (*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Tabellenblatt (*.xls)|*.xls|Alle Dateien (*.*)|*.*|' dTddRk? Try to guess if this is the first time they have opened a filedRk3 Change to the default document directory if it is.dRk8 Otherwise just use the last directory they opened from dRidir$ jdRg: ldogS jdoidir$ j -dir 'glj' doTdRTdRdRg_ichanneljopen ifilter$idir$dRiname$ gaichannelj ShortNameddRp= If the below value is return, the user is holding down shiftdRp0 to indicate that default dialogs should be usedddRiname$ j ::Default::eDefaultdR,-*iExitProcdo6j+WideOpen disabled-- hit insert to enable itdo/idlg4gPdo>idlgdo?idlgdogPidlgdo6jddRiname$ jodoi readOnly$ gaichanneljReadOnlydoi formatName$ gaichannelj FilterNamedogPs iname$s gi ReadOnly$dRTdeExitProcdRg]ichannelddiMAINdidoc$ gSRdidoc2$ g%didoc$ jdR)i WidenSaveAsd dRgSdddiMAINdichoice ldg# ldRichoice g+j#Do you want to keep the changes to g;j?jll0dRichoice ldogSdRTdRg$ldTdichoice lgddiMAINd)i WidenSaveAsddiMaindd,-&ddp9 start up the WideOpen server if it isn't running alreadydg j*WideOpen 1.4*dRg-j widen14.exedTddichannel ldichannel g\jWiden14jWiden14dichannel ldRg+jXFailed to connect to WideOpen. Either start WIDEN14.EXE manually or run WidenUninstall.dR-ierrdddifile$ jdg% jdRifile$ j -file 'g%j' dTddkB Set the initial directory to be the path of the old file (if any)dk$ or the default directory otherwise.didir$ jdgS jdRidir$ j -dir 'gg%lj' d dRidir$ jdTd,-*lddk Set the list of format namesdk9 If the user is working with the English version of Word,dkB allow a full set of file types since we can look them up based ondk< their format name. Otherwise use a smaller set that can bedk recognized by extension. ddk? International users may be able to translate filter$ to fully dkC support all formats in their language; how is left as an exercise.ddk0 (Additional file formats can be added by addingdk9 the format name (exactly as listed in the Word file opendkA dialog) followed by '|' followed by a single wildcard expressMenuName$lldRi FileSaveAs$ g>i FileMenuName$lldRi FileClose$ g>i FileMenuName$lldddg€i widenPath$jWiden:WidenUninstalljGlobal:WidenUninstalldg€i widenPath$jWiden:WidenSaveAsjGlobal:WidenSaveAsdg€i widenPath$jWiden:FileOpenjGlobal:i FileOpen$dg€i widenPath$jWiden:FileSaveAsjGlobal:i FileSaveAs$dg€i widenPath$jWiden:FileSavejGlobal:i FileSave$dg€i widenPath$jWiden:FileClosejGlobal:i FileClose$ddk6 Copy the WideOpen executable to the windows directorydgi widenPath$j widen14.exe j*i HandleErrorddisource$ i widenPath$j widen14.exedg,isource$iprogDir$ddk) Make sure the old widen has really quited#ii l$ld&iiddk9 Start widen and change to the default document directorydg-j widen14.exedichannel g\jWiden14jWiden14dg_ichanneljChDir idocdir$dg]ichannelRddg+jWideOpen Installed!d*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE. Please be sure you are running this macro from WIDEOPEN.DOC (not WIDEN.DOT) and that WIDEN14.EXE is in the same directory as WIDEOPEN.DOC.jl0deFinisheddddddiNonEnglishWarningdRg+jAttention! Achtung! Warning! WideOpen has not been tested with non-English versions of Word. You may need to customize the WideOpen macros to fully support your language.jl0ddddiGetWindowsDir$dRibuffer$ jS dRiLength iGetWindowsDirectoryibuffer$gibuffer$dRiresult$ gibuffer$ilengthdRiGetWindowsDir$ iresult$d ehrst & &-97:7OOkVlVeeu^rst &:7OlVeK"@"Normalxa c.@. Heading 1 < U]ck"A@"Default Paragraph FontOMathVO Typewriter]OVerbatim]c(O1"(Code @   ]acB@2 Body Textx "@ CaptionxxUZ0@RZ List Bullet@ h 4h"@b" Footnote Textc &@q Footnote Referencehdk Uncomment for 32-bit worddk Declare Function GetWindowsDirectory Lib "Kernel32.dll" Alias "GetWindowsDirectoryA"(buffer As String, Length As Integer) As Integerddk Uncomment for 16-bit worddAiGetWindowsDirectoryNj Kernel.dllHjGetWindowsDirectoryibuffer4FiLength4C4CddiMAINdidocdir$ gld,-&ddg j*WideOpen 1.4*dRichannel g\jWiden14jWiden14dRg_ichannelj [Shutdown]dRg]ichannelRdTd!g j*WideOpen 1.4*d"dddgg~l jEnglishdR)iNonEnglishWarningdddiwidenFilenam.txt|All files (*.*)|*.*|'ddddk Do the actual file dialogdg_ichanneljsave ifilter$ifile$idir$diname$ gaichannelj ShortNameddp. Use default dialog if shift key is held down diname$ j ::Default::eDefaultdR,-*iFinisheddR/isavedlg4gTdR>isavedlgdR?isavedlgdRgTisavedlgddp) If they didn't cancel then save the filediname$ jdRp% See what format they want To save indRdRgg~l jEnglishdoi formatName$ gaichannelj FilterNamedoiformat gi formatName$dR doiformat i GuessFormatiname$dRddRiformat ldog+jRA converter for this format is not installed in Word. Using Word document format.doiformat ldRddRgTs iname$s iformatdTd*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE or some other component of WideOpen. You may want to try reinstalling WideOpen. Please be sure that WIDEN14.EXE is copied into your Windows directory or run the macro WidenUninstall to uninstall WideOpen.d*iDefaultdeFinisheddichannel lg]ichanneldddp? This is just a cheap hack to try to guess that format for Worddp> versions other than English for which the format descriptionsdp= in this macro don't apply. The real solution is to translatedp the filter$.ddi GuessFormatiname$dRiext$ g iname$lddRiformat ldRiext$ jDOTdoiformat ldRiext$ jTXTdoiformat ldRiext$ jRTFdoiformat ldRTdRdRi GuessFormat iformatd ttt!teeUnknown Nave WideOpen. Either start WIDEN14.EXE manually or run WidenUninstall.dR-ierrdddifile$ jdg% jdRifile$ j -file 'g%j' dTddkB Set the initial directory to be the path of the old file (if any)dk$ or the default directory otherwise.didir$ jdgS jdRidir$ j -dir 'gg%lj' d dRidir$ jdTd,-*lddk Set the list of format namesdk9 If the user is working with the English version of Word,dkB allow a full set of file types since we can look them up based ondk< their format name. Otherwise use a smaller set that can bedk recognized by extension. ddk? International users may be able to translate filter$ to fully dkC support all formats in their language; how is left as an exercise.ddk0 (Additional file formats can be added by addingdk9 the format name (exactly as listed in the Word file opendkA dialog) followed by '|' followed by a single wildcard expressiondk for files of that type.ddgg~l jEnglishdRifilter$ j-filter 'Word Document|*.doc|Document Template|*.dot|Rich Text Format|*.rtf|Text Only|*.txt|Text Only with Line Breaks|*.txt|MS-DOS Text|*.txt|MS-DOS Text with Line Breaks|*.txt|MS-DOS Text with Layout|*.asc|Text with Layout|*.ans|Word for Windows 1.x|j*.doc|Word for Windows 2.0|*.doc|Word for Macintosh 4.0|*.mcw|Word for Macintosh 5.1|*.mcw|WordPerfect 5.0|*.doc|WordPerfect 5.1 for MS-DOS|*.doc|WordPerfect 5.x for Windows|*.doc|Windows Write 3.1|*.wri|Microsoft Excel Worksheet|*.xls |jAll files (*.*)|*.*|'ddkB Thanks to all the German users who helped me write the following!dgg~l jDeutschdRifilter$ j-filter 'Word-Dokument|*.doc|Dokumentvorlage|*.dot|Nur Text|*.txt|Nur Text + Zeilenwechsel|*.txt|MS-DOS-Text|*.txt|MS-DOS-Text + Zeilenwechsel|*.txt|Rich Text Format|*.rtf|MS-DOS Text mit Layout|*.asc|Text mit Layout|*.ans|Word fr Windows 1.x|j*.doc|Word fr Windows 2.0|*.doc|Word fr Macintosh 4.0|*.mcw|Word fr Macintosh 5.1|*.mcw|WordPerfect 5.0|*.doc|WordPerfect 5.1 fr MS-DOS|*.doc|WordPerfect 5.x fr Windows|*.doc|Windows Write 3.1|*.wri|Microsoft Excel Tabellenblatt|*.xls |jAlle Dateien (*.*)|*.*|'dd dRifilter$ jq-filter 'Word Document|*.doc|Document Template|*.dot|Rich Text Format|*.rtf|Text Only|*.txt|All files (*.*)|*.*|'ddddk Do the actual file dialogdg_ichanneljsave ifilter$ifile$idir$diname$ gaichannelj ShortNameddp. Use default dialog if shift key is held down diname$ j ::Default::eDefaultdR,-*iFinisheddR/isavedlg4gTdR>isavedlgdR?isavedlgdRgTisavedlgddp) If they didn't cancel then save the filedrst &:7OlVK"@"Normalxa c.@. Heading 1 < U]ck"A@"Default Paragraph FontOMathVO Typewriter]OVerbatim]c(O1"(Code @   ]acB@2 Body Textx "@ CaptionxxUZ0@RZ List Bullet@ h 4h"@b" Footnote Textc &@q Footnote Referencehdk Uncomment for 32-bit worddk Declare Function GetWindowsDirectory Lib "Kernel32.dll" Alias "GetWindowsDirectoryA"(buffer As String, Length As Integer) As Integerddk Uncomment for 16-bit worddAiGetWindowsDirectoryNj Kernel.dllHjGetWindowsDirectoryibuffer4FiLength4C4CddiMAINdidocdir$ gld,-&ddg j*WideOpen 1.4*dRichannel g\jWiden14jWiden14dRg_ichannelj [Shutdown]dRg]ichannelRdTd!g j*WideOpen 1.4*d"dddgg~l jEnglishdR)iNonEnglishWarningdddiwidenFilenamlreadyddR,-&dRg j*WideOpen 1.4*g-j widen14.exeddRichannel g\jWiden14jWiden14dRichannel ldog+jdFailed to connect to WideOpen. Either start widen14.exe manually or run Tools|Macro|WidenUninstall.do*iErrdRTddRp) *** Customized filter$ to your language dRpB Thanks to all the German users who helped me write the following!ddRilang$ gg~ldRilang$ jDeutschdoifilter$ jl -filter 'Word-Dokument (*.doc)|*.doc|Dokumentvorlage (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Nur Text js(*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Tabellenblatt (*.xls)|*.xls|Alle Dateien (*.*)|*.*|' dR doifilter$ j -filter 'Word Documents (*.doc)|*.doc|Document Templates (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Worksheet (*.xls)|*.xls|All files (*.*)|*.*|' dRTdRk? Try to guess if this is the first time they have opened a filedRk3 Change to the default document directory if it is.dRk8 Otherwise just use the last directory they opened from dRidir$ jdRg: ldogS jidir$ j -dir 'glj' dRTdRdRg_ichanneljopen ifilter$idir$dRiname$ gaichannelj ShortNameddRp= If the below value is return, the user is holding down shiftdRp0 to indicate that default dialogs should be usedddRiname$ j ::Default::do,-*iExitProcdo6j+WideOpen disabled-- hit insert to enable itdo/idlg4gPdo>idlgdo?idlgdogPidlgdo6jddRiname$ jodoi readOnly$ gaichanneljReadOnlydoi formatName$ gaichannelj FilterNamedogPs iname$s gi ReadOnly$dRTdeExitProcdRg]ichanneld diMaindgR*iDefaultd,-&ddp9 start up the WideOpen server if it isn't running alreadydg j*WideOpen 1.4*dRg-j widen14.exedTddichannel ldichannel g\jWiden14jWiden14dichannel ldRg+jXFailed to connect to WideOpen. Either start WIDEN14.EXE manually or run WidenUninstall.dR-ierrdddifile$ jdg% jdRifile$ j -file 'g%j' dTddkB Set the initial directory e$ g%di widenPath$ giwidenFilename$ldiprogDir$ iGetWindowsDir$ddgg~l jEnglishdRi FileOpen$ jFileOpendRi FileSave$ jFileSavedRi FileSaveAs$ j FileSaveAsdRi FileClose$ j FileClosed dRi FileMenuName$ g@lldRi FileOpen$ g>i FileMenuName$lldRi FileSave$ g>i FileMenuName$lldRi FileSaveAs$ g>i FileMenuName$lldRi FileClose$ g>i FileMenuName$lldddg€i widenPath$jWiden:WidenUninstalljGlobal:WidenUninstalldg€i widenPath$jWiden:WidenSaveAsjGlobal:WidenSaveAsdg€i widenPath$jWiden:FileOpenjGlobal:i FileOpen$dg€i widenPath$jWiden:FileSaveAsjGlobal:i FileSaveAs$dg€i widenPath$jWiden:FileSavejGlobal:i FileSave$dg€i widenPath$jWiden:FileClosejGlobal:i FileClose$ddk6 Copy the WideOpen executable to the windows directorydgi widenPath$j widen14.exe j*i HandleErrorddisource$ i widenPath$j widen14.exedg,isource$iprogDir$ddk) Make sure the old widen has really quited#ii l$ld&iiddk9 Start widen and change to the default document directorydg-j widen14.exedichannel g\jWiden14jWiden14dg_ichanneljChDir idocdir$dg]ichannelRddg+jWideOpen Installed!d*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE. Please be sure you are running this macro from WIDEOPEN.DOC (not WIDEN.DOT) and that WIDEN14.EXE is in the same directory as WIDEOPEN.DOC.jl0deFinisheddddddiNonEnglishWarningdRg+jAttention! Achtung! Warning! WideOpen has not been tested with non-English versions of Word. You may need to customize the WideOpen macros to fully support your language.jl0ddddiGetWindowsDir$dRibuffer$ jS dRiLength iGetWindowsDirectoryibuffer$gibuffer$dRiresult$ gibuffer$ilengthdRiGetWindowsDir$ iresult$d diMaindRp9 start up the WideOpen server if it isn't running alreadyddR,-&dRg j*WideOpen 1.4*g-j widen14.exeddRichannel g\jWiden14jWiden14dRichannel ldog+jdFailed to connect to WideOpen. Either start widen14.exe manually or run Tools|Macro|WidenUninstall.do*iErrdRTddRp) *** Customized filter$ to your language dRpB Thanks to all the German users who helped me write the following!ddilang$ gg~ldRg+jstartddRilang$ jDeutschdoifilter$ jl -filter 'Word-Dokument (*.doc)|*.doc|Dokumentvorlage (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Nur Text js(*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Tabellenblatt (*.xls)|*.xls|Alle Dateien (*.*)|*.*|' dR doifilter$ j -filter 'Word Documents (*.doc)|*.doc|Document Templates (*.dot)|*.dot|Rich Text Format (*.rtf)|*.rtf|Text Files (*.txt)|*.txt|Windows Write 3.1 (*.wri)|*.wri|Microsoft Excel Worksheet (*.xls)|*.xls|All files (*.*)|*.*|' dRTdRg+jEnglishdRk? Try to guess if this is the first time they have opened a filedRk3 Change to the default document directory if it is.dRk8 Otherwise just use the last directory they opened from dRidir$ jdRg+j CountWindowsdRg: ldogS jidir$ j -dir 'glj' dRTdRdRg_ichanneljopen ifilter$idir$dRiname$ gaichannelj ShortNameddRp= If the below value is return, the user is holding down shiftdRp0 to indicate that default dialogs should be usedddRiname$ j ::Default::do,-*iExitProcdo6j+WideOpen disabled-- hit insert to enable itdo/idlg4gPdo>idlgdo?idlgdogPidlgdo6jddRiname$ jodoi readOnly$ gaichanneljReadOnlydoi formatName$ gaichannelj FilterNamedogPs iname$s gi ReadOnly$dRTdeExitProcdRg]ichannelddiMAINdidoc$ gSRdidoc2$ g%didoc$ jdR)i WidenSaveAsd dRgSdddiMAINdichoice ldg# ldRichoice g+j#Do you want to keep the changes to g;j?jll0dRichoice ldogSdRTdRg$ldTdichoice lgddiMAINd)i WidenSaveAsddiMaindd,-&ddp9 start up the WideOpen server if it isn't running alreadydg j*WideOpen 1.4*dRg-j widen14.exedTddichannel ldichannel g\jWiden14jWiden14dichannel ldRg+jXFailed to connect toiname$ jdRp% See what format they want To save indRdRgg~l jEnglishdoi formatName$ gaichannelj FilterNamedoiformat gi formatName$dR doiformat i GuessFormatiname$dRddRiformat ldog+jRA converter for this format is not installed in Word. Using Word document format.doiformat ldRddRgTs iname$s iformatdTd*iFinishedde HandleErrordg+jCan't find WIDEN14.EXE or some other component of WideOpen. You may want to try reinstalling WideOpen. Please be sure that WIDEN14.EXE is copied into your Windows directory or run the macro WidenUninstall to uninstall WideOpen.d*iDefaultdeFinisheddichannel lg]ichanneldddp? This is just a cheap hack to try to guess that format for Worddp> versions other than English for which the format descriptionsdp= in this macro don't apply. The real solution is to translatedp the filter$.ddi GuessFormatiname$dRiext$ g iname$lddRiformat ldRiext$ jDOTdoiformat ldRiext$ jTXTdoiformat ldRiext$ jRTFdoiformat ldRTdRdRi GuessFormat iformatddiMAINd,-&diprogDir$ gl di normaldot$ glj \normal.dotdgs s i normaldot$s jFileOpens ldgs s i normaldot$s jFileSaves ldgs s i normaldot$s j FileSaveAss ldgs s i normaldot$s j FileCloses ldgs s i normaldot$s j WidenSaveAss ldgs s i normaldot$s jWidenUninstalls lddg+jWideOpen Removed!d diMaindRp9 start up the WideOpen server if it isn't running aen Gargt& Phillip BogleO>U b>b>U ? ?UlV"lVU6N6NU <<U-; -1FileOpen&Opens an existing document or template WidenInstallFileSave%Saves the active document or template FileSaveAs/Saves a copy of the document in a separate file WidenSaveAsWidenUninstall FileClose0Closes all of the windows of the active documentTestTestDDEAutoexec TESTTESTDDEAUTOEXECFILEOPENFILESAVE FILECLOSE FILESAVEAS WIDENSAVEAS WIDENINSTALLWIDENUNINSTALL@4qrstersCTimes New Roman Symbol &Arial5Courier New"BV h0%e^!^0WideOpen: Long File Names for Microsoft Word 6.0 Phillip Bogle Phillip Boglehillip BogledogPs iname$s gi ReadOnly$dRTdeExitProcdRg]ichanneldttt!tkVOUnknown Naveen GargtT Phillip Bogle