怎样弄才能修改到样式啊

hnyhny

大家好，我在VB中编写了这样一段语言：

Public myword As New Word.Application            '定义文档变量
Public mydoc As Word.Document

Private Sub Command1_Click()
myword.Visible = True
Set mydoc = myword.Documents.Open(FileName:="D:\11.doc")
mydoc.Activate
myword.Selection.EndKey Unit:=wdStory
activedocument.Styles("标题 1").ParagraphFormat.Font.Size = 18
activedocument.Styles("标题 1").ParagraphFormat.Font.Name = 宋体
activedocument.Styles("标题 1").ParagraphFormat.Font.Size = 18
activedocument.Styles("标题 1").ParagraphFormat.Alignment = wdAlignParagraphCenter
activedocument.updatestyles
With myword
.Selection.Style = .activedocument.Styles("标题 1") '定义标题1
    .Selection.TypeText Text:="一、基本数据"
End With
End Sub
这一段的意思主要是说打开指定WORD文档，然后将鼠标指定样式1
然后修改样式1，最后键入文字：一、基本数据
我在修改样式的时候遇到了问题
运行之后发现样式1并没有变化，什么原因啊

是不是我哪里编错了，请高手赐教

还有，这段语言只是实现了打开指定的现有文档，并且运行时，现有文档最初是关闭的，怎么调节，可以实现：假设指定文档没有打开，那么打开，如果打开，那就运行后面的程序

守柔

请参考：

－－－－－－－－－－
Option Explicit
Public myWord As New Word.Application            '定义文档变量
Public myDoc As Word.Document
Private Sub Command1_Click()
    Dim myRange As Word.Range
    myWord.Visible = True
    On Error Resume Next
    Set myDoc = myWord.Documents.Open(FileName:="D:\11.doc")
    With myDoc
        With .Styles("标题 1")
            .Font.Name = "宋体"
            .Font.Size = 18
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .AutomaticallyUpdate = True
        End With
        Set myRange = .Range(.Content.End - 1, .Content.End - 1)
        myRange.InsertAfter "一、基本数据"
        myRange.Paragraphs(1).Style = .Styles("标题 1")
    End With
End Sub
'----------------------