集NewStyle不MS Project 2003的工作

Question

使用VBA和与Word文档工作，我尝试创建使用

Function CreateStyleHeadingTask(NameStyle As String) As Style 
    Set CreateStyleHeadingTask = Nothing 
    If Not wdDoc Is Nothing Then 
     With wdDoc 
      Set CreateStyleHeadingTask = .Styles.Add(Name:=NameStyle, Type:=wdStyleTypeParagraph) 
      '//.Styles.Add Name:=NameStyle, Type:=wdStyleTypeParagraph 
      With .Styles(NameStyle).Font 
       .Size = 14 
       .Bold = True 
       '//.Color = wdColorBlue 
       .Color = wdColorRed 
      End With 
      Set CreateStyleHeadingTask = .Styles(NameStyle) 
     End With 
    End If 
End Function 

这是我执行设置CreateStyleHeadingTask声明将尽快崩溃了新的风格。 如果我删除'Set CreateStyleheadingTask ='，它不会崩溃。 什么是错的，我该如何纠正它？

Answer 1

该错误是因为函数返回数据类型。你需要指定Word.Style，而不仅仅是Style。

Function CreateStyleHeadingTask(NameStyle As String) As Word.Style 

    Set CreateStyleHeadingTask = Nothing 

    If Not wdDoc Is Nothing Then 
     With wdDoc 
      Set CreateStyleHeadingTask = .Styles.Add(Name:=NameStyle, Type:=1) 
      With .Styles(NameStyle).Font 
       .Size = 14 
       .Bold = True 
       .Color = wdColorRed 
      End With 
      Set CreateStyleHeadingTask = .Styles(NameStyle) 
     End With 
    End If 

End Function