>#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
with oWord .ActiveDocument.Bookmarks("AMUTypes").select .selection.Paste .ActiveDocument.range.ConvertToTable(wdSeparateByTabs,,,,wdTableFormatColorful2,,,,,,.F.,.F.,.F.) && Convert to table endwithMy 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?