I've tried ChatGPT to get a macro to do this but I always get an error.
This is what ChatGPT came up with, but I receive Compile error: Method or data member not found
Sub ApplyDropCapOptions()
Dim rng As Range
Dim dropCap As DropCap
' Loop through each paragraph in the document
For Each rng In ActiveDocument.Paragraphs.Range
' Check if the paragraph has a drop cap
If rng.DropCap = True Then
' Select the drop cap
rng.Select
' Open the Drop Cap Options dialog box
Set dropCap = Selection.ParagraphFormat.DropCap
dropCap.Clear
' Click "OK" to apply default settings
dropCap.Enable = True
dropCap.Position = wdDropNormal
dropCap.LinesToDrop = 1
' Close the Drop Cap Options dialog box
dropCap.Clear
End If
Next rng
End Sub
|