Can anyone tell me what is the problem with this line of code:

holykimura

New Member
Joined
Apr 29, 2012
Messages
24
I keep getting an error message object required. When i step through it, it is at this line i get the error:

Code:
.Bookmarks("Text1").Range.Text = ws.Range("A2").Value.ActiveCell.DisplayFormat.Interior.Color


Code:
Sub CopyToWord()
Dim objWord As Object
Dim ws As Worksheet


    Set ws = ThisWorkbook.Sheets("Sheet1")


    Set objWord = CreateObject("Word.Application")


    objWord.Visible = True


    objWord.Documents.Open "N:\Toby\Assessment\New Assessment Data Sheets\Year 9\Art\test.docx" ' change as required


    With objWord.ActiveDocument
        .Bookmarks("Text1").Range.Text = ws.Range("A2").Value.ActiveCell.DisplayFormat.Interior.Color
        .Bookmarks("Text2").Range.Text = ws.Range("A3").Value
        .Bookmarks("Text3").Range.Text = ws.Range("A4").Value
        .Bookmarks("Text4").Range.Text = ws.Range("A5").Value
        .Bookmarks("Text5").Range.Text = ws.Range("A6").Value
        .Bookmarks("Text6").Range.Text = ws.Range("A7").Value
        .Bookmarks("Text7").Range.Text = ws.Range("A8").Value
        .Bookmarks("Text8").Range.Text = ws.Range("A9").Value
        .Bookmarks("Text9").Range.Text = ws.Range("A10").Value
        .Bookmarks("Text10").Range.Text = ws.Range("A11").Value
        .Bookmarks("Text11").Range.Text = ws.Range("A12").Value
        .Bookmarks("Text12").Range.Text = ws.Range("A13").Value
        .Bookmarks("Text13").Range.Text = ws.Range("A14").Value
        .Bookmarks("Text14").Range.Text = ws.Range("A15").Value
        .Bookmarks("Text15").Range.Text = ws.Range("A16").Value
        .Bookmarks("Text16").Range.Text = ws.Range("A17").Value
        .Bookmarks("Text17").Range.Text = ws.Range("A18").Value
        .Bookmarks("Text18").Range.Text = ws.Range("A19").Value
        .Bookmarks("Text19").Range.Text = ws.Range("A20").Value
        .Bookmarks("Text20").Range.Text = ws.Range("A21").Value
        .Bookmarks("Text21").Range.Text = ws.Range("A22").Value
        .Bookmarks("Text22").Range.Text = ws.Range("A23").Value
        .Bookmarks("Text23").Range.Text = ws.Range("A24").Value
        .Bookmarks("Text24").Range.Text = ws.Range("A25").Value
        .Bookmarks("Text25").Range.Text = ws.Range("A26").Value
        .Bookmarks("Text26").Range.Text = ws.Range("A27").Value
        .Bookmarks("Text27").Range.Text = ws.Range("A28").Value
        .Bookmarks("Text28").Range.Text = ws.Range("A29").Value
        
        .Bookmarks("Text41").Range.Text = ws.Range("B2").Value
        .Bookmarks("Text42").Range.Text = ws.Range("B3").Value
        .Bookmarks("Text43").Range.Text = ws.Range("B4").Value
        .Bookmarks("Text44").Range.Text = ws.Range("B5").Value
        .Bookmarks("Text45").Range.Text = ws.Range("B6").Value
        .Bookmarks("Text46").Range.Text = ws.Range("B7").Value
        .Bookmarks("Text47").Range.Text = ws.Range("B8").Value
        .Bookmarks("Text48").Range.Text = ws.Range("B9").Value
        .Bookmarks("Text49").Range.Text = ws.Range("B10").Value
        .Bookmarks("Text50").Range.Text = ws.Range("B11").Value
        .Bookmarks("Text51").Range.Text = ws.Range("B12").Value
        .Bookmarks("Text52").Range.Text = ws.Range("B13").Value
        .Bookmarks("Text53").Range.Text = ws.Range("B14").Value
        .Bookmarks("Text54").Range.Text = ws.Range("B15").Value
        .Bookmarks("Text55").Range.Text = ws.Range("B16").Value
        .Bookmarks("Text56").Range.Text = ws.Range("B17").Value
        
        .Bookmarks("Text58").Range.Text = ws.Range("B18").Value
        .Bookmarks("Text59").Range.Text = ws.Range("B19").Value
        .Bookmarks("Text60").Range.Text = ws.Range("B20").Value
        .Bookmarks("Text61").Range.Text = ws.Range("B21").Value
        .Bookmarks("Text62").Range.Text = ws.Range("B22").Value
        .Bookmarks("Text63").Range.Text = ws.Range("B23").Value
        .Bookmarks("Text64").Range.Text = ws.Range("B24").Value
        .Bookmarks("Text65").Range.Text = ws.Range("B25").Value
        .Bookmarks("Text66").Range.Text = ws.Range("B26").Value
        .Bookmarks("Text67").Range.Text = ws.Range("B27").Value
        
        .Bookmarks("Text70").Range.Text = ws.Range("C2").Value
        .Bookmarks("Text71").Range.Text = ws.Range("C3").Value
        .Bookmarks("Text72").Range.Text = ws.Range("C4").Value
        .Bookmarks("Text73").Range.Text = ws.Range("C5").Value
        .Bookmarks("Text74").Range.Text = ws.Range("C6").Value
        .Bookmarks("Text75").Range.Text = ws.Range("C7").Value
        .Bookmarks("Text76").Range.Text = ws.Range("C8").Value
        .Bookmarks("Text77").Range.Text = ws.Range("C9").Value
        .Bookmarks("Text78").Range.Text = ws.Range("C10").Value
        .Bookmarks("Text79").Range.Text = ws.Range("C11").Value
        .Bookmarks("Text80").Range.Text = ws.Range("C12").Value
        .Bookmarks("Text81").Range.Text = ws.Range("C13").Value
        .Bookmarks("Text82").Range.Text = ws.Range("C14").Value
        .Bookmarks("Text83").Range.Text = ws.Range("C15").Value
        .Bookmarks("Text84").Range.Text = ws.Range("C16").Value
        .Bookmarks("Text85").Range.Text = ws.Range("C17").Value
        .Bookmarks("Text86").Range.Text = ws.Range("C18").Value
        .Bookmarks("Text87").Range.Text = ws.Range("C19").Value
        .Bookmarks("Text88").Range.Text = ws.Range("C20").Value
        .Bookmarks("Text89").Range.Text = ws.Range("C21").Value
        .Bookmarks("Text90").Range.Text = ws.Range("C22").Value
        .Bookmarks("Text91").Range.Text = ws.Range("C23").Value
        .Bookmarks("Text92").Range.Text = ws.Range("C24").Value
        .Bookmarks("Text93").Range.Text = ws.Range("C25").Value
        .Bookmarks("Text94").Range.Text = ws.Range("C26").Value
        .Bookmarks("Text95").Range.Text = ws.Range("C27").Value
    
    
        .Bookmarks("Text100").Range.Text = ws.Range("E2").Value
        .Bookmarks("Text101").Range.Text = ws.Range("E3").Value
        .Bookmarks("Text102").Range.Text = ws.Range("E4").Value
        .Bookmarks("Text103").Range.Text = ws.Range("E5").Value
        .Bookmarks("Text104").Range.Text = ws.Range("E6").Value
        .Bookmarks("Text105").Range.Text = ws.Range("E7").Value
        .Bookmarks("Text106").Range.Text = ws.Range("E8").Value
        .Bookmarks("Text107").Range.Text = ws.Range("E9").Value
        .Bookmarks("Text108").Range.Text = ws.Range("E10").Value
        .Bookmarks("Text109").Range.Text = ws.Range("E11").Value
        .Bookmarks("Text110").Range.Text = ws.Range("E12").Value
        .Bookmarks("Text111").Range.Text = ws.Range("E13").Value
        .Bookmarks("Text112").Range.Text = ws.Range("E14").Value
        .Bookmarks("Text113").Range.Text = ws.Range("E15").Value
        .Bookmarks("Text114").Range.Text = ws.Range("E16").Value
        .Bookmarks("Text115").Range.Text = ws.Range("E17").Value
        .Bookmarks("Text116").Range.Text = ws.Range("E18").Value
        .Bookmarks("Text117").Range.Text = ws.Range("E19").Value
        .Bookmarks("Text118").Range.Text = ws.Range("E20").Value
        .Bookmarks("Text119").Range.Text = ws.Range("E21").Value
        .Bookmarks("Text120").Range.Text = ws.Range("E22").Value
        .Bookmarks("Text121").Range.Text = ws.Range("E23").Value
        .Bookmarks("Text122").Range.Text = ws.Range("E24").Value
        .Bookmarks("Text123").Range.Text = ws.Range("E25").Value
        .Bookmarks("Text124").Range.Text = ws.Range("E26").Value
        .Bookmarks("Text125").Range.Text = ws.Range("E27").Value
    
    
        .Bookmarks("Text130").Range.Text = ws.Range("F2").Value
        .Bookmarks("Text131").Range.Text = ws.Range("F3").Value
        .Bookmarks("Text132").Range.Text = ws.Range("F4").Value
        .Bookmarks("Text133").Range.Text = ws.Range("F5").Value
        .Bookmarks("Text134").Range.Text = ws.Range("F6").Value
        .Bookmarks("Text135").Range.Text = ws.Range("F7").Value
        .Bookmarks("Text136").Range.Text = ws.Range("F8").Value
        .Bookmarks("Text137").Range.Text = ws.Range("F9").Value
        .Bookmarks("Text138").Range.Text = ws.Range("F10").Value
        .Bookmarks("Text139").Range.Text = ws.Range("F11").Value
        .Bookmarks("Text140").Range.Text = ws.Range("F12").Value
        .Bookmarks("Text141").Range.Text = ws.Range("F13").Value
        .Bookmarks("Text142").Range.Text = ws.Range("F14").Value
        .Bookmarks("Text143").Range.Text = ws.Range("F15").Value
        .Bookmarks("Text144").Range.Text = ws.Range("F16").Value
        .Bookmarks("Text145").Range.Text = ws.Range("F17").Value
        .Bookmarks("Text146").Range.Text = ws.Range("F18").Value
        .Bookmarks("Text147").Range.Text = ws.Range("F19").Value
        .Bookmarks("Text148").Range.Text = ws.Range("F20").Value
        .Bookmarks("Text149").Range.Text = ws.Range("F21").Value
        .Bookmarks("Text150").Range.Text = ws.Range("F22").Value
        .Bookmarks("Text151").Range.Text = ws.Range("F23").Value
        .Bookmarks("Text152").Range.Text = ws.Range("F24").Value
        .Bookmarks("Text153").Range.Text = ws.Range("F25").Value
        .Bookmarks("Text154").Range.Text = ws.Range("F26").Value
        .Bookmarks("Text155").Range.Text = ws.Range("F27").Value
    
        .Bookmarks("Text160").Range.Text = ws.Range("G2").Value
        .Bookmarks("Text161").Range.Text = ws.Range("G3").Value
        .Bookmarks("Text162").Range.Text = ws.Range("G4").Value
        .Bookmarks("Text163").Range.Text = ws.Range("G5").Value
        .Bookmarks("Text164").Range.Text = ws.Range("G6").Value
        .Bookmarks("Text165").Range.Text = ws.Range("G7").Value
        .Bookmarks("Text166").Range.Text = ws.Range("G8").Value
        .Bookmarks("Text167").Range.Text = ws.Range("G9").Value
        .Bookmarks("Text168").Range.Text = ws.Range("G10").Value
        .Bookmarks("Text169").Range.Text = ws.Range("G11").Value
        .Bookmarks("Text170").Range.Text = ws.Range("G12").Value
        .Bookmarks("Text171").Range.Text = ws.Range("G13").Value
        .Bookmarks("Text172").Range.Text = ws.Range("G14").Value
        .Bookmarks("Text173").Range.Text = ws.Range("G15").Value
        .Bookmarks("Text174").Range.Text = ws.Range("G16").Value
        .Bookmarks("Text175").Range.Text = ws.Range("G17").Value
        .Bookmarks("Text176").Range.Text = ws.Range("G18").Value
        .Bookmarks("Text177").Range.Text = ws.Range("G19").Value
        .Bookmarks("Text178").Range.Text = ws.Range("G20").Value
        .Bookmarks("Text179").Range.Text = ws.Range("G21").Value
        .Bookmarks("Text180").Range.Text = ws.Range("G22").Value
        .Bookmarks("Text181").Range.Text = ws.Range("G23").Value
        .Bookmarks("Text182").Range.Text = ws.Range("G24").Value
        .Bookmarks("Text183").Range.Text = ws.Range("G25").Value
        .Bookmarks("Text184").Range.Text = ws.Range("G26").Value
        .Bookmarks("Text185").Range.Text = ws.Range("G27").Value
    
        .Bookmarks("Text190").Range.Text = ws.Range("H2").Value
        .Bookmarks("Text191").Range.Text = ws.Range("H3").Value
        .Bookmarks("Text192").Range.Text = ws.Range("H4").Value
        .Bookmarks("Text193").Range.Text = ws.Range("H5").Value
        .Bookmarks("Text194").Range.Text = ws.Range("H6").Value
        .Bookmarks("Text195").Range.Text = ws.Range("H7").Value
        .Bookmarks("Text196").Range.Text = ws.Range("H8").Value
        .Bookmarks("Text197").Range.Text = ws.Range("H9").Value
        .Bookmarks("Text198").Range.Text = ws.Range("H10").Value
        .Bookmarks("Text199").Range.Text = ws.Range("H11").Value
        .Bookmarks("Text200").Range.Text = ws.Range("H12").Value
        .Bookmarks("Text201").Range.Text = ws.Range("H13").Value
        .Bookmarks("Text202").Range.Text = ws.Range("H14").Value
        .Bookmarks("Text203").Range.Text = ws.Range("H15").Value
        .Bookmarks("Text204").Range.Text = ws.Range("H16").Value
        .Bookmarks("Text205").Range.Text = ws.Range("H17").Value
        .Bookmarks("Text206").Range.Text = ws.Range("H18").Value
        .Bookmarks("Text207").Range.Text = ws.Range("H19").Value
        .Bookmarks("Text208").Range.Text = ws.Range("H20").Value
        .Bookmarks("Text209").Range.Text = ws.Range("H21").Value
        .Bookmarks("Text210").Range.Text = ws.Range("H22").Value
        .Bookmarks("Text211").Range.Text = ws.Range("H23").Value
        .Bookmarks("Text212").Range.Text = ws.Range("H24").Value
        .Bookmarks("Text213").Range.Text = ws.Range("H25").Value
        .Bookmarks("Text214").Range.Text = ws.Range("H26").Value
        .Bookmarks("Text215").Range.Text = ws.Range("H27").Value
    
    
        .Bookmarks("Text220").Range.Text = ws.Range("K2").Value
        .Bookmarks("Text221").Range.Text = ws.Range("K3").Value
        .Bookmarks("Text222").Range.Text = ws.Range("K4").Value
        .Bookmarks("Text223").Range.Text = ws.Range("K5").Value
        .Bookmarks("Text224").Range.Text = ws.Range("K6").Value
        .Bookmarks("Text225").Range.Text = ws.Range("K7").Value
        .Bookmarks("Text226").Range.Text = ws.Range("K8").Value
        .Bookmarks("Text227").Range.Text = ws.Range("K9").Value
        .Bookmarks("Text228").Range.Text = ws.Range("K10").Value
        .Bookmarks("Text229").Range.Text = ws.Range("K11").Value
        .Bookmarks("Text230").Range.Text = ws.Range("K12").Value
        .Bookmarks("Text231").Range.Text = ws.Range("K13").Value
        .Bookmarks("Text232").Range.Text = ws.Range("K14").Value
        .Bookmarks("Text233").Range.Text = ws.Range("K15").Value
        .Bookmarks("Text234").Range.Text = ws.Range("K16").Value
        .Bookmarks("Text235").Range.Text = ws.Range("K17").Value
        .Bookmarks("Text236").Range.Text = ws.Range("K18").Value
        .Bookmarks("Text237").Range.Text = ws.Range("K19").Value
        .Bookmarks("Text238").Range.Text = ws.Range("K20").Value
        .Bookmarks("Text239").Range.Text = ws.Range("K21").Value
        .Bookmarks("Text240").Range.Text = ws.Range("K22").Value
        .Bookmarks("Text241").Range.Text = ws.Range("K23").Value
        .Bookmarks("Text242").Range.Text = ws.Range("K24").Value
        .Bookmarks("Text243").Range.Text = ws.Range("K25").Value
        .Bookmarks("Text244").Range.Text = ws.Range("K26").Value
        .Bookmarks("Text245").Range.Text = ws.Range("K27").Value
    
    
        .Bookmarks("Text250").Range.Text = ws.Range("L2").Value
        .Bookmarks("Text251").Range.Text = ws.Range("L3").Value
        .Bookmarks("Text252").Range.Text = ws.Range("L4").Value
        .Bookmarks("Text253").Range.Text = ws.Range("L5").Value
        .Bookmarks("Text254").Range.Text = ws.Range("L6").Value
        .Bookmarks("Text255").Range.Text = ws.Range("L7").Value
        .Bookmarks("Text256").Range.Text = ws.Range("L8").Value
        .Bookmarks("Text257").Range.Text = ws.Range("L9").Value
        .Bookmarks("Text258").Range.Text = ws.Range("L10").Value
        .Bookmarks("Text259").Range.Text = ws.Range("L11").Value
        .Bookmarks("Text260").Range.Text = ws.Range("L12").Value
        .Bookmarks("Text261").Range.Text = ws.Range("L13").Value
        .Bookmarks("Text262").Range.Text = ws.Range("L14").Value
        .Bookmarks("Text263").Range.Text = ws.Range("L15").Value
        .Bookmarks("Text264").Range.Text = ws.Range("L16").Value
        .Bookmarks("Text265").Range.Text = ws.Range("L17").Value
        .Bookmarks("Text266").Range.Text = ws.Range("L18").Value
        .Bookmarks("Text267").Range.Text = ws.Range("L19").Value
        .Bookmarks("Text268").Range.Text = ws.Range("L20").Value
        .Bookmarks("Text269").Range.Text = ws.Range("L21").Value
        .Bookmarks("Text270").Range.Text = ws.Range("L22").Value
        .Bookmarks("Text271").Range.Text = ws.Range("L23").Value
        .Bookmarks("Text272").Range.Text = ws.Range("L24").Value
        .Bookmarks("Text273").Range.Text = ws.Range("L25").Value
        .Bookmarks("Text274").Range.Text = ws.Range("L26").Value
        .Bookmarks("Text275").Range.Text = ws.Range("L27").Value
    
    
        .Bookmarks("Text280").Range.Text = ws.Range("M2").Value
        .Bookmarks("Text281").Range.Text = ws.Range("M3").Value
        .Bookmarks("Text282").Range.Text = ws.Range("M4").Value
        .Bookmarks("Text283").Range.Text = ws.Range("M5").Value
        .Bookmarks("Text284").Range.Text = ws.Range("M6").Value
        .Bookmarks("Text285").Range.Text = ws.Range("M7").Value
        .Bookmarks("Text286").Range.Text = ws.Range("M8").Value
        .Bookmarks("Text287").Range.Text = ws.Range("M9").Value
        .Bookmarks("Text288").Range.Text = ws.Range("M10").Value
        .Bookmarks("Text289").Range.Text = ws.Range("M11").Value
        .Bookmarks("Text290").Range.Text = ws.Range("M12").Value
        .Bookmarks("Text291").Range.Text = ws.Range("M13").Value
        .Bookmarks("Text292").Range.Text = ws.Range("M14").Value
        .Bookmarks("Text293").Range.Text = ws.Range("M15").Value
        .Bookmarks("Text294").Range.Text = ws.Range("M16").Value
        .Bookmarks("Text295").Range.Text = ws.Range("M17").Value
        .Bookmarks("Text296").Range.Text = ws.Range("M18").Value
        .Bookmarks("Text297").Range.Text = ws.Range("M19").Value
        .Bookmarks("Text298").Range.Text = ws.Range("M20").Value
        .Bookmarks("Text299").Range.Text = ws.Range("M21").Value
        .Bookmarks("Text300").Range.Text = ws.Range("M22").Value
        .Bookmarks("Text301").Range.Text = ws.Range("M23").Value
        .Bookmarks("Text302").Range.Text = ws.Range("M24").Value
        .Bookmarks("Text303").Range.Text = ws.Range("M25").Value
        .Bookmarks("Text304").Range.Text = ws.Range("M26").Value
        .Bookmarks("Text305").Range.Text = ws.Range("M27").Value
    


        .Bookmarks("Text310").Range.Text = ws.Range("M2").Value
        .Bookmarks("Text311").Range.Text = ws.Range("M3").Value
        .Bookmarks("Text312").Range.Text = ws.Range("M4").Value
        .Bookmarks("Text313").Range.Text = ws.Range("M5").Value
        .Bookmarks("Text314").Range.Text = ws.Range("M6").Value
        .Bookmarks("Text315").Range.Text = ws.Range("M7").Value
        .Bookmarks("Text316").Range.Text = ws.Range("M8").Value
        .Bookmarks("Text317").Range.Text = ws.Range("M9").Value
        .Bookmarks("Text318").Range.Text = ws.Range("M10").Value
        .Bookmarks("Text319").Range.Text = ws.Range("M11").Value
        .Bookmarks("Text320").Range.Text = ws.Range("M12").Value
        .Bookmarks("Text321").Range.Text = ws.Range("M13").Value
        .Bookmarks("Text322").Range.Text = ws.Range("M14").Value
        .Bookmarks("Text323").Range.Text = ws.Range("M15").Value
        .Bookmarks("Text324").Range.Text = ws.Range("M16").Value
        .Bookmarks("Text325").Range.Text = ws.Range("M17").Value
        .Bookmarks("Text326").Range.Text = ws.Range("M18").Value
        .Bookmarks("Text327").Range.Text = ws.Range("M19").Value
        .Bookmarks("Text328").Range.Text = ws.Range("M20").Value
        .Bookmarks("Text329").Range.Text = ws.Range("M21").Value
        .Bookmarks("Text330").Range.Text = ws.Range("M22").Value
        .Bookmarks("Text331").Range.Text = ws.Range("M23").Value
        .Bookmarks("Text332").Range.Text = ws.Range("M24").Value
        .Bookmarks("Text333").Range.Text = ws.Range("M25").Value
        .Bookmarks("Text334").Range.Text = ws.Range("M26").Value
        .Bookmarks("Text335").Range.Text = ws.Range("M27").Value
    
        .Bookmarks("Text340").Range.Text = ws.Range("P2").Value
        .Bookmarks("Text341").Range.Text = ws.Range("O2").Value
        .Bookmarks("Text342").Range.Text = ws.Range("Q2").Value
        .Bookmarks("Text343").Range.Text = ws.Range("G1").Value
        .Bookmarks("Text344").Range.Text = ws.Range("H1").Value
        .Bookmarks("Text345").Range.Text = ws.Range("K1").Value
        .Bookmarks("Text346").Range.Text = ws.Range("L1").Value
        .Bookmarks("Text347").Range.Text = ws.Range("M1").Value
        .Bookmarks("Text348").Range.Text = ws.Range("N1").Value
    
        .Bookmarks("Text350").Range.Text = ws.Range("B28").Value
        .Bookmarks("Text351").Range.Text = ws.Range("B28").Value
        .Bookmarks("Text352").Range.Text = ws.Range("B28").Value
    End With
 
    Set objWord = Nothing


End Sub
 

Excel Facts

Why are there 1,048,576 rows in Excel?
The Excel team increased the size of the grid in 2007. There are 2^20 rows and 2^14 columns for a total of 17 billion cells.

Forum statistics

Threads
1,214,983
Messages
6,122,583
Members
449,089
Latest member
Motoracer88

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top