home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / StyleSheetInformation.csc < prev    next >
Encoding:
Text File  |  1998-07-08  |  129.8 KB  |  2,893 lines
  1. REM Generates style sheet information [CorelSCRIPT 8]
  2. REM StyleSheetInformation.csc  March, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **********************************************************************
  6. REM This script extracts paragraph tag information for the specified ventura publication. 
  7. REM ParaTag info can be written to any of the following formats:
  8. REM         Corel VENTURA 7
  9. REM         Corel Quattro Pro
  10. REM         Corel SCRIPT
  11. REM         MS Excel
  12. REM         ASCII Text file
  13. REM **********************************************************************
  14.  
  15. #addfol "..\..\Scripts"        ' create a tmporary folder to provide a path for the include files
  16. #include "ScpConst.csi"        ' this enables the include files to be located 
  17. #include "VPConst.csi"        
  18.  
  19. ' Constants for ANSII Char Set
  20. #define QUOTE CHR(34)
  21.  
  22. ' Constants for Dialog Return Values
  23. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  24. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  25. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  26. GLOBAL CONST DIALOG_RETURN_BROWSE% = 5
  27.  
  28. ' Constants for Selected Application
  29. GLOBAL CONST PUBLISH_TO_VENTURA% = 0
  30. GLOBAL CONST PUBLISH_TO_QUATTROPRO% = 1
  31. GLOBAL CONST PUBLISH_TO_SCRIPT% = 2
  32. GLOBAL CONST PUBLISH_TO_EXCEL% = 3 
  33. GLOBAL CONST PUBLISH_TO_TEXT% = 4
  34.  
  35. ' Embed bitmaps if script is to be compiled into exe or csb formats
  36. ' this will eliminate the need to include these files
  37. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  38. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  39. #ADDRESBMP Step3BMP "Bitmaps\Step3BMP.bmp"
  40. #ADDRESBMP LastBMP "Bitmaps\LastBMP.bmp"
  41.  
  42. ' Definitions for Ventura units
  43. #DEFINE INCHES 1
  44. #DEFINE MILLIMETERS 2
  45. #DEFINE PICAS 3
  46. #DEFINE POINTS 4
  47. #DEFINE CICEROS 5
  48. #DEFINE DIDOTS 6
  49.  
  50. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  51. ' Windows API functions
  52. DECLARE FUNCTION FindWindow LIB "user32" (BYVAL lpClassName AS STRING, BYVAL lpWindowName AS LONG) AS LONG ALIAS "FindWindowA"
  53. DECLARE FUNCTION ShellExecute Lib "shell32.dll" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Alias "ShellExecuteA" 
  54. ' Dialog functions and subroutines
  55. DECLARE FUNCTION ShowIntro%()
  56. DECLARE FUNCTION GetVentFile%()
  57. DECLARE FUNCTION SelectApp%()
  58. DECLARE FUNCTION GetDestinationFile%()
  59. DECLARE FUNCTION GetUnitInfo%
  60. DECLARE FUNCTION ShowFinish%()
  61. DECLARE SUB ShowSummary()
  62. ' Local functions and subroutines
  63. DECLARE FUNCTION RegQuery(MainKey&, SubKey$, Value$) AS STRING
  64. DECLARE SUB UseVentura()
  65. DECLARE SUB UseScript()
  66. DECLARE SUB UseQP()
  67. DECLARE SUB UseExcel()
  68. DECLARE SUB UseTextFile(TextFile$)
  69. DECLARE SUB GetLine(Variable$)
  70. DECLARE SUB CreateAutoCloseFile()
  71. DECLARE FUNCTION DoesFileExist(FileName$) AS BOOLEAN
  72. DECLARE SUB UpDateQPMacro()
  73. DECLARE SUB ConvertTo(Units&, BYREF ConvertData AS DOUBLE) 
  74. DECLARE SUB Round(Value#, Precision#)
  75. DECLARE SUB Initialize
  76. ' paragraph attribute functions and subroutines
  77. DECLARE SUB GetMasterPageGeneral(MasterPageName$)
  78. DECLARE SUB GetMasterPageMargins(MasterPageName$, PageType AS BOOLEAN)
  79. DECLARE SUB GetMasterPageColumns(MasterPageName$, PageType AS BOOLEAN)
  80. DECLARE SUB GetParaFontInfo
  81. DECLARE SUB GetParaColorInfo(Background AS BOOLEAN)
  82. DECLARE SUB GetParaEffects
  83. DECLARE SUB GetBulletInfo
  84. DECLARE SUB GetDropCapsInfo
  85. DECLARE SUB GetEffectFontInfo
  86. DECLARE SUB GetEffectColorInfo(EffectBackGround AS BOOLEAN)
  87. DECLARE SUB GetParaAlignmentInfo    
  88. DECLARE SUB GetParaSpacingInfo
  89. DECLARE SUB GetParaTabInfo
  90. DECLARE SUB GetParaBreaksInfo
  91. DECLARE SUB GetParaHyphenationInfo
  92. DECLARE SUB GetParaTypographyInfo
  93. DECLARE SUB GetParaDefaultsInfo
  94.  
  95. '/////GLOBAL VARIABLES ////////////////////////////////////////////////////////
  96. GLOBAL VenturaDir$        ' Root directory where Ventura is installed
  97. GLOBAL CloseVal&        ' Variable indicating whether to leave pub open or closed: 0-leave open; 1-close
  98. GLOBAL InputFile$        ' The name of the Ventura publication from which to extract style information
  99. GLOBAL OutputFile$        ' The name of the file in which to output information (file type varies depending on application selected)
  100. GLOBAL SelectedApp&        ' Specifies the application to publish the style information to : 0-Ventura; 1-QuattroPro; 2- Script; 3-Excel; 4-Text file
  101. GLOBAL FileFilter$        ' The file extension of the selected application (used by GETFILEBOX() file extension parameter)
  102. GLOBAL OpenPubs%        ' The number of open Ventura publication
  103. GLOBAL StylesFile$        'REM look into whether we actually need this
  104. CloseVal& = 0
  105. GLOBAL QPFile$            ' The name of the Quattro Pro file
  106. GLOBAL ExcelPath$        ' The path to the Excel executable (Excel.exe)
  107. GLOBAL DialogTitle$        ' The title of the dialog - the name of the active Ventura publication is displayed
  108.  
  109. ' Defines and dimensions the array listing the available unit types
  110. GLOBAL Units$(6)
  111. Units$(1) = "inches"
  112. Units$(2) = "millimeters"
  113. Units$(3) = "picas, points"
  114. Units$(4) = "points"
  115. Units$(5) = "ciceros, didots"
  116. Units$(6) = "didots"
  117.  
  118. ' Defines and initializes the units of measurement to be used for the various settings
  119. GLOBAL FontUnits&        : FontUnits& = 4        'default font units to points
  120. GLOBAL DimensionUnits&    : DimensionUnits& = 1    'default dimension units to inches    
  121. GLOBAL MarginUnits&        : MarginUnits& = 1        'default margin units to inches    
  122. GLOBAL LineUnits&        : LineUnits& = 4         'default line units to points
  123. GLOBAL UnderlineUnits&    : UnderlineUnits& = 4    'default underline units to points
  124. GLOBAL HorizontalUnits&    : HorizontalUnits& = 1    'default horizontal units to inches    
  125. GLOBAL VerticalUnits&    : VerticalUnits& = 4    'default vertical units to points
  126.  
  127. ' Declares variables used for formatting the text file depending on which format the output will be written to
  128. GLOBAL NEWLINE$            ' Specifies the formatting to be used for a new line
  129. GLOBAL TITLE_PREFIX$        ' Specifies the formatting to be used for the title
  130. GLOBAL SECTION_PREFIX$         ' Specifies the formatting to be used for the section heading
  131. GLOBAL DIALOG_PREFIX$        ' Specifies the formatting to be used for the dialog heading
  132. GLOBAL TAG_PREFIX$            ' Specifies the formatting to be used for each tag name
  133. GLOBAL UNITS_PREFIX$        ' Specifies the formatting to be used for the units
  134. GLOBAL PREFIX_CHAR$            ' Specifies the formatting to be used for inserting text at the start of a line
  135. GLOBAL SPACE_CHAR$            ' Specifies the formatting to be used for inserting a space
  136.  
  137.  
  138. ' **************************************************************************************
  139. ' MAIN
  140. ' **************************************************************************************
  141. '///// LOCAL DECLARATIONS ////////////////////////////////////////////////////////////////////////////////////
  142. CONST MAXSTEP% = 6        ' Maximum number of steps in dialog loop (ie. Indicates when to exit dialog loop)
  143. DIM DialogReturn%        ' Variable indicating which button was pressed on the most recent dialog
  144. DIM NextStep%            ' Variable indicating which dialog to activate next
  145. DialogReturn% = 1        ' Initialize dialog counter to start at the first dialog
  146.  
  147. ON ERROR GOTO ErrorHandler
  148.  
  149. 'get root directory where Ventura is installed
  150. VenturaMainKey& = HKEY_LOCAL_MACHINE
  151. VenturaSubKey$ = VENTURA_REGQUERY_CONST
  152. VenturaValue$ = "Destination"
  153. VenturaDir$ = RegQuery(VenturaMainKey&, VenturaSubKey$, VenturaValue$) 
  154.  
  155. InputFile$=VenturaDir$ & "\Ventura\Samples"
  156. OutputFile$=VenturaDir$ & "\Ventura\Samples"
  157.  
  158. ' Dialog loop
  159. DO
  160.     SELECT CASE NextStep%
  161.         CASE 1: DialogReturn% = ShowIntro()            ' Show Intro dialog
  162.         CASE 2: DialogReturn% = GetVentFile()            ' Get input pub
  163.         CASE 3: DialogReturn% = SelectApp()            ' Get output application
  164.         CASE 4: DialogReturn% = GetUnitInfo()            ' Get units to display attributes 
  165.         CASE 5: DialogReturn% = GetDestinationFile()        ' Get output file name
  166.         CASE 6: DialogReturn% = ShowFinish()            ' Show finish dialog
  167.     END SELECT
  168.     NextStep% = NextStep% + DialogReturn%
  169. LOOP UNTIL NextStep% = MAXSTEP + 1
  170.  
  171. Initialize
  172.  
  173. ExitScript:
  174. STOP
  175.  
  176. ErrorHandler:
  177. SELECT CASE ErrNum
  178.     CASE 800
  179.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  180.         RESUME AT ExitScript
  181.     CASE ELSE
  182.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  183.         RESUME AT ExitScript
  184.     END SELECT
  185.  
  186.  
  187. ' **************************************************************************************
  188. ' RegQuery
  189. ' This subroutine queries the Registry to determine the root directory where Ventura is installed
  190. ' **************************************************************************************
  191. FUNCTION RegQuery(MainKey&, SubKey$, Value$) AS STRING
  192. ON ERROR RESUME NEXT    
  193.     RegQuery = REGISTRYQUERY(MainKey&, SubKey$, Value$)        
  194. END FUNCTION
  195.  
  196. ' **************************************************************************************
  197. ' GetLine
  198. ' This subroutine reads a line of text from the open text file.
  199. '
  200. ' PARAMS: Variable - the string variable holding the line of text read.
  201. '
  202. ' **************************************************************************************
  203. SUB GetLine(Variable$)
  204.     DO
  205.          LINE INPUT #1, Variable$
  206.     LOOP UNTIL LEN(Variable$)>1 OR EOF(1)
  207. END SUB
  208.  
  209.  
  210. ' **************************************************************************************
  211. ' DoesFileExist
  212. ' This function determines whether the specified file exists.
  213. '
  214. ' PARAMS:FileName AS STRING - The name and path of the file in question.
  215. ' RETURNS: DoesFileExist AS BOOLEAN - TRUE if the file exists.
  216. '                                   - FALSE if the file does not exist.
  217. ' **************************************************************************************
  218. FUNCTION DoesFileExist(FileName$) AS BOOLEAN
  219. ON ERROR GOTO ErrorHandler
  220.     FileStatus$ = FINDFIRSTFOLDER(FileName$, FILEATTR_READ_ONLY OR FILEATTR_HIDDEN OR FILEATTR_SYSTEM OR FILEATTR_ARCHIVE OR FILEATTR_NORMAL_FILE OR FILEATTR_TEMPORARY)
  221.     IF FileStatus$ = "" THEN
  222.         DoesFileExist = FALSE
  223.     ELSE
  224.         DoesFileExist = TRUE
  225.     ENDIF
  226.  
  227. FunctionEnd:
  228. EXIT FUNCTION
  229.  
  230. ErrorHandler:
  231.     SELECT CASE ErrNum
  232.         CASE ELSE
  233.             DoesFileExist = FALSE
  234.     END SELECT
  235.     RESUME AT FunctionEnd
  236. END FUNCTION
  237.  
  238.  
  239.  
  240. ' **************************************************************************************
  241. ' Initialize
  242. ' This subroutine initializes Ventura and calls the appropriate subroutine based on user 
  243. ' output selection.
  244. '
  245. ' PARAMS: None
  246. ' **************************************************************************************
  247. SUB Initialize
  248.     WITHOBJECT OBJECT_VENTURA8
  249.         .SetVisible TRUE
  250.         IF OpenPubs% = 0 THEN 
  251.             .FileOpen InputFile$
  252.         ELSE
  253.             CurrentPub$ = .PublicationName()
  254.             IF CurrentPub$ <> InputFile$ THEN 
  255.                 .FileOpen InputFile$
  256.             ENDIF
  257.         ENDIF
  258.     END WITHOBJECT
  259.     
  260.     SELECT CASE SelectedApp&
  261.         CASE PUBLISH_TO_VENTURA
  262.             UseVentura
  263.         CASE PUBLISH_TO_QUATTROPRO
  264.             UseQP
  265.         CASE PUBLISH_TO_SCRIPT
  266.             UseScript
  267.         CASE PUBLISH_TO_EXCEL
  268.             UseExcel
  269.         CASE PUBLISH_TO_TEXT
  270.             TITLE_PREFIX$ = "@Title = "
  271.             SECTION_PREFIX$ = "@Section = Paragraph Tag Settings"
  272.             DIALOG_PREFIX$ = "@Dialog = "
  273.             TAG_PREFIX$ = "@Tag Name = "    
  274.             PREFIX_CHAR$ = CHR(9)
  275.             NEWLINE$ = CHR(13) & CHR(10)
  276.             SPACE_CHAR$ = CHR(9)
  277.             UNITS_PREFIX$ = " "
  278.             UseTextFile(OutputFile$)
  279.             MESSAGE OutputFile$ & CHR(13) & "has been created."
  280.     END SELECT
  281. END SUB
  282.  
  283.  
  284. ' **************************************************************************************
  285. ' ShowIntro
  286. ' This function displays the introduction dialog.
  287. ' 
  288. ' PARAMS:None
  289. '
  290. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value(user selection)
  291. ' **************************************************************************************
  292. FUNCTION ShowIntro%
  293. DIM IntroRet%
  294. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Stylesheet Information Wizard", SUB IntroDialogEventHandler
  295.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  296.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  297.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  298.     TEXT  95, 10, 185, 20, .Text2, "This Wizard generates stylesheet information, including paragraph and page tag information."
  299.     TEXT  95, 60, 185, 18, .Text3, "To begin, click Next."
  300.     IMAGE  10, 10, 75, 130, .IntroImage
  301.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  302.     TEXT  124, 126, 102, 12, .Text5, "Overrides will not be included."
  303.     TEXT  97, 126, 25, 9, .Text4, "Note:"
  304.     TEXT  95, 30, 185, 29, .Text6, "Paragraph tag information written out to a spreadsheet can be edited and then used to create a new stylesheet based on your changes."
  305. END DIALOG
  306.  
  307. IntroDialog.IntroImage.SetImage "#IntroBMP"
  308. IntroDialog.IntroImage.SetStyle STYLE_CENTERED
  309.  
  310.     IntroRet%=DIALOG(IntroDialog)
  311.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP
  312.  
  313.     IF IntroRet% = DIALOG_RETURN_NEXT THEN         
  314.         WITHOBJECT OBJECT_VENTURA8
  315.             'see if there is an open pub
  316.             OpenPubs% = .CountWindows()
  317.             IF  OpenPubs% <> 0 THEN 
  318.                 IF DoesFileExist(InputFile$)=TRUE THEN 
  319.                     first% = 1
  320.                     pos% = 1
  321.                     DO WHILE first <> 0
  322.                         first% = INSTR(InputFile$, "\", first%)
  323.                         IF first% <> 0 THEN
  324.                             pos% = first%
  325.                             first% = first% + 1
  326.                         END IF
  327.                     LOOP
  328.                     DialogTitle$ = MID(InputFile$, pos%+1) 
  329.                     DialogTitle$ = "Stylesheet Information Wizard - " & DialogTitle$    
  330.                     ShowIntro = 2
  331.                 ELSE
  332.                     InputFile$ = .PublicationName()
  333.                     DialogTitle$ = "Stylesheet Information Wizard" 
  334.                     ShowIntro = 1    
  335.                 ENDIF
  336.             ELSE
  337.                 DialogTitle$ = "Stylesheet Information Wizard" 
  338.                 ShowIntro = 1    
  339.             ENDIF
  340.         END WITHOBJECT
  341.     ENDIF
  342. END FUNCTION
  343.  
  344. ' **************************************************************************************
  345. ' IntroDialogEventHandler
  346. ' This subroutine handles events for the intro dialog.
  347. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  348. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  349. ' **************************************************************************************
  350. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  351.     IF Event% = EVENT_INITIALIZATION THEN         
  352.         IntroDialog.BackButton.Enable FALSE 
  353.     ENDIF
  354.     IF Event% = EVENT_MOUSE_CLICK THEN
  355.         SELECT CASE ControlID%
  356.             CASE IntroDialog.NextButton.GetID()
  357.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  358.             CASE IntroDialog.CancelButton.GetID()
  359.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  360.         END SELECT
  361.     ENDIF
  362. END FUNCTION
  363.  
  364.  
  365. ' **************************************************************************************
  366. ' GetVentFile
  367. ' This function prompts the user for the name of the Ventura pub from which to obtain
  368. ' para tag information.
  369. ' Also prompts user whether to close pub when finished.
  370. ' 
  371. ' PARAMS:
  372. '
  373. ' RETURNS: GetVentFile AS INTEGER - Integer indicating dialog return value(user selection)
  374. '
  375. ' **************************************************************************************
  376. FUNCTION GetVentFile%
  377. BEGIN DIALOG OBJECT GetVentFileDialog 290, 180, DialogTitle$, SUB GetVentFileDialogEventHandler
  378.     TEXTBOX  100, 36, 175, 13, .VentFileTextBox
  379.     PUSHBUTTON  227, 57, 46, 14, .BrowseButton, "B&rowse..."
  380.     CHECKBOX  100, 87, 140, 12, .CloseValCheckBox, "&Close publication when finished"
  381.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  382.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  383.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  384.     GROUPBOX  94, 28, 185, 55, .GroupBox1
  385.     IMAGE  10, 10, 75, 130, .VentFileImage
  386.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  387.     TEXT  95, 10, 185, 20, .Text2, "From which Corel VENTURA Publication would you like to extract paragraph tag information?"
  388.     TEXT  95, 130, 185, 12, .Text3, "Testing"
  389. END DIALOG
  390.  
  391. GetVentFileDialog.VentFileImage.SetImage "#Step2BMP"
  392. GetVentFileDialog.VentFileImage.SetStyle STYLE_CENTERED
  393. GetVentFileDialog.VentFileTextBox.SetText InputFile$
  394. GetVentFileDialog.CloseValCheckBox.SetValue CloseVal&
  395. GetVentFileDialog.CloseValCheckBox.SetThreeState FALSE
  396. GetVentFileDialog.Text3.SetStyle STYLE_SUNKEN
  397. GetVentFileDialog.SetStyle STYLE_INVISIBLE
  398.  
  399.     GetVentFileRet%=DIALOG(GetVentFileDialog)
  400.     SELECT CASE GetVentFileRet%
  401.         CASE DIALOG_RETURN_CANCEL        
  402.              STOP
  403.         CASE DIALOG_RETURN_NEXT         
  404.             GetVentFile = 1
  405.         CASE DIALOG_RETURN_BACK         
  406.             GetVentFile = -1
  407.     END SELECT
  408. END FUNCTION
  409.  
  410.  
  411. ' **************************************************************************************
  412. ' GetVentFileDialogEventHandler
  413. ' This subroutine handles events for the Ventura file dialog.
  414. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  415. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  416. ' **************************************************************************************
  417. SUB GetVentFileDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  418.     IF Event% = EVENT_INITIALIZATION THEN         
  419.         GetVentFileDialog.SetStyle STYLE_VISIBLE
  420.         InputFile$ = GetVentFileDialog.VentFileTextBox.GetText()
  421.         IF DoesFileExist(InputFile$)=TRUE THEN 
  422.             GetVentFileDialog.NextButton.Enable TRUE
  423.             GetVentFileDialog.Text3.SetText ""
  424.             GetVentFileDialog.Text3.SetStyle STYLE_INVISIBLE
  425.         ELSE
  426.             GetVentFileDialog.NextButton.Enable FALSE
  427.             GetVentFileDialog.Text3.SetText "You need to save your file or specify a file that exists."
  428.             GetVentFileDialog.Text3.SetStyle STYLE_VISIBLE
  429.         ENDIF    
  430.     ENDIF
  431.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  432.         SELECT CASE ControlID%
  433.             CASE GetVentFileDialog.VentFileTextBox.GetID()    
  434.                 InputFile$ = GetVentFileDialog.VentFileTextBox.GetText()
  435.         END SELECT
  436.     ENDIF
  437.  
  438.     IF Event% = EVENT_MOUSE_CLICK THEN         
  439.         SELECT CASE ControlID%
  440.             CASE GetVentFileDialog.NextButton.GetID()        
  441.                 GetVentFileDialog.closedialog DIALOG_RETURN_NEXT
  442.             CASE GetVentFileDialog.BackButton.GetID()        
  443.                 GetVentFileDialog.closedialog DIALOG_RETURN_BACK
  444.             CASE GetVentFileDialog.CancelButton.GetID()        
  445.                 GetVentFileDialog.closedialog DIALOG_RETURN_CANCEL
  446.             CASE GetVentFileDialog.BrowseButton.GetID()        
  447.                 InFile$ = GETFILEBOX("*.vp*|*.vp*", , , , "*.vp*", VenturaDir$ & "\Ventura\Samples")
  448.                 IF InFile$ <> "" THEN InputFile$ = InFile$
  449.                 GetVentFileDialog.VentFileTextBox.SetText InputFile$
  450.                 first% = 1
  451.                 pos% = 1
  452.                 DO WHILE first <> 0
  453.                     first% = INSTR(InputFile$, "\", first%)
  454.                     IF first% <> 0 THEN
  455.                         pos% = first%
  456.                         first% = first% + 1
  457.                     END IF
  458.                 LOOP
  459.                 DialogTitle$ = MID(InputFile$, pos%+1) 
  460.                 DialogTitle$ = "Style Information Wizard - " & DialogTitle$    
  461.                 GetVentFileDialog.SetText DialogTitle$
  462.             CASE GetVentFileDialog.CloseValCheckBox.GetID()        
  463.                 CloseVal& = GetVentFileDialog.CloseValCheckBox.GetValue()
  464.         END SELECT
  465.     ENDIF
  466.  
  467.     InputFile$ = GetVentFileDialog.VentFileTextBox.GetText()
  468.     IF DoesFileExist(InputFile$)=TRUE THEN 
  469.         GetVentFileDialog.NextButton.Enable TRUE
  470.         GetVentFileDialog.Text3.SetText ""
  471.         GetVentFileDialog.Text3.SetStyle STYLE_INVISIBLE
  472.     ELSE
  473.         GetVentFileDialog.NextButton.Enable FALSE
  474.         GetVentFileDialog.Text3.SetText "You need to save your file or specify a file that exists."
  475.         GetVentFileDialog.Text3.SetStyle STYLE_VISIBLE
  476.     ENDIF    
  477. END SUB
  478.  
  479.  
  480.  
  481. ' **************************************************************************************
  482. ' SelectApp
  483. ' This function prompts the user to choose Ventura or Excel.
  484. ' 
  485. ' PARAMS:
  486. '
  487. ' RETURNS: SelectApp AS INTEGER - Integer indicating dialog return value(user selection)
  488. ' **************************************************************************************
  489. FUNCTION SelectApp%
  490.  
  491. BEGIN DIALOG OBJECT SelectAppDialog 290, 180, DialogTitle$, SUB SelectAppDialogEventHandler
  492.     OPTIONGROUP .SelectedAppOption
  493.         OPTIONBUTTON  130, 35, 130, 12, .VenturaOption, "Corel &VENTURA"
  494.         OPTIONBUTTON  130, 50, 130, 12, .QuattroProOption, "Corel &Quattro Pro"
  495.         OPTIONBUTTON  130, 65, 130, 12, .ScriptOption, "Corel &SCRIPT"
  496.         OPTIONBUTTON  130, 80, 130, 12, .ExcelOption, "E&xcel"
  497.         OPTIONBUTTON  130, 95, 130, 12, .TextOption, "&Text File"
  498.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  499.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  500.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  501.     TEXT  95, 10, 185, 20, .Text1, "To which format would you like the paragraph tag information extracted?"
  502.     GROUPBOX  95, 25, 185, 90, .GroupBox1, ""
  503.     IMAGE  10, 10, 75, 130, .SelectAppImage
  504.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  505.     TEXT  95, 120, 185, 20, .StatusText, ""
  506. END DIALOG
  507.  
  508.     SelectAppDialog.SelectAppImage.SetImage "#Step2BMP"
  509.     SelectAppDialog.SelectAppImage.SetStyle STYLE_CENTERED
  510.     SelectAppDialog.StatusText.SetStyle STYLE_SUNKEN
  511.     SelectAppDialog.SetStyle STYLE_INVISIBLE
  512.  
  513.     SelectAppRet%=DIALOG(SelectAppDialog)
  514.     IF SelectAppRet% = DIALOG_RETURN_CANCEL THEN STOP
  515.     IF SelectAppRet% = DIALOG_RETURN_NEXT THEN         
  516.         SelectedApp& = SelectAppDialog.SelectedAppOption.GetValue()
  517.         OutputFile$ = ""
  518.         IF SelectedApp& = PUBLISH_TO_SCRIPT THEN
  519.             SelectApp=2
  520.         ELSE
  521.             SelectApp=1
  522.         ENDIF
  523.     ENDIF
  524.     IF SelectAppRet% = DIALOG_RETURN_BACK THEN 
  525.         IF  OpenPubs% = 0 THEN 
  526.             SelectApp = -1    
  527.         ELSE
  528.             SelectApp = -2
  529.         ENDIF
  530.     ENDIF
  531. END FUNCTION
  532.  
  533.  
  534. ' **************************************************************************************
  535. ' SelectAppDialogEventHandler
  536. ' This subroutine handles events for the selec application dialog.
  537. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  538. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  539. ' **************************************************************************************
  540. SUB SelectAppDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  541. ON ERROR RESUME NEXT
  542.     IF Event% = EVENT_INITIALIZATION THEN         
  543.         SelectAppDialog.SetStyle STYLE_VISIBLE
  544.         SelectedApp& = SelectAppDialog.SelectedAppOption.GetValue()
  545.         SELECT CASE SelectedApp&
  546.             CASE PUBLISH_TO_VENTURA
  547.                 SelectAppDialog.StatusText.SetText "Publishes page and paragraph tag information to a Corel VENTURA publication."
  548.             CASE PUBLISH_TO_QUATTROPRO
  549.                 SelectAppDialog.StatusText.SetText "Publishes paragraph tag information to a QuattroPro spreadsheet."
  550.             CASE PUBLISH_TO_SCRIPT
  551.                 SelectAppDialog.StatusText.SetText "Creates a script that applies paragraph tags to a new publication."
  552.             CASE PUBLISH_TO_EXCEL
  553.                 SelectAppDialog.StatusText.SetText "Publishes paragraph tag information to an Excel spreadsheet."
  554.             CASE PUBLISH_TO_TEXT
  555.                 SelectAppDialog.StatusText.SetText "Publishes page and paragraph tag information to a text file."
  556.  
  557.         END SELECT
  558.     ENDIF
  559.  
  560.     IF Event% = EVENT_MOUSE_CLICK THEN         
  561.         SELECT CASE ControlID%
  562.             CASE SelectAppDialog.NextButton.GetID()        
  563.                 SelectedApp& = SelectAppDialog.SelectedAppOption.GetValue()
  564.                 SELECT CASE SelectedApp&
  565.                     CASE PUBLISH_TO_QUATTROPRO
  566.                         QPMainKey& = HKEY_CLASSES_ROOT
  567.                         QPSubKey$ = "QuattroPro.PerfectScript"
  568.                         WPSubKey$ = "WordPerfect.PerfectScript"
  569.                         QPValue$ = ""
  570.                         IF RegQuery(QPMainKey&, QPSubKey$, QPValue$) = "" OR RegQuery(QPMainKey&, WPSubKey$, QPValue$) = ""THEN
  571.                             MESSAGE "Unable to locate QuattroPro registry information." 
  572.                         ELSE
  573.                             SelectAppDialog.closedialog DIALOG_RETURN_NEXT
  574.                         ENDIF
  575.  
  576.                     CASE PUBLISH_TO_EXCEL
  577.                         ExcelMainKey& = HKEY_LOCAL_MACHINE
  578.                         ExcelSubKey$ = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE"
  579.                         ExcelValue$ = ""
  580.                         IF RegQuery(ExcelMainKey&, ExcelSubKey$, ExcelValue$) = "" THEN
  581.                             MESSAGE "Unable to locate Excel.exe" 
  582.                         ELSE
  583.                             SelectAppDialog.closedialog DIALOG_RETURN_NEXT
  584.                         ENDIF
  585.                     CASE ELSE
  586.                         SelectAppDialog.closedialog DIALOG_RETURN_NEXT
  587.                 END SELECT
  588.  
  589.             CASE SelectAppDialog.BackButton.GetID()            
  590.                 SelectAppDialog.closedialog DIALOG_RETURN_BACK
  591.             CASE SelectAppDialog.CancelButton.GetID()            
  592.                 SelectAppDialog.closedialog DIALOG_RETURN_CANCEL
  593.             CASE SelectAppDialog.VenturaOption.GetID()
  594.                 SelectAppDialog.StatusText.SetText "Publishes page and paragraph tag information to a Corel VENTURA publication."
  595.             CASE SelectAppDialog.QuattroProOption.GetID()
  596.                 SelectAppDialog.StatusText.SetText "Publishes paragraph tag information to a QuattroPro spreadsheet."
  597.             CASE SelectAppDialog.ScriptOption.GetID()
  598.                 SelectAppDialog.StatusText.SetText "Creates a script that applies paragraph tags to a new publication."
  599.             CASE SelectAppDialog.ExcelOption.GetID()
  600.                 SelectAppDialog.StatusText.SetText "Publishes paragraph tag information to an Excel spreadsheet."
  601.             CASE SelectAppDialog.TextOption.GetID()
  602.                 SelectAppDialog.StatusText.SetText "Publishes page and paragraph tag information to a text file."
  603.         END SELECT
  604.     ENDIF
  605. END SUB
  606.  
  607.  
  608.  
  609. ' **************************************************************************************
  610. ' GetUnitInfo
  611. ' This function prompts the user to select which units to display the settings.
  612. '
  613. ' PARAMS:
  614. '
  615. ' RETURNS: GetUnitInfo AS INTEGER - Integer indicating dialog return value(user selection)
  616. ' **************************************************************************************
  617. FUNCTION GetUnitInfo%
  618.  
  619. BEGIN DIALOG OBJECT GetUnitInfoDialog 290, 180, DialogTitle$, SUB GetUnitInfoDialogEventHandler
  620.     TEXT  95, 32, 65, 12, .Text6, "&Font Size:"
  621.     DDLISTBOX  165, 30, 95, 70, .FontSizeListBox
  622.     TEXT  95, 48, 66, 12, .Text2, "&Dimensions:"
  623.     DDLISTBOX  165, 46, 95, 70, .DimensionListBox
  624.     TEXT  95, 64, 65, 10, .Text3, "&Columns && Margins:"
  625.     DDLISTBOX  165, 62, 95, 70, .MarginsListBox
  626.     TEXT  95, 80, 70, 10, .Text4, "&Lines:"
  627.     DDLISTBOX  165, 78, 95, 70, .LinesListBox
  628.     TEXT  96, 96, 65, 10, .Text5, "&Underlines:"
  629.     DDLISTBOX  165, 94, 95, 70, .UnderlineListBox
  630.     TEXT  96, 112, 65, 10, .Text7, "Hori&zontal Spacing:"
  631.     DDLISTBOX  165, 110, 95, 70, .HorizontalListBox
  632.     TEXT  96, 128, 65, 10, .Text8, "&Vertical Spacing:"
  633.     DDLISTBOX  165, 126, 95, 70, .VerticalListBox
  634.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  635.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  636.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  637.     TEXT  95, 10, 185, 20, .Text1, "Select the unit of measurement you would like to use for the corresponding settings."
  638.     IMAGE  10, 10, 75, 130, .DestinationFileImage
  639.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  640. END DIALOG
  641.  
  642. GetUnitInfoDialog.SetStyle STYLE_INVISIBLE
  643. GetUnitInfoDialog.DestinationFileImage.SetImage "#Step3BMP"
  644. GetUnitInfoDialog.DestinationFileImage.SetStyle STYLE_CENTERED
  645. GetUnitInfoDialog.FontSizeListBox.SetArray Units$
  646. GetUnitInfoDialog.FontSizeListBox.SetSelect FontUnits&
  647. GetUnitInfoDialog.DimensionListBox.SetArray Units$
  648. GetUnitInfoDialog.DimensionListBox.SetSelect DimensionUnits&
  649. GetUnitInfoDialog.MarginsListBox.SetArray Units$
  650. GetUnitInfoDialog.MarginsListBox.SetSelect MarginUnits&
  651. GetUnitInfoDialog.UnderlineListBox.SetArray Units$
  652. GetUnitInfoDialog.UnderlineListBox.SetSelect UnderlineUnits&
  653. GetUnitInfoDialog.HorizontalListBox.SetArray Units$
  654. GetUnitInfoDialog.HorizontalListBox.SetSelect HorizontalUnits&
  655. GetUnitInfoDialog.VerticalListBox.SetArray Units$
  656. GetUnitInfoDialog.VerticalListBox.SetSelect VerticalUnits&
  657. GetUnitInfoDialog.LinesListBox.SetArray Units$
  658. GetUnitInfoDialog.LinesListBox.SetSelect LineUnits&
  659.  
  660.     GetUnitInfoRet%=DIALOG(GetUnitInfoDialog)
  661.     SELECT CASE GetUnitInfoRet%
  662.         CASE DIALOG_RETURN_CANCEL        
  663.              STOP
  664.         CASE DIALOG_RETURN_NEXT         
  665.             GetUnitInfo = 1
  666.         CASE DIALOG_RETURN_BACK         
  667.             GetUnitInfo = -1
  668.     END SELECT
  669.  
  670. END FUNCTION
  671.  
  672. ' **************************************************************************************
  673. ' UnitInfoDialogEventHandler
  674. ' This subroutine handles events for the destination file dialog.
  675. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  676. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  677. ' **************************************************************************************
  678. SUB GetUnitInfoDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  679.  
  680.     IF Event% = EVENT_INITIALIZATION THEN         
  681.         GetUnitInfoDialog.SetStyle STYLE_VISIBLE
  682.     ENDIF
  683.  
  684.     IF Event% = EVENT_MOUSE_CLICK THEN         
  685.         SELECT CASE ControlID%
  686.             CASE GetUnitInfoDialog.NextButton.GetID()            
  687.                 GetUnitInfoDialog.closedialog DIALOG_RETURN_NEXT
  688.             CASE GetUnitInfoDialog.BackButton.GetID()            
  689.                 GetUnitInfoDialog.closedialog DIALOG_RETURN_BACK
  690.             CASE GetUnitInfoDialog.CancelButton.GetID()            
  691.                 GetUnitInfoDialog.closedialog DIALOG_RETURN_CANCEL
  692.             CASE GetUnitInfoDialog.FontSizeListBox.GetID()            
  693.                 FontUnits& = GetUnitInfoDialog.FontSizeListBox.GetSelect()
  694.             CASE GetUnitInfoDialog.UnderlineListBox.GetID()            
  695.                 UnderlineUnits& = GetUnitInfoDialog.UnderlineListBox.GetSelect()
  696.             CASE GetUnitInfoDialog.HorizontalListBox.GetID()            
  697.                 HorizontalUnits& = GetUnitInfoDialog.HorizontalListBox.GetSelect()
  698.             CASE GetUnitInfoDialog.VerticalListBox.GetID()            
  699.                 VerticalUnits& = GetUnitInfoDialog.VerticalListBox.GetSelect()
  700.             CASE GetUnitInfoDialog.DimensionListBox.GetID()            
  701.                 DimensionUnits& = GetUnitInfoDialog.DimensionListBox.GetSelect()
  702.             CASE GetUnitInfoDialog.LinesListBox.GetID()            
  703.                 LineUnits& = GetUnitInfoDialog.LinesListBox.GetSelect()
  704.         END SELECT
  705.     ENDIF
  706. END SUB
  707.  
  708.  
  709. ' **************************************************************************************
  710. ' GetDestinationFile
  711. ' This function prompts the user for the name of the destination file to write the para tag 
  712. ' information to.
  713. '
  714. ' PARAMS:
  715. '
  716. ' RETURNS: GetDestinationFile AS INTEGER - Integer indicating dialog return value(user selection)
  717. ' **************************************************************************************
  718. FUNCTION GetDestinationFile%
  719.  
  720. BEGIN DIALOG OBJECT GetDestinationFileDialog 290, 180, DialogTitle$, SUB GetDestinationFileDialogEventHandler
  721.     TEXTBOX  100, 55, 175, 13, .DestinationFileTextBox
  722.     PUSHBUTTON  228, 75, 46, 14, .BrowseButton, "B&rowse..."
  723.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  724.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  725.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  726.     GROUPBOX  95, 40, 185, 60, .FileGroupBox
  727.     TEXT  95, 10, 185, 20, .Text1, ""
  728.     IMAGE  10, 10, 75, 130, .DestinationFileImage
  729.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  730. END DIALOG
  731.  
  732. GetDestinationFileDialog.SetStyle STYLE_INVISIBLE
  733. GetDestinationFileDialog.DestinationFileImage.SetImage "#Step3BMP"
  734. GetDestinationFileDialog.DestinationFileImage.SetStyle STYLE_CENTERED
  735.  
  736.     GetDestinationFileRet%=DIALOG(GetDestinationFileDialog)
  737.     SELECT CASE GetDestinationFileRet%
  738.         CASE DIALOG_RETURN_CANCEL        
  739.              STOP
  740.         CASE DIALOG_RETURN_NEXT         
  741.             GetDestinationFile = 1
  742.         CASE DIALOG_RETURN_BACK         
  743.             IF SelectedApp& = PUBLISH_TO_SCRIPT THEN
  744.                 GetDestinationFile = -2
  745.             ELSE
  746.                 GetDestinationFile = -1
  747.             ENDIF
  748.     END SELECT
  749. END FUNCTION
  750.  
  751. ' **************************************************************************************
  752. ' GetDestinationFileDialogEventHandler
  753. ' This subroutine handles events for the destination file dialog.
  754. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  755. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  756. ' **************************************************************************************
  757. SUB GetDestinationFileDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  758. STATIC FileBoxType%
  759. STATIC DefFile$ 
  760. STATIC DefExt$ 
  761. STATIC DefFolder$
  762.     IF Event% = EVENT_INITIALIZATION THEN         
  763.         GetDestinationFileDialog.SetStyle STYLE_VISIBLE
  764.         IF INSTR(OutputFile$, ".") = 0 THEN
  765.             first% = 1
  766.             pos% = 1
  767.             WHILE first% <> 0
  768.                 first% = INSTR(InputFile$, ".", first%)
  769.                     IF first% <> 0 THEN
  770.                           pos% = first%
  771.                           first% = first% + 1
  772.                     ENDIF
  773.             WEND
  774.             StylesFile$ = MID(InputFile$, 1, pos% - 1)
  775.             SELECT CASE SelectedApp&
  776.                 CASE PUBLISH_TO_VENTURA
  777. REM                     GetDestinationFileDialog.SetText DialogTitle$
  778.                     GetDestinationFileDialog.FileGroupBox.SetText "Publication Files (*.VP*):"
  779.                     GetDestinationFileDialog.Text1.SetText "What would you like to call the new Corel VENTURA publication?"
  780.                     FileFilter$ = "*.vp*|*.vp"
  781.                     FileBoxType% = 1
  782.                     DefFile$ = StylesFile$ & "Styles.VP"
  783.                     DefExt$ = ".vp"
  784.     
  785.                 CASE PUBLISH_TO_QUATTROPRO
  786. REM                     GetDestinationFileDialog.SetText "Style Information Wizard"
  787.                     GetDestinationFileDialog.FileGroupBox.SetText "Quattro Pro Spreadsheet (*.wb3):"
  788.                     GetDestinationFileDialog.Text1.SetText "What would you like to call the Quattro Pro spreadsheet?"
  789.                     FileFilter$ = "*.wb3|*.wb3"
  790.                     FileBoxType% = 0
  791.                     DefFile$ = StylesFile$ & "Styles.wb3"
  792.                     DefExt$ = ".wb3"
  793.                 CASE PUBLISH_TO_SCRIPT
  794. REM                     GetDestinationFileDialog.SetText "Style Information Wizard"
  795.                     GetDestinationFileDialog.FileGroupBox.SetText "Corel SCRIPT file (*.CSC):"
  796.                     GetDestinationFileDialog.Text1.SetText "What would you like to call the script?."
  797.                     FileFilter$ = "*.csc|*.csc"
  798.                     FileBoxType% = 1
  799.                     DefFile$ = StylesFile$ & "Styles.csc"
  800.                     DefExt$ = ".csc"
  801.     
  802.                 CASE PUBLISH_TO_EXCEL
  803. REM                     GetDestinationFileDialog.SetText "Style Information Wizard"
  804.                     GetDestinationFileDialog.FileGroupBox.SetText "MS Excel Spreadsheet (*.XLS):"
  805.                     GetDestinationFileDialog.Text1.SetText "What would you like to call the Excel spreadsheet?"
  806.                     FileFilter$ = "*.xls|*.xls"
  807.                     FileBoxType% = 0
  808.                     DefFile$ = StylesFile$ & "Styles.xls"
  809.                     DefExt$ = ".xls"
  810.     
  811.                 CASE PUBLISH_TO_TEXT
  812. REM                     GetDestinationFileDialog.SetText "Style Information Wizard"
  813.                     GetDestinationFileDialog.FileGroupBox.SetText "Text File (*.TXT):"
  814.                     GetDestinationFileDialog.Text1.SetText "What would you like to call the text file?"
  815.                     FileFilter$ = "*.txt|*.txt"
  816.                     FileBoxType% = 1
  817.                     DefFile$ = StylesFile$ & "Styles.txt"
  818.                     DefExt$ = ".txt"
  819.             END SELECT
  820.             OutputFile$ = DefFolder$ & DefFile$
  821.             GetDestinationFileDialog.DestinationFileTextBox.SetText OutputFile$
  822.         ENDIF
  823.     ENDIF
  824.  
  825.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  826.         SELECT CASE ControlID%
  827.             CASE GetDestinationFileDialog.DestinationFileTextBox.GetID()            '
  828.                 OutputFile$ = GetDestinationFileDialog.DestinationFileTextBox.GetText()
  829.         END SELECT
  830.     ENDIF
  831.  
  832.     IF Event% = EVENT_MOUSE_CLICK THEN         
  833.         SELECT CASE ControlID%
  834.             CASE GetDestinationFileDialog.NextButton.GetID()            
  835.                 OutputFile$ = GetDestinationFileDialog.DestinationFileTextBox.GetText()
  836.                 GetDestinationFileDialog.closedialog DIALOG_RETURN_NEXT
  837.             CASE GetDestinationFileDialog.BackButton.GetID()            
  838.                 GetDestinationFileDialog.closedialog DIALOG_RETURN_BACK
  839.             CASE GetDestinationFileDialog.CancelButton.GetID()            
  840.                 GetDestinationFileDialog.closedialog DIALOG_RETURN_CANCEL
  841.             CASE GetDestinationFileDialog.BrowseButton.GetID()            
  842.                 OutFile$ = GETFILEBOX(FileFilter$, , FileBoxType%, DefFile$, DefExt$, DefFolder$)
  843.                 IF OutFile$ <> "" THEN OutputFile$ = OutFile$
  844.                 GetDestinationFileDialog.DestinationFileTextBox.SetText OutputFile$
  845.         END SELECT
  846.     ENDIF
  847.  
  848.     OutputFile$ = GetDestinationFileDialog.DestinationFileTextBox.GetText()
  849.     IF OutputFile$ = "" OR INSTR(OutputFile$, ".") = 0 THEN 
  850.         GetDestinationFileDialog.NextButton.Enable FALSE
  851.     ELSE
  852.         GetDestinationFileDialog.NextButton.Enable TRUE
  853.     ENDIF    
  854. END SUB
  855.  
  856.  
  857.  
  858. ' **************************************************************************************
  859. ' ShowFinish
  860. ' This function displays the finish dialog verifying the files the user has selected.
  861. ' 
  862. ' PARAMS: None
  863. '
  864. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value(user selection)
  865. ' **************************************************************************************
  866. FUNCTION ShowFinish%
  867. BEGIN DIALOG OBJECT FinishDialog 290, 180, DialogTitle$, SUB FinishDialogEventHandler
  868.     PUSHBUTTON  181, 160, 46, 14, .FinishButton, "&Finish"
  869.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  870.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  871.     TEXT  95, 10, 185, 28, .FinishText, FinishText$
  872.     TEXT  95, 125, 185, 12, .Text2, "Click Finish to complete the process."
  873.     IMAGE  10, 10, 75, 130, .FinishImage
  874.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  875.     TEXT  95, 43, 182, 28, .Text3, FinishText2$
  876.     TEXT  95, 105, 185, 20, .Text4, "This may take a few minutes. Please be patient. You will be notified when the process is complete."
  877. END DIALOG
  878.  
  879.     FinishDialog.SetStyle STYLE_INVISIBLE
  880.     FinishDialog.FinishImage.SetImage "#LastBMP"
  881.     FinishDialog.FinishImage.SetStyle STYLE_CENTERED
  882.     FinishRet%=DIALOG(FinishDialog)        
  883.     IF FinishRet% = DIALOG_RETURN_CANCEL THEN STOP
  884.  
  885.     IF FinishRet% = DIALOG_RETURN_NEXT THEN 
  886.         ShowFinish = 1         
  887.     ENDIF
  888.     IF FinishRet% = DIALOG_RETURN_BACK THEN ShowFinish = -1        
  889. END FUNCTION
  890.  
  891.  
  892. ' **************************************************************************************
  893. ' FinishDialogEventHandler
  894. ' This subroutine handles events for the finish dialog.
  895. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is generating a dialog event.
  896. '        BYVAL Event% - Integer indicating the dialog event that has occurred in the dialog box
  897. ' **************************************************************************************
  898. SUB FinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  899.     IF Event% = EVENT_INITIALIZATION THEN         
  900.         FinishDialog.SetStyle STYLE_VISIBLE
  901.         SELECT CASE SelectedApp&
  902.             CASE PUBLISH_TO_VENTURA
  903.                 FinishText$ = "The Stylesheet Information Wizard is ready to publish your stylesheet information to Corel VENTURA."
  904.             CASE PUBLISH_TO_QUATTROPRO
  905.                 FinishText$ = "The Stylesheet Information Wizard is ready to publish your paragraph tag information to QuattroPro."
  906.                 FinishText2$ = "You will be able to edit and save changes to the spreadsheet. As well you will be able to apply those changes back to Corel VENTURA."
  907.             CASE PUBLISH_TO_SCRIPT
  908.                 FinishText$ = "The Stylesheet Information Wizard is ready to publish your paragraph tag information to Corel SCRIPT."
  909.                 FinishText2$ = "You will be able to execute the script and create a new publication with the extracted style information."
  910.             CASE PUBLISH_TO_EXCEL
  911.                 FinishText$ = "The Stylesheet Information Wizard is ready to publish your paragraph tag information to Excel."
  912.                 FinishText2$ = "You will be able to edit and save changes to the spreadsheet. As well you will be able to apply those changes back to Corel VENTURA."
  913.             CASE PUBLISH_TO_TEXT
  914.                 FinishText$ = "The Stylesheet Information Wizard is ready to publish your paragraph tag information to a Text File."
  915.         END SELECT
  916.         FinishDialog.FinishText.SetText FinishText$
  917.         FinishDialog.Text3.SetText FinishText2$
  918.     ENDIF
  919.  
  920.     IF Event% = EVENT_MOUSE_CLICK THEN         
  921.         SELECT CASE ControlID%
  922.             CASE FinishDialog.FinishButton.GetID()            
  923.                 FinishDialog.closedialog DIALOG_RETURN_NEXT
  924.             CASE FinishDialog.BackButton.GetID()        
  925.                 FinishDialog.closedialog DIALOG_RETURN_BACK
  926.             CASE FinishDialog.CancelButton.GetID()        
  927.                 FinishDialog.closedialog DIALOG_RETURN_CANCEL
  928.         END SELECT
  929.     ENDIF
  930. END SUB
  931.  
  932.  
  933. ' **************************************************************************************
  934. ' UseVentura
  935. ' This subroutine publishes style info to a new Ventura publication.
  936. '
  937. ' PARAMS: None
  938. ' **************************************************************************************
  939. SUB UseVentura
  940.     'write para tag info to temporary text file
  941.     TempTextDir$ = GETTEMPFOLDER()
  942.     TempTextFile$ = TempTextDir$ & "TempTextFile.txt"
  943.  
  944.     NEWLINE$ = CHR(13) & CHR(10)
  945.     TITLE_PREFIX$ = "@Minor Heading = "
  946.     SECTION_PREFIX$ = "@Main Heading = Paragraph Tag Settings"
  947.     DIALOG_PREFIX$ = "@Subheading = "
  948.     TAG_PREFIX$ = "@Minor Heading = " & "Tag Name = "    
  949.     SPACE_CHAR$ = CHR(9)
  950.     PREFIX_CHAR$ = "@Bullet = "
  951.     UNITS_PREFIX$ = " "
  952.     BEGINWAITCURSOR
  953.     UseTextFile(TempTextFile$)
  954.     ENDWAITCURSOR
  955.  
  956.     BEGINWAITCURSOR
  957.     WITHOBJECT OBJECT_VENTURA8
  958.         .FileNew
  959.         .FrameFirst TRUE
  960.         .FileImportText TempTextFile$, , 1
  961.         .PageFirstLine
  962.         .FormatParaTagBegin "Bullet"
  963.         .FormatParaTabSet 2.50
  964.         .FormatParaTagEnd
  965.         .FileSaveAs OutputFile$
  966.     END WITHOBJECT
  967.     ENDWAITCURSOR
  968.  
  969.     KILL TempTextFile$
  970. END SUB
  971.  
  972.  
  973. ' **************************************************************************************
  974. ' UseScript 
  975. ' This subroutine creates a script to apply para tag styles to a new pub
  976. '
  977. ' PARAMS:None
  978. ' **************************************************************************************
  979. SUB UseScript
  980. DIM Orientation AS BOOLEAN
  981. DIM GutterRuleOverprint AS BOOLEAN
  982. ScriptFile$ = OutputFile$
  983.  
  984.     BEGINWAITCURSOR
  985.     WITHOBJECT OBJECT_VENTURA8
  986.         OPEN ScriptFile$ FOR OUTPUT AS 2
  987.     
  988.         WithObjString$ = "WITHOBJECT " & QUOTE & OBJECT_VENTURA8 & QUOTE 
  989.         PRINT #2, WithObjString$ 
  990.         PRINT #2, CHR(13)
  991.     
  992.         PRINT #2, ".SetVisible TRUE"    
  993.         PRINT #2, ".FileNew"
  994.         PRINT #2, ".PageFirstLine"
  995.         PRINT #2, CHR(13) 
  996.     
  997.         'delete default tags
  998.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Bullet" & QUOTE
  999.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Heading" & QUOTE
  1000.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Main Heading" & QUOTE
  1001.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Subheading" & QUOTE
  1002.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Minor Heading" & QUOTE
  1003.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Numbered List" & QUOTE
  1004.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Z_SEC1" & QUOTE
  1005.         PRINT #2, ".ParaTagDelete " &  QUOTE & "Z_SEC2" & QUOTE
  1006.         PRINT #2, CHR(13) 
  1007.  
  1008.         'MASTER PAGE INFORMATION
  1009.         .ViewMasterPage
  1010.         PRINT #2, ".ViewMasterPage"
  1011.         MPCount& = .MasterPageCount()
  1012.         FOR i% = 1 TO MPCount&
  1013.             CurrentMP$ = .MasterPageGetAt(i%)
  1014.             IF UCASE(CurrentMP$) <> UCASE("Default Master") THEN
  1015.                 PRINT #2, ".MasterPageAddNew " & QUOTE & CurrentMP$ & QUOTE
  1016.             ENDIF            
  1017.  
  1018.             'get general properties for each master page
  1019.             .FormatMasterPageGet Orientation, PaperType&, MPWidth&, MPHeight&, CurrentMP$
  1020.             MasterPageStr$ = ".FormatMasterPage " & Orientation & ", " & PaperType& & ", " & MPWidth& & ", " & MPHeight& & ", " & QUOTE & CurrentMP$ & QUOTE
  1021.             PRINT #2, MasterPageStr$
  1022.  
  1023.             'get margin settings for LEFT Master page
  1024.             .ViewGotoMasterPage CurrentMP$, FALSE, 4
  1025.              .FormatFrameMarginsInsideGet 1, LeftMarg&, RightMarg&, TopMarg&, BottomMarg&
  1026.             PRINT #2, ".ViewGotoMasterPage " & QUOTE & CurrentMP$ & QUOTE & ", FALSE, 4"
  1027.             PRINT #2, ".FormatFrameMarginsInside 1, " & LeftMarg& & ", " & RightMarg& & ", " & TopMarg&  & ", " & BottomMarg&
  1028.  
  1029.             'get column settings for LEFT Master page
  1030. REM             .ViewGotoMasterPage CurrentMP$, FALSE, 4
  1031.              .FormatFrameColumnsGet 1, Columns&, FlowInColumns&, ColumnBalance&, GutterRuleOverprint
  1032.             PRINT #2, ".FormatFrameColumns 1, " & Columns& & ", " & FlowInColumns& & ", " & ColumnBalance&  & ", " & GutterRuleOverprint
  1033.  
  1034.             'get margin settings for RIGHT Master page
  1035.             .ViewGotoMasterPage CurrentMP$, TRUE, 4
  1036.              .FormatFrameMarginsInsideGet 2, LeftMarg&, RightMarg&, TopMarg&, BottomMarg&
  1037.             PRINT #2, ".ViewGotoMasterPage " & QUOTE & CurrentMP$ & QUOTE & ", TRUE, 4"
  1038.             PRINT #2, ".FormatFrameMarginsInside 2, " & LeftMarg& & ", " & RightMarg& & ", " & TopMarg&  & ", " & BottomMarg&
  1039.  
  1040.             'get Column settings for RIGHT Master page
  1041. REM             .ViewGotoMasterPage CurrentMP$, TRUE, 4
  1042.              .FormatFrameColumnsGet 2, Columns&, FlowInColumns&, ColumnBalance&, GutterRuleOverprint
  1043.             PRINT #2, ".FormatFrameColumns 2, " & Columns& & ", " & FlowInColumns& & ", " & ColumnBalance&  & ", " & GutterRuleOverprint
  1044.             PRINT #2, CHR(13) 
  1045.         NEXT i%
  1046.  
  1047.         PRINT #2, ".ViewPageLayout" 
  1048.         PRINT #2, CHR(13) 
  1049.  
  1050.         'PARAGRAPH TAG INFORMATION
  1051.         .ViewPageLayout
  1052.         NumTags%=.ParaTagCount()
  1053.         FOR i%=1 TO NumTags%
  1054.             NameOfTag$=.ParaTagGetAt(i%)
  1055.             IF NameOfTag$ = "" THEN GOTO AllDone
  1056.             .FormatParaTagBegin NameOfTag$
  1057.         
  1058.             PRINT #2, "REM " & NameOfTag$
  1059.             NameOfTag$ = QUOTE & LTRIM(NameOfTag$) & QUOTE
  1060.         
  1061.             bt% = INSTR(NameOfTag$, "Body Text")    'Don't make new tag for body text
  1062.             IF bt%=0 THEN PRINT #2, ".ParaTagAddNew " & NameOfTag$
  1063.             PRINT #2, ".FormatParaTagBegin " & NameOfTag$
  1064.         
  1065.             'ALIGNMENT/////////////////////////////////////////////////////////////////////////////////////////////////
  1066.             DIM FrameWideText As BOOLEAN            
  1067.             DIM AddPrev AS BOOLEAN                
  1068.             .FormatParaAlignmentGet Hor&, Vert&, FrameWideText, RPFromLeft&, RPFromRight&, LPFromLeft&, LPFromRight&, LinesToIndent&, FirstLinesIndent&, AddPrev, DecFromRight&, DecimalChar&, AbsoluteYPosition&
  1069.             AlignmentStr1$ = ".FormatParaAlignment " & (Hor) & ", " & (Vert) & ", " & (FrameWideText) & ", " & (RPFromLeft) & ", " & (RPFromRight) & ", "
  1070.             AlignmentStr2$ =  (LPFromLeft) & ", " & (LPFromRight) & ", " & (LinesToIndent) & ", " & (FirstLinesIndent) & ", " & (AddPrev) & ", " & (DecFromRight) & ", " & (DecimalChar) & ", " & (AbsoluteYPosition) 
  1071.             AlignmentStr$ = AlignmentStr1$ & AlignmentStr2$
  1072.             PRINT #2, AlignmentStr$
  1073.         
  1074.             'BREAKS /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  1075.             DIM InLineWithPrev AS BOOLEAN            
  1076.             DIM AllowBreakWithin AS BOOLEAN
  1077.             DIM KeepWithNext AS BOOLEAN
  1078.             DIM KeepWithPrev AS BOOLEAN
  1079.             .FormatParaBreaksGet PageBreak&, ColumnBreak&, LineBreak&, InLineWithPrev, AllowBreakWithin, KeepWithNext, KeepWithPrev
  1080.             BreaksStr$ = ".FormatParaBreaks " &  (PageBreak) & ", " & (ColumnBreak) & ", " & (LineBreak) & ", " & (InLineWithPrev) & ", " & (AllowBreakWithin) & ", " & (KeepWithNext) & ", " & (KeepWithPrev)
  1081.             PRINT #2, BreaksStr$
  1082.         
  1083.             'BULLETS///////////////////////////////////////////////////////////////////////////////////////////////////
  1084.             DIM IndentFirstLineOnly AS BOOLEAN
  1085.             .FormatParaBulletGet Indent&, BulletChar&, ShiftUpDef&, IndentFirstLineOnly
  1086.             BulletStr$ =  ".FormatParaBullet " & (Indent) & ", " & (BulletChar) & ", " & (ShiftUpDef) & ", " & (IndentFirstLineOnly)
  1087.             PRINT #2, BulletStr$
  1088.         
  1089.             'COLOUR////////////////////////////////////////////////////////////////////////////////////////////////////////
  1090.             DIM Background AS BOOLEAN
  1091.             DIM COverprint AS BOOLEAN
  1092.             DIM ColumnWide AS BOOLEAN
  1093.             .FormatParaColorGet BackGround, ColorModel&, Colour1&, Colour2&, Colour3&, Colour4&, COverprint, ColumnWide
  1094.             ColorStr$ = ".FormatParaColor " &  (BackGround) & ", " & (ColorModel) & ", " & (Colour1) & ", " & (Colour2) & ", " & (Colour3) & ", " & (Colour4) & ", " & (COverprint)& ", " & (ColumnWide)
  1095.             PRINT #2, ColorStr$
  1096.         
  1097.             'DEFAULTS////////////////////////////////////////////////////////////////////////////////////////////////////////
  1098.             DIM AADefault AS BOOLEAN
  1099.             .FormatParaDefaultsGet AADefault, ColsToSpan&, NextTag$, OverscoreThick&, OverscoreShift&, StrikeThick&, StrikeShift&, ULine1Thick&, ULine1Shift&, ULine2Thick&, ULine2Shift&, SuperscriptPS!, SuperscriptShift&, SubscriptPS!, SubscriptShift&
  1100.             IF NextTag$ <> "" THEN NextTag$ = QUOTE & NextTag$ & QUOTE
  1101.             DefaultStr1$ = ".FormatParaDefaults " & (AADefault) & ", " & (ColsToSpan&) & ", " & NextTag$ & ", " & (OverscoreThick&) & ", "
  1102.             DefaultStr2$ =  (OverscoreShift&) & ", " & (StrikeThick&) & ", " & (StrikeShift&) & ", " & (ULine1Thick&) & ", " & (ULine1Shift&) & ", "
  1103.             DefaultStr3$ =     (ULine2Thick&) & ", " & (ULine2Shift&) & ", " & (SuperscriptPS!) & ", " & (SuperscriptShift&) & ", " & (SubscriptPS!) & ", " & (SubscriptShift&)
  1104.          
  1105.             DefaultStr$ = DefaultStr1$ & DefaultStr2$ & DefaultStr3$
  1106.             PRINT #2, DefaultStr$
  1107.         
  1108.             'DROPCAPS////////////////////////////////////////////////////////////////////////////////////////////////////////
  1109.             .FormatParaDropCapGet CharCount&, ShiftUpDropCap&, CustomLineCount&
  1110.             DropCapsStr$ = ".FormatParaDropCap " & (CharCount) & ", " & (ShiftUpDropCap) & ", " & (CustomLineCount)
  1111.             PRINT #2, DropCapsStr$
  1112.         
  1113.             'EFFECT FONT////////////////////////////////////////////////////////////////////////////////////////////////////
  1114.             DIM bEffectStrike AS BOOLEAN
  1115.             DIM bEffectOverscore AS BOOLEAN
  1116.             DIM bEffectItalic AS BOOLEAN
  1117.             .FormatParaEffectFontGet EffectFontName$, EffectPointSize!, EffectWeight&, bEffectItalic, EffectUnderline&, bEffectStrike, bEffectOverscore
  1118.         
  1119.             IF EffectFontName$ <> "" THEN EffectFontName$ = QUOTE & EffectFontName$ & QUOTE
  1120.             EffectFontStr$ = ".FormatParaEffectFont " &  EffectFontName & ", " & (EffectPointSize) & ", " & (EffectWeight) & ", " & (bEffectItalic)& ", " & (EffectUnderline) & ", " & (bEffectStrike) & ", " & (bEffectOverscore)
  1121.             PRINT #2, EffectFontStr$
  1122.         
  1123.             'EFFECT COLOUR////////////////////////////////////////////////////////////////////////////////////////////////////////
  1124.             DIM EffectBackground AS BOOLEAN
  1125.             DIM Overprint AS BOOLEAN
  1126.             .FormatParaEffectColorGet EffectBackGround, ColorModel&, Colour1&, Colour2&, Colour3&, Colour4&, Overprint
  1127.             EffectColorStr$ = ".FormatParaEffectColor " &  (EffectBackGround) & ", " & (ColorModel) & ", " & (Colour1) & ", " & (Colour2) & ", " & (Colour3) & ", " & (Colour4) & ", " & (Overprint)
  1128.             PRINT #2, EffectColorStr$
  1129.         
  1130.             'EFFECT////////////////////////////////////////////////////////////////////////////////////////////////////////
  1131.             .FormatParaEffectsGet EffectType&, TextAfter$, TextBefore$
  1132.             IF TextAfter$ <> "" THEN TextAfter$ = QUOTE & TextAfter$ & QUOTE
  1133.             IF TextBefore$ <> "" THEN TextBefore$ = QUOTE & TextBefore$ & QUOTE
  1134.             EffectsStr$ = ".FormatParaEffects " & (EffectType) & ", " & TextAfter$ & ", " & TextBefore$
  1135.             PRINT #2, EffectsStr$
  1136.         
  1137.             'FONT//////////////////////////////////////////////////////////////////////////////////////////////////////////
  1138.             DIM bItalic AS BOOLEAN
  1139.             DIM bStrikeThru AS BOOLEAN
  1140.             DIM bOverscore AS BOOLEAN
  1141.             DIM bUppercase AS BOOLEAN
  1142.             .FormatParaFontGet FontName$, PointSize!, Weight&, bItalic, Underline&, bStrikeThru, bOverscore, bUppercase
  1143.             IF FontName$ <> "" THEN FontName$ = QUOTE & FontName$ & QUOTE
  1144.             FontStr$ = ".FormatParaFont " &  FontName$ & ", " & (PointSize) & ", " & (Weight) & ", " & (bItalic) & ", " & (Underline) & ", " & (bStrikeThru) & ", " & (bOverscore) & ", " & (bUppercase) 
  1145.             PRINT #2, FontStr$
  1146.         
  1147.             'HYPHENATION////////////////////////////////////////////////////////////////////////////////////////////////////////
  1148.             DIM Automatic AS BOOLEAN
  1149.             DIM AtPageEnd AS BOOLEAN
  1150.             DIM AtLastWord AS BOOLEAN
  1151.             DIM ForCapital AS BOOLEAN
  1152.             .FormatParaHyphenationGet Automatic, Dict$, SuccessiveHyphs&, MinWordSize&, MinCharsBefore&, MinCharsAfter&, AtPageEnd, AtLastWord, ForCapital
  1153.             IF Dict$ <> "" THEN Dict$ = QUOTE & Dict$ & QUOTE
  1154.             HyphenationStr1$ = ".FormatParaHyphenation " & (Automatic) & ", " & Dict$ & ", " & (SuccessiveHyphs&) & ", " & (MinWordSize) & ", " & (MinCharsBefore) & ", "
  1155.             HyphenationStr2$ =  (MinCharsAfter) & ", " & (AtPageEnd) & ", " & (AtLastWord) & ", " & (ForCapital)
  1156.             HyphenationStr$ = HyphenationStr1$ & HyphenationStr2$
  1157.             PRINT #2,  HyphenationStr$
  1158.         
  1159.             'SPACING///////////////////////////////////////////////////////////////////////////////////////////////////////////
  1160.             DIM GrowInterline AS BOOLEAN
  1161.             DIM AddAbove AS BOOLEAN
  1162.             DIM AddAboveOnly AS BOOLEAN
  1163.             .FormatParaSpacingGet SpaceAfter&, SpaceBefore&, SpaceInterLine&, SpaceInterPara&, AASpace&, GrowInterline, AddAbove, AddAboveOnly, RotationAngle&, RotationHeight&
  1164.             SpacingStr1$ = ".FormatParaSpacing " & (SpaceAfter) & ", " & (SpaceBefore) & ", " & (SpaceInterLine) & ", " & (SpaceInterPara) & ", " & (AASpace&) & ", "
  1165.             SpacingStr2$ =  (GrowInterline) & ", " & (AddAbove) & ", " & (AddAboveOnly) & ", " & (RotationAngle) & ", " & (RotationHeight)
  1166.             SpacingStr$ = SpacingStr1$ & SpacingStr2$
  1167.             PRINT #2,  SpacingStr$
  1168.         
  1169.             'TAB AT///////////////////////////////////////////////////////////////////////////////////////////////////////////
  1170.             DIM Leader AS BOOLEAN
  1171.             .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  1172.             TabSetStr$ = ".FormatParaTabSet " &  (Location) & ", " & (Align) & ", " & (Leader) & ", " & (LeaderChar) & ", " & (LeaderSpacing)
  1173.             PRINT #2, TabSetStr$
  1174.         
  1175.             'TYPOGRAPHY///////////////////////////////////////////////////////////////////////////////////////////////////////////
  1176.             DIM LetterSpace AS BOOLEAN
  1177.             DIM Kerning AS BOOLEAN
  1178.             .FormatParaTypographyGet WordSpace&, MinWordSpace&, MaxWordSpace&, LetterSpace, MaxLetterSpace&, VJAbove&, VJBelow&, VJInterline&, Kerning
  1179.             TypographyStr1$ = ".FormatParaTypography " & (WordSpace) & ", " & (MinWordSpace) & ", " & (MaxWordSpace) & ", " & (LetterSpace) & ", " & (MaxLetterSpace) & ", "
  1180.             TypographyStr2$ =  (VJAbove) & ", " & (VJBelow) & ", " & (VJInterline) & ", " & (Kerning)
  1181.             TypographyStr$ = TypographyStr1$ & TypographyStr2$
  1182.             PRINT #2, TypographyStr$
  1183.         
  1184.             PRINT #2, ".FormatParaTagEnd"
  1185.              PRINT #2, CHR(13)
  1186.         NEXT i%
  1187.     
  1188.         PRINT #2, "END WITHOBJECT"
  1189. AllDone:
  1190.         CLOSE(2)
  1191.     END WITHOBJECT
  1192.     ENDWAITCURSOR
  1193.     MESSAGE ScriptFile$ & CHR(13) & "has been created." 
  1194.  
  1195. END SUB
  1196.  
  1197.  
  1198. ' **************************************************************************************
  1199. ' UseQP
  1200. ' This subroutine publishes style info to a Quattro Pro spreadsheet.
  1201. '
  1202. ' PARAMS: None
  1203. ' **************************************************************************************
  1204. SUB UseQP
  1205.     'write para tag info to temporary text file
  1206.     TempTextDir$ = GETTEMPFOLDER()
  1207.     TempTextFile$ = TempTextDir$ & "TempTextFile.txt"
  1208.     NEWLINE$ = CHR(13)
  1209.     TITLE_PREFIX$ = "@Title = "
  1210.     SECTION_PREFIX$ = "@Section = Paragraph Tag Settings"
  1211.     DIALOG_PREFIX$ = "@Dialog = "
  1212.     TAG_PREFIX$ = "@Tag Name = "    
  1213.     SPACE_CHAR$ = SPACE(8)
  1214.     PREFIX_CHAR$ = SPACE(8)
  1215.     UNITS_PREFIX$ = " *"
  1216.  
  1217.     BEGINWAITCURSOR
  1218.     UseTextFile(TempTextFile$)
  1219.     ENDWAITCURSOR
  1220.  
  1221.     BEGINWAITCURSOR
  1222.     UpdateQPMacro
  1223.     ENDWAITCURSOR
  1224.  
  1225.     'read temporary text file and write para tag info to a QP spreadsheet
  1226.     OPEN TempTextFile$ FOR INPUT AS 1
  1227.     
  1228.     'Get title of publication
  1229.     GetLine VPDir$
  1230.     'Get name of QP workbook
  1231.     GetLine QPName$
  1232.     
  1233.     'Get title of publication
  1234.     GetLine TitleText$
  1235.     pos% = INSTR(TitleText$, "=")
  1236.     lgth% = LEN(TitleText$)
  1237.     TitleText$ = MID(TitleText$, pos% + 2, lgth% - pos%)
  1238.     
  1239.     'Get section name
  1240.     GetLine SectionText$ 
  1241.     pos% = INSTR(SectionText$, "=")
  1242.     SectionText$ = MID(SectionText$, pos%+1)
  1243.     
  1244.     column% = 0
  1245.     row% = 4
  1246.     
  1247.     'Launch QP and create a new spreadsheet with para tag information
  1248.     BEGINWAITCURSOR
  1249.     WITHOBJECT "QuattroPro.PerfectScript"
  1250.         .FileNew
  1251.  
  1252.         .PUT "A:A1..IV999", 1, 0, TitleText$    'column, row
  1253.         .PUT "A:A1..IV999", 1, 1, SectionText$
  1254.         .PUT "A:A1..IV999", 0, 4, "Units"        'first column, fifth row
  1255.         DO
  1256.             GetLine InText$ 
  1257.             'Ignore if a blank line
  1258.             IF InText$ <> "" THEN
  1259.                 'check for tag name or dialog label
  1260.                 apos% = INSTR(InText$, "@")     
  1261.                 IF apos% <> 0 THEN
  1262.                     pos% = INSTR(InText$, "=")
  1263.                 ELSE
  1264.                     pos% = INSTR(InText$, ":")
  1265.                 ENDIF
  1266.                 lgth% = LEN(InText$)
  1267.                 DescText$= MID(InText$, apos%+1, pos% -1)
  1268.                 DescText$= LTRIM(DescText$)
  1269.                 CText$= MID(InText$, pos%+1, lgth%-pos%)
  1270.                 CText$= LTRIM(CText$)
  1271.  
  1272.                 'start a new row for each new tag name
  1273.                 pos% = INSTR(DescText$, "Tag Name =")     
  1274.                 IF pos% <> 0 THEN
  1275.                     column% = 0
  1276.                     row% = row% + 1
  1277.                 ENDIF
  1278.     
  1279.                 'dialog headings
  1280.                 pos% = INSTR(DescText$, "Dialog =")     
  1281.                 IF pos% <> 0 THEN
  1282.                     pos% = INSTR(CText$, ":")
  1283.                     lgth% = LEN(CText$)
  1284.                     DText$= MID(CText$, pos%+1 , lgth%-pos%)
  1285.                     dcolumn% = column%
  1286.                     .PUT "A:A1..IV999", dcolumn%, 2, DText$
  1287.                 ELSE
  1288.                     .PUT "A:A1..IV999", column%, 3, DescText$
  1289.                            pos% = INSTR(CText, " *")           'check for parameter UNITS
  1290.                          IF pos <> 0 THEN
  1291.                              .PUT "A:A1..IV999", column%, row%, MID(CText, 1, pos% - 1)   'parameter values
  1292.                              .PUT "A:A1..IV999", column%, 4, MID(CText, pos% + 2)         'parameter UNITS
  1293.                         ELSE
  1294.                             .PUT "A:A1..IV999", column%, row%, CText$                    'parameter values
  1295.                         ENDIF
  1296.                     column% = column% + 1
  1297.                 ENDIF
  1298.             ENDIF
  1299.         LOOP UNTIL EOF(1)
  1300.     
  1301.         'insert auto close macro to run on exit from file or application
  1302.         ExitScript$ = CHR(123) & "playperfectscript " & QUOTE & QPFile$ & QUOTE & CHR(125)
  1303.         .BlockName_Create "_nbexitmacro", "A:A1..A:A1"
  1304.         .PUT "A:A1..A:A1", 0, 0, ExitScript$
  1305.         .FileSaveAs OutputFile$
  1306.         ENDWAITCURSOR
  1307.         MESSAGE "Listing completed successfully." & CHR(13) & "You will be prompted on close to apply changes to a new Ventura publication."
  1308.     END WITHOBJECT
  1309.     CLOSE    'close text file 
  1310.     KILL TempTextFile$
  1311. END SUB
  1312.  
  1313.  
  1314.  
  1315. ' **************************************************************************************
  1316. ' UpDateQPMacro 
  1317. ' This subroutine creates the PerfectScript macro used by QuattroPro to  extract the 
  1318. ' para tag info from the spreadsheet and bring it back into Ventura
  1319. ' PARAMS:None
  1320. ' **************************************************************************************
  1321. SUB UpDateQPMacro
  1322.     first% = 1
  1323.     pos% = 1
  1324.     WHILE first% <> 0
  1325.         first% = INSTR(OutputFile$, ".", first%)
  1326.             IF first% <> 0 THEN
  1327.                   pos% = first%
  1328.                   first% = first% + 1
  1329.             ENDIF
  1330.     WEND
  1331.     QPFile$ = MID(OutputFile$, 1, pos% - 1)
  1332.     QPFile$ = QPFile$ & ".wcm"
  1333.     KILL QPFile$
  1334.     WAIT FOR 1
  1335.  
  1336.     WITHOBJECT "WordPerfect.PerfectScript"
  1337.         .AppMinimize
  1338.         .FileNew
  1339.         .SingleSmartQuote 1053    '(OpenSingleQuote: 1053)
  1340.         .SingleSmartQuote 1052    '(CloseSingleQuote: 1052)
  1341.         .DoubleSmartQuote 1056
  1342.         .DoubleSmartQuote 1055
  1343.         .Type "RegKey = RegistryOpenKey(LocalMachine!; " & QUOTE & VENTURA_REGQUERY_CONST & QUOTE & ")"
  1344.         .HardReturn
  1345.         .Type "VPDir:=RegistryQueryValue(RegKey; " & QUOTE & "Destination"  & QUOTE & ")"
  1346.         .HardReturn
  1347.         .Type "BMPFile:= VPDir + " & QUOTE & "\Ventura\Scripts\Bitmaps\Step2bmp.bmp" & QUOTE
  1348.         .HardReturn
  1349.         .Type "WBFile := " & QUOTE & OutputFile$ & QUOTE    
  1350.         .HardReturn
  1351.         .HardReturn
  1352.     
  1353.         .Type "//Prompt user to save workbook file"
  1354.         .HardReturn
  1355.         .Type "NewWBFile := FileNameDialog(StyleOptions:SaveAsDialog!; InitialFileName:WBFile)"
  1356.         .HardReturn
  1357.         .Type "IF (NewWBFile != " & QUOTE & QUOTE & ")"  
  1358.         .HardReturn
  1359.         .Type "     WBFile := NewWBFile"
  1360.         .HardReturn
  1361.         .Type "ENDIF"
  1362.         .HardReturn
  1363.         .HardReturn
  1364.     
  1365.         .Type "Yes := 6"
  1366.         .HardReturn
  1367.         .Type "No := 7"
  1368.         .HardReturn
  1369.         .Type "//prompt user to apply hanges to Ventura"
  1370.         .HardReturn
  1371.         .Type "ans = MessageBox(Status:x; Caption:" & QUOTE & "QuattroPro" & QUOTE & "; Message:" & QUOTE & "Would you like to apply changes to VENTURA?" & QUOTE & "; YesNo!|IconQuestion!)"
  1372.         .HardReturn
  1373.         .HardReturn
  1374.         .Type "IF(ans = No)"
  1375.         .HardReturn
  1376.         .Type "    QUIT"
  1377.         .HardReturn
  1378.         .Type "ELSE"
  1379.         .HardReturn
  1380.         .HardReturn
  1381.     
  1382.         .Type "//Get temp text file location"
  1383.         .HardReturn
  1384.         .Type "TempPathLength= 255"
  1385.         .HardReturn
  1386.         .Type "TempPath = STRFILL( 255; " & QUOTE & SPACE(1) & QUOTE & ")"
  1387.         .HardReturn
  1388.         .Type "DLLLoad(WinHand; " & QUOTE & "Kernel32.dll" & QUOTE & " )"
  1389.         .HardReturn
  1390.         .Type "DLLCall( WinHand; " & QUOTE & "GetTempPathA" & QUOTE & "; PathLength; Integer!; {TempPathLength; ADDRESS(TempPath)})"
  1391.         .HardReturn
  1392.         .Type "TempPath =STRTRIM(TempPath; PathLength-1; TrimLeft!)"
  1393.         .HardReturn
  1394.         .Type "DLLFree(WinHand)"
  1395.         .HardReturn
  1396.         .Type "TempTextFile = TempPath + " & QUOTE & "TempTextFile.txt" & QUOTE
  1397.         .HardReturn
  1398.         .HardReturn
  1399.  
  1400.  
  1401.         REM 
  1402.         .Type "WaitMsgInit()"
  1403.         .HardReturn
  1404.         .Type "WaitMsgDisplay ("  & QUOTE & "Reading spreadsheet..." & QUOTE & ")"
  1405.         .HardReturn
  1406.         .Type "//Launch QP and open workbook file"
  1407.         .HardReturn
  1408.         .Type  "APPLICATION (QuattroPro; " & QUOTE & "QuattroPro" & QUOTE & "; Default;" & QUOTE & "US" & QUOTE & ")"
  1409.         .HardReturn
  1410.         .Type  "FILEOPEN(WBFile)"
  1411.         .HardReturn
  1412.         .HardReturn
  1413.         .Type "//Open temp text file for writing from start of file"
  1414.         .HardReturn
  1415.         .Type "TextFile = OPENFILE( TempTextFile; Write!; None!; AnsiText!)"
  1416.         .HardReturn
  1417.         .Type "FILEPOSITION(TextFile; 0; FromBeginning!)"
  1418.         .HardReturn
  1419.         .HardReturn
  1420.  
  1421.         .Type "//Get title of publication and section name and write to file"
  1422.         .HardReturn
  1423.         .Type "SelectBlock (" & QUOTE & "A:A1..IV999" & QUOTE & ")"
  1424.         .HardReturn
  1425.         .Type "c=" & QUOTE & "1" & QUOTE
  1426.         .HardReturn
  1427.         .Type "r=" & QUOTE & "0" & QUOTE
  1428.         .HardReturn
  1429.         .Type "TitleText = GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(" & QUOTE & "+r+" & QUOTE & ")" & QUOTE & ")"
  1430.         .HardReturn
  1431.         .Type "TitleText = " & QUOTE & "@Title = " & QUOTE & "+ GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(" & QUOTE & "+r+" & QUOTE & ")" & QUOTE & ")"
  1432.         .HardReturn
  1433.         .Type "r= " & QUOTE & "1" & QUOTE
  1434.         .HardReturn
  1435.         .Type "SectionText = GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(" & QUOTE & "+r+" & QUOTE & ")" & QUOTE & ")"
  1436.         .HardReturn
  1437.         .Type "SectionText = " & QUOTE & "@Section = " & QUOTE & " +  SectionText"
  1438.         .HardReturn
  1439.         .Type "BlankLine = " & QUOTE & QUOTE 
  1440.         .HardReturn
  1441.         .Type "FILEWRITE(TextFile; " & QUOTE & "QUATTROPRO" & QUOTE & "; NewLine!;)"
  1442.         .HardReturn
  1443.         .Type "FILEWRITE(TextFile; TitleText; NewLine!;)"
  1444.         .HardReturn
  1445.         .Type "FILEWRITE(TextFile; TitleText; NewLine!;)"
  1446.         .HardReturn
  1447.         .Type "FILEWRITE(TextFile; SectionText; NewLine!;)"
  1448.         .HardReturn
  1449.         .Type "FILEWRITE(TextFile; BlankLine; NewLine!;)"
  1450.         .HardReturn
  1451.         .HardReturn
  1452.         .Type "         r := 5"
  1453.         .HardReturn
  1454.         .Type "        //LOOP for every tag"
  1455.         .HardReturn
  1456.         .Type "        REPEAT"
  1457.         .HardReturn
  1458.         .Type "            c := 0"
  1459.         .HardReturn
  1460.         .Type "            TagName = GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(" & QUOTE & "+r+" & QUOTE & ")" & QUOTE & ")"
  1461.         .HardReturn
  1462.         .Type "            IF (TagName = " & QUOTE & QUOTE & ")"
  1463.         .HardReturn
  1464.         .Type "                FileExit(DoSave?:No!)"
  1465.         .HardReturn
  1466.         .Type "                AppExecute(CommandLine:VPDir + " & QUOTE & "\Ventura\Scripts\NewStyle.exe" & QUOTE & ")"
  1467.         .HardReturn
  1468.         .Type "                RETURN"
  1469.         .HardReturn
  1470.         .Type "            ENDIF"
  1471.         .HardReturn
  1472.         .HardReturn
  1473.     
  1474.         .Type "            TagName := " & QUOTE & "@TagName = "  & QUOTE & " + TagName"
  1475.         .HardReturn
  1476.         .Type "            FILEWRITE(TextFile; BlankLine; NewLine!;)"
  1477.         .HardReturn
  1478.         .Type "            FILEWRITE(TextFile; TagName; NewLine!;)"
  1479.         .HardReturn
  1480.         .Type "            c := 1"
  1481.         .HardReturn
  1482.     
  1483.         .Type "            REPEAT"
  1484.         .HardReturn
  1485.         .Type "                //get dialog label (row 3)"
  1486.         .HardReturn
  1487.         .Type "                DialogLabel := GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(2)" & QUOTE & ")"
  1488.         .HardReturn
  1489.         .Type "                  IF (DialogLabel != " & QUOTE & QUOTE & ")"
  1490.         .HardReturn
  1491.         .Type "                    DialogLabel := " & QUOTE & "@Dialog = Paragraph Properties : " & QUOTE & " + DialogLabel"
  1492.         .HardReturn
  1493.         .Type "                    FILEWRITE(TextFile; BlankLine; NewLine!;)"
  1494.         .HardReturn
  1495.         .Type "                    FILEWRITE(TextFile; DialogLabel; NewLine!;)"
  1496.         .HardReturn
  1497.         .Type "                ENDIF"
  1498.         .HardReturn
  1499.         .HardReturn
  1500.     
  1501.         .Type "                   AttributeLabel := GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(3)" & QUOTE & ")"
  1502.         .HardReturn
  1503.         .Type "                 AttributeValue := GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(" & QUOTE & "+r+" & QUOTE & ")" & QUOTE & ")"
  1504.         .HardReturn
  1505.         .Type "                   AttributeUnit := GetCellValue(+" & QUOTE & "C(" & QUOTE & "+c+" & QUOTE & ")R(4)" & QUOTE & ")"
  1506.         .HardReturn
  1507.  
  1508.         .Type "                IF (AttributeLabel != " & QUOTE & QUOTE & ")"
  1509.         .HardReturn
  1510.         .Type "                    IF (AttributeUnit != " & QUOTE & QUOTE & ")"
  1511.         .HardReturn
  1512.         .Type "                        AttributeString :=  " & QUOTE & "     "  & QUOTE & "+  AttributeLabel + " & QUOTE & ":     " & QUOTE & " + AttributeValue + " & QUOTE & " *" & QUOTE & " + AttributeUnit"
  1513.         .HardReturn
  1514.         .Type "                    ELSE"
  1515.         .HardReturn
  1516.         .Type "                        AttributeString :=  " & QUOTE & "     "  & QUOTE & "+  AttributeLabel + " & QUOTE & ":     " & QUOTE & " + AttributeValue"
  1517.         .HardReturn
  1518.         .Type "                    ENDIF"
  1519.         .HardReturn
  1520.         .Type "                    FILEWRITE(TextFile; AttributeString; NewLine!;)"
  1521.         .HardReturn
  1522.         .Type "                ENDIF"
  1523.         .HardReturn
  1524.         .Type "                c = c + 1"
  1525.         .HardReturn
  1526.         .Type "            UNTIL  (AttributeLabel = " & QUOTE & QUOTE & ")"
  1527.         .HardReturn
  1528.         .Type "            r = r + 1           // go to next row"
  1529.         .HardReturn
  1530.         .Type "        UNTIL  (TagName = " & QUOTE & QUOTE & ")"
  1531.         .HardReturn
  1532.         .Type "    FileClose(DoSave?:No!)"
  1533.         .HardReturn
  1534.         .Type "    CLOSEFILE"
  1535.         .HardReturn
  1536.         .Type "ENDIF"
  1537.         .HardReturn
  1538.         .Type "WaitMsgHide()"
  1539.         .HardReturn
  1540.         .Type "RETURN"
  1541.         .HardReturn
  1542.         .HardReturn
  1543.     
  1544.         .Type "//****************************************"
  1545.         .HardReturn
  1546.         .Type "//    PROCEDURE: WaitMsgInit ()"
  1547.         .HardReturn
  1548.         .Type "//    PURPOSE: Initializes macro wait messages."
  1549.         .HardReturn
  1550.         .Type "//****************************************"
  1551.         .HardReturn
  1552.         .Type "PROCEDURE WaitMsgInit()"
  1553.         .HardReturn
  1554.         .Type "DialogDefine (" & QUOTE & "WaitMsg" & QUOTE & "; 50; 50; 150; 36; 16; " & QUOTE & "Please Wait" & QUOTE & ")"
  1555.         .HardReturn
  1556.         .Type "DialogAddText (" & QUOTE & "WaitMsg" & QUOTE & "; " & QUOTE & "WaitText" & QUOTE & "; 8; 14; 144; 16; 1; " & QUOTE & QUOTE & ")"
  1557.         .HardReturn
  1558.         .Type "DialogLoad (" & QUOTE & "WaitMsg" & QUOTE & ")"
  1559.         .HardReturn
  1560.         .Type "Return"
  1561.         .HardReturn
  1562.         .Type "ENDPROC"
  1563.         .HardReturn
  1564.         .HardReturn
  1565.  
  1566.         .Type "//****************************************"
  1567.         .HardReturn
  1568.         .Type "//    PROCEDURE: WaitMsgDisplay (Text)"
  1569.         .HardReturn
  1570.         .Type "//    PURPOSE: Displays a previously defined wait message dialog."
  1571.         .HardReturn
  1572.         .Type "//****************************************"
  1573.         .HardReturn
  1574.         .Type "PROCEDURE WaitMsgDisplay (Text)"
  1575.         .HardReturn
  1576.         .Type "RegionSetWindowText (" & QUOTE & "WaitMsg" & QUOTE & " + " & QUOTE & ".WaitText" & QUOTE & "; Text)"
  1577.         .HardReturn
  1578.         .Type "DialogShow (" & QUOTE & "WaitMsg" & QUOTE & ";; WaitDlgCallBack)"
  1579.         .HardReturn
  1580.         .Type "ENDPROC"
  1581.         .HardReturn
  1582.         .HardReturn
  1583.  
  1584.         .Type "PROCEDURE WaitDlgCallBack ()"
  1585.         .HardReturn
  1586.         .Type "If (WaitDlgCallBack[5] = 274 And WaitDlgCallBack[6] = 61536)"
  1587.         .HardReturn
  1588.         .Type "    Assert (CancelCondition!)"
  1589.         .HardReturn
  1590.         .Type "EndIf"
  1591.         .HardReturn
  1592.         .Type "ENDPROC"
  1593.         .HardReturn
  1594.         .HardReturn
  1595.  
  1596.         .Type "//****************************************"
  1597.         .HardReturn
  1598.         .Type "//    PROCEDURE: WaitMsgHide"
  1599.         .HardReturn
  1600.         .Type "//    PURPOSE: Hides a previously defined wait message dialog."
  1601.         .HardReturn
  1602.         .Type "//****************************************"
  1603.         .HardReturn
  1604.         .Type "PROCEDURE WaitMsgHide ()"
  1605.         .HardReturn
  1606.         .Type "DialogUndisplay (" & QUOTE & "WaitMsg" & QUOTE & "; " & QUOTE & "WaitText" & QUOTE & ")"
  1607.         .HardReturn
  1608.         .Type "ENDPROC"
  1609.         .HardReturn
  1610.         .HardReturn
  1611.  
  1612.         .FileSave QPFile$
  1613.         .ExitWordPerfect
  1614.     END WITHOBJECT
  1615. WAIT FOR 2
  1616. END SUB
  1617.  
  1618.  
  1619.  
  1620. ' **************************************************************************************
  1621. ' UseExcel 
  1622. ' This subroutine writes style info to a text file, then launches Excel and 
  1623. ' reads the style info from the text file into Excel
  1624. ' 
  1625. ' PARAMS:None
  1626. ' **************************************************************************************
  1627. SUB UseExcel
  1628. ON ERROR GOTO ErrorHandler
  1629.     'create file to use as Excel auto close macro
  1630.     CreateAutoCloseFile
  1631.  
  1632.     'create string for macro [ExcelPar.xls]
  1633.     MacroLocale$ = VenturaDir$ & "\Ventura\Scripts\ExcelPar.xls"
  1634.     IF INSTR(MacroLocale$, " ") <> 0 THEN    'no spaces in path, don't use quotes
  1635.         MacroLocale$ = QUOTE & MacroLocale$ & QUOTE    'spaces in path, enclose in quotes
  1636.     ENDIF
  1637.  
  1638.     'create string for executable command [Excel path + Excel macro name and path]
  1639.     ExcelPath$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE","")
  1640.     exeName$ = ExcelPath$ & " " & MacroLocale$ 
  1641.  
  1642.     'write para tag info to temporary text file
  1643.     TempTextDir$ = GETTEMPFOLDER()
  1644.     TempTextFile$ = TempTextDir$ & "TempTextFile.txt"
  1645.     NEWLINE$ = CHR(13)
  1646.     TITLE_PREFIX$ = "@Title = "
  1647.     SECTION_PREFIX$ = "@Section = Paragraph Tag Properties"
  1648.     DIALOG_PREFIX$ = "@Dialog = "
  1649.     TAG_PREFIX$ = "@Tag Name = "    
  1650.     SPACE_CHAR$ = SPACE(8)
  1651.     PREFIX_CHAR$ = SPACE(8)
  1652.     UNITS_PREFIX$ = " *"
  1653.  
  1654.     BEGINWAITCURSOR
  1655.     UseTextFile(TempTextFile$)
  1656.     ENDWAITCURSOR
  1657.  
  1658.     'launch Excel and execute macro
  1659.     BEGINWAITCURSOR
  1660.     STARTPROCESS(exeName$)
  1661.     ENDWAITCURSOR
  1662.  
  1663.     'launch Excel and execute macro
  1664. REM     BEGINWAITCURSOR
  1665. REM     WinID& = FindWindow("XLMAIN", 0)
  1666. REM     WinID& = FindWindow("XLMAIN", 0)
  1667. REM     IF WinID& <> 0 THEN     'Excel is open
  1668. REM         x& = ShellExecute(WinID&, "open", MacroLocale$, "", "", SW_SHOWNORMAL ) 
  1669. REM     ELSE
  1670. REM         STARTPROCESS(exeName$)
  1671. REM     ENDIF
  1672. REM 
  1673. REM     ENDWAITCURSOR
  1674.     
  1675. SubEnd:
  1676. EXIT SUB
  1677.  
  1678. ErrorHandler:
  1679.     SELECT CASE ErrNum
  1680.         CASE ELSE
  1681.             MESSAGE "Error" & STR(ErrNum)
  1682.             RESUME AT SubEnd
  1683.     END SELECT
  1684.  
  1685. END SUB
  1686.  
  1687.  
  1688. ' **************************************************************************************
  1689. ' CreateAutoCloseFile 
  1690. ' This subroutine creatyes the AutoClose macro used by Excel to  extract the 
  1691. ' para tag info from the spreadsheet and bring it back into Ventura
  1692. ' PARAMS:None
  1693. ' **************************************************************************************
  1694. SUB CreateAutoCloseFile
  1695.     CLOSE
  1696.     'open text file to write code to for Excel autoclose macro
  1697.     TempTextDir$ = GETTEMPFOLDER()
  1698.     AutoCloseFile$ = TempTextDir$ & "SaveCode.txt"
  1699.     OPEN AutoCloseFile$ FOR OUTPUT AS  1
  1700.  
  1701.     PRINT #1, "Declare Function GetTempPath Lib " & QUOTE & "kernel32" & QUOTE  & "Alias" & QUOTE  & "GetTempPathA" & QUOTE & "(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long" 
  1702.     PRINT #1, "'this sub runs when the file is closed and promts the user whether to to apply changes to Ventura"
  1703.     PRINT #1, "Sub Auto_Close()"
  1704.     PRINT #1,
  1705.     PRINT #1, "On Error Resume Next"
  1706.  
  1707.     PRINT #1, "SheetNum = 1"
  1708.     PRINT #1, "With Worksheets(SheetNum)"
  1709.     PRINT #1, "   Worksheets(SheetNum).Activate"
  1710.     PRINT #1, "   TitleText = .Cells(1, 2).Formula"
  1711.     PRINT #1, "End With"
  1712.     PRINT #1, 
  1713.     PRINT #1, "Msg = " & QUOTE & "Do you want to save changes to " & QUOTE & " + TitleText + " & QUOTE & "?" & QUOTE 
  1714.  
  1715.     PRINT #1, "Style = vbYesNoCancel + vbQuestion + vbDefaultButton2"
  1716.     PRINT #1, "Title = " & QUOTE & "Microsoft Excel" & QUOTE
  1717.     PRINT #1,
  1718.  
  1719.     PRINT #1, "SaveResponse = MsgBox(Msg, Style, Title)"
  1720.     PRINT #1, "If SaveResponse = vbYes Then"   
  1721.     PRINT #1, "    fileSaveName = Application.GetSaveAsFilename(fileFilter:=" & QUOTE & "Microsoft Excel Workbook (*.xls), *.xls" & QUOTE & ")"
  1722.     PRINT #1, "    If fileSaveName <> False Then"
  1723.        PRINT #1, "        ActiveWorkbook.SaveAs filename:=fileSaveName"
  1724.        PRINT #1, "    End If"
  1725.        PRINT #1, "ElseIf SaveResponse = vbCancel Then"
  1726.        PRINT #1, "    Workbooks(TitleText).Activate"
  1727.        PRINT #1, "    Exit Sub"
  1728.        PRINT #1, "End If"
  1729.        PRINT #1,     
  1730.  
  1731.        PRINT #1, "Msg = " & QUOTE & "Do you want to apply changes to VENTURA ?" & QUOTE 
  1732.        PRINT #1, "Style = vbYesNoCancel + vbQuestion + vbDefaultButton2"
  1733.        PRINT #1, "Title = " & QUOTE & "Microsoft Excel" & QUOTE 
  1734.        PRINT #1,
  1735.        PRINT #1, "ApplyResponse = MsgBox(Msg, Style, Title)"
  1736.        PRINT #1, "If ApplyResponse = vbYes Then"   
  1737.        PRINT #1, "    ApplyChanges"   
  1738.        PRINT #1, "    ActiveWorkbook.Close saveChanges:=False"   
  1739.        PRINT #1, "ElseIf ApplyResponse = vbCancel Then"   
  1740.        PRINT #1, "     Exit Sub"   
  1741.        PRINT #1, "Else"
  1742.        PRINT #1, "    ActiveWorkbook.Close saveChanges:=False"
  1743.        PRINT #1, "End If"
  1744.        PRINT #1, "End Sub"
  1745.        PRINT #1,
  1746.        PRINT #1,
  1747.  
  1748.        PRINT #1, "Sub ApplyChanges()"
  1749.        PRINT #1, "Dim TempPath$"
  1750.        PRINT #1, "Dim TempPathLength&"
  1751.        PRINT #1, "TempPath$ = Space(255)"
  1752.        PRINT #1, "TempPathLength& = 255"
  1753.        PRINT #1, "PathLength& = GetTempPath(TempPathLength&, TempPath$)"
  1754.        PRINT #1, "TempPath$ = Left$(TempPath$, PathLength&)"
  1755.        PRINT #1, "TempFile$ = " & "TempPath$" & " + "& QUOTE & "TempTextFile.TXT" & QUOTE
  1756.        PRINT #1, "If PathLength& > 0 Then"
  1757.        PRINT #1, "    ChDir (TempPath$)"
  1758.        PRINT #1, "Else"
  1759.        PRINT #1, "    MsgBox ("& QUOTE & "Cannot locate temporary directory" & QUOTE & ")"
  1760.        PRINT #1, "    Stop"
  1761.        PRINT #1, "End If"
  1762.        PRINT #1,
  1763.  
  1764.        PRINT #1, "SheetNum = 1"
  1765.        PRINT #1, "With Worksheets(SheetNum)"
  1766.       PRINT #1, "Close"
  1767.     PRINT #1, "Open TempFile$ For Output As #1"
  1768.     PRINT #1, "Worksheets(SheetNum).Activate"
  1769.     PRINT #1, "TitleText = .Cells(1, 2).Formula"
  1770.     PRINT #1, " SectionText = .Cells(2, 2).Formula"
  1771.     PRINT #1, "Print #1, " & QUOTE & "EXCEL" & QUOTE 
  1772.     PRINT #1, "Print #1, " & QUOTE & "EXCEL" & QUOTE 
  1773.     PRINT #1, "Print #1, " & QUOTE & "@Title = " & QUOTE & "; TitleText"
  1774.     PRINT #1, "Print #1, " & QUOTE & "@Section = " & QUOTE & "; SectionText"
  1775.     PRINT #1, "Print #1,"
  1776.  
  1777.     PRINT #1, "r = 6"
  1778.     PRINT #1, "c = 1"
  1779.     PRINT #1, "'LOOP for every tag"
  1780.     PRINT #1, "Do"
  1781.     PRINT #1, "       TagName = .Cells(r, 1).Formula"
  1782.     PRINT #1, "       If TagName = " & QUOTE & QUOTE & " Then Exit Do"
  1783.     PRINT #1, "       Print #1,"      
  1784.     PRINT #1, "       Print #1, " & QUOTE & "@TagName = " & QUOTE & "; TagName"
  1785.     PRINT #1, "       c = 2"
  1786.     PRINT #1, "    Do"
  1787.     PRINT #1, "       DialogLabel = .Cells(3, c).Formula"
  1788.     PRINT #1, "       If DialogLabel <> " & QUOTE & QUOTE & " Then"
  1789.     PRINT #1, "           Print #1," 
  1790.     PRINT #1, "           Print #1, " & QUOTE & "@Dialog = Paragraph Properties : " & QUOTE & "; DialogLabel"
  1791.     PRINT #1, "       End If"
  1792.     PRINT #1, "       AttributeLabel = .Cells(4, c).Formula"
  1793.     PRINT #1, "       AttributeValue = .Cells(r, c).Formula"
  1794.     PRINT #1, "       AttributeUnit = .Cells(5, c).Formula"
  1795.     PRINT #1, "       If AttributeLabel <> " & QUOTE & QUOTE & " Then"
  1796.     PRINT #1, "           If AttributeUnit <> " & QUOTE & QUOTE & " Then"
  1797.     PRINT #1, "              Print #1, Spc(5); AttributeLabel; Spc(5); AttributeValue; " & QUOTE & " *" & QUOTE & "; AttributeUnit"
  1798.     PRINT #1, "         Else"
  1799.     PRINT #1, "              Print #1, Spc(5); AttributeLabel; Spc(5); AttributeValue"
  1800.     PRINT #1, "         End If"
  1801.     PRINT #1, "       End If"
  1802.     PRINT #1, "       c = c + 1"
  1803.     PRINT #1, "    Loop Until AttributeLabel = " & QUOTE & QUOTE
  1804.     PRINT #1, "    r = r + 1"           
  1805.     PRINT #1, "Loop Until TagName = " & QUOTE & QUOTE
  1806.     PRINT #1, "Close #1"
  1807.     PRINT #1, "End With"
  1808.     PRINT #1, "RetVal = Shell(" & QUOTE & VenturaDir$ & "\VENTURA\SCRIPTS\NEWSTYLE.EXE" & QUOTE & ", 1)"
  1809.     PRINT #1, "End Sub"
  1810.     CLOSE
  1811. END SUB
  1812.  
  1813.  
  1814. ' **************************************************************************************
  1815. ' UseTextFile
  1816. ' This function obtains the para tag information for each Paragraph tag in the specified 
  1817. ' publication, and writes this information to the specified text file.
  1818. ' 
  1819. ' PARAMS: Name of text file to use
  1820. '
  1821. ' RETURNS: UseTextFile AS INTEGER - Integer indicating dialog return value(user selection)
  1822. ' **************************************************************************************
  1823. SUB UseTextFile(TextFile$)
  1824.  
  1825. WITHOBJECT OBJECT_VENTURA8
  1826.     CLOSE    ' close any text files that might have been left open
  1827.     OPEN TextFile$ FOR OUTPUT AS  1 
  1828.     NameOfPub$=UCASE(InputFile$)
  1829.     
  1830.     'print directories to text file if outputting to a spreadsheet
  1831.     IF SelectedApp& = PUBLISH_TO_QUATTROPRO OR SelectedApp& = PUBLISH_TO_EXCEL THEN 
  1832.         PRINT #1, VenturaDir$ & NEWLINE$
  1833.         PRINT #1, OutputFile$ & NEWLINE$
  1834.     ENDIF
  1835.     PRINT #1, TITLE_PREFIX$ & NameOfPub$ & NEWLINE$
  1836.  
  1837.     'display master page settings if outputting to Ventura or Text file
  1838.     IF SelectedApp& = PUBLISH_TO_VENTURA OR SelectedApp& = PUBLISH_TO_TEXT THEN 
  1839.         PRINT #1, "@Main Heading = Page Tag Properties" & NEWLINE$
  1840.         MPCount& = .MasterPageCount()
  1841.         ' get settings for each master page
  1842.         FOR i% = 1 TO MPCount&
  1843.             CurrentMP$ = .MasterPageGetAt(i%)
  1844.             GetMasterPageGeneral CurrentMP$        'get general master page settings
  1845.             PRINT #1, DIALOG_PREFIX$ & "Page Tag Properties : Left Page Margins" & NEWLINE$
  1846.             GetMasterPageMargins CurrentMP$, FALSE    'get margin settings for LEFT Master page
  1847.             PRINT #1, DIALOG_PREFIX$ & "Page Tag Properties : Right Page Margins" & NEWLINE$
  1848.             GetMasterPageMargins CurrentMP$, TRUE    'get margin settings for RIGHT Master page
  1849.             PRINT #1, DIALOG_PREFIX$ & "Page Tag Properties : Left Page Columns" & NEWLINE$
  1850.             GetMasterPageColumns CurrentMP$, FALSE    'get column settings for LEFT Master page
  1851.             PRINT #1, DIALOG_PREFIX$ & "Page Tag Properties : Right Page Columns" & NEWLINE$
  1852.             GetMasterPageColumns CurrentMP$, TRUE    'get column settings for RIGHT Master page
  1853.         NEXT i%
  1854.     ENDIF
  1855.     .ViewPageLayout        ' make sure PageLayout view is active
  1856.  
  1857.     'heading for paragraph tag settings
  1858.     PRINT #1, SECTION_PREFIX$ & NEWLINE$
  1859.  
  1860.     NumTags%=.ParaTagCount()        'get total number of tags in the publication
  1861.     ' get para tag attributes for every para tag
  1862.     FOR i%=1 TO NumTags%
  1863.         TagName$=.ParaTagGetAt(i)
  1864.         IF TagName$ = "" THEN GOTO AllDone
  1865.         PRINT #1, CHR(13)
  1866.         PRINT #1, CHR(13)
  1867.         PRINT #1, TAG_PREFIX$ & TagName$ & NEWLINE$
  1868.  
  1869.         .FormatParaTagBegin TagName$    ' specify which tag to get attributes for 
  1870.         GetParaFontInfo            ' get paragraph font attributes
  1871.         GetParaColorInfo FALSE        ' get paragraph color attributes for FONT    
  1872.         GetParaColorInfo TRUE        ' get paragraph color attributes for BACKGROUND
  1873.         GetParaEffects                ' get paragraph effects 
  1874.         GetEffectFontInfo            ' get paragraph effect font attributes
  1875.         GetEffectColorInfo FALSE        ' get paragraph effect font color attributes for FONT    
  1876.         GetEffectColorInfo TRUE        ' get paragraph effect font color attributes for BACKGROUND
  1877.  
  1878.         GetParaAlignmentInfo        ' get paragraph alignment attributes
  1879.         GetParaSpacingInfo            ' get paragraph spacing attributes
  1880.         GetParaTabInfo                ' get paragraph tab attributes
  1881.         GetParaBreaksInfo            ' get paragraph breaks attributes
  1882.         GetParaHyphenationInfo        ' get paragraph hyphenation attributes
  1883.         GetParaTypographyInfo        ' get paragraph typography attributes
  1884.         GetParaDefaultsInfo            ' get paragraph default attributes
  1885.         PRINT #1, NEWLINE$            '
  1886.     NEXT i
  1887.  
  1888. AllDone:
  1889.         IF CloseVal&=1 THEN .FileClose 2    'Close vent pub if user wants to
  1890.         CLOSE 1                        'Close text file 
  1891.     END WITHOBJECT
  1892. END SUB
  1893.  
  1894.  
  1895. ' **************************************************************************************
  1896. ' GetMasterPageGeneral
  1897. ' This subroutine obtains the general settings for the master page specified by MasterPageName$, 
  1898. ' and prints the information to the open text file
  1899. ' 
  1900. ' PARAMS: MasterPageName$ - the name of the master page from which attributes are to be obtained
  1901. ' **************************************************************************************
  1902. SUB GetMasterPageGeneral(MasterPageName$)
  1903. DIM Orientation AS BOOLEAN
  1904.  
  1905.     WITHOBJECT OBJECT_VENTURA8
  1906.  
  1907.         .FormatMasterPageGet Orientation, PaperType&, Width&, Height&, MasterPageName$
  1908.         PRINT #1, "@Minor Heading = " & "Page Tag Name = " & MasterPageName$ & NEWLINE$
  1909.         PRINT #1, DIALOG_PREFIX$ & "Page Tag Properties : General" & NEWLINE$
  1910.         IF Orientation = FALSE THEN 
  1911.             PRINT #1, PREFIX_CHAR$ & "Page Orientation: " & SPACE_CHAR$ & "Landscape" & NEWLINE$
  1912.         ELSE
  1913.             PRINT #1, PREFIX_CHAR$ & "Page Orientation: " & SPACE_CHAR$ & "Portrait" & NEWLINE$
  1914.         END IF
  1915.     
  1916.         SELECT CASE PaperType&
  1917.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Letter" & NEWLINE$
  1918.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Legal" & NEWLINE$
  1919.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Tabloid"  & NEWLINE$
  1920.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Statement/Half" & NEWLINE$
  1921.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Executive" & NEWLINE$
  1922.             CASE 5    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Fan fold" & NEWLINE$
  1923.             CASE 6    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Double"  & NEWLINE$
  1924.             CASE 7    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Broad sheet" & NEWLINE$
  1925.             CASE 8    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "A2" & NEWLINE$
  1926.             CASE 9    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "A3" & NEWLINE$
  1927.             CASE 10    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "A4"  & NEWLINE$
  1928.             CASE 11    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "A5" & NEWLINE$
  1929.             CASE 12    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "A6" & NEWLINE$
  1930.             CASE 13    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "B4" & NEWLINE$
  1931.             CASE 14    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "B5"  & NEWLINE$
  1932.             CASE 15    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "C3" & NEWLINE$
  1933.             CASE 16    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "C4" & NEWLINE$
  1934.             CASE 17    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "C5" & NEWLINE$
  1935.             CASE 18    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "C6"  & NEWLINE$
  1936.             CASE 19    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "RA2" & NEWLINE$
  1937.             CASE 20    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "RA3"  & NEWLINE$
  1938.             CASE 21    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "RA4" & NEWLINE$
  1939.             CASE 22    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "SRA3" & NEWLINE$
  1940.             CASE 23    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "SRA4" & NEWLINE$
  1941.             CASE 24    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope #9"  & NEWLINE$
  1942.             CASE 25    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope #10" & NEWLINE$
  1943.             CASE 26    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope #11" & NEWLINE$
  1944.             CASE 27    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope #12" & NEWLINE$
  1945.             CASE 28    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope #14"  & NEWLINE$
  1946.             CASE 29    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope monarch" & NEWLINE$
  1947.             CASE 30    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Envelope check"  & NEWLINE$
  1948.             CASE 31    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "DL" & NEWLINE$
  1949.             CASE 32    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "German fan fold" & NEWLINE$
  1950.             CASE 33    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "German legal fan fold" & NEWLINE$
  1951.             CASE 34    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Custom"  & NEWLINE$
  1952.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Paper Type: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  1953.         END SELECT
  1954.         DBLWidth# = CDBL(Width&)
  1955.         ConvertTo DimensionUnits&, DBLWidth#
  1956.         PRINT #1, PREFIX_CHAR$ & "Page Width: " & SPACE_CHAR$ & DBLWidth# & UNITS_PREFIX$  & Units$(DimensionUnits&) & NEWLINE$
  1957.         DBLHeight# = CDBL(Height&)
  1958.         ConvertTo DimensionUnits&, DBLHeight#
  1959.         PRINT #1, PREFIX_CHAR$ & "Page Height: " & SPACE_CHAR$ & DBLHeight# & UNITS_PREFIX$  & Units$(DimensionUnits&) & NEWLINE$
  1960.     END WITHOBJECT
  1961. END SUB
  1962.  
  1963.  
  1964. ' **************************************************************************************
  1965. ' GetMasterPageMargins
  1966. ' This subroutine obtains the margin settings for the master page specified by MasterPageName$, 
  1967. ' and prints the information to the open text file
  1968. ' 
  1969. ' PARAMS: MasterPageName$ - the name of the master page from which attributes are to be obtained
  1970. '         PageType AS BOOLEAN - indicates whether to use the left or right master page
  1971. '                        - FALSE - use LEFT page
  1972. '                        - TRUE - use RIGHT page
  1973. ' **************************************************************************************
  1974. SUB GetMasterPageMargins(MasterPageName$, PageType AS BOOLEAN)
  1975.     WITHOBJECT OBJECT_VENTURA8
  1976.         .ViewMasterPage        'switch to master page view
  1977.         .ViewGotoMasterPage MasterPageName$, PageType, 4        'activate the specified master page
  1978.     
  1979.          .FormatFrameMarginsInsideGet 1, LeftMarg&, RightMarg&, TopMarg&, BottomMarg&
  1980.     
  1981.         DBLTopMarg# = CDBL(TopMarg&)
  1982.         ConvertTo MarginUnits&, DBLTopMarg#
  1983.         PRINT #1, PREFIX_CHAR$ & "Top: " & SPACE_CHAR$ & DBLTopMarg# & UNITS_PREFIX$  & Units$(MarginUnits&) & NEWLINE$
  1984.     
  1985.         DBLBottomMarg# = CDBL(BottomMarg&)
  1986.         ConvertTo MarginUnits&, DBLBottomMarg#
  1987.         PRINT #1, PREFIX_CHAR$ & "Bottom: " & SPACE_CHAR$ & DBLBottomMarg# & UNITS_PREFIX$  & Units$(MarginUnits&) & NEWLINE$
  1988.     
  1989.         DBLLeftMarg# = CDBL(LeftMarg&)
  1990.         ConvertTo MarginUnits&, DBLLeftMarg#
  1991.         PRINT #1, PREFIX_CHAR$ & "Left: " & SPACE_CHAR$ & DBLLeftMarg# & UNITS_PREFIX$  & Units$(MarginUnits&) & NEWLINE$
  1992.     
  1993.         DBLRightMarg# = CDBL(RightMarg&)
  1994.         ConvertTo MarginUnits&, DBLRightMarg#
  1995.         PRINT #1, PREFIX_CHAR$ & "Right: " & SPACE_CHAR$ & DBLRightMarg# & UNITS_PREFIX$  & Units$(MarginUnits&) & NEWLINE$
  1996.     END WITHOBJECT
  1997. END SUB
  1998.  
  1999.  
  2000. ' **************************************************************************************
  2001. ' GetMasterPageColumns
  2002. ' This subroutine obtains the column settings for the master page specified by MasterPageName$, 
  2003. ' and prints the information to the open text file
  2004. ' 
  2005. ' PARAMS: MasterPageName$ - the name of the master page from which attributes are to be obtained
  2006. '         PageType AS BOOLEAN - indicates whether to use the left or right master page
  2007. '                        - FALSE - use LEFT page
  2008. '                        - TRUE - use RIGHT page
  2009. ' **************************************************************************************
  2010. SUB GetMasterPageColumns(MasterPageName$, PageType AS BOOLEAN)
  2011. DIM GutterRuleOverprint AS BOOLEAN
  2012.     WITHOBJECT OBJECT_VENTURA8
  2013.         .ViewMasterPage
  2014.         .ViewGotoMasterPage MasterPageName$, PageType, 4
  2015.          .FormatFrameColumnsGet 1, Columns&, FlowInColumns&, ColumnBalance&, GutterRuleOverprint
  2016.         PRINT #1, PREFIX_CHAR$ & "Number of Columns: " & SPACE_CHAR$ & Columns& & NEWLINE$
  2017.         SELECT CASE FlowInColumns&
  2018.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Flow In Columns: " & SPACE_CHAR$ & "left to right" & NEWLINE$
  2019.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Flow In Columns: " & SPACE_CHAR$ & "right to left" & NEWLINE$
  2020.         END SELECT
  2021.         SELECT CASE ColumnBalance&
  2022.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Column Balance: " & SPACE_CHAR$ & "Off" & NEWLINE$
  2023.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Column Balance: " & SPACE_CHAR$ & "On" & NEWLINE$
  2024.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Column Balance: " & SPACE_CHAR$ & "Default" & NEWLINE$
  2025.         END SELECT
  2026.         IF GutterRuleOverprint = -1 THEN    'temp fix for Booleans; replace -1 with TRUE when fixed
  2027.             PRINT #1, PREFIX_CHAR$ & "Gutter Rule Overprint: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2028.         ELSE
  2029.             PRINT #1, PREFIX_CHAR$ & "Gutter Rule Overprint: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2030.         ENDIF
  2031.     
  2032.         IF Columns& > 1 THEN 
  2033.             FOR j% = 1 TO Columns& -1    'last column doesn't have gutter properties
  2034.                  .FormatFrameColumnGetAt 1, j%, Width&, GutterWidth&, RuleWidth&, ColorModel&, Color1&, Color2&, Color3&, Color4&
  2035.                 DBLWidth# = CDBL(Width&)
  2036.                 ConvertTo MarginUnits&, DBLWidth#
  2037.                 PRINT #1, PREFIX_CHAR$ & "Column " & j% & " Width: " & SPACE_CHAR$ & DBLWidth# & UNITS_PREFIX$  & Units$(MarginUnits&) & NEWLINE$
  2038.                 DBLGutterWidth# = CDBL(GutterWidth&)
  2039.                 ConvertTo LineUnits&, DBLGutterWidth#
  2040.                 PRINT #1, PREFIX_CHAR$ & "Column " & j% & " Gutter Width: " & SPACE_CHAR$ & DBLGutterWidth# & UNITS_PREFIX$  & Units$(LineUnits&) & NEWLINE$
  2041.                 DBLRuleWidth# = CDBL(RuleWidth&)
  2042.                 ConvertTo LineUnits&, DBLRuleWidth#
  2043.                 PRINT #1, PREFIX_CHAR$ & "Column " & j% & " Gutter Rule Width: " & SPACE_CHAR$ & DBLRuleWidth# & UNITS_PREFIX$  & Units$(LineUnits&) & NEWLINE$
  2044.             NEXT j%
  2045.                  .FormatFrameColumnGetAt 1, j%, Width&
  2046.             DBLWidth# = CDBL(Width&)
  2047.             ConvertTo MarginUnits&, DBLWidth#
  2048.             PRINT #1, PREFIX_CHAR$ & "Column " & j% & " Width: " & SPACE_CHAR$ & DBLWidth# & UNITS_PREFIX$  & Units$(MarginUnits&) & NEWLINE$
  2049.         ENDIF
  2050.     END WITHOBJECT
  2051. END SUB
  2052.  
  2053.  
  2054. ' **************************************************************************************
  2055. ' GetParaFontInfo
  2056. ' This subroutine obtains the paragraph font information for the active paragraph tag
  2057. ' **************************************************************************************
  2058. SUB GetParaFontInfo
  2059. DIM StrikeThru AS BOOLEAN
  2060. DIM Overscore AS BOOLEAN
  2061. DIM Uppercase AS BOOLEAN
  2062. DIM Italic AS BOOLEAN
  2063.  
  2064.     WITHOBJECT OBJECT_VENTURA8
  2065.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Font" & NEWLINE$
  2066.         .FormatParaFontGet FontName$, PointSize!, Weight&, Italic, Underline&, StrikeThru, Overscore, Uppercase
  2067.     
  2068.         PRINT #1, PREFIX_CHAR$ & "Font Name: " & SPACE_CHAR$ & FontName$ & NEWLINE$
  2069.         DBLPointSize# = CDBL(PointSize!)
  2070.         ConvertTo FontUnits&, FROMPOINTS(DBLPointSize#)
  2071.         Round DBLPointSize#, .010
  2072.         PRINT #1, PREFIX_CHAR$ & "Point Size: " & SPACE_CHAR$ & DBLPointSize# & UNITS_PREFIX$ & Units$(FontUnits&) & NEWLINE$
  2073.     
  2074.         SELECT CASE Weight&
  2075.             CASE 100    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Thin" & NEWLINE$
  2076.             CASE 200    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Extra Light, Ultra Light" & NEWLINE$
  2077.             CASE 300    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Light" & NEWLINE$
  2078.             CASE 400    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Normal, Regular" & NEWLINE$
  2079.             CASE 500    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Medium" & NEWLINE$
  2080.             CASE 600    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Semi Bold, Demi Bold" & NEWLINE$
  2081.             CASE 700    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Bold" & NEWLINE$
  2082.             CASE 800    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Extra Bold, Ultra Bold" & NEWLINE$
  2083.             CASE 900    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Black, Heavy" & NEWLINE$
  2084.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Weight: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2085.         END SELECT
  2086.         IF Italic = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2087.             PRINT #1, PREFIX_CHAR$ & "Italic: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2088.         ELSE
  2089.             PRINT #1, PREFIX_CHAR$ & "Italic: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2090.         ENDIF
  2091.     
  2092.         'Text Before and After are properties of the Font dialog and should appear here
  2093.         .FormatParaEffectsGet EffectType&, TextAfter$, TextBefore$
  2094.         PRINT #1, PREFIX_CHAR$ & "Text Before: " & SPACE_CHAR$ & TextBefore$ & NEWLINE$
  2095.         PRINT #1, PREFIX_CHAR$ & "Text After: " & SPACE_CHAR$ & TextAfter$ & NEWLINE$
  2096.  
  2097.         SELECT CASE Underline&
  2098.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "None" & NEWLINE$
  2099.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Single" & NEWLINE$
  2100.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Double"  & NEWLINE$
  2101.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Word underline" & NEWLINE$
  2102.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2103.         END SELECT
  2104.         IF StrikeThru = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2105.             PRINT #1, PREFIX_CHAR$ & "Strike Thru: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2106.         ELSE
  2107.             PRINT #1, PREFIX_CHAR$ & "Strike Thru: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2108.         ENDIF
  2109.         IF Overscore = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2110.             PRINT #1, PREFIX_CHAR$ & "Overscore: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2111.         ELSE
  2112.             PRINT #1, PREFIX_CHAR$ & "Overscore: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2113.         ENDIF
  2114.         IF Uppercase = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2115.             PRINT #1, PREFIX_CHAR$ & "Uppercase: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2116.         ELSE
  2117.             PRINT #1, PREFIX_CHAR$ & "Uppercase: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2118.         ENDIF
  2119.     END WITHOBJECT
  2120. END SUB
  2121.  
  2122.  
  2123. ' **************************************************************************************
  2124. ' GetParaColorInfo
  2125. ' This subroutine obtains the paragraph color information for the active paragraph tag
  2126. ' **************************************************************************************
  2127. SUB GetParaColorInfo(Background AS BOOLEAN)
  2128. REM DIM BackGround AS BOOLEAN
  2129. DIM Overprint AS BOOLEAN
  2130. DIM ColumnWide AS BOOLEAN
  2131.  
  2132.     WITHOBJECT OBJECT_VENTURA8
  2133.         .FormatParaColorGet BackGround, ColorModel&, Colour1&, Colour2&, Colour3&, Colour4&, Overprint, ColumnWide
  2134.         IF Background = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2135.             PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Background Color" & NEWLINE$
  2136. REM             PRINT #1, PREFIX_CHAR$ & "Background: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2137.         ELSE
  2138.             PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Font Color" & NEWLINE$
  2139. REM             PRINT #1, PREFIX_CHAR$ & "Background: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2140.         ENDIF
  2141.         SELECT CASE ColorModel&
  2142.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "CMYK" & NEWLINE$
  2143.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "CMYK255" & NEWLINE$
  2144.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "CMY" & NEWLINE$
  2145.             CASE 5    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "RGB" & NEWLINE$
  2146.             CASE 6    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "HSB" & NEWLINE$
  2147.             CASE 7    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "HLS" & NEWLINE$
  2148.             CASE 9    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "Grayscale" & NEWLINE$
  2149.             CASE 11    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "YIQ" & NEWLINE$
  2150.             CASE 12    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "L*a*b*" & NEWLINE$
  2151.             CASE 13    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "Registration Color" & NEWLINE$
  2152.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "Unavailable" & NEWLINE$
  2153.                       ColorModel& = 0 : Colour1& = 0 : Colour2& = 0 : Colour3& = 0 : Colour4& = 0
  2154.         END SELECT
  2155.         PRINT #1, PREFIX_CHAR$ & "Color 1: " & SPACE_CHAR$ & (Colour1&) & NEWLINE$
  2156.         PRINT #1, PREFIX_CHAR$ & "Color 2: " & SPACE_CHAR$ & (Colour2&) & NEWLINE$
  2157.         PRINT #1, PREFIX_CHAR$ & "Color 3: " & SPACE_CHAR$ & (Colour3&) & NEWLINE$
  2158.         PRINT #1, PREFIX_CHAR$ & "Color 4: " & SPACE_CHAR$ & (Colour4&) & NEWLINE$
  2159.         IF Overprint = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2160.             PRINT #1, PREFIX_CHAR$ & "Overprint: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2161.         ELSE
  2162.             PRINT #1, PREFIX_CHAR$ & "Overprint: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2163.         ENDIF
  2164.  
  2165.         ' only print ColumnWide param if background color
  2166.         IF Background = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2167.             IF ColumnWide = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2168.                 PRINT #1, PREFIX_CHAR$ & "Column Wide: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2169.             ELSE
  2170.                 PRINT #1, PREFIX_CHAR$ & "Column Wide: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2171.             ENDIF
  2172.         ENDIF
  2173.     END WITHOBJECT
  2174. END SUB
  2175.  
  2176.  
  2177. ' **************************************************************************************
  2178. ' GetParaEffects
  2179. ' This subroutine obtains the effects information for the active paragraph tag
  2180. ' IF Effect type is Bullet, the paragraph bullet attributes are obtained.
  2181. ' IF Effect type is Drop Caps, the paragraph bullet attributes are obtained.
  2182. ' **************************************************************************************
  2183. SUB GetParaEffects
  2184.     WITHOBJECT OBJECT_VENTURA8
  2185.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Effects" & NEWLINE$
  2186.         'Text Before and After now appears with the Font properties
  2187.         .FormatParaEffectsGet EffectType&    ', TextAfter$, TextBefore$
  2188.         SELECT CASE EffectType&
  2189.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Effect Type: " & SPACE_CHAR$ & "None" & NEWLINE$
  2190.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Effect Type: " & SPACE_CHAR$ & "Bullet" & NEWLINE$
  2191.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Effect Type: " & SPACE_CHAR$ & "Drop Cap" & NEWLINE$
  2192.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Effect Type: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2193.         END SELECT
  2194.     
  2195.         IF EffectType& = 1 THEN         'IF Effect Type is Bullet, get Bullet attributes
  2196.             GetBulletInfo
  2197.         ELSEIF EffectType& = 2 THEN     'IF Effect Type is Drop Caps, get Drop Caps attributes
  2198.             GetDropCapsInfo
  2199.         ELSE                        'ELSE only print property headings if spreadsheet
  2200.             IF SelectedApp& = PUBLISH_TO_EXCEL OR SelectedApp& = PUBLISH_TO_QUATTROPRO THEN 
  2201.                 'property headings for Bullets
  2202.                 PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Bullets" & NEWLINE$
  2203.                 PRINT #1, PREFIX_CHAR$ & "Indent: "
  2204.                 PRINT #1, PREFIX_CHAR$ & "Bullet Character: "
  2205.                 PRINT #1, PREFIX_CHAR$ & "Shift Up: "
  2206.                 PRINT #1, PREFIX_CHAR$ & "Indent First Line Only: "
  2207.                 'property headings for Drop Caps
  2208.                 PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : DropCaps" & NEWLINE$
  2209.                 PRINT #1, PREFIX_CHAR$ & "Character Count: " 
  2210.                 PRINT #1, PREFIX_CHAR$ & "Shift Up: " 
  2211.                 PRINT #1, PREFIX_CHAR$ & "Custom Line Count: " 
  2212.             ENDIF
  2213.         ENDIF
  2214.     END WITHOBJECT
  2215. END SUB
  2216.  
  2217.  
  2218. ' **************************************************************************************
  2219. ' GetBulletInfo
  2220. ' This subroutine obtains the Bullet attributes for the active paragraph tag
  2221. ' **************************************************************************************
  2222. SUB GetBulletInfo
  2223. DIM IndentFirstLineOnly As BOOLEAN
  2224.     WITHOBJECT OBJECT_VENTURA8
  2225.         .FormatParaBulletGet Indent&, BulletChar&, ShiftUpDef&, IndentFirstLineOnly
  2226.     
  2227.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Bullets" & NEWLINE$
  2228.         DBLIndent# = CDBL(Indent&)
  2229.         ConvertTo VerticalUnits&, DBLIndent#
  2230.         PRINT #1, PREFIX_CHAR$ & "Indent: " & SPACE_CHAR$ & DBLIndent# & UNITS_PREFIX$  & Units$(VerticalUnits&) & NEWLINE$
  2231.         PRINT #1, PREFIX_CHAR$ & "Bullet Character: " & SPACE_CHAR$ & (BulletChar&) & UNITS_PREFIX$ & "ANSI" & NEWLINE$
  2232.         DBLShiftUpDef# = CDBL(ShiftUpDef&)
  2233.         ConvertTo HorizontalUnits&, DBLShiftUpDef#
  2234.         PRINT #1, PREFIX_CHAR$ & "Shift Up: " & SPACE_CHAR$ & DBLShiftUpDef# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2235.         IF IndentFirstLineOnly = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2236.             PRINT #1, PREFIX_CHAR$ & "Indent First Line Only: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2237.         ELSE
  2238.             PRINT #1, PREFIX_CHAR$ & "Indent First Line Only: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2239.         ENDIF
  2240.         IF SelectedApp& = PUBLISH_TO_EXCEL OR SelectedApp& = PUBLISH_TO_QUATTROPRO THEN 
  2241.             'property headings for Drop Caps
  2242.             PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : DropCaps" & NEWLINE$
  2243.             PRINT #1, PREFIX_CHAR$ & "Character Count: " 
  2244.             PRINT #1, PREFIX_CHAR$ & "Shift Up: " 
  2245.             PRINT #1, PREFIX_CHAR$ & "Custom Line Count: " 
  2246.         ENDIF
  2247.     END WITHOBJECT
  2248. END SUB
  2249.  
  2250.  
  2251. ' **************************************************************************************
  2252. ' GetDropCapsInfo
  2253. ' This subroutine obtains the Drop Cap attributes for the active paragraph tag
  2254. ' **************************************************************************************
  2255. SUB GetDropCapsInfo
  2256.     WITHOBJECT OBJECT_VENTURA8
  2257.         IF SelectedApp& = PUBLISH_TO_EXCEL OR SelectedApp& = PUBLISH_TO_QUATTROPRO THEN 
  2258.             'property headings for Bullets
  2259.             PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Bullets" & NEWLINE$
  2260.             PRINT #1, PREFIX_CHAR$ & "Indent: "
  2261.             PRINT #1, PREFIX_CHAR$ & "Bullet Character: "
  2262.             PRINT #1, PREFIX_CHAR$ & "Shift Up: "
  2263.             PRINT #1, PREFIX_CHAR$ & "Indent First Line Only: "
  2264.         ENDIF
  2265.         .FormatParaDropCapGet CharCount&, ShiftUpDropCap&, CustomLineCount&
  2266.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : DropCaps" & NEWLINE$
  2267.         PRINT #1, PREFIX_CHAR$ & "Character Count: " & SPACE_CHAR$ & (CharCount&) & NEWLINE$
  2268.         DBLShiftUpDropCap# = CDBL(ShiftUpDropCap&)
  2269.         ConvertTo HorizontalUnits&, DBLShiftUpDropCap#
  2270.         PRINT #1, PREFIX_CHAR$ & "Shift Up: " & SPACE_CHAR$ & DBLShiftUpDropCap# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2271.         PRINT #1, PREFIX_CHAR$ & "Custom Line Count: " & SPACE_CHAR$ & (CustomLineCount&) & NEWLINE$
  2272.     END WITHOBJECT
  2273. END SUB
  2274.  
  2275.  
  2276. ' **************************************************************************************
  2277. ' GetEffectFontInfo
  2278. ' This subroutine obtains the Effect font attributes for the active paragraph tag
  2279. ' **************************************************************************************
  2280. SUB GetEffectFontInfo
  2281. DIM bEffectStrike AS BOOLEAN
  2282. DIM bEffectOverscore AS BOOLEAN
  2283. DIM bEffectItalic AS BOOLEAN
  2284.     WITHOBJECT OBJECT_VENTURA8
  2285.         .FormatParaEffectFontGet EffectFontName$, EffectPointSize!, EffectWeight&, bEffectItalic, EffectUnderline&, bEffectStrike, bEffectOverscore
  2286.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Effect Font" & NEWLINE$
  2287.         PRINT #1, PREFIX_CHAR$ & "Effect Font Name: " & SPACE_CHAR$ & EffectFontName$ & NEWLINE$
  2288.         DBLEffectPointSize# = CDBL(EffectPointSize!)
  2289.         ConvertTo FontUnits&, FROMPOINTS(DBLEffectPointSize#)
  2290.         Round DBLEffectPointSize#, .010
  2291.         PRINT #1, PREFIX_CHAR$ & "Effect Point Size: " & SPACE_CHAR$ & DBLEffectPointSize# & UNITS_PREFIX$ & Units$(FontUnits&) & NEWLINE$
  2292.         SELECT CASE EffectWeight&
  2293.             CASE 100    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Thin" & NEWLINE$
  2294.             CASE 200    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Extra Light, Ultra Light" & NEWLINE$
  2295.             CASE 300    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Light" & NEWLINE$
  2296.             CASE 400    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Normal, Regular" & NEWLINE$
  2297.             CASE 500    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Medium" & NEWLINE$
  2298.             CASE 600    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Semi Bold, Demi Bold" & NEWLINE$
  2299.             CASE 700    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Bold" & NEWLINE$
  2300.             CASE 800    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Extra Bold, Ultra Bold" & NEWLINE$
  2301.             CASE 900    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Black, Heavy" & NEWLINE$
  2302.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Effect Weight: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2303.         END SELECT
  2304.         IF bEffectItalic = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2305.             PRINT #1, PREFIX_CHAR$ & "Italic: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2306.         ELSE
  2307.             PRINT #1, PREFIX_CHAR$ & "Italic: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2308.         ENDIF
  2309.         SELECT CASE EffectUnderline&
  2310.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "None" & NEWLINE$
  2311.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Single" & NEWLINE$
  2312.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Double" & NEWLINE$
  2313.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Word underline" & NEWLINE$
  2314.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Underline: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2315.         END SELECT
  2316.         IF bEffectStrike = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2317.             PRINT #1, PREFIX_CHAR$ & "Strike Thru: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2318.         ELSE
  2319.             PRINT #1, PREFIX_CHAR$ & "Strike Thru: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2320.         ENDIF
  2321.         IF bEffectOverscore = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2322.             PRINT #1, PREFIX_CHAR$ & "Overscore: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2323.         ELSE
  2324.             PRINT #1, PREFIX_CHAR$ & "Overscore: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2325.         ENDIF
  2326.     END WITHOBJECT
  2327. END SUB
  2328.  
  2329.  
  2330.  
  2331. ' **************************************************************************************
  2332. ' GetEffectColorInfo
  2333. ' This subroutine obtains the Effect color attributes for the active paragraph tag
  2334. ' **************************************************************************************
  2335. SUB GetEffectColorInfo(EffectBackGround AS BOOLEAN)
  2336. REM DIM EffectBackGround AS BOOLEAN
  2337. DIM ECOverprint AS BOOLEAN
  2338.     WITHOBJECT OBJECT_VENTURA8
  2339.         .FormatParaEffectColorGet EffectBackGround, ColorModel&, Colour1&, Colour2&, Colour3&, Colour4&, ECOverprint
  2340.         IF EffectBackGround = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2341.             PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Effect Background Color" & NEWLINE$
  2342. '            PRINT #1, PREFIX_CHAR$ & "Background: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2343.         ELSE
  2344.             PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Effect Font Color" & NEWLINE$
  2345. '            PRINT #1, PREFIX_CHAR$ & "Background: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2346.         ENDIF
  2347.         SELECT CASE ColorModel&
  2348.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "CMYK" & NEWLINE$
  2349.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "CMYK255" & NEWLINE$
  2350.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "CMY" & NEWLINE$
  2351.             CASE 5    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "RGB" & NEWLINE$
  2352.             CASE 6    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "HSB" & NEWLINE$
  2353.             CASE 7    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "HLS" & NEWLINE$
  2354.             CASE 9    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "Grayscale" & NEWLINE$
  2355.             CASE 11    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "YIQ" & NEWLINE$
  2356.             CASE 12    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "L*a*b*" & NEWLINE$
  2357.             CASE 13    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "Registration Color" & NEWLINE$
  2358.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Color Model: " & SPACE_CHAR$ & "Unavailable" & NEWLINE$
  2359.                       ColorModel& = 0 : Colour1& = 0 : Colour2& = 0 : Colour3& = 0 : Colour4& = 0
  2360.         END SELECT
  2361.         PRINT #1, PREFIX_CHAR$ & "Color 1: " & SPACE_CHAR$ & (Colour1&) & NEWLINE$
  2362.         PRINT #1, PREFIX_CHAR$ & "Color 2: " & SPACE_CHAR$ & (Colour2&) & NEWLINE$
  2363.         PRINT #1, PREFIX_CHAR$ & "Color 3: " & SPACE_CHAR$ & (Colour3&) & NEWLINE$
  2364.         PRINT #1, PREFIX_CHAR$ & "Color 4: " & SPACE_CHAR$ & (Colour4&) & NEWLINE$
  2365.         IF ECOverprint = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2366.             PRINT #1, PREFIX_CHAR$ & "Overprint: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2367.         ELSE
  2368.             PRINT #1, PREFIX_CHAR$ & "Overprint: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2369.         ENDIF
  2370.     END WITHOBJECT
  2371. END SUB
  2372.  
  2373.     
  2374.     
  2375. ' **************************************************************************************
  2376. ' GetParaAlignmentInfo
  2377. ' This subroutine obtains the paragraph alignment attributes for the active paragraph tag
  2378. ' **************************************************************************************
  2379. SUB GetParaAlignmentInfo    
  2380. DIM FrameWideText As BOOLEAN            
  2381. DIM AddPrev AS BOOLEAN                
  2382.     WITHOBJECT OBJECT_VENTURA8
  2383.         .FormatParaAlignmentGet Hor&, Vert&, FrameWideText, RPFromLeft&, RPFromRight&, LPFromLeft&, LPFromRight&, LinesToIndent&, FirstLinesIndent&, AddPrev, DecFromRight&, DecimalChar&, AbsoluteYPosition&
  2384.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Alignment" & NEWLINE$
  2385.         SELECT CASE Hor&
  2386.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Left" & NEWLINE$
  2387.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Center" & NEWLINE$
  2388.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Right" & NEWLINE$
  2389.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Decimal" & NEWLINE$
  2390.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Justified" & NEWLINE$
  2391.             CASE 5    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Force justified" & NEWLINE$
  2392.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Horizontal: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2393.         END SELECT
  2394.         SELECT CASE Vert&
  2395.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Vertical: " & SPACE_CHAR$ & "Top" & NEWLINE$
  2396.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Vertical: " & SPACE_CHAR$ & "Middle" & NEWLINE$
  2397.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Vertical: " & SPACE_CHAR$ & "Bottom" & NEWLINE$
  2398.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Vertical: " & SPACE_CHAR$ & "Absolute" & NEWLINE$
  2399.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Vertical: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2400.         END SELECT
  2401.  
  2402. REM         IF FrameWideText = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2403. REM             PRINT #1, PREFIX_CHAR$ & "Frame Wide Text: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2404. REM         ELSE
  2405. REM             PRINT #1, PREFIX_CHAR$ & "Frame Wide Text: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2406. REM         ENDIF
  2407.         DBLRPFromLeft# = CDBL(RPFromLeft&)
  2408.         ConvertTo HorizontalUnits&, DBLRPFromLeft#
  2409.         PRINT #1, PREFIX_CHAR$ & "Right Page In From Left: " & SPACE_CHAR$ &  DBLRPFromLeft# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2410.  
  2411.         DBLRPFromRight# = CDBL(RPFromRight&)
  2412.         ConvertTo HorizontalUnits&, DBLRPFromRight#
  2413.         PRINT #1, PREFIX_CHAR$ & "Right Page In From Right: " & SPACE_CHAR$ &  DBLRPFromRight# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2414.  
  2415.         DBLLPFromLeft# = CDBL(LPFromLeft&)
  2416.         ConvertTo HorizontalUnits&, DBLLPFromLeft#
  2417.         PRINT #1, PREFIX_CHAR$ & "Left Page In From Left: " & SPACE_CHAR$ &  DBLLPFromLeft# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2418.  
  2419.         DBLLPFromRight# = CDBL(LPFromRight&)
  2420.         ConvertTo HorizontalUnits&, DBLLPFromRight#
  2421.         PRINT #1, PREFIX_CHAR$ & "Left Page In From Right: " & SPACE_CHAR$ &  DBLLPFromRight# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2422.  
  2423.         PRINT #1, PREFIX_CHAR$ & "Lines To Indent: " & SPACE_CHAR$ & LinesToIndent& & NEWLINE$
  2424.  
  2425.         DBLFirstLinesIndent# = CDBL(FirstLinesIndent&)
  2426.         ConvertTo HorizontalUnits&, DBLFirstLinesIndent#
  2427.         PRINT #1, PREFIX_CHAR$ & "Lines Indent Amount: " & SPACE_CHAR$ & DBLFirstLinesIndent# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2428.  
  2429.         IF AddPrev = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2430.             PRINT #1, PREFIX_CHAR$ & "Add Width of Preceding Line: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2431.         ELSE
  2432.             PRINT #1, PREFIX_CHAR$ & "Add Width of Preceding Line: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2433.         ENDIF
  2434.  
  2435.         DBLDecFromRight# = CDBL(DecFromRight&)
  2436.         ConvertTo HorizontalUnits&, DBLDecFromRight#
  2437.         PRINT #1, PREFIX_CHAR$ & "Decimal From Right: " & SPACE_CHAR$ &  DBLDecFromRight# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2438.  
  2439.         PRINT #1, PREFIX_CHAR$ & "Decimal Character: " & SPACE_CHAR$ &  (DecimalChar&)  & UNITS_PREFIX$ & "ANSI" & NEWLINE$
  2440.     END WITHOBJECT
  2441. END SUB
  2442.  
  2443.  
  2444. ' **************************************************************************************
  2445. ' GetParaSpacingInfo
  2446. ' This subroutine obtains the paragraph spacing attributes for the active paragraph tag
  2447. ' **************************************************************************************
  2448. SUB GetParaSpacingInfo
  2449. DIM GrowInterline AS BOOLEAN
  2450. DIM AddAbove AS BOOLEAN
  2451. DIM AddAboveOnly AS BOOLEAN
  2452.     WITHOBJECT OBJECT_VENTURA8
  2453.         .FormatParaSpacingGet SpaceAfter&, SpaceBefore&, SpaceInterLine&, SpaceInterPara&, AASpace&, GrowInterline, AddAbove, AddAboveOnly, RotationAngle&, RotationHeight&
  2454.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Spacing" & NEWLINE$
  2455.  
  2456.         DBLSpaceAfter# = CDBL(SpaceAfter&)
  2457.         ConvertTo VerticalUnits&, DBLSpaceAfter#
  2458.         PRINT #1, PREFIX_CHAR$ & "Space Above: " & SPACE_CHAR$ & DBLSpaceAfter# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2459.  
  2460.         DBLSpaceBefore# = CDBL(SpaceBefore&)
  2461.         ConvertTo VerticalUnits&, DBLSpaceBefore#
  2462.         PRINT #1, PREFIX_CHAR$ & "Space Below: " & SPACE_CHAR$ & DBLSpaceBefore# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2463.  
  2464.         DBLSpaceInterLine# = CDBL(SpaceInterLine&)
  2465.         ConvertTo VerticalUnits&, DBLSpaceInterLine#
  2466.         PRINT #1, PREFIX_CHAR$ & "Inter-line: " & SPACE_CHAR$ & DBLSpaceInterLine# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2467.  
  2468.         DBLSpaceInterPara# = CDBL(SpaceInterPara&)
  2469.         ConvertTo VerticalUnits&, DBLSpaceInterPara#
  2470.         PRINT #1, PREFIX_CHAR$ & "Inter-paragraph: " & SPACE_CHAR$ & DBLSpaceInterPara# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2471.  
  2472.         SELECT CASE AASpace&
  2473.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Auto Adjust: " & SPACE_CHAR$ & "Percentage" & NEWLINE$
  2474.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Auto Adjust: " & SPACE_CHAR$ & "Add" & NEWLINE$
  2475.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Auto Adjust: " & SPACE_CHAR$ & "None" & NEWLINE$
  2476.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Auto Adjust: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2477.         END SELECT
  2478.         IF GrowInterline = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2479.             PRINT #1, PREFIX_CHAR$ & "Grow Interline: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2480.         ELSE
  2481.             PRINT #1, PREFIX_CHAR$ & "Grow Interline: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2482.         ENDIF
  2483.         IF AddAbove = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2484.             PRINT #1, PREFIX_CHAR$ & "Add Above: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2485.         ELSE
  2486.             PRINT #1, PREFIX_CHAR$ & "Add Above: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2487.         ENDIF
  2488.         IF AddAboveOnly = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2489.             PRINT #1, PREFIX_CHAR$ & "Add Above Space Only: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2490.         ELSE
  2491.             PRINT #1, PREFIX_CHAR$ & "Add Above Space Only: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2492.         ENDIF
  2493.  
  2494.         PRINT #1, PREFIX_CHAR$ & "Rotation Angle: " & SPACE_CHAR$ & (RotationAngle&/10) & UNITS_PREFIX$ & "%" & NEWLINE$
  2495.         DBLRotationHeight# = CDBL(RotationHeight&)
  2496.         ConvertTo VerticalUnits&, DBLRotationHeight#
  2497.         PRINT #1, PREFIX_CHAR$ & "Max Height: " & SPACE_CHAR$ & DBLRotationHeight# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2498.     END WITHOBJECT
  2499. END SUB
  2500.  
  2501.  
  2502. ' **************************************************************************************
  2503. ' GetParaTabInfo
  2504. ' This subroutine obtains the paragraph alignment attributes for the active paragraph tag
  2505. ' **************************************************************************************
  2506. SUB GetParaTabInfo
  2507. DIM Leader AS BOOLEAN
  2508.     WITHOBJECT OBJECT_VENTURA8
  2509.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Tabs" & NEWLINE$
  2510.  
  2511.         TabCount& = .FormatParaTabCount()
  2512.         IF SelectedApp& = PUBLISH_TO_VENTURA OR SelectedApp& = PUBLISH_TO_TEXT THEN 
  2513.             IF TabCount& > 0 THEN 
  2514.                 FOR Position& = 1 TO TabCount&
  2515.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2516.                     DBLLocation# = CDBL(Location!)
  2517.                     ConvertTo HorizontalUnits&, FROMINCHES(DBLLocation#)
  2518.                     Round DBLLocation#, .010
  2519.                     PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Location: " & SPACE_CHAR$ & DBLLocation# & UNITS_PREFIX$ & Units$(HorizontalUnits&) & NEWLINE$
  2520.                     SELECT CASE Align&
  2521.                         CASE 0    : PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Alignment: " & SPACE_CHAR$ & "Left" & NEWLINE$
  2522.                         CASE 1    : PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Alignment: " & SPACE_CHAR$ & "Right" & NEWLINE$
  2523.                         CASE 2    : PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Alignment: " & SPACE_CHAR$ & "Decimal" & NEWLINE$
  2524.                         CASE 3    : PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Alignment: " & SPACE_CHAR$ & "Center" & NEWLINE$
  2525.                         CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Alignment: " & SPACE_CHAR$ & "" & NEWLINE$
  2526.                     END SELECT
  2527.                     PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Leader: " & SPACE_CHAR$ & (Leader) & NEWLINE$
  2528.                     PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Leader Character: " & SPACE_CHAR$ & (LeaderChar&) & UNITS_PREFIX$ & "ANSI" & NEWLINE$
  2529.                     PRINT #1, PREFIX_CHAR$ & "Tab " & Position& & " Leader Spacing: " & SPACE_CHAR$ & (LeaderSpacing&) & NEWLINE$
  2530.                 NEXT Position&
  2531.             ELSE
  2532.                 Position& = 0 : SETEMPTY Location! : Align&=-1 : SETEMPTY Leader : SETEMPTY LeaderChar& : SETEMPTY LeaderSpacing&
  2533.                 PRINT #1, PREFIX_CHAR$ & "No tabs set" & NEWLINE$
  2534.             ENDIF
  2535.     
  2536.         ELSE
  2537.             IF TabCount& > 0 THEN 
  2538.                 'get position parameter for all tabs
  2539.                 FOR Position& = 1 TO TabCount&
  2540.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2541.                     PositionStr$ = PositionStr$ & STR(Position&) & ", "
  2542.                 NEXT Position&
  2543.                 PositionStr$ = MID(PositionStr$, 1, LEN(PositionStr$)-2)
  2544.                 'get location parameter for all tabs
  2545.                 FOR Position& = 1 TO TabCount&
  2546.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2547.                     DBLLocation# = CDBL(Location!)
  2548.                     ConvertTo HorizontalUnits&, FROMINCHES(DBLLocation#)
  2549.                     LocationStr$ = LocationStr$ & STR(DBLLocation#) & ", "
  2550.                 NEXT Position&
  2551.                 LocationStr$ = MID(LocationStr$, 1, LEN(LocationStr$)-2) & UNITS_PREFIX$ & Units$(HorizontalUnits&) 
  2552.                 'get alignment parameter for all tabs
  2553.                 FOR Position& = 1 TO TabCount&
  2554.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2555.                     SELECT CASE Align&
  2556.                         CASE 0    : Alignment$ = "Left" 
  2557.                         CASE 1    : Alignment$ = "Right" 
  2558.                         CASE 2    : Alignment$ = "Decimal"
  2559.                         CASE 3    : Alignment$ = "Center"
  2560.                         CASE ELSE    : Alignment$ = "" 
  2561.                     END SELECT
  2562.                     AlignmentStr$ = AlignmentStr$ & Alignment$ & ", "
  2563.                 NEXT Position&    
  2564.                 AlignmentStr$ = MID(AlignmentStr$, 1, LEN(AlignmentStr$)-2)
  2565.                 'get Leader parameter for all tabs
  2566.                 FOR Position& = 1 TO TabCount&
  2567.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2568. REM                     IF Leader = TRUE THEN 
  2569. REM                         LeaderStr$ = LeaderStr$ & "ON" & ", "
  2570. REM                     ELSE
  2571. REM                         LeaderStr$ = LeaderStr$ & "OFF" & ", "
  2572. REM                     ENDIF
  2573.                     LeaderStr$ = LeaderStr$ & Leader & ", "
  2574.                 NEXT Position&    
  2575.                 LeaderStr$ = MID(LeaderStr$, 1, LEN(LeaderStr$)-2)
  2576.                 'get LeaderChar parameter for all tabs
  2577.                 FOR Position& = 1 TO TabCount&
  2578.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2579.                     LeaderCharStr$ = LeaderCharStr$ & STR(LeaderChar) & ", "
  2580.                 NEXT Position&
  2581.                 LeaderCharStr$ = MID(LeaderCharStr$, 1, LEN(LeaderCharStr$)-2) & UNITS_PREFIX$ & "ANSI" 
  2582.                 'get LeaderSpacing parameter for all tabs
  2583.                 FOR Position& = 1 TO TabCount&
  2584.                     .FormatParaTabGetAt Position&, Location!, Align&, Leader, LeaderChar&, LeaderSpacing&
  2585.                     LeaderSpacingStr$ = LeaderSpacingStr$ & STR(LeaderSpacing&) & ", "
  2586.                 NEXT Position&
  2587.                 LeaderSpacingStr$ = MID(LeaderSpacingStr$, 1, LEN(LeaderSpacingStr$)-2)
  2588.             ELSE
  2589.                 Position& = 0 : SETEMPTY LocationStr$ : SETEMPTY AlignmentStr$ : SETEMPTY LeaderStr$ : SETEMPTY LeaderCharStr$ : SETEMPTY LeaderSpacingStr$
  2590.                 PositionStr$ = "No tabs set"    
  2591.             ENDIF
  2592.             PRINT #1, PREFIX_CHAR$ & "Position: " & SPACE_CHAR$ & PositionStr$ & NEWLINE$
  2593.             PRINT #1, PREFIX_CHAR$ & "Location: " & SPACE_CHAR$ & LocationStr$ &  NEWLINE$
  2594.             PRINT #1, PREFIX_CHAR$ & "Alignment: " & SPACE_CHAR$ & AlignmentStr$ & NEWLINE$
  2595.             PRINT #1, PREFIX_CHAR$ & "Leader: " & SPACE_CHAR$ & LeaderStr$ & NEWLINE$
  2596.             PRINT #1, PREFIX_CHAR$ & "Leader Character: " & SPACE_CHAR$ & LeaderCharStr$ &  NEWLINE$
  2597.             PRINT #1, PREFIX_CHAR$ & "Leader Spacing: " & SPACE_CHAR$ & LeaderSpacingStr$ & NEWLINE$
  2598.             SETEMPTY PositionStr$ : SETEMPTY LocationStr$ : SETEMPTY AlignmentStr$ : SETEMPTY LeaderStr$ : SETEMPTY LeaderCharStr$ : SETEMPTY LeaderSpacingStr$
  2599.         ENDIF
  2600.     END WITHOBJECT
  2601. END SUB
  2602.  
  2603.  
  2604. ' **************************************************************************************
  2605. ' GetParaBreaksInfo
  2606. ' This subroutine obtains the paragraph break attributes for the active paragraph tag
  2607. ' **************************************************************************************
  2608. SUB GetParaBreaksInfo
  2609. DIM InLineWithPrev AS BOOLEAN        
  2610. DIM AllowBreakWithin AS BOOLEAN
  2611. DIM KeepWithNext AS BOOLEAN
  2612. DIM KeepWithPrev AS BOOLEAN
  2613. DIM FrameWideText As BOOLEAN            
  2614.  
  2615.     WITHOBJECT OBJECT_VENTURA8
  2616.         .FormatParaBreaksGet PageBreak&, ColumnBreak&, LineBreak&, InLineWithPrev, AllowBreakWithin, KeepWithNext, KeepWithPrev
  2617.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Breaks" & NEWLINE$
  2618.         SELECT CASE PageBreak&
  2619.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "None" & NEWLINE$
  2620.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "Before" & NEWLINE$
  2621.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "After" & NEWLINE$
  2622.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "Before & After" & NEWLINE$
  2623.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "Before/Until Left" & NEWLINE$
  2624.             CASE 5    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "Before/Until Right" & NEWLINE$
  2625.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Page Break: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2626.         END SELECT
  2627.         SELECT CASE ColumnBreak&
  2628.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Column Break: " & SPACE_CHAR$ & "None" & NEWLINE$
  2629.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Column Break: " & SPACE_CHAR$ & "Before" & NEWLINE$
  2630.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Column Break: " & SPACE_CHAR$ & "After" & NEWLINE$
  2631.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Column Break: " & SPACE_CHAR$ & "Before & After" & NEWLINE$
  2632.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Column Break: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2633.         END SELECT
  2634.  
  2635.         SELECT CASE LineBreak&
  2636.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Line Break: " & SPACE_CHAR$ & "None" & NEWLINE$
  2637.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Line Break: " & SPACE_CHAR$ & "Before" & NEWLINE$
  2638.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Line Break: " & SPACE_CHAR$ & "After" & NEWLINE$
  2639.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Line Break: " & SPACE_CHAR$ & "Before & After" & NEWLINE$
  2640.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Line Break: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2641.         END SELECT
  2642.  
  2643.         IF InLineWithPrev = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2644.             PRINT #1, PREFIX_CHAR$ & "In Line With Previous: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2645.         ELSE
  2646.             PRINT #1, PREFIX_CHAR$ & "In Line With Previous: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2647.         ENDIF
  2648.         IF AllowBreakWithin = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2649.             PRINT #1, PREFIX_CHAR$ & "AllowBreakWithin: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2650.         ELSE
  2651.             PRINT #1, PREFIX_CHAR$ & "AllowBreakWithin: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2652.         ENDIF
  2653.         IF KeepWithNext = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2654.             PRINT #1, PREFIX_CHAR$ & "Keep With Next: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2655.         ELSE
  2656.             PRINT #1, PREFIX_CHAR$ & "Keep With Next: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2657.         ENDIF
  2658.         IF KeepWithPrev = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2659.             PRINT #1, PREFIX_CHAR$ & "Keep With Previous: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2660.         ELSE
  2661.             PRINT #1, PREFIX_CHAR$ & "Keep With Previous: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2662.         ENDIF
  2663.  
  2664.         'Columns to apan now appears with the Breaks properties
  2665.         .FormatParaDefaultsGet AADefault, ColsToSpan&, NextTag$    ', OverscoreThick&, OverscoreShift&, StrikeThick&, StrikeShift&, ULine1Thick&, ULine1Shift&, ULine2Thick&, ULine2Shift&, SuperscriptPS!, SuperscriptShift&, SubscriptPS!, SubscriptShift&, Tracking&, TrackAmount&
  2666.         PRINT #1, PREFIX_CHAR$ & "Next Tag: " & SPACE_CHAR$ & NextTag$ & NEWLINE$
  2667.  
  2668.         'Frame-wide text parameter now appears with the Breaks properties
  2669.         .FormatParaAlignmentGet Hor&, Vert&, FrameWideText    ', RPFromLeft&, RPFromRight&, LPFromLeft&, LPFromRight&, LinesToIndent&, FirstLinesIndent&, AddPrev, DecFromRight&, DecimalChar&, AbsoluteYPosition&
  2670.  
  2671.         IF FrameWideText = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2672.             PRINT #1, PREFIX_CHAR$ & "Frame Wide Text: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2673.         ELSE
  2674.             PRINT #1, PREFIX_CHAR$ & "Frame Wide Text: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2675.         ENDIF
  2676.         PRINT #1, PREFIX_CHAR$ & "Columns To Span: " & SPACE_CHAR$ & (ColsToSpan&) & NEWLINE$
  2677.  
  2678.     END WITHOBJECT
  2679. END SUB
  2680.  
  2681.  
  2682. ' **************************************************************************************
  2683. ' GetParaHyphenationInfo
  2684. ' This subroutine obtains the paragraph hyphenation attributes for the active paragraph tag
  2685. ' **************************************************************************************
  2686. SUB GetParaHyphenationInfo
  2687. DIM Automatic AS BOOLEAN
  2688. DIM AtPageEnd AS BOOLEAN
  2689. DIM AtLastWord AS BOOLEAN
  2690. DIM ForCapital AS BOOLEAN
  2691.     WITHOBJECT OBJECT_VENTURA8
  2692.         .FormatParaHyphenationGet Automatic, Dict$, SuccessiveHyphs&, MinWordSize&, MinCharsBefore&, MinCharsAfter&, AtPageEnd, AtLastWord, ForCapital
  2693.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Hyphens" & NEWLINE$
  2694.         IF Automatic = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2695.             PRINT #1, PREFIX_CHAR$ & "Automatic: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2696.         ELSE
  2697.             PRINT #1, PREFIX_CHAR$ & "Automatic: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2698.         ENDIF
  2699.         PRINT #1, PREFIX_CHAR$ & "Dictionary: " & SPACE_CHAR$ & Dict$ & NEWLINE$
  2700.         PRINT #1, PREFIX_CHAR$ & "Successive Hyphens: " & SPACE_CHAR$ & (SuccessiveHyphs&) & NEWLINE$
  2701.         PRINT #1, PREFIX_CHAR$ & "Min Word Size: " & SPACE_CHAR$ & (MinWordSize&) & NEWLINE$
  2702.         PRINT #1, PREFIX_CHAR$ & "Min Characters Before: " & SPACE_CHAR$ & (MinCharsBefore&) & NEWLINE$
  2703.         PRINT #1, PREFIX_CHAR$ & "Min Characters After: " & SPACE_CHAR$ & (MinCharsAfter&) & NEWLINE$
  2704.         IF AtPageEnd = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2705.             PRINT #1, PREFIX_CHAR$ & "At Page End: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2706.         ELSE
  2707.             PRINT #1, PREFIX_CHAR$ & "At Page End: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2708.         ENDIF
  2709.         IF AtLastWord = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2710.             PRINT #1, PREFIX_CHAR$ & "At Last Word: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2711.         ELSE
  2712.             PRINT #1, PREFIX_CHAR$ & "At Last Word: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2713.         ENDIF
  2714.         IF ForCapital = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2715.             PRINT #1, PREFIX_CHAR$ & "For Capitalized: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2716.         ELSE
  2717.             PRINT #1, PREFIX_CHAR$ & "For Capitalized: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2718.         ENDIF
  2719.     END WITHOBJECT
  2720. END SUB
  2721.  
  2722.  
  2723. ' **************************************************************************************
  2724. ' GetParaTypographyInfo
  2725. ' This subroutine obtains the paragraph Typography attributes for the active paragraph tag
  2726. ' **************************************************************************************
  2727. SUB GetParaTypographyInfo
  2728. DIM LetterSpace AS BOOLEAN
  2729. DIM Kerning AS BOOLEAN
  2730.     WITHOBJECT OBJECT_VENTURA8
  2731.         .FormatParaTypographyGet WordSpace&, MinWordSpace&, MaxWordSpace&, LetterSpace, MaxLetterSpace&, VJAbove&, VJBelow&, VJInterline&, Kerning
  2732.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Typography" & NEWLINE$
  2733.         PRINT #1, PREFIX_CHAR$ & "Word Space: " & SPACE_CHAR$ & (WordSpace&/10) & UNITS_PREFIX$ & "%" & NEWLINE$
  2734.         PRINT #1, PREFIX_CHAR$ & "Min Word Space: " & SPACE_CHAR$ & (MinWordSpace&/10) & UNITS_PREFIX$ & "%" & NEWLINE$
  2735.         PRINT #1, PREFIX_CHAR$ & "Max Word Space: " & SPACE_CHAR$ & (MaxWordSpace&/10) & UNITS_PREFIX$ & "%" & NEWLINE$
  2736.         IF LetterSpace = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2737.             PRINT #1, PREFIX_CHAR$ & "Letter Space: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2738.         ELSE
  2739.             PRINT #1, PREFIX_CHAR$ & "Letter Space: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2740.         ENDIF
  2741.         PRINT #1, PREFIX_CHAR$ & "Max Letter Space: " & SPACE_CHAR$ & (MaxLetterSpace&/10) & UNITS_PREFIX$ & "%" & NEWLINE$
  2742.         DBLVJAbove# = CDBL(VJAbove&)
  2743.         ConvertTo VerticalUnits&, DBLVJAbove#
  2744.         PRINT #1, PREFIX_CHAR$ & "VJ Above: " & SPACE_CHAR$ & DBLVJAbove# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2745.         DBLVJBelow# = CDBL(VJBelow&)
  2746.         ConvertTo VerticalUnits&, DBLVJBelow#
  2747.         PRINT #1, PREFIX_CHAR$ & "VJ Below: " & SPACE_CHAR$ & DBLVJBelow# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2748.         DBLVJInterline# = CDBL(VJInterline&)
  2749.         ConvertTo VerticalUnits&, DBLVJInterline#
  2750.         PRINT #1, PREFIX_CHAR$ & "VJ Interline: " & SPACE_CHAR$ & DBLVJInterline# & UNITS_PREFIX$ & Units$(VerticalUnits&) & NEWLINE$
  2751.         IF Kerning = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2752.             PRINT #1, PREFIX_CHAR$ & "Kerning: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2753.         ELSE
  2754.             PRINT #1, PREFIX_CHAR$ & "Kerning: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2755.         ENDIF
  2756.     END WITHOBJECT
  2757. END SUB
  2758.  
  2759.  
  2760. ' **************************************************************************************
  2761. ' GetParaDefaultsInfo
  2762. ' This subroutine obtains the paragraph default attributes for the active paragraph tag
  2763. ' **************************************************************************************
  2764. SUB GetParaDefaultsInfo
  2765. DIM AADefault AS BOOLEAN
  2766.     WITHOBJECT OBJECT_VENTURA8
  2767.         .FormatParaDefaultsGet AADefault, ColsToSpan&, NextTag$, OverscoreThick&, OverscoreShift&, StrikeThick&, StrikeShift&, ULine1Thick&, ULine1Shift&, ULine2Thick&, ULine2Shift&, SuperscriptPS!, SuperscriptShift&, SubscriptPS!, SubscriptShift&, Tracking&, TrackAmount&
  2768.         PRINT #1, DIALOG_PREFIX$ & "Paragraph Properties : Defaults" & NEWLINE$
  2769.         IF AADefault = -1 THEN     'temp fix for Booleans; replace -1 with TRUE when fixed
  2770.             PRINT #1, PREFIX_CHAR$ & "Auto Adjust: " & SPACE_CHAR$ & "ON" & NEWLINE$
  2771.         ELSE
  2772.             PRINT #1, PREFIX_CHAR$ & "Auto Adjust: " & SPACE_CHAR$ & "OFF" & NEWLINE$
  2773.         ENDIF
  2774. REM         PRINT #1, PREFIX_CHAR$ & "Columns To Span: " & SPACE_CHAR$ & (ColsToSpan&) & NEWLINE$
  2775. REM         PRINT #1, PREFIX_CHAR$ & "Next Tag: " & SPACE_CHAR$ & NextTag$ & NEWLINE$
  2776.         DBLOverscoreThick# = CDBL(OverscoreThick&)
  2777.         ConvertTo UnderlineUnits&, DBLOverscoreThick#
  2778.         PRINT #1, PREFIX_CHAR$ & "Overscore Thickness: " & SPACE_CHAR$ & DBLOverscoreThick# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2779.  
  2780.         DBLOverscoreShift# = CDBL(OverscoreShift&)
  2781.         ConvertTo UnderlineUnits&, DBLOverscoreShift#
  2782.         PRINT #1, PREFIX_CHAR$ & "Overscore Shift: " & SPACE_CHAR$ & DBLOverscoreShift# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2783.  
  2784.         DBLStrikeThick# = CDBL(StrikeThick&)
  2785.         ConvertTo UnderlineUnits&, DBLStrikeThick#
  2786.         PRINT #1, PREFIX_CHAR$ & "Strike Thickness: " & SPACE_CHAR$ & DBLStrikeThick# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2787.  
  2788.         DBLStrikeShift# = CDBL(StrikeShift&)
  2789.         ConvertTo UnderlineUnits&, DBLStrikeShift#
  2790.         PRINT #1, PREFIX_CHAR$ & "Strike Shift: " & SPACE_CHAR$ & DBLStrikeShift# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2791.  
  2792.         DBLULine1Thick# = CDBL(ULine1Thick&)
  2793.         ConvertTo UnderlineUnits&, DBLULine1Thick#
  2794.         PRINT #1, PREFIX_CHAR$ & "UnderLine1 Thickness: " & SPACE_CHAR$ & DBLULine1Thick# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2795.  
  2796.         DBLULine1Shift# = CDBL(ULine1Shift&)
  2797.         ConvertTo UnderlineUnits&, DBLULine1Shift#
  2798.         PRINT #1, PREFIX_CHAR$ & "UnderLine1 Shift: " & SPACE_CHAR$ & DBLULine1Shift# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2799.  
  2800.         DBLULine2Thick# = CDBL(ULine2Thick&)
  2801.         ConvertTo UnderlineUnits&, DBLULine2Thick#
  2802.         PRINT #1, PREFIX_CHAR$ & "UnderLine2 Thickness: " & SPACE_CHAR$ & DBLULine2Thick# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2803.  
  2804.         DBLULine2Shift# = CDBL(ULine2Shift&)
  2805.         ConvertTo UnderlineUnits&, DBLULine2Shift#
  2806.         PRINT #1, PREFIX_CHAR$ & "UnderLine2 Shift: " & SPACE_CHAR$ & DBLULine2Shift# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2807.  
  2808.         DBLSuperscriptPS# = CDBL(SuperscriptPS!)
  2809.         ConvertTo UnderlineUnits&, FROMPOINTS(DBLSuperscriptPS#)
  2810.         Round DBLSuperscriptPS#, .010
  2811.         PRINT #1, PREFIX_CHAR$ & "Superscript Point Size: " & SPACE_CHAR$ & DBLSuperscriptPS# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2812.  
  2813.         DBLSuperscriptShift# = CDBL(SuperscriptShift&)
  2814.         ConvertTo UnderlineUnits&, DBLSuperscriptShift#
  2815.         PRINT #1, PREFIX_CHAR$ & "Superscript Shift: "  & SPACE_CHAR$ & DBLSuperscriptShift# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2816.  
  2817.         DBLSubscriptPS# = CDBL(SubscriptPS!)
  2818.         ConvertTo UnderlineUnits&, FROMPOINTS(DBLSubscriptPS#)
  2819.         Round DBLSubscriptPS#, .010
  2820.         PRINT #1, PREFIX_CHAR$ & "Subscript Point Size: "  & SPACE_CHAR$ & DBLSubscriptPS# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2821.  
  2822.         DBLSubscriptShift# = CDBL(SubscriptShift&)
  2823.         ConvertTo UnderlineUnits&, DBLSubscriptShift#
  2824.         PRINT #1, PREFIX_CHAR$ & "Subscript Shift: "  & SPACE_CHAR$ & DBLSubscriptShift# & UNITS_PREFIX$ & Units$(UnderlineUnits&) & NEWLINE$
  2825.  
  2826.         SELECT CASE Tracking&
  2827.             CASE 0    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Very loose" & NEWLINE$
  2828.             CASE 1    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Looser" & NEWLINE$
  2829.             CASE 2    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Normal" & NEWLINE$
  2830.             CASE 3    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Tighter" & NEWLINE$
  2831.             CASE 4    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Very tight" & NEWLINE$
  2832.             CASE 5    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Custom" & NEWLINE$
  2833.             CASE ELSE    : PRINT #1, PREFIX_CHAR$ & "Tracking type: " & SPACE_CHAR$ & "Unknown" & NEWLINE$
  2834.         END SELECT
  2835.         PRINT #1, PREFIX_CHAR$ & "Tracking amount: "  & SPACE_CHAR$ & (TrackAmount&/10) & UNITS_PREFIX$ & "%" & NEWLINE$
  2836.         .FormatParaTagEnd
  2837.     END WITHOBJECT
  2838. END SUB
  2839.  
  2840.  
  2841.  
  2842.  
  2843.  
  2844.  
  2845.  
  2846.  
  2847.  
  2848.  
  2849.  
  2850.  
  2851.  
  2852.  
  2853.  
  2854.  
  2855.  
  2856.  
  2857.  
  2858.  
  2859. '/////////////////////////////////////////////////////////////////////////////////////////////////////////////
  2860. ' This subroutine will round off the specified number (Value) 
  2861. ' to the number of decimal places specified by precision
  2862. SUB Round(Value#, Precision#)
  2863.     Fixed# = FIX(Value)
  2864.     FractValue# = (Value# - Fixed#) * (1/Precision#)
  2865.     FractFixed# = INT(FractValue)
  2866.     FractDelta# = FractValue# - FractFixed#
  2867.     IF FractDelta# >= 0.50 THEN
  2868.         FractFixed# = FractFixed# + 1.0
  2869.     ENDIF
  2870.     Value# = FIX(Value#) + (FractFixed# * Precision#)
  2871. END SUB
  2872.  
  2873.  
  2874. '/////////////////////////////////////////////////////////////////////////////////////////////////////
  2875. SUB ConvertTo(Units&, BYREF ConvertData AS DOUBLE) 
  2876.     SELECT CASE Units&
  2877.         CASE INCHES
  2878.             ConvertData = ConvertData / 254000
  2879.         CASE MILLIMETERS
  2880.             ConvertData = ConvertData / 10000
  2881.         CASE PICAS
  2882.             ConvertData = TOPICAS(ConvertData)
  2883.         CASE POINTS
  2884.             ConvertData = (ConvertData / 254000) * 72
  2885.         CASE CICEROS
  2886.             ConvertData = TOCICEROS(ConvertData)
  2887.         CASE DIDOTS
  2888.             ConvertData = TODIDOTS(ConvertData)
  2889.     END SELECT
  2890.     Round ConvertData#, .010
  2891. END SUB
  2892.  
  2893.