On 23/09/2012 19:06, Mirosław Zalewski wrote:
On 23/09/2012 at 18:43, AndrewB <[email protected]> wrote:
Do I really have to do them one-at-a-time?
You can write a macro or unzip ODT file and modify one of XML files in there.
hope this code will help
greetz
fernand
sub changeanchoring
odocument = thiscomponent
Dim oDocGraphics as Object
dim oGraphic1 as Object
dim sGfilename as string
dim vAlleFotos as variant
GlobalScope.BasicLibraries.loadLibrary("Tools")
oDocGraphics = odocument.GraphicObjects
vAlleFotos = oDocGraphics.getElementNames()
For iG = 0 to oDocGraphics.count - 1
iFotNr = ig + 1
sFotMetNr = vAlleFotos(iG)
oGraphic1 = oDocGraphics.GetbyName(sFotMetNr)
if oGraphic1.AnchorType <>
com.sun.star.text.TextContentAnchorType.AS_CHARACTER
oGraphic1.AnchorType =
com.sun.star.text.TextContentAnchorType.AS_CHARACTER
endif
next
end sub
But if you don't have any programming background, then I am afraid that doing
them one-by-one will be easiest solution. Quite tiresome, though.
--
For unsubscribe instructions e-mail to: [email protected]
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted
