Testing if this option of sending works??
sub ZT
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim sText
dim mText
dim sTime
dim eTime
sTime = InputBox ("Enter Cell with Start Time: Example A1")
eTime = InputBox ("Enter Cell with End Time: Example A20")
sText = sTime &"," & eTime
mText = eTime & "-" & sTime
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "StringName"
args1(0).Value = "=DATEDIF(" & sText & ",""d"")"&"&"" days ""&TEXT(("&
mText &")-INT("& mText &"),"" H """"Hours """" M """"Minutes"""" "") "
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
end sub
+------------------------------------------------------------+
Michael D. Setzer II - Computer Science Instructor (Retired)
mailto:[email protected]
mailto:[email protected]
Guam - Where America's Day Begins
G4L Disk Imaging Project maintainer
http://sourceforge.net/projects/g4l/
+------------------------------------------------------------+
--
To unsubscribe e-mail to: [email protected]
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy
