Hi all, new to the forum, please be gentle if I have made a faux pas!
Would really appreciate some help with a problem that I am sure most of you would find laughably easy.
I am trying to create a Macro that will: Select a range, copy it, launch word and then paste.
It isn't neccessary to save the new word document or provide a message that the operation has been completed.
I have tried to use some code provided by "Jack in the UK" as follows:
Code
Sub Excel_to_Word_JackintheUK()
Range("A1:A20").Select
Selection.Copy
Set Word6 = CreateObject("Word.Basic")
With Word6
If UCase(Left(Application.OperatingSystem, 3)) <> "MAC" Then
.AppRestore
.AppMaximize 1
Else
AppActivate "Microsoft Word"
End If
.FileNewDefault
'.InsertPara
.Insert "Jack - Test from Excel"
.startofline 15
' .Bold
' .CenterPara
'.startofline 15
Selection.PasteSpecial Paste:=xlValues, operation:=xlNone, _
skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub
Display More
Unfortunately though, all this managed to do for me though was to launch Word and show me a document that said "Jack - Test from Excel". And yes, I did correct the range!
If anyone can hlep me, would be very grateful indeed.
Many thanks,
Rich.