MobileRead Forums - View Single Post

FRDV · 03-24-2008, 08:38 AM

Hi Peter

Great job, I was searching something like this for long.

I tried your 3.1 macro with a fresh installation of OpenOffice (v2.3) under Windows and everythings worked well.

I have done a little change in function fnExportParaStyle to suit my own taste in paragraph formatting, in the following line:

Code:

if oPar.ParaFirstLineIndent > 100 then  'first line indented (more than 1 mm)
	'sStr = "\a160\a160\a160\a160" & sStr	'4 non-breaking spaces
	sStr = "\t \t" & sStr

I think this is better like this.

To be perfect, your macro need a little more thing: delete the \a160\a160\a160\a160 (or my \t \t) when there is nothing else behind it.

Fred

03-24-2008, 08:38 AM	#6
FRDV Junior Member Posts: 1 Karma: 13 Join Date: Mar 2008 Device: Ereader / Tungsten T5	Hi Peter Great job, I was searching something like this for long. I tried your 3.1 macro with a fresh installation of OpenOffice (v2.3) under Windows and everythings worked well. I have done a little change in function fnExportParaStyle to suit my own taste in paragraph formatting, in the following line: Code: if oPar.ParaFirstLineIndent > 100 then 'first line indented (more than 1 mm) 'sStr = "\a160\a160\a160\a160" & sStr '4 non-breaking spaces sStr = "\t \t" & sStr I think this is better like this. To be perfect, your macro need a little more thing: delete the \a160\a160\a160\a160 (or my \t \t) when there is nothing else behind it. Fred