Add an Inline Button to a Word Document - Getting started

I'm running Word 365 and have a need to add a couple of inline command buttons to a document. This is rather like adding a command button to a worksheet in Excel, except that the target is a Word Document not a spreadsheet.

I have some 'sample' code that I am starting with (copied from a MS SUpport posting):

Please Login or Register  to view this content.

The sub zTestAddInlineButton allows me to execute the AddInLineButton sub without having to provide a parameter.

Everything goes (fairly) well, except that the button gets added in the same place every time. If I move to a different place in the document and run the macro again, it still ends up in the same place (which happens to be the start of the document).

Obviously (?) there are aspects to adding an OLEControl to the InLineShapes collection that are not being addressed. The properties of an InLineShape include a Range - which should allow me to specify a location. The question then becomes - how do I determine where the cursor is - so I can use those values for the InLineShape.Range?

This may well be an extended conversation, as most of my experience is with Excel VBA.

All help and most suggestions appreciated!

Tony

To determine where the cursor is you can use "Selection.Range")

Try adding this line to the top of your code, with the other Dim lines:

Please Login or Register  to view this content.

Then changing this line:

Please Login or Register  to view this content.

To this:

Please Login or Register  to view this content.

That should add the button to the current cursor location.

Hopefully anyway. I've not used VBA in Word for YEARS!

BSB

Thanks, BSB
hink I get the same result by using the Range parameter of AddOLEControl.

There seems to be no linkage back from a control handler (CommandButton1_Click) to the InlineSHape, where there are some useful properties!

I hear what you say about Word VBA. I did some work in it, about 25 years ago, but have not looked at it since.

Thanks, again,

Tony
I

Try:

Please Login or Register  to view this content.