#1
|
|||
|
|||
Copy / Paste from Excel to Word template
Hi, I have this macro that copy paste a table from Excel to Word but I'd like to paste it into an existing Word document and at the end of it, after a title and another table. The table is always inserted before the title... Code:
Sub Export() Dim wdApp As Object Dim wd As Object Dim xlSheet As Worksheet Dim rng As Range Dim LastRow As Long Const wdReplaceAll As Long = 2 Const wdFindContinue As Long = 1 On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 Set wd = wdApp.Documents.Add("C:\Users\446066523\Documents\Test.docx") wdApp.Visible = True Set xlSheet = ActiveWorkbook.Sheets("INV") With xlSheet LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row Set rng = .Range("A2:C" & LastRow) rng.Copy With wd.Range .Collapse Direction:=0 .InsertParagraphAfter .PasteSpecial DataType:=1 With .Find .ClearFormatting .Text = vbTab .Replacement.ClearFormatting .Replacement.Text = " " .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue End With End With End With End Sub |
#2
|
|||
|
|||
Nevermind, it works
|
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Copy & Paste Word Doc from Excel VBA | RMerckling | Excel Programming | 4 | 04-18-2018 03:57 PM |
Copy/paste from Excel to Word problems! | mross127 | Word | 10 | 08-16-2017 04:41 PM |
Copy/Paste EXCEL cells as pic in WORD | A_Lau | Drawing and Graphics | 3 | 12-19-2014 06:57 AM |
Word 2007 Copy/Paste Excel issue | raven26c | Word | 1 | 11-18-2011 02:49 AM |
copy/paste charts from excel to word | bielak01 | Excel | 0 | 04-16-2009 02:27 AM |