Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

Hi Nick,

 

Hope this might helpful.

 

Sub sample()
Dim oDoc As Document
    Set oDoc = ThisApplication.ActiveDocument
Dim oFunction As Variant
Dim oAut(1 To 3) As String
Dim tesn As String
    oAut(1) = oDoc.PropertySets("Summary Information").Item("Author").value
    oFunction = TestFunction(oAut(1)) 'Sending parameter to the function
    oAut(2) = oFunction(2) 'getting back one value send by the function TestFunction
    oAut(3) = oFunction(3) 'getting back another value send by the function TestFunction

End Sub
Function TestFunction(oAut As String)
Dim oFunction(2 To 3)
    oFunction(2) = oAut & "2"
    oFunction(3) = oAut & "3"
    TestFunction = oFunction
End Function