vba code in word to delete line having inline shape

gmayor · #8 06-18-2015, 10:02 PM

It gets us a little closer, but the document is bizarrely formatted using assorted tables, with different numbers of columns in the rows. Even on a basic level such tables are difficult to handle.

However, as you originally identified, the only thing you can really hang the code on here is the size of the graphics. If we can assume all the graphics to be removed have the same sizes then the following macro may work, but without the document to test against the results may be unpredictable because of the table format:

Code:

Sub DeleteImages()
Dim oShape As InlineShape
Dim oRng As Range
    For Each oShape In ActiveDocument.InlineShapes
        If oShape.Height = 24 And oShape.Width = 24 Then
            Set oRng = oShape.Range
            oRng.Rows(1).Delete
        End If
    Next oShape
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to write Text above the Shape Line in Ms Word 2010	tahakirmani	Word	2	11-28-2013 05:33 PM
Adapting a line shape	NikkiB	Word	4	03-18-2013 08:45 AM
Find/Delete inline Page #'s	alderfall	Word	6	11-06-2012 11:51 AM
How do i get my text in columns straight and inline in word 2007?	terrasaw	Word	0	09-03-2008 06:00 AM
Delete excel files by code in Access	Barry Richardson	Office	0	06-13-2005 06:26 AM