• This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn more.

= Excel =

N

NLM

Guest
#3
got it

Sub ControlWord()
Dim appWD As Word.Application
' Create a new instance of Word & make it visible
Set appWD = CreateObject("Word.Application.8")
appWD.Visible = True

Sheets("Game Counts").Select

' Copy the data for the new document to the clipboard
Range("A1:k16").Copy
' Tell Word to create a new document
appWD.Documents.Add
' Tell Word to paste the contents of the clipboard into the new document
appWD.Selection.Paste
' Save the new document with a sequential file name
appWD.ActiveDocument.SaveAs Filename:="Full Printout"
' Close this new word document
'appWD.ActiveDocument.Close
' Close the Word application
'appWD.Quit
End Sub
 

Members online

No members online now.

Latest posts

Latest profile posts

Electronic Punk wrote on Perris Calderon's profile.
All good still mate?
Hello, is there anybody in there? Just nod if you can hear me ...
Xie
What a long strange trip it's been. =)

Forum statistics

Threads
61,961
Messages
673,239
Members
89,016
Latest member
doertilog