H
Henry Stock
Would sombody please give me a hint on how to do this?
I have a 300 page word document that I am supposed to use as the basis for
building a help project.
The document has many images in it, many that allow word wrapping. This
doesn's convert very well
to the html format that I have to use for the help, so I want to build a
macro that will search for all images and
allow me to enclose these images inside tables and left align both the
tables and images
One of the issues that I face is that some of the images are already inside
a table and for these I do not want to
add yet another surroundng table. But I don't know how to test to see if my
selection is inside a table.
The code below I got from just recording a macro. This finds and selects
images.
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
I have a 300 page word document that I am supposed to use as the basis for
building a help project.
The document has many images in it, many that allow word wrapping. This
doesn's convert very well
to the html format that I have to use for the help, so I want to build a
macro that will search for all images and
allow me to enclose these images inside tables and left align both the
tables and images
One of the issues that I face is that some of the images are already inside
a table and for these I do not want to
add yet another surroundng table. But I don't know how to test to see if my
selection is inside a table.
The code below I got from just recording a macro. This finds and selects
images.
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute