Remove all DropCap

[Provart]

I wont remove all DropCap(Capital Letters)?
Helm me please

 

[Graham Mayor]

If the dropcaps have been inserted with the DropCap function, then

Sub RemoveDropCaps()
Dim oRng As Range
On Error Resume Next
For i = 1 To ActiveDocument.Paragraphs.Count
Set oRng = ActiveDocument.Paragraphs(i).Range
With oRng.Paragraphs(1).DropCap
.Position = wdDropNone
End With
Next i
End Sub

will remove them

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Provart]

If the dropcaps have been inserted with the DropCap function, then

Sub RemoveDropCaps()
Dim oRng As Range
On Error Resume Next
For i = 1 To ActiveDocument.Paragraphs.Count
Set oRng = ActiveDocument.Paragraphs(i).Range
With oRng.Paragraphs(1).DropCap
.Position = wdDropNone
End With
Next i
End Sub

will remove them

I tried your VBA code, but Word hangs and I apparently can replace just
the first capolettera.
Thanks for the valuable help.

 

[Provart]

I wrote this code:

Sub RemoveDropCaps()
Do
Selection.Next(Unit:=wdParagraph, Count:=1).Select
ì = ActiveDocument.Paragraphs.Count
openquote = InStr(1, i)
With Selection.Paragraphs(1).DropCap
.Position = wdDropNone
End With
Loop
End Sub

But it is really too slow to scroll through a document we make a life.
will be my slow computer, but also often by mistake, you can not do any
better?

 

[Provart]

It's Code is good:

Sub RemoveDropCaps()
For Each aFrame In ActiveDocument.Frames
aFrame.Select
With Selection.Paragraphs(1).DropCap
.Position = wdDropNone
End With
Next aFrame
End Sub

Tnx all