word wps 宏，剪切板内容保存文件 文件首行为文件名称

Sub Macro1()
'
' Macro1 Macro
' 宏由 xx 录制，时间: 2015/09/08
'
'
    '新建空文件
    Documents.Add NewTemplate:=False, DocumentType:=0, Visible:=True
    Selection.SetRange Start:=0, End:=0
    '粘贴内容
    Selection.Paste
    '内容开头的行为文件名称
    Dim NameTemp As String
    NameTemp = ActiveDocument.Paragraphs(1).Range.Text
    NameTemp = NameTemp + ".txt"
    NameTemp = Replace(NameTemp, Mid(NameTemp, 4, 2), "")
    'MsgBox NameTemp
    '保存文件
    RecentFiles.Add Document:=NameTemp, ReadOnly:=False
    ActiveDocument.SaveAs FileName:=NameTemp, FileFormat:=7, LockComments:=False, AddToRecentFiles:=True, ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=0, InsertLineBreaks:=False, AllowSubstitutions:=False, LineEnding:=0, AddBiDiMarks:=False
    '关闭文件
    ActiveDocument.Close
End Sub