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