[Peter Jamieson]

OK, now back in action for a few hours...

1. Do you need to set a "starting" Figure number as your original post
suggests, or will that number always actually be 1?
2. If RoboHelp is just converting a number of separate articles (or
whatever it calls them) into a single Word document, does that mean that you
can end up with multiple "Figure 1" captions in the same document, e.g.

blah blah (See Figure 1)
Figure 1
Figure 2
blah blah (see Figure 2)
blah blah new article(See Figure 1)
Figure 1
and so on

3. If so, is there any obvious way to tell where a new article starts to
avoid making the wrong references? (it seems likely that if the document is
constructed from short articles you may get a number of "Figure 1"
references and items in succession, but from different articles.

Peter Jamieson

"Peter Jamieson" wrote in message
...
Tom,

What I'd /probably do in this scenario is try to expand on Greg's macro
and look separately for references (e.g. "See Figure nnn") and the figure
identifiers themselves, then mark them in some way that would enable me to
match them up. Greg may have some further ideas but I'll have to think
about how I'd approach this and time marches on on this side of the
pond...

Apart from that, I suppose I might want to take another look at RoboHelp
just to be sure that I hadn't missed some referencing feature that would
help me maintain references when I output to Word. But since I don't have
that software, I couldn't really say what I'd be looking for...

Peter Jamieson
"Tom" wrote in message
ups.com...
Peter,

Thanks for the explanations about the differences between DocVariables
and DocProperties. That does make it a little clearer. You asked,

However, how to maintain these references depends on what you're
doing - you mention "your HTML document". Are you starting with that and
trying to create a Word document from it, or what?

To view an HTML document similar to the ones I create, open up Internet
Explorer 6.0 and go to Help Contents and Index. What loads is an Web
Help application of some kind. RoboHelp essentially creates the same
online help tool.

RoboHelp also exports all of these topics to Microsoft Word. Where
RoboHelp falls short is in converting links to cross references. It
just doesn't seem to do it, and I'm not sure of any workaround. That's
why I was thinking that maybe if I stored some kind of variable in the
HTML, I could convert it into a unique cross reference in Word. But
that doesn't really seem probable, right?

[Tom]

Peter, let me provide a better picture of what I want my document to
look like. Here is the gist of it:

Blah blah blah blah blah blah blah. See Figure 1.

[image]
Figure 1. Image caption

blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah. See
Figure 2.

[image]
Figure 2. Image caption

blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah blah blah blah blah blah blah blah
blah blah blah blah blah blah blah. See Figure 3.

[image]
Figure 3. Image caption

The Figure numbering does not start over (in other words, there is only
one Figure 1 in the entire document). Thanks to the earlier code you
guys posted on automating captions, the captions part works great. The
only part that remains is the "See Figure 1" reference that precedes
the caption.

It becomes slightly more complicated because in my RoboHelp source
file, I may have 200 topics and only choose to compile 150 of them
(depending on the needs of the audience).

Here is what I think might work -- I will label each "See Figure 1",
"See Figure 2" and so on as "See FigureZ." (All the same.)

Then here's what I want the code to do:

Look for first instance of the word "See FigureZ" and change it to See
Figure 1. Stop. Now look for the first instance of "See FigureZ" and
change it to See Figure 2. Stop. Now look for the first instance of
"See FigureZ" and change it to See Figure 3. Stop. Now look for the
first instance of "See FigureZ" and change it to Figure 4. Repeat until
100 Figure replacements or so.

I figure that after the first command changes the See FigureZ to Figure
1, then upon second looping, the first FigureZ instance that appears
will be placed exactly where Figure 2 should appear.

Can any of you write a macro that does this? I would so appreciate it.
Or do you have a better solution? Thanks so much for your help on
this. This seems like the last piece to the puzzle.

[Tom]

I think I can easily accomplish my see references using this method:

1. In my RoboHelp file, tag the "1" in the phrase See Figure 1 with a
unique style.
2. When I export to Word, the style carries over.
3. In Word, type { AutoNum \*Arabic }. Or go to Insert Field
AutoNum and see the same code. Select this field code and copy it to
the clipboard.
4. Do a find and replace of the unique style with the AutoNum field
code.

This numbering won't interfere with captions or lists.

I'd like to make it into a macro that I can just run.

Greg, earlier you wrote this code:

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Text = "XYZ"
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.InsertCaption Label:="Figure"
Wend
End With
End Sub

Instead of writing .Text, can I use a style there?
And instead of using InsertCaption Label:="Figure", what would I use to
insert the AutoNum tag? I tried InsertAutoNum but it didn't work.

[Peter Jamieson]

OK, I think what you're saying is that
a. you want to number your figures sequentially
b. you always have exactly one "See Figure X" for each Figure X
c. the "See figure" reference always precedes the Figure number it's
referrring to

But if that is the case, I don't really understand why you need to insert
"proper" figure references using SEQ fields or whatever, particlarly if
RoboHelp is always generating the correct sequence numbers with no gaps. Why
not just do all the numbering directly from your macro (and not use any
fields)?

The main reason I can think of is that you want to do the Figure numbering
"properly" so that someone can take the Word document and add stuff
including other references. But if that's the case, they won't be able to
use the same referencing mechanism you are providing to them, brcause one
extra { AutoNum \*Arabic } in the document will throw the whole scheme out.

But to answer your questions...

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Text = "XYZ"
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.InsertCaption Label:="Figure"
Wend
End With
End Sub

Instead of writing .Text, can I use a style there?

Yes, you can use

..Style = ActiveDocument.Styles("mystyle")

And instead of using InsertCaption Label:="Figure", what would I use to
insert the AutoNum tag? I tried InsertAutoNum but it didn't work.

You can use

myRange.Fields.Add range:=myRange, type:=wdfieldempty, text:="AutoNum
\*Arabic", preserveformatting:=false

You should be able to do both operations in succession using something like

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Text = "XYZ"
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.InsertCaption Label:="Figure"
Wend
End With
' Following line may be unnecessary, or
' you may need to do more to reset the Find object
Set myRange = Nothing
Set myRange = ActiveDocument.Range
With myRange.Find
.Style = ActiveDocument.Styles("mystyle")
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.Fields.Add _
range:=myRange, _
type:=wdfieldempty, _
text:="AutoNum \*Arabic", _
preserveformatting:=false
Wend
End With
End Sub

(But I haven't tested it!)

Peter Jamieson

"Tom" wrote in message
oups.com...
I think I can easily accomplish my see references using this method:

1. In my RoboHelp file, tag the "1" in the phrase See Figure 1 with a
unique style.
2. When I export to Word, the style carries over.
3. In Word, type { AutoNum \*Arabic }. Or go to Insert Field
AutoNum and see the same code. Select this field code and copy it to
the clipboard.
4. Do a find and replace of the unique style with the AutoNum field
code.

This numbering won't interfere with captions or lists.

I'd like to make it into a macro that I can just run.

Greg, earlier you wrote this code:

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Text = "XYZ"
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.InsertCaption Label:="Figure"
Wend
End With
End Sub

Instead of writing .Text, can I use a style there?
And instead of using InsertCaption Label:="Figure", what would I use to
insert the AutoNum tag? I tried InsertAutoNum but it didn't work.

[Tom]

Peter,

The macro code you wrote works perfectly! Thanks. It's really
impressive to see all of these macros in action. I'm planning to put
them all together into a template that technical writers can easily use
to convert RoboHelp generated source material into a Word document.

I have a related question. In the following code, how would I change
the line myRange.InsertCaption Label:="Figure" to replace the
"mystyle" with another style, such as "stylex"? In other words, how do
I swap styles? (I thought it would be something like
myRange.InsertStyleRef ("stylex") but it didn't work.)

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Style = ActiveDocument.Styles("mystyle")
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.InsertCaption Label:="Figure"
Wend
End With
End Sub


Also, let's say I have 15 style swaps that I want to make with one
macro. I'm assuming that i just remove the words "End Sub" from the
end, and add the additional macro code, but without the additional
macro's name (e.g., Sub ScratchMacro())?

Thanks.

[Peter Jamieson]

"mystyle" with another style, such as "stylex"? In other words, how do
I swap styles? (I thought it would be something like
myRange.InsertStyleRef ("stylex") but it didn't work.)

What you probably need is
myRange.Style = "stylex"

However, it depends partly on whether you want to apply a style to the
entire paragraph or the text in the range (and/or whether you are applying a
paragraph style or a character style)

Peter Jamieson

"Tom" wrote in message
ps.com...
Peter,

The macro code you wrote works perfectly! Thanks. It's really
impressive to see all of these macros in action. I'm planning to put
them all together into a template that technical writers can easily use
to convert RoboHelp generated source material into a Word document.

I have a related question. In the following code, how would I change
the line myRange.InsertCaption Label:="Figure" to replace the
"mystyle" with another style, such as "stylex"? In other words, how do
I swap styles? (I thought it would be something like
myRange.InsertStyleRef ("stylex") but it didn't work.)

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Style = ActiveDocument.Styles("mystyle")
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.InsertCaption Label:="Figure"
Wend
End With
End Sub


Also, let's say I have 15 style swaps that I want to make with one
macro. I'm assuming that i just remove the words "End Sub" from the
end, and add the additional macro code, but without the additional
macro's name (e.g., Sub ScratchMacro())?

Thanks.

[Tom]

Thanks Peter. Strangely, the macro seemed to work the first couple of
times, and then it stopped working. Now it only deletes the style, and
doesn't replace it. This is what I'm running:

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Style = ActiveDocument.Styles("mystyle")
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.Style = "stylex"
Wend
End With
End Sub


Of course in my Word document I have both "mystyle" and "stylex"
defined in the styles.

I was also curious about how to run multiple style swaps in the same
macro -- for example, if I had a list of styles that I wanted to change
out with one click, how would I do that? Would I just include the next
macro before End Sub? I have tried that but it doesn't seem to work.
Thanks.

Tom

[Tom]

Thanks Peter. Strangely, the macro seemed to work the first couple of
times, and then it stopped working. Now it only deletes the style, and
doesn't replace it. This is what I'm running:

Sub ScratchMacro()
Dim myRange As Range
Set myRange = ActiveDocument.Range
With myRange.Find
.Style = ActiveDocument.Styles("mystyle")
.MatchWholeWord = True
While .Execute
myRange.Delete
myRange.Style = "stylex"
Wend
End With
End Sub


Of course in my Word document I have both "mystyle" and "stylex"
defined in the styles.

I was also curious about how to run multiple style swaps in the same
macro -- for example, if I had a list of styles that I wanted to change
out with one click, how would I do that? Would I just include the next
macro before End Sub? I have tried that but it doesn't seem to work.
Thanks.

Tom