Return value of StyleRef n in VBA variable

Izzie7 · #1 11-25-2014, 08:08 AM

I want to change the Alternative Text and Title in InLine Shapes (there are a lot) to be the previous Heading 4 and Heading 3 respectively. I can set the value to a constant with this code, but I have not figured out how to set them to be = StyleRef N field values. Any ideas?

Sub Macro1()
'
' Macro1 Macro
' Alt_text_removal
'
m = ActiveDocument.InlineShapes.Count

For n = 1 To m
With ActiveDocument.InlineShapes.Item(n)
.AlternativeText = ""
.Title = ""
End With
Next n
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Run Time Error '91': Object variable or With block variable not set using Catalogue Mailmerge	Berryblue	Mail Merge	1	11-13-2014 05:36 PM
Run-time error 91 object variable or with block variable not set	JUST ME	Word VBA	4	03-25-2014 06:56 AM
object variable or with block variable not set	MJP143	Excel	1	02-11-2013 05:07 AM
Run-time error '91': Object variable or With block variable not set	tinfanide	Excel Programming	2	06-10-2012 10:17 AM
Include URL in StyleRef?	profliz	Word	3	11-07-2011 09:20 AM