共享宏——段落首尾添加字符（习作）

413191246se

1. Sub 段落首尾添加字符()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         i.Range.Select
   
5.         With Selection
   
6.             .InsertBefore Text:="aaa"
   
7.             .MoveEnd Unit:=wdCharacter, Count:=-1
   
8.             .InsertAfter Text:="bbb"
   
9.         End With
   
10.     Next
    
11. End Sub

复制代码

有感于 Range 对象或方法或属性不大会及表格单元格中的内容怎么取，特意练习 .MoveEnd 属性，以上代码可否优化呢？请朋友们出手了！谢谢！3Q！

*******以下为旧帖
    众所周知，Word 2003 调入一篇文档进行打印后，关闭时会提示“是否保存？”，因为没有改动，哪来的保存呢？为了消除此烦恼，去年就专门拼凑了两条语句方便了工作，现在知道 .saved 属性能知道文档是否保存过，所以，扩充一下代码如下，无奈水平太低，请朋友们帮助精简、优化一下代码，谢谢！3Q！

1. Sub 打印关闭不保存()
   
2.     Dim i As String
   
3.     If ActiveDocument.Saved = True Then
   
4.         ActiveDocument.PrintOut
   
5.         ActiveDocument.Close savechanges:=wdDoNotSaveChanges
   
6.     Else
   
7.         i = MsgBox("是：打印关闭保存    否：打印关闭不保存", vbYesNoCancel + vbExclamation, "打印关闭（不）保存")
   
8.         If i = vbYes Then
   
9.             ActiveDocument.PrintOut
   
10.             ActiveDocument.Close savechanges:=wdSaveChanges
    
11.         ElseIf i = vbNo Then
    
12.             ActiveDocument.PrintOut
    
13.             ActiveDocument.Close savechanges:=wdDoNotSaveChanges
    
14.         End If
    
15.     End If
    
16. End Sub

复制代码

sqhsqhli

这样不知道行不行：

Sub 打印关闭不保存()
ActiveDocument.PrintOut
Dim i As String
i = MsgBox("是：打印关闭保存    否：打印关闭不保存", vbYesNoCancel + vbExclamation, "打印关闭（不）保存")
If ActiveDocument.Saved = False And i = vbYes Then
ActiveDocument.Close savechanges:=wdSaveChanges
ElseIf (ActiveDocument.Saved = False And i = vbNo) Or ActiveDocument.Saved = True Then
ActiveDocument.Close savechanges:=wdDoNotSaveChanges
End If
End Sub

sylun

文档打印后，其文档属性中的打印时间信息已经发生变动，更新域也有可能发生，word自然会提示是否保存

413191246se

谢谢 sqhsqhli 代码（但结果不正确！文档调入后，有三种状态：一是未改动，打印后关闭不保存--无提示；二是有改动，打印后依提示选择--关闭保存；或选择--关闭不保存。我原来的代码虽然繁冗，但意思正确）、sylun 解释（原来如此啊）。3Q！

413191246se

顶以更新！