菜鸟的问题,大家来看看啊,打开调出写入后 如何关闭和保存

用vb调用出word后如何关闭并保存到d:\fmfile\的路径下,并且取个特定的名字fm20030514.doc 呢?
以下是我的程序Dim objWord As Object
   Set objWord = CreateObject("Word.Application")
   objWord.Visible = True
   
   Dim NewDoc As Object
   Set NewDoc = objWord.Documents.Add
   Dim TitleRange As Object
   Set TitleRange = NewDoc.Content
   With TitleRange
      '定位到文档尾
      .MoveEnd Unit:=1, Count:=-1
      .Collapse Direction:=0
      '填入标题并回车
      .insertafter Text1.Text
      '.Font.Bold = True
      .insertafter vbCrLf
      .Font.Size = 15   End With
With NewDoc.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1)
        .FooterDistance = CentimetersToPoints(1)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
   End With