Create (word) User form for signature and date using excel VBA

A

AawwYeahh

New member
Joined
Nov 3, 2019
Messages
10
Reaction score
0
Points
0
Excel Version(s)
Excel 2016
CROSSPOSTED

Ok I am stymied. Please help!
I have gotten code to:
Open word
Open template
Copy cells (from excel)
Paste cells into word

HOWEVER
I want to create name for word document (cell A92 in excel)
Save word document as filename (cell A92 in excel)
As .doc
In folder C:\MidSouth\PENDING

Lock all cells against editing
EXCEPT one cell for signature (in excel cell is A85)
AND one cell for date (in excel cell is G85)

Then close document.



Here is my current code:

Code: 
Sub CreateWordReport()
Dim WordApp As Word.Application
Set WordApp = New Word.Application

With WordApp
.Visible = True
.Activate
.Documents.Open ("C:\Mem1\Custom Office Templates\Installation Agreement.docm")

Sheets("Contract").Unprotect Password:=""
Range("A1:G92").Select
Selection.Copy
.Selection.Paste




 
Last edited by a moderator:
Thanks for disclosing your cross posting, however you need to tell use WHERE you've done that by posting a link, please.

Code needs wrapping in code tags - please remember in future, but I've done it for you today.
 
You must log in or register to reply here.
Back
Top