find a caption

[stuck]

With a bit of luck I'll find the answer with my next Google search but meanwhile...

I want some code to find a caption in my document, specifically a Table. It will be styled correctly with the caption style. Any suggestions gratefully received.

Thanks,

Ken

[StuartR]

Presumably you mean something more sophisticated than

Code: Select all

    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Caption")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute

[stuck]

No, sophistication is beyond my limited VBA skills so that will do nicely.



Ken

[macropod]

You don't even need VBA for this - a simple Find will do...

[stuck]

...a simple Find will do...

Not I my context, the macro I'm constructing needs to be able to find Captions, I needed example code to get me started.

Ken

[macropod]

In that case, you can even differentiate between caption types. For example, the following will select the first Table caption, ignoring all others:

Code: Select all

Sub Demo()
Application.ScreenUpdating = False
ActiveWindow.View.ShowFieldCodes = True
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = True
    .Forward = True
    .Style = "Caption"
    .Text = "^d SEQ Table"
    .Replacement.Text = ""
    .Wrap = wdFindContinue
    .MatchWildcards = False
    .Execute
  End With
    If .Find.Found Then .Paragraphs(1).Range.Select
End With
ActiveWindow.View.ShowFieldCodes = False
Application.ScreenUpdating = True
End Sub

[stuck]

...select the first Table caption, ignoring all others...

and by extrapolation I could tweak the line
.Text = "^d SEQ Table"
to say
.Text = "^d SEQ Figure"
and find the first Figure, correct? No need to answer though, I'll experiment and learn by my mistakes

Ken

[HansV]

As you probably expected, you can use each of the labels defined for captions. The labels Equation, Figure and Table are built-in, but it works the same for custom labels defined by clicking 'New Label...' in the Caption dialog.

S115.png

[Charles Kenyon]

Just one other thought...
The macro invokes regular (advanced) find capabilities. If this is something you normally need to do on a frequent basis, a macro is fine. Otherwise, you'll be ahead of the game simply learning to use the find dialog. To get to styles, you need to click on the More button and then Format.