如何建立保存office文档？我的分不够了只能这么多了

Question

有三个按钮：新建、保存、打开
1.点击新建，打开office 新建一个word，完成后关闭word，返回窗体，命名后点击保存将命名好的文档保存到指定好的路径下。
2.选择文件名，点击“打开”打开word

Answer 1

你说的新建与打开都可以实现,不过保存不能在关闭WORD之后再按保存按钮保存,因为关闭WORD时就会提示你是否保存了~~

Answer 2

Private Sub cmdESave_Click()
    Dim ex As Object
    Dim exbook As Object
    Dim exsheet As Object
    Dim a(255) As String
    Set ex = CreateObject("excel.application")
    ex.Visible = True
    Set exbook = Nothing
    Set exsheet = Nothing
    Set exbook = ex.workbooks.Add
    Set exsheet = exbook.worksheets("sheet1")
    ex.Range("a1") = Text1.Text & vbCrLf
    ex.Range("A1") = Left(ex.Range("A1"), Len(ex.Range("A1")) - 2)
End SubPrivate Sub cmdOpen_Click()
Dim Name As String
CommonDialog1.ShowOpen
Name = CommonDialog1.FileName
    Dim wapp As New Word.Application
    Dim wdoc As Word.Document
    Set wdoc = wapp.Documents.Open(FileName:=Name)
    wapp.Visible = True
End SubPrivate Sub cmdSave_Click()
    Dim wapp As New Word.Application
    Dim wdoc As Word.Document
    If Not wdoc Is Nothing Then Set wdoc = Nothing
    
       Set wdoc = wapp.Documents.Add
       wapp.Selection.TypeText Text:=Text1.Text
       wdoc.SaveAs (App.Path + "\iim.doc")
       wapp.Visible = False
       wdoc.Close
       Set wdoc = Nothing
       Set wapp = Nothing
End Sub

Answer 3

首先点击菜单"工程/引用/Microsoft Word 9.0 Object Library"Private Sub Command1_Click()
    '新建
    Dim wd As New Word.Application
    
    wd.Documents.Add
    wd.Visible = True
    wd.ShowMe
End SubPrivate Sub Command1_Click()
    '保存
    Dim wd As New Word.Application
    
    wd.ActiveDocument.SaveAs FileName:="C:\aa.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End SubPrivate Sub Command1_Click()
    '打开
    Dim wd As New Word.Application
    
    wd.Documents.Open "C:\Downloads\大连实德门业查询系统设计方案.doc"
    wd.Visible = True
    wd.ShowMe
End Sub