I have a document created by someone else with nearly 100 pages and probably 1000 circles. I need to write some vba code to change the thickness to 4.5 (it is currently 0.75).

I have never written any vba code before, but have used small sections obtained online in the past. Any help would be greatly appreciated.

I'm thinking the code would need to select the shape, set the thickness then move onto the next shape altering the same property in a loop.

Here is what i have so far...



Sub CircleThickness()
With ActiveDocument.Shapes(1)
.AutoShapeType = msoShapeOval
.Line.Weight = 4.5
End Sub

Attached Files

MathPuzzleSample.docm (55.5 KB, 8 views)