Copy/Paste Data Without Control Objects

Hi fellows,

i'm working with excel and i have tables that gone to by copied to a document, but that tables has some controls like buttons, when i'm copying tables in VBA, Excel copy the buttons but i do'nt have to copy that, how can I do that?

Kind Rewards,
Pedro

Re: Copy Data From To An Automation Object

Quote from Dave Hawley

Use PasteSpecial.

Hi Dave, thanks for the sugestion, but I'm using PasteSpecial, but it copied the buttons and comboBoxes, because when i'm selected the range it select the cells that has buttons.

Kind rewards,

*Pedro

Re: Copy/Paste Data Without Control Objects

I try to explain it better, this is my code to select a range, and paste it in word Document

Sheet6.Activate
       Sheet6.Range("A12:N24").Select
       Selection.Copy
       If wordDoc.Bookmarks.Exists("pts") = True Then
         wordDoc.Bookmarks("pts").Range.PasteSpecial
       End If

I select the range and paste it in the document, but this range is a table that has some control buttons, but when is pasted in the document the buttons are pasted also.

Kind rewards,

Pedro

Re: Copy/Paste Data Without Control Objects

Hy again Dave,
I've recorded a macro and the result was :

Range("A33:H38").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("D5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D12").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

but when I try to apply in my code it gives me a run time error:

If wordDoc.Bookmarks.Exists("pts") = True Then
         wordDoc.Bookmarks("pts").Range.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
       End If

btw ....
the runtime error is Run-time error '448':
Named argument not found

Re: Copy/Paste Data Without Control Objects

Quote from Dave Hawley

Shouldn't you be recording the pastespecial in Word?

I'm copuing from Excel and paste in word, but the code is working in Excel.
I try in Excel and I tried in word and the result was

Selection.PasteExcelTable False, False, False

Re: Copy/Paste Data Without Control Objects

Well I have a solution, i will copy tables to a new worksheet and then paste it in the wordDocument
btw Dave, Thanks for the support,

Kind Rewards,
Pedro