Re: [libreoffice-users] Renaming Tabs in a spreadsheet in bulk.

Hi Gordon,

Am 03.02.2012 17:06, schrieb Gordon Burgess-Parker:

> On 03/02/2012 15:50, Tom Davies wrote:

> > Hi :)
> > Have you opened the ods as an archived-file / zip-file?  Are the
> > tab-labels in the contents.xml in there?
> > Regards from
> > Tom :)

Did you try Toms hint?

> I tried adding this Macro:
>
> Sub Rename_Tabs()
>  Dim x As Long, suffix As String
>  Dim v as Variant
>  suffix = " 12"
>  v = Split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec", ",")
> *For x = 1 To Worksheets.Count*
>      If Not IsError(Application.Match(Left(Sheets(x).Name, 3), v,
> 0)) Then
>      Sheets(x).Name = Left(Sheets(x).Name, 3) & suffix
>      End If
>  Next
> End Sub
>
> But it fell over on the bolded portion. I'm not a macro person and
> this was copied from one in Excel that worked OK.
> Anyone tell me what I need to replace the bolded bit with?

(a) Do you want to have this question answered? Or (b) do you want
to be helped with your problem?

If (a) then replace
  For x = 1 To Worksheets.Count
by
  For x = 0 To thisComponent.Sheets.count-1

If (b) please recognize that your problem derives from an
unfortunate data layout, just as Andreas and Jiri have been pointing
out. However you could try to handle your situation by either
replacing the relevant values inside the content.xml, just as Tom
has been indicating. This can be done by the Search&Replace
functionality of any simple text editor. Or, if you would rather
have a BASIC macro doing the job, you will need to dive into the
StarOffice object modell, which is very different to Excel, which is
why it´s little help to present an Excel macro for this task.

http://wiki.documentfoundation.org/Macros could be a starting point.

Regards,
Stefan



-- 
LibreOffice - Die Freiheit nehm' ich mir!

-- 
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
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