Save a word file from Excel

[Ronnet2]

Hi,

I've created and filled a word filed from Excel using the following code:

    Dim appWord As Word.Application
     
    Set appWord = New Word.Application
     
    appWord.Visible = True
     
    Sheets("Dagbericht").Range("A1:J200").Copy
     
    appWord.Documents.Add.Content.Paste
     
    appWord.Documents.Save

The problem is that Word prompts me to choose the saving location. Instead I would like to enter the location and Word file name in VBA. How can I do this?

 

[Norie]

Use SaveAs instead of Save.

appWord.Documents(1).SaveAs "C:\MyFolder\MyDoc.docx"

PS I've assumed there is only one Word document open and that's the one you want to save as the code doesn't actually create/add a new document.