Replies

The problem with bookmarks is you can only assign them to one location. What I didn’t mention before is that I want to be able to use the same flag for different locations.

I could use a character style (and probably I will at first), but that will be a problem if the text already contains a character style.

Thanks again!!
Troy

This worked great. Thanks!!

You mentioned an Office VBA class. What do you mean by this and how can I find them?

Thanks!!
Troy

Sorry I took so long to get back with you, but just wanted to say thanks!! This worked perfectly for me.

Troy

Thanks for the help!! What you gave me, plus a little tweaking of my own, allowed me to search for and format the tables as I wanted to.

Just wanted to let you know I have received high praise from my manager (and even a couple of movie tickets) for the work I am doing on these macros. I gave you credit by name for your part in this. I guess I say all that to say you are doing a super job, and I really appreciate it. The series of macros I have developed with your help will save us literally hundreds, if not thousands, of hours of work.

Thanks again!!
Troy

Perhaps I was wrong in the terms I used. By “inline graphic” I meant a graphic sitting on a line in a paragraph (with “float over text” DISabled).

However, I found a work around using a series of searches/replaces.

After finding the work around, I found that my requirements had changed and I no longer need to differentiate between graphics on the first line and those on the second and following.

Thanks any way for the help!!!
Troy

I really appreciate your efforts in helping me restart number. The macro you sent worked great, except it ran unbareably slow. So I tried your first suggetion (about making my “Step” style start at level 2. After I read this suggestion, I had a “DUHH” moment as I grasped the intelligence and simplicity of this solution.

I have been able to implement this with one small exception: The only way to set up this style in a way that it does not revert was to do it in a macro. If I try set it manually in the Styles dialog box, by the time I hit my last OK, my “Step” style is tied once again to level 1.

As I said, I was successful at implementing this via a macro, but if I ever have to go into the bullets and numbering dialog (say to continue numbering in the rare cases where my level 1 style precedes the step style in the MIDDLE of a list) I find that it reverts, but can still “customize” the numbering to start at # (where # is the number at which my list should continue). This is not a major problem in this instance, but I would love to be able to get around it so I can use this same method in other, more widely used, templates.

I have printed my macro text below (you will notice that “Step” is actually linked to level 3 because I knew that in some cases I would have several lists in a row without a “Normal” style paragraph in between, so I put another style at level 2 as another means for restarting it):

Sub UDRestartNumbering()
‘
‘ UDRestartNumbering Macro
‘ Macro created 04/19/01 by Troy Wells
‘
With ActiveDocument.Styles(“Step”)
.AutomaticallyUpdate = False
.BaseStyle = “”
.NextParagraphStyle = “Step”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(1)
.NumberFormat = “”
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = wdUndefined
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdBlack
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “Normal”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(2)
.NumberFormat = “”
.TrailingCharacter = wdTrailingNone
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = wdUndefined
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “Procedure Head”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(3)
.NumberFormat = “%3.”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 18
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “Step”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(4)
.NumberFormat = “%4.”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleLowercaseLetter
.NumberPosition = 18
.Alignment = wdListLevelAlignLeft
.TextPosition = 30
.TabPosition = 36
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(5)
.NumberFormat = “%5)”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 30
.Alignment = wdListLevelAlignLeft
.TextPosition = 42
.TabPosition = 48
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(6)
.NumberFormat = “%6)”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleLowercaseLetter
.NumberPosition = 42
.Alignment = wdListLevelAlignLeft
.TextPosition = 56.4
.TabPosition = 60
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(7)
.NumberFormat = “(%7)”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 56.4
.Alignment = wdListLevelAlignLeft
.TextPosition = 74.4
.TabPosition = 74.4
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(8)
.NumberFormat = “”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 0
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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(9)
.NumberFormat = “”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 0
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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
ActiveDocument.Styles(“Step”).LinkToListTemplate ListTemplate:= _
ListGalleries(wdOutlineNumberGallery).ListTemplates(7), ListLevelNumber:= _
3
Selection.Style = ActiveDocument.Styles(“Step”)
End Sub

If you can help with this reversion problem, great (I wouldn’t be surprised if it were just a MS bug ), but you have already been a great help!!

