Question

Here I have a small VBS script that helps me append a new line to a table in MS “Word” 2003:

Set wd = CreateObject("Word.Application")

wd.Visible = True

Set doc = wd.Documents.Open ("c:\addtotable.doc")

Set r = doc.Tables(1).Rows.Add

aa = Split("turtle,dog,rooster,maple", ",")

For i = 0 To r.Cells.Count - 1
  r.Cells(i + 1).Range.Text = aa(i)
Next

It works fine, but it doesn’t save anything. I want it to save the performed changes.

By the method of macro-recording in the “Word” I got this macro command that saves active “Word” document:

ActiveDocument.Save

So, I decided to append this macro to the VBS script above:

 Set wd = CreateObject("Word.Application")

    wd.Visible = True

    Set doc = wd.Documents.Open ("c:\addtotable.doc")

    Set r = doc.Tables(1).Rows.Add

    aa = Split("turtle,dog,rooster,maple", ",")

    For i = 0 To r.Cells.Count - 1
      r.Cells(i + 1).Range.Text = aa(i)
    Next

     ActiveDocument.Save

But it doesn’t save anything. What am I doing wrong here?

Answer 1

Have you already tried calling doc.Save after making those changes? If that doesn’t work:

The issue is that ActiveDocument doesn’t automatically reference what you think it does in VBScript the way it does in Word’s VBA.

Try setting a new variable to the active document, like so:

Dim activeDoc
Set activeDoc = wd.ActiveDocument
activeDoc.Save