Saving a word doc in Excel VBA

[alexransome]

Hi,

So currently I have a sheet which has cells linked to a table in a word document. I have some VBA which will open that word doc at some point and then the table will refresh. Currently I'm having to then save the file manually, but I'd like to save the doc using VBA and save it with a file name from a cell.

Can that be done?

Thanks.

 

[DanteAmor]

Try this

  Dim objWord As Object
  Set objWord = CreateObject("Word.Application")
  '
  'your code
  '
  'here put path \ sheet.cell
  objWord.ActiveDocument.SaveAs ThisWorkbook.Path & "\" & Sheets("Sheet1").Range("D2")

 

[alexransome]

Hi,

I got confused by what you were suggesting ...

Would it be possible to add the line required at the end of this ...

    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open "C:\Users\name\Desktop\VAF.docx"
    wordapp.Visible = True

The idea still being that the word document is opened, updates the field links and then saves it self, the name would need to be "VAF-*****" and the * would be a cell (E16) reference.

 

[alexransome]

I managed to cobble this together ...

'Auto save
    wordapp.ActiveDocument.SaveAs "C:\Users\name\Desktop\VAF-" & Sheets("eMail").Range("E16")

And it works ... Very surprised at me.

 

[DanteAmor]

In the future, try to put your code, because we don't know how you declared your application. I just put an example:
Set objWord = CreateObject ("Word.Application")

You had to update your code "wordapp" with my example.

I see that in the end you made it.

I'm glad to help you. Thanks for the feedback.