12 lines
359 B
Plaintext
12 lines
359 B
Plaintext
|
Private Sub DeleteWarningPicture(ByVal textBoxName As String, ByVal saveDocAfter As Boolean)
|
||
|
|
Dim shape As Word.shape
|
||
|
|
For Each shape In ActiveDocument.Shapes
|
||
|
|
If StrComp(shape.Name, textBoxName) = 0 Then
|
||
|
|
shape.Delete
|
||
|
|
Exit For
|
||
|
|
End If
|
||
|
|
Next
|
||
|
|
If saveDocAfter Then
|
||
|
|
ActiveDocument.Save
|
||
|
|
End If
|
||
|
|
End Sub
|