Hello,

I´m trying to paste two cells (text) from Excel to Word. The code pasted below does not completely do the trick - please could someone tell me what is the problem, what must be added?

Problems:
1. If I leave out the ".Collapse wdCollapseEnd", the range A1:D1 gets replaced by the range A2:A6. Then the range A2:A6 is formatted like I want it to be (bold).
2. If I dont leave it out, the formatting is not correct, but both ranges are being copied otherwise correctly. Then the range A2:A6 is not being formatted at all, but copies the formatting from range A1:D1 (not bold).



Sub TW()

Dim AppWD As Word.Application
Dim DocWD As Word.Document
Dim RangeWD As Word.Range

Set AppWD = CreateObject("Word.Application.10")
AppWD.Visible = True

Set DocWD = AppWD.Documents.Add
With DocWD
Set RangeWD = .Range
Sheets("T").Select
Range("A1:D1").Select
Selection.Copy
With RangeWD
.Font.Name = "Arial"
.Font.Size = 12
.Font.Bold = False
.PasteAndFormat Type:=wdFormatPlainText
.Collapse wdCollapseEnd
Sheets("T").Select
Range("A2:A6").Select
Selection.Copy
With RangeWD
.Font.Name = "Arial"
.Font.Size = 12
.Font.Bold = True
.PasteAndFormat Type:=wdFormatPlainText
.Collapse wdCollapseEnd
End With
End With

End With

End Sub