Return a UDT from a function

alex_read · April 22nd, 2004, 05:28 AM

Hi everyone, I can't find a word vba section so I'm posting here!!!

According to this page (http://msdn.microsoft.com/vba/Prodinfo/features.asp) this should be possible to do! I've got the following code I'm trying to use in a word vba class module (which has been made public):

------------------------------------------------------------------
Public Type udtSTYLEFONTINFO
    Bold As Boolean
    CharacterSpacing As Integer
    Colour As String
    Italic As Boolean
    Size As Integer
    SmallCaps As Boolean
    Underline As Boolean
End Type

Public Function GetStyleFontInfo(ByVal strStyleName As String) As udtSTYLEFONTINFO
    GetStyleFontInfo.bold = true
End Sub
-------------------------------------------------------------------

When I hit space after the as part of the function declaration, or try to write the .bold = true part, I get no intellisense for the custom udt appear. If I try to run the code, it highlights the "As udtSTYLEFONTINFO" part stating "User defined type not defined".

Um, HELP!!!!! please!

owain · April 23rd, 2004, 05:37 AM

As far as I know class modules can not have public user defined types. You will need to create another class module called udtSTYLEFONTINFO and declare all the variables as Public. You will then need to use the Set keyword to create a new instance of the class before you set the variables:

Code:

Public Function GetStyleFontInfo(ByVal strStyleName As String) As udtSTYLEFONTINFO
    Set GetStyleFontInfo = New udtSTYLEFONTINFO

    GetStyleFontInfo.bold = true
End Sub

I hope that helps.

Regards
Owain Williams