1 files changed, 85 insertions, 0 deletions
diff --git a/helpcontent2/source/text/sbasic/shared/03131600.xhp b/helpcontent2/source/text/sbasic/shared/03131600.xhp
new file mode 100644
index 000000000..b0c499b8c
--- /dev/null
+++ b/helpcontent2/source/text/sbasic/shared/03131600.xhp
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<helpdocument version="1.0">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+
+<meta>
+  <topic id="textsbasicshared03131600xml" indexer="include" status="PUBLISH">
+    <title id="tit" xml-lang="en-US">CreateUnoService Function</title>
+    <filename>/text/sbasic/shared/03131600.xhp</filename>
+  </topic>
+</meta>
+
+<body>
+<section id="createunoservice">
+<bookmark xml-lang="en-US" branch="index" id="bm_id3150682">
+<bookmark_value>CreateUnoService function</bookmark_value>
+<bookmark_value>API;FilePicker</bookmark_value>
+<bookmark_value>API;FunctionAccess</bookmark_value>
+</bookmark>
+
+<h1 id="hd_id3150682"><variable id="createunoserviceh1"><link href="text/sbasic/shared/03131600.xhp" name="CreateUnoService Function">CreateUnoService Function</link></variable></h1>
+<paragraph id="par_id3152924" role="paragraph" xml-lang="en-US">Instantiates a Uno service with the ProcessServiceManager.</paragraph>
+</section>
+
+<embed href="text/sbasic/shared/00000003.xhp#functsyntax"/>
+<paragraph id="par_id3153346" role="code" xml-lang="en-US">oService = CreateUnoService( Uno service name )</paragraph>
+
+<paragraph id="par_idN1060F" role="paragraph" xml-lang="en-US">For a list of available services, go to: <link href="https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star.html" name="api.libreoffice.org com::sun::star Module Reference">https://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star.html</link></paragraph>
+
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
+<bookmark xml-lang="en-US" branch="index" id="bm_id731561653332192">
+<bookmark_value>Calc functions;API Service</bookmark_value>
+</bookmark>
+<paragraph role="paragraph" id="par_id891561653344669">Calling Calc functions in Basic:</paragraph>
+<section id="calcinternalfunctions">
+<bascode>
+    <paragraph role="bascode" id="par_id741592351349391" xml-lang="en-US">REM The code below does not work for add-in functions, which have a different calling procedure.</paragraph>
+    <paragraph role="bascode" id="par_id511561653511948" xml-lang="en-US" localize="false">Function MyVlook(item, InRange As Object, FromCol As Integer)</paragraph>
+    <paragraph role="bascode" id="par_id771561653522280" xml-lang="en-US" localize="false">    Dim oService As Object</paragraph>
+    <paragraph role="bascode" id="par_id791561653536896" xml-lang="en-US" localize="false">    oService = createUnoService("com.sun.star.sheet.FunctionAccess")</paragraph>
+    <paragraph role="bascode" id="par_id31561653863623" xml-lang="en-US">    REM Always use the function English name</paragraph>
+    <paragraph role="bascode" id="par_id391561653548274" xml-lang="en-US" localize="false">    MyVlook = oService.callFunction("VLOOKUP",Array(item, InRange, FromCol, True))</paragraph>
+    <paragraph role="bascode" id="par_id951561653556383" xml-lang="en-US" localize="false">End Function</paragraph>
+</bascode>
+</section>
+<embed href="text/sbasic/shared/00000003.xhp#functexample"/>
+<paragraph id="par_id3154046" role="paragraph" localize="false" xml-lang="en-US"><literal>oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )</literal></paragraph>
+<bookmark xml-lang="en-US" branch="index" id="bm_id8334604">
+<bookmark_value>filepicker;API service</bookmark_value>
+</bookmark>
+<paragraph id="par_idN10625" role="paragraph" xml-lang="en-US">The following code uses a service to open a file open dialog:</paragraph>
+<bascode>
+<paragraph id="par_idm1206777616" role="bascode" localize="false" xml-lang="en-US">Sub Main</paragraph>
+<paragraph id="par_idN1062B" role="bascode" xml-lang="en-US">    fName = FileOpenDialog ("Please select a file")</paragraph>
+<paragraph id="par_idN10630" role="bascode" xml-lang="en-US">    Print "file chosen: "+fName</paragraph>
+<paragraph id="par_idm1206774256" role="bascode" localize="false" xml-lang="en-US">End Sub</paragraph>
+<paragraph id="par_idm1206773152" role="bascode" localize="false" xml-lang="en-US"> </paragraph>
+<paragraph id="par_idm1206772000" role="bascode" localize="false" xml-lang="en-US">Function FileOpenDialog(title As String) As String</paragraph>
+<paragraph id="par_idm1206770832" role="bascode" localize="false" xml-lang="en-US">    filepicker = createUnoService("com.sun.star.ui.dialogs.FilePicker")</paragraph>
+<paragraph id="par_idm1206769648" role="bascode" localize="false" xml-lang="en-US">    filepicker.Title = title</paragraph>
+<paragraph id="par_idm1206768496" role="bascode" localize="false" xml-lang="en-US">    filepicker.execute()</paragraph>
+<paragraph id="par_idm1206767344" role="bascode" localize="false" xml-lang="en-US">    files = filepicker.getFiles()</paragraph>
+<paragraph id="par_idm1206766192" role="bascode" localize="false" xml-lang="en-US">    FileOpenDialog=files(0)</paragraph>
+<paragraph id="par_idm1206765040" role="bascode" localize="false" xml-lang="en-US">End Function</paragraph>
+</bascode>
+<section id="relatedtopics">
+    <embed href="text/sbasic/shared/calc_functions.xhp#CallingCalcFunctionsh1"/>
+</section>
+</body>
+</helpdocument>