Sub 新建保存另存()QuK七二检测
'新建文档QuK七二检测
Documents.AddQuK七二检测
'保存[可以保存在原来位置]QuK七二检测
ActiveDocument.SaveQuK七二检测
'另存为[需要指定位置]QuK七二检测
ActiveDocument.SaveAs2 "c:\1.docx"QuK七二检测
'关闭QuK七二检测
ActiveDocument.CloseQuK七二检测
End SubQuK七二检测
QuK七二检测
Sub 可以搭配使用()QuK七二检测
'新建文档并另存QuK七二检测
Documents.Add.SaveAs2 "c:\1.docx"QuK七二检测
'关闭QuK七二检测
ActiveDocument.CloseQuK七二检测
End SubQuK七二检测
QuK七二检测
Sub 打开()QuK七二检测
'打开指定文件【批量打开后面课程会介绍】QuK七二检测
Documents.Open "c:\1.docx"QuK七二检测
'在光标位置插入QuK七二检测
Selection.TypeText "孙兴华"QuK七二检测
'不保存QuK七二检测
ActiveDocument.Close savechanges:=wdDoNotSaveChangesQuK七二检测
End SubQuK七二检测
QuK七二检测
QuK七二检测
其它常用代码：QuK七二检测
【1】如果活动文档在上次保存后进行了修改，则保存活动文档QuK七二检测
If ActiveDocument.Saved=False then ActiveDocument.SaveQuK七二检测
【2】保存Documents集合中的每一个文档，但在保存文档时不提示用户QuK七二检测
Documents.Save Noprompt:=True,OriginalFormat:=wdOriginalDocumentFormatQuK七二检测
|
参数QuK七二检测 |
中文QuK七二检测 |
|
wdOriginalDocumentFormatQuK七二检测 |
原始文档格式。QuK七二检测 |
|
wdPromptUserQuK七二检测 |
提示用户选择文档格式。QuK七二检测 |
|
wdWordDocumentQuK七二检测 |
Microsoft Word 文档格式。QuK七二检测 |
|
