Create and save word documents based on cell values?

[mwilkes]

Hi,

I'm trying to come up with a macro that will create word documents, populate text based on a cell value, then save the word document as another cell value. Example:

Untitled.jpg

Any suggestions?

Crossposted: Create and save word documents based on cell values?

 

[Trevor G]

The following code with give you the heads up, make sure your read the comments in Green when you paste and set the path to the save location

Sub createWordDoc()
'You need to set the reference to use Word VBA
'Click Tools ----> References ---> Search down the list for Microsoft Word XX.Object Library
'--> XX being the version of Office you are using
Dim wrdApp As Word.Application
Set wrdApp = CreateObject("Word.Application")
With wrdApp
.Visible = True
.Documents.Add
.Selection.TypeText Text:=Range("B3").Value
.ActiveDocument.SaveAs Filename:="The drive and path" & Range("C3").Value & "doc"
End With
End Sub

 

[mwilkes]

Not quite what I was looking for but thanks. I need to loop through every cell on a row and concatenate on the word doc, AND add one of the cells as a network hyperlink, AND repeat for every row. I think I found the solution with a mail merge split add-in. Trouble I'm having now is I use 64bit office. Going to have to commandeer another computer for this.