atw: Re: Word renumbering woes

"ListGalleries" is the place to start - it will link to the templates.
Use the help to get all the options.

Here is a snippet of code that sets up the first heading level using
list template #3 (picked at random), and stores it in the outline number
gallery (with a hanging indent) - I do something similar for all 9
levels.

This was generated many years ago (try recording a macro to set the list
format). It still works in Office 2007, but there are new features that
I haven't tested yet.

Cheers,
Margaret
----------------------------------------------------------------------
    With
ListGalleries(wdOutlineNumberGallery).ListTemplates(3).ListLevels(1)
        .NumberFormat = "%1"
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleArabic
        .NumberPosition = CentimetersToPoints(-1.3)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = CentimetersToPoints(0)
        .TabPosition = CentimetersToPoints(0)
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = ""
        End With
        .LinkedStyle = "Heading 1"
    End With


----------------------------------------------------------------------

-----Original Message-----
From: austechwriter-bounce@xxxxxxxxxxxxx
[mailto:austechwriter-bounce@xxxxxxxxxxxxx] On Behalf Of Daryl Colquhoun
Sent: Tuesday, 14 July 2009 7:34 AM
To: austechwriter list
Subject: atw: Re: Word renumbering woes

While we're on this subject again, let me raise something I've long
wondered 
about. Word has internal things called list templates, and apparently
these 
are the things that can cause the trouble. Does anyone know the VBA
commands 
used to search for, display and generally manipulate list templates?


Emails sent to this address are deleted unread as an anti-spam measure. 

**************************************************
To view the austechwriter archives, go to
www.freelists.org/archives/austechwriter

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx
with "unsubscribe" in the Subject field (without quotes).

To manage your subscription (e.g., set and unset DIGEST and VACATION
modes) go to www.freelists.org/list/austechwriter

To contact the list administrator, send a message to
austechwriter-admins@xxxxxxxxxxxxx
**************************************************

---
This email and any files transmitted with it are solely intended for the use of 
the addressee(s) and may contain information that is confidential and 
privileged.  If you receive this email in error, please advise us by return 
email immediately.  Please also disregard the contents of the email, delete it 
and destroy any copies immediately.
Computershare Limited and its subsidiaries do not accept liability for the 
views expressed in the email or for the consequences of any computer viruses 
that may be transmitted with this email.
This email is also subject to copyright.  No part of it should be reproduced, 
adapted or transmitted without the written consent of the copyright owner.

**************************************************
To view the austechwriter archives, go to 
www.freelists.org/archives/austechwriter

To unsubscribe, send a message to austechwriter-request@xxxxxxxxxxxxx with 
"unsubscribe" in the Subject field (without quotes).

To manage your subscription (e.g., set and unset DIGEST and VACATION modes) go 
to www.freelists.org/list/austechwriter

To contact the list administrator, send a message to 
austechwriter-admins@xxxxxxxxxxxxx
**************************************************

Other related posts: