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