关于文档中所选内容另存为新文档的方法

hao123

一般来说常用Documents.Add 的方法建新文档，然后将所选择的内容复制再粘贴到新文档中再保存。

以上方法固然可以，但想知道还有没有其它方法，再高效快捷的VBA方法，大家讨论一下，献上良方。

hao123

Sub 另存文件()
If Selection.Type <> wdSelectionIP Then
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
    ActiveDocument.SaveAs FileName:="你的文件名.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    ActiveWindow.Close
Else
MsgBox "没有选择的内容"
End If
End Sub

[ 本帖最后由 hao123 于 2008-12-3 13:49 编辑 ]

守柔

请参考：
Sub Example()
    Dim myRange As Range
    Set myRange = Selection.Range.FormattedText
    Word.Documents.Add.Content.FormattedText = myRange
End Sub

hbyjwhj

老师没在吗

hbyjwhj

版主，我试了你的宏，发现这个问题：就是假定我新开的文档有内容，这个宏命令把我原有的内容给覆盖了，但我想在已有内容后插入粘贴内容。宏怎么改老师，急用

守柔

原帖由 hbyjwhj 于 2009-2-17 11:22 发表
版主，我试了你的宏，发现这个问题：就是假定我新开的文档有内容，这个宏命令把我原有的内容给覆盖了，但我想在已有内容后插入粘贴内容。宏怎么改老师，急用

您的问题好象与我解答的楼主的问题不全是一回事吧？听您的意思，好象这个代码有问题了？呵呵。
VBA是针对特定内容（对象）的操作方法或者过程，内容，要求和目的不一致，过程自然不同。
请参考：
Sub Example()
    Dim myRange As Range
    Dim newDoc As Document
    Dim newRange As Range
    Set myRange = Selection.Range.FormattedText
    Set newDoc = Word.Documents.Open(FileName:="C:\Test.Doc")
    newDoc.Content.InsertAfter Chr(13)
    Set newRange = newDoc.Range(newDoc.Content.End - 1, newDoc.Content.End - 1)
    newRange.FormattedText = myRange
End Sub

tangqingfu

谢谢守版,学习ing.