Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pasted text from Excel to Word replaces previous paragraph
Hi, I'm trying to paste text from Excel to Word. I cannot get it to work
right - everything is pasted on line 1 in Word. The previously pasted text gets replaces by the later pasted text. Can anyone help me out here? Here's the macro I've been trying to use: Sub TW() Dim AppWD As Word.Application Dim DocWD As Word.Document Dim RangeWD As Word.Range Set AppWD = CreateObject("Word.Application.11") AppWD.Visible = True Set DocWD = AppWD.Documents.Add With DocWD Set RangeWD = .Range Sheets("T").Select Range("A15").Select Selection.Copy With RangeWD ..Font.Name = "Arial" ..Font.Size = 12 ..Font.Bold = True ..PasteSpecial DataType:=wdPasteText, Placement:=wdInLine ..InsertParagraphAfter ..Collapse wdCollapseEnd ..InsertParagraphAfter End With Set RangeWD = .Range Sheets("T").Select Range("A17").Select Selection.Copy With RangeWD ..Font.Name = "Arial" ..Font.Size = 12 ..Font.Bold = True ..PasteSpecial DataType:=wdPasteText, Placement:=wdInLine ..InsertParagraphAfter '.InsertParagraphAfter ..Collapse wdCollapseEnd ..InsertParagraphAfter End With End With Sheets("S").Activate End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
word wrap & pasted text | Excel Discussion (Misc queries) | |||
how to preserve paragraph breaks in pasted text? | Excel Discussion (Misc queries) | |||
Problem with excel charts pasted into Word | Excel Discussion (Misc queries) | |||
Pasting Word table cell with paragraph markers into single Excel c | Excel Discussion (Misc queries) | |||
Can not see all of a pasted paragraph from Word in a cell. | Excel Discussion (Misc queries) |