excel to word macro

I am trying to create a macro to take a range of cells from excel, open a word document and paste the cells as a linked file. This is going to be used in our field service report template. This is the code I have thus far but keep getting a Compile error: Expected End With. Not to sure where to put the end with as I am just learning macro's on the fly. Any help would be appreciated.

Sub Macro1blam()


Range("A1:J46").Select
Application.CutCopyMode = False
Selection.Copy
Dim objWord As Object

Set objWord = CreateObject("Word.Application")
objWord.Visible = True



objWord.Documents.Open "C:\Users\PAC00735\Desktop\Working copy tech paperwork\doc2.docx"

With objWord_
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = InchesToPoints(0.5)
.BottomMargin = InchesToPoints(0.5)
.LeftMargin = InchesToPoints(0.5)
.RightMargin = InchesToPoints(0.5)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(8.5)
.PageHeight = InchesToPoints(11)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft

End With

Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _
wdInLine, DisplayAsIcon:=False

End Sub