Sub TEST()
Dim p As InlineShape
For Each p In ActiveDocument.InlineShapes
If p.width = 17.15 And p.Height = 17.7 Then p.Delete
Next
With ActiveDocument.Range
.InsertBefore Chr(13)
.Collapse wdCollapseEnd
.InsertAfter "#"
End With
With ActiveDocument.Range.Find
.Execute "(^13)([0-9]{1,}.)", , , 1, , , , , , "\1#\2", 2
.Execute "(^13)(回答*#)", , , 1, , , , , , "\1", 2
.Execute "#", , , 1, , , , , , "", 2
.Execute "分值[0-9]{1,}分", , , 1, , , , , , "", 2
End With
ActiveDocument.Range.Paragraphs(1).Range.Delete
End Sub |