[Solved] [Writer] Save first line as file name

[asbaker]

Edit: Split from [Writer] Save with first line as file name

This is an old thread but i'm a newbie after using Word 2000/2007 forever. I copied and installed the macro exactly as above and always get the error line about illegal characters in first line. That line is a variation of the words: LIBRE notes. I'd appreciate some hint of what I am doing wrong. I copied it exactly using the line including .odt even though I am using .doc Also tried my own path. Nothing gets past the error. Perhaps Libre Writer 7.1.6.2 is different? Thanks.

[JeJe]

Works for me on LO 7... did you remember the "\" at the end of your folder name

("C:\tmp\" & filename & ".odt")

LibreOffice 5.4 is the last to support Windows XP and Windows Vista if you're still using that.

https://ask.libreoffice.org/t/whats-lat ... ines/24434

Edit:

If you comment out the line

Code: Select all

On Error goto EH

with a ' in front so it becomes

Code: Select all

'On Error goto EH

then you can see on which line the error occurs.

[asbaker]

Thank you - that worked. Now I need to find a way to delete all the macros that did not work
Have a great day.

[JeJe]

If you want the saveas dialog to pop up with the first line as file name for a new document then it can be done by setting the document title to it first:

Code: Select all

sub SaveDialogWithFirstLineSuggestion
dim document   as object
dim dispatcher as object
txt = thiscomponent.text.createenumeration.nextelement.string
thiscomponent.title = txt
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, Array())
end sub

(Edit: I seem to remember this was asked for fairly recently but i can't find the thread and nobody (including me) had the answer.)

[Hagar Delest]

Now I need to find a way to delete all the macros that did not work

Open the Basic IDE and delete all the sub...end macros that are of no use.