List is screwing with the messages by removing quotes and some places spaces?? Send myself a copy of message and it is unmodified? So, assume is some filter system that is brain dead??
Did a replace of all quotes in macro to ~. Hopefully, that will go thru, and the other spaces will not be eliminated?? Worked on creating a macro, and had to change it to two inputs. Tried to do the single input, but ran into issues splitting it to change order and convert , to -?? So simple solution to input each separate. Hopefully, the email will have the's correctly.. Seems the Server screwed it up again. Saw the post and all the quotes and spaces were stripped in lines with them. So not clear why the are being changes. Option spaces and lines seem to be oK So changing lines with quotes to use ~ and _ for spaces? If someone knows why the list is screwing this up, or how to prevent it?? sub ZT rem ---------------------------------------------------------------------- rem define variables dim documentas 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 rem --These lines it just eliminated the quotes?? sTime = InputBox (~Enter Cell with Start Time: Example A1~) eTime = InputBox (~Enter Cell with End Time: Example A20~) rem these lines it removed quotes and spaces and ampersands sText = sTime_~,~__eTime mText = eTime_~-~__sTime rem ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = ~StringName~ rem this line has a number of spaces, but will see if changing quotes to ~ leaves them ok?? args1(0).Value = ~=DATEDIF(~sText~,~~d~~)~~~~ days ~~TEXT((~mText~)-INT(~mText~),~~ H ~~~~Hours ~~~~ M ~~~~Minutes~~~~ ~~) ~ dispatcher.executeDispatch(document, ~.uno:EnterString~, ~~, 0, args1()) end sub -- To unsubscribe e-mail to: users+unsubscr...@global.libreoffice.org 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