【Word VBA案例】新建、打开、保存、关闭

Sub 新建保存另存()iRA检测VBA

'新建文档iRA检测VBA

Documents.AddiRA检测VBA

'保存[可以保存在原来位置]iRA检测VBA

ActiveDocument.SaveiRA检测VBA

'另存为[需要指定位置]iRA检测VBA

ActiveDocument.SaveAs2 "c:\1.docx"iRA检测VBA

'关闭iRA检测VBA

ActiveDocument.CloseiRA检测VBA

End SubiRA检测VBA

 iRA检测VBA

Sub 可以搭配使用()iRA检测VBA

'新建文档并另存iRA检测VBA

Documents.Add.SaveAs2 "c:\1.docx"iRA检测VBA

'关闭iRA检测VBA

ActiveDocument.CloseiRA检测VBA

End SubiRA检测VBA

 iRA检测VBA

Sub 打开()iRA检测VBA

'打开指定文件【批量打开后面课程会介绍】iRA检测VBA

Documents.Open "c:\1.docx"iRA检测VBA

'在光标位置插入iRA检测VBA

Selection.TypeText "孙兴华"iRA检测VBA

'不保存iRA检测VBA

ActiveDocument.Close savechanges:=wdDoNotSaveChangesiRA检测VBA

End SubiRA检测VBA

 iRA检测VBA

 iRA检测VBA

其它常用代码：iRA检测VBA

【1】如果活动文档在上次保存后进行了修改，则保存活动文档iRA检测VBA

If ActiveDocument.Saved=False then ActiveDocument.SaveiRA检测VBA

【2】保存Documents集合中的每一个文档，但在保存文档时不提示用户iRA检测VBA

Documents.Save Noprompt:=True,OriginalFormat:=wdOriginalDocumentFormatiRA检测VBA