LISTSERV at the University of Georgia
Menubar Imagemap
Home Browse Manage Request Manuals Register
Previous messageNext messagePrevious in topicNext in topicPrevious by same authorNext by same authorPrevious page (March 2005)Back to main SPSSX-L pageJoin or leave SPSSX-L (or change settings)ReplyPost a new messageSearchProportional fontNon-proportional font
Date:         Fri, 4 Mar 2005 08:42:02 +0100
Reply-To:     Pere-Joan Ventura <pjventura@gmail.com>
Sender:       "SPSSX(r) Discussion" <SPSSX-L@LISTSERV.UGA.EDU>
From:         Pere-Joan Ventura <pjventura@gmail.com>
Subject:      Re: Export to word
In-Reply-To:  <BAY5-DAV104171954674923F9D4D3CBF5B0@phx.gbl>
Content-Type: text/plain; charset=US-ASCII

Thanks a lot,

I'm working with a basic descriptive study so the order of the pivot tables and graphs into the SPSS Output is important for me.

Yesterday I was working in a Visual Basic module for Ms Word (XP version) that allows me import all the pivot tables, graphs and text into word. This visual basic module perform a copy-paste procedure that maintains the order of the objects of SPSS output. In other words, it works as the Export Pivot Tables to Word2.sbs script.

Suggestions on the VB are wellcome.

The VB module starts here. ------------------------------------------------------------------------------------------------------------------------- Attribute VB_Name = "CopyPasteSPSSDoc" Sub CopyPasteSPSS()

' Requirements: ' SPSS output ans Ms Word document must be open ' The Sax basic and the SPSS references must be activated

Dim objSpssApp As ISpssApp Dim objOutputDoc As ISpssOutputDoc Dim objItems As ISpssItems Dim objItem As ISpssItem Dim objPivotTable As PivotTable Dim num_items As Integer

Set objSpssApp = GetObject(, "SPSS.Application") Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc Set objItems = objOutputDoc.Items

num_items = objItems.Count

For i = 1 To num_items - 1 'Object selection Set objItem = objItems.GetItem(i)

'Determining the SPSS object type If objItem.SPSSType = SPSSText Then

objItem.Selected = True

'Copy the object objOutputDoc.Copy objItem.Selected = False

' Paste into word Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _ Placement:=wdInLine, DisplayAsIcon:=False

Selection.TypeParagraph Selection.TypeParagraph

ElseIf objItem.SPSSType = SPSSPivot Then

objItem.Selected = True

'Copy the object objOutputDoc.Copy objItem.Selected = False

' Paste into word Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _ Placement:=wdInLine, DisplayAsIcon:=False

Selection.TypeParagraph Selection.TypeParagraph

ElseIf objItem.SPSSType = SPSSChart Then objItem.Selected = True

'Copy the object objOutputDoc.Copy

objItem.Selected = False

' Paste into word Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _ Placement:=wdInLine, DisplayAsIcon:=False

Selection.TypeParagraph Selection.TypeParagraph End If Set objItem = Nothing Next i

End Sub

-------------------------------------------------------------------------------------------------------------------------

The VB module ends here.

Regards -- Pere-Joan Ventura


Back to: Top of message | Previous page | Main SPSSX-L page