Beste Tweakers,
Ik probeer tekstvakken in een Word-document te verwijderen op basis van specifieke eigenschappen, zoals tekstinhoud, afmetingen en doorzichtigheid. Ik heb verschillende VBA-macro's geprobeerd, maar geen enkele lijkt te werken.
Ik heb geprobeerd te zoeken op tekstinhoud en specifieke afmetingen, en ik heb ook een macro gebruikt om tekstvakken met een doorzichtigheid van 80% te verwijderen. Helaas heb ik nog geen succes gehad.
Hier is een voorbeeld van de laatste macro die ik heb geprobeerd:
Is er iemand die me kan helpen begrijpen waarom deze macro niet werkt of die mogelijk een andere benadering kan voorstellen om tekstvakken met deze specifieke eigenschappen te verwijderen?
Ik probeer tekstvakken in een Word-document te verwijderen op basis van specifieke eigenschappen, zoals tekstinhoud, afmetingen en doorzichtigheid. Ik heb verschillende VBA-macro's geprobeerd, maar geen enkele lijkt te werken.
Ik heb geprobeerd te zoeken op tekstinhoud en specifieke afmetingen, en ik heb ook een macro gebruikt om tekstvakken met een doorzichtigheid van 80% te verwijderen. Helaas heb ik nog geen succes gehad.
Hier is een voorbeeld van de laatste macro die ik heb geprobeerd:
code:
1
2
3
4
5
6
7
8
9
10
11
| Sub VerwijderTekstvakMetDoorzichtigheid() Dim shp As Shape Dim i As Long For i = ActiveDocument.Shapes.Count To 1 Step -1 Set shp = ActiveDocument.Shapes(i) If shp.Type = msoTextBox And shp.Fill.Transparency = 0.8 Then shp.Delete End If Next i End Sub |
Is er iemand die me kan helpen begrijpen waarom deze macro niet werkt of die mogelijk een andere benadering kan voorstellen om tekstvakken met deze specifieke eigenschappen te verwijderen?