***************************** この上の部分まではうまく動きます。 Set uidoc = ws.CurrentDocument Call uidoc.EditDocument( True ) Call uidoc.save Call uidoc.close では駄目でしょうか?