word 关闭后再新建的问题

Question

word 新建后关闭，再新建就会出错，但去除格式设置部分就不会，请教各位有没有好的方法
Set w1 = New Word.Application
    w1.Documents.Add
    w1.Visible = True
    
    w1.Selection.Font.Size = 15
    w1.Selection.Font.Bold = 1
    w1.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    w1.Selection.TypeText "特 别 签 订 条 款"
    w1.Selection.TypeParagraph    '格式设置
    '=======================
    With w1.ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With w1.ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(3.17)
        .RightMargin = CentimetersToPoints(3.17)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .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
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
    With w1.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpace1pt5
        .Alignment = wdAlignParagraphLeft
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
'On Error GoTo oo    w1.Selection.Font.Size = 12
    w1.Selection.Font.NameFarEast = "宋体"
    w1.Selection.Font.NameAscii = "宋体"
    w1.Selection.Font.NameOther = "宋体"
    w1.Selection.PageSetup.BottomMargin = CentimetersToPoints(1.7)
    w1.Selection.PageSetup.TopMargin = CentimetersToPoints(1.7)
    w1.Selection.Font.Size = 12
    w1.Selection.Font.Bold = 0    w1.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft

Answer 1

而且关闭w1后，最好要释放资源:set w1=nothing

Answer 2

'是VB 6.0程序 专门用来生成word文档  这是前期的格工设置部分  
'程序运行后会生成一个标题为"特 别 签 订 条 款"的word文档  
'关闭word文档（不要保存）后重新点击再一次运行程行程充就会出现 “远程服务器不存在或不能使用！”这样的错Private Sub Command1_Click()
Set w1 = New Word.Application
    w1.Documents.Add
    w1.Visible = True
    
    w1.Selection.Font.Size = 15
    w1.Selection.Font.Bold = 1
    w1.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    w1.Selection.TypeText "特 别 签 订 条 款"
    w1.Selection.TypeParagraph    '格式设置
    '=======================
    With w1.ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With w1.ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(3.17)
        .RightMargin = CentimetersToPoints(3.17)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .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
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
    With w1.Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpace1pt5
        .Alignment = wdAlignParagraphLeft
        .WidowControl = False
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With    w1.Selection.Font.Size = 12
    w1.Selection.Font.NameFarEast = "宋体"
    w1.Selection.Font.NameAscii = "宋体"
    w1.Selection.Font.NameOther = "宋体"
    w1.Selection.PageSetup.BottomMargin = CentimetersToPoints(1.7)
    w1.Selection.PageSetup.TopMargin = CentimetersToPoints(1.7)
    w1.Selection.Font.Size = 12
    w1.Selection.Font.Bold = 0    w1.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeftEnd Sub