Frame index

[jstevens]

Using VBA how does one return a "frame" index?

I have a number of frames that I would like to assign code to and have the code select specific code based on the frame selected. Similar to Excel's "select case".

Your advice is appreciated.

[HansV]

The selected frame is Selection.Frames(1)

[jstevens]

The selected frame is Selection.Frames(1)

Hans,

So if I have 10 frames the index for each frame would be: Selection.Frames(1), Selection.Frames(2) and etc.?

Would the VBA code to identify the frame index then be: Msgbox Selection.Frames.Index ? The returned value would be 1, 2, 3,.... 10.

[HansV]

Do you really need the index of the selected frame, or do you need the selected frame object itself?

[jstevens]

Hans,

I created "frame 1" with checkboxes (Yes/No) and assigned VBA code to the "Entry" field option of each checkbox. The code (found it online) works great but does not work on the other frames.

Code: Select all

Sub MakeCheckBoxesExclusive()

Dim oField As FormField

For Each oField In Selection.Frames(1).Range.FormFields
    oField.CheckBox.Value = False
Next oField

Selection.FormFields(1).CheckBox.Value = True

End Sub

[HansV]

It appears to work for me. I have attached a very simple sample document with two frames, each with three check boxes. Your macro has been assigned to each of the check boxes.

FramesAndCheckBoxes.docm

[jstevens]

Hans,

What version of Word are you using? I'm on 2010.

Is it possible to have the frame inside a table cell? I copied the frame and pasted it into the table cells. It appears that only the objects of the frame were pasted.

EL_70.png

[HansV]

I'm using Word 2019.

You cannot have a frame inside a table cell. A frame is a floating object.

[jstevens]

Hans,

Since the two checkboxes are in table cells can the code be modified accordingly?

[HansV]

Simply change Selection.Frames(1) to Selection.Cells(1)

[jstevens]

Hans,

Thanks for the suggestion.