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