Anonymous
in reply to:
Anonymous
08-12-2016
02:30 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-12-2016
02:30 AM
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