Problems running multiple versions & script error

[ncanfield]

From reading several emails, several are using different versions of SPSS (PASW).   Currently I have the following versions on my computer:

 

SPSS v15.0.1 which works great and rarely have issues, personal script works great.

SPSS v16.0.2 had some improvements but had found some issues

PASW v17.0.2, really liked the syntax editor but several issues related to slowing down computer performance by excessive running processes (working with SPSS support currently).

 

Will having multiple versions of SPSS affect the performance of any one version?  Also, I’m wondering if there’s a conflict with file recognition when switching between versions.  I like some of the new features, but some of the bugs are frustrating.  I also have a script that used to work in v15, but does not work in v16 & v17 because they’re handle them differently.  I haven’t been able to figure out how to get the script to work in the new version yet.  Here is the script, I tried the help menus but I must be missing something simple in order to get it to work.  Anyone have ideas for v16 or v17?

 

 

----------------script below-----------------

Sub Summarize_Table_Report_Create(objTable As Object, objOutputDoc As Object, lngIndex As Long)

'Autoscript

'Trigger Event: Report Table Creation after running Summarize procedure.

 

'Effects: Goes through the Row Labels and finds "Total" rows and turns "Total" and

'associated data cells bold if the title begins with "/bold/"

' if the title begins with /break/ then a Page Break is inserted immediately before the Summarize table.

' If you want to use both /break/ and /bold/ you need to start the title by "/break//bold/"

 

'Author: Raynald Levesque 2004/02/03

 

                Dim bolSelection As Boolean

                Dim i As Integer

                Dim objitem As ISpssItem

 

                Set objitem = objOutputDoc.Items.GetItem(lngIndex)

 

                With objitem

                                If (Left(.Label,7) = "/break/") Then

                                                objitem.PageBreak =True

                                                .Label = Mid(.Label, 8)

                                                objTable.TitleText = Mid(objTable.TitleText, 8)

                                End If

                                If (Left(.Label,6) = "/bold/") Then

                                                Call SelectRowLabelsAndData(objTable, "Total", bolSelection)

                                                If bolSelection = True Then

                                                                                objTable.TextStyle = SpssTSBold

                                                End If

                                                .Label = Mid(.Label, 7)

                                                objTable.TitleText = Mid(objTable.TitleText, 7)

                                End If

                                .Activate

                                .Deactivate

                End With

                Set objitem = Nothing

End Sub

-----------------------end script-------------------------

 

 

 

Thanks,

Nathan R. Canfield
Evaluation Senior Associate
Region 3 Behavioral Health Services
P.O. Box 2555
Kearney, NE 68848-2555
E-mail: [hidden email]
Phone: [phone] ext. 231
Fax: [phone]
Web: www.region3.net

 

---

CONFIDENTIALITY NOTICE: This communication and any files or attachments transmitted with it may contain information that is confidential, privileged and exempt from disclosure under applicable law. It is intended solely for the use of the intended recipient. If you are not the intended recipient, you are hereby notified that any unauthorized review, use, disclosure, dissemination, or copying of this communication is strictly prohibited. If you have received this communication in error, please notify the sender by reply e-mail and destroy all copies of the original message. Additionally, we will take the appropriate action to avoid sending you an unintended e-mail in the future. Thank you for your cooperation.