Thanks again!!
Troy

Sorry I keep leaving out important information. The macro I created was to restart numbering. As I’m sure you know, numbering continues by default from list to list and must be restarted each time. While it is certainly possible to run this macro for each list (which is what we do currently), it would nice, especially in cases where we are not creating from scratch, to search for these blocks (which could be anywhere from 2 to 20 paragraphs each), select them, and restart the numbering all at once. I’ve included my current (lengthy though it may be due to the style containing multi-level numbering) macro below:

With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(1)
.NumberFormat = “%1.”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 18
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdBlack
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “Step”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(2)
.NumberFormat = “%2.”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleLowercaseLetter
.NumberPosition = 18
.Alignment = wdListLevelAlignLeft
.TextPosition = 30
.TabPosition = 36
.ResetOnHigher = True
.StartAt = 1
With .Font
.Bold = False
.Italic = False
.StrikeThrough = wdUndefined
.Subscript = wdUndefined
.Superscript = wdUndefined
.Shadow = wdUndefined
.Outline = wdUndefined
.Emboss = wdUndefined
.Engrave = wdUndefined
.AllCaps = wdUndefined
.Hidden = wdUndefined
.Underline = wdUndefined
.ColorIndex = wdUndefined
.Size = 11
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Times New Roman”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(3)
.NumberFormat = “%3)”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 30
.Alignment = wdListLevelAlignLeft
.TextPosition = 42
.TabPosition = 48
.ResetOnHigher = True
.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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(4)
.NumberFormat = “%4)”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleLowercaseLetter
.NumberPosition = 57
.Alignment = wdListLevelAlignLeft
.TextPosition = 71.4
.TabPosition = 75
.ResetOnHigher = True
.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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(5)
.NumberFormat = “(%5)”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleArabic
.NumberPosition = 71.4
.Alignment = wdListLevelAlignLeft
.TextPosition = 89.4
.TabPosition = 89.4
.ResetOnHigher = True
.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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(6)
.NumberFormat = “”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 0
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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(7)
.NumberFormat = “”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 0
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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(8)
.NumberFormat = “”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 0
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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
With ListGalleries(wdOutlineNumberGallery).ListTemplates(2).ListLevels(9)
.NumberFormat = “”
.TrailingCharacter = wdTrailingTab
.NumberStyle = wdListNumberStyleNone
.NumberPosition = 0
.Alignment = wdListLevelAlignLeft
.TextPosition = 0
.TabPosition = 18
.ResetOnHigher = True
.StartAt = 0
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
.ColorIndex = wdUndefined
.Size = wdUndefined
.Animation = wdUndefined
.DoubleStrikeThrough = wdUndefined
.Name = “Tms Rmn”
End With
.LinkedStyle = “”
End With
ListGalleries(wdOutlineNumberGallery).ListTemplates(2).Name = “”
Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _
wdOutlineNumberGallery).ListTemplates(2), ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList
End Sub

If you can improve on this macro feel free, but my main desire is to be able to search for and select a block of text which will already have the same style, so I can run this (or some other) macro to restart the numbering.

Thanks again!!
Troy

That did the trick. Thank you so much for your help!!

Troy

It would be Case A: (I want the paragraphs with Left indent of 18pts to get changed to one particular style, and I want the paragraphs with other indenting to get changed to a second particular style).

Thanks!!
P.S. The whole reason for this macro is to apply styles so I don’t need a macro in the future. Unfortunately, I cannot add styles in these particular HTML help files ahead of time.

Edited by TroyWells on 01/04/17 23:59.

Gary, YOU MADE MY DAY!!!!!!!
This worked perfectly.
EXCEPT…
After running this I realized I needed one more IF statement. I am not a VB programmer and could not figure out how to add this particular IF statement.

On most lines for the bulleted lists, if on the Format menu, I click Paragraph, the Left Indent is 18 pt, and the same with the numbered list. There are some exceptions for a second level of bullets and a second level of numbering.

If you can get me started with how to put this particular IF statement into the macro you sent, I can take it from there. I think I am mainly hung up on the syntax of this particular property.

Thanks again!!
Troy