Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Copy query to Word
Message
From
15/11/2006 11:13:45
 
 
To
15/11/2006 10:06:13
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
01169664
Message ID:
01169889
Views:
12
>>I am porting an Access application over to VFP. The Access code has a section which executes a query (SQL SELECT) and copies it to the clipboard, then pastes the query into a Word document where it appears as a table. Is this type of action possible in VFP? That is: how would you get the results of a SELECT into the clipboard so it can be pasted into the Word doc?
>>
>>Thanks for any hints. (or actual code)
>
>Don,
>There are multiple ways as always. One of them:
>
>#Define wdSeparateByCommas  2
>#Define wdSeparateByDefaultListSeparator  3
>#Define wdSeparateByParagraphs  0
>#Define wdSeparateByTabs  1
>
>#Define wdTableFormatClassic1  4
>#Define wdTableFormatColorful1  8
>#Define wdTableFormatColorful2  9
>#Define wdTableFormatColorful3  10
>#Define wdTableFormatContemporary  35
>#Define wdTableFormatElegant  36
>
>lcTempFile = Sys(2015)+'.tmp'
>Use employee
>Copy To (lcTempFile) Fields First_Name, Last_Name, Title Type Delimited With Tab
>_Cliptext = "First Name"+Chr(9)+"Last_Name"+Chr(9)+"Title"+;
>  Chr(13)+Chr(10)+Chrtran(Filetostr(lcTempFile),'"','')
>Erase (lcTempFile)
>
>oWordDocument=Createobject("word.application")	&& Create word object
>With oWordDocument
>  .documents.Add	&& New file
>  With .ActiveDocument.Range
>    .Paste      && Paste VFP data
>    .ConvertToTable(wdSeparateByTabs,,,,wdTableFormatColorful2,,,,,,.F.,.F.,.F.) && Convert to table
>  Endwith
>  .Visible = .T.
>Endwith
>
Cetin

Thanks Cetin I'm almost there.
My code is:
with oWord
.ActiveDocument.Bookmarks("AMUTypes").select
.selection.Paste
.ActiveDocument.range.ConvertToTable(wdSeparateByTabs,,,,wdTableFormatColorful2,,,,,,.F.,.F.,.F.) && Convert to table
endwith
My problem is that the ConvertToTable is acting on the entire document rather than just the pasted data. Can you tell me how to select the pasted data so only it is converted to a table?

Thanks
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform