Recorded macro won't run in Word 2010

[Bruce18W]

Hi,

I recorded this macro in Word 2010 (intending to later modify it). Note, when I recorded the macro, Word inserted a figure reference, which is what I wanted it to do.

Sub Macro3()
Selection.InsertCrossReference ReferenceType:="Figure", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub

When I tried to run the macro, I received the error:

Run-time error '4198':
Command failed

I think I disabled most of the security settings for running macros (especially my own!), but still cannot get this little snippet to run. Any ideas?

Thanks, Bruce

 

[macropod]

The macro works fine when I run it, provided there is a 'Figure 1' Caption to insert the cross-reference to. Without the 'Figure 1' Caption, you will indeed get the Run-time error '4198'.

Do note that, as coded, your macro can only ever insert a cross-reference to the 'Figure 1' Caption.

Cheers
Paul Edstein
[MS MVP - Word]

 

[Bruce18W]

Paul,
Thanks for the tip. There is indeed a Figure 1 caption in the document. I recorded the macro as I was creating the cross reference to Figure 1. When I then tried to run the macro, I received the error. Do you have any other ideas?

Bruce

 

[macropod]

As I said, in my testing the macro runs fine - provided there is a Figure 1 caption in the document.

Cheers
Paul Edstein
[MS MVP - Word]

 

[Hoaokapohaku]

You might have to tweak this a little, but I think it does something close to what you want:

Sub Macro1()

    With Selection
        .InsertCaption Label:="Figure", TitleAutoText:="", Title:="", _
            Position:=wdCaptionPositionBelow, ExcludeLabel:=0
        .InsertCrossReference ReferenceType:="Figure", ReferenceKind:= _
            wdOnlyLabelAndNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _
            IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    End With
End Sub

 

[Bruce18W]

Thanks for your post.

In my original post, I stated that this is a recorded macro, that is, I used Word to record this macro while I inserted a reference to a figure. When I recorded this macro, Word did indeed insert a reference to a figure. I do not think the code is the problem.

Rather, Word has some settings that are preventing this code from running within VBA. Also, now I cannot even record a macro in Word. I think it's time to reinstall Word, but before I do that, does anyone know which security settings (or other settings) might be preventing this code from running or preventing me from recording a macro.

Thanks, Bruce

 

[macropod]

Hi Bruce,

Word's macro security settings (configurable via Developer|Macro Security) can prevent macros from running, but would not cause Run-time error '4198'. The normal macro security setting for the safe running of macros is "Disable all macro with notification".

As for reinstalling Word, you might find that just closing & re-starting Windows fixes things; if not a repair is just as likely to fix anything that a reinstall might. You can repair the Office installation via Programs & Features > Microsoft Office > Change in the Windows Control Panel.

Cheers
Paul Edstein
[MS MVP - Word]

 

[Bruce18W]

Paul,
Thanks for the suggestions. I rebooted computer (error still appeared) and repaired Office (error still appeared). I have a similar function that inserts heading references, and that works fine. I once again created a macro by recording the keystrokes that insert a figure cross reference. When I tried running the macro, I again received the error, Run-time error '4198': Command failed .

Any more ideas?

Thanks, Bruce

Sub Macro7()
'
' Macro7 Macro
'
'
Selection.InsertCrossReference ReferenceType:="Figure", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
End Sub

 

[Hoaokapohaku]

Before reinstall, you might try closing Word, renaming your normal.dot file to something else, start Word again and see if you still have the problem. Word will create a new clean normal.dot file. If your macro is in the normal.dot file, you will have to put it in the new normal file before you can test.

 

[Bruce18W]

Thanks for the reminder!
Bruce