Automatically update Drop Caps?

gmaxey · #1 06-14-2023, 02:05 PM

Code:

Sub ApplyDropCapOptions()
'To clear all
Dim lngPar As Long
Dim oPar As Paragraph
Dim dropCap As dropCap
  For lngPar = ActiveDocument.Paragraphs.Count To 1 Step -1
    Set oPar = ActiveDocument.Paragraphs(lngPar)
    If Len(oPar.Range.Text) > 1 Then
      With oPar.dropCap
        If .Position <> wdDropNone Then
          .Clear
        End If
      End With
    End If
  Next lngPar
End Sub

Sub ApplyDropCapOptionsII()
'To set all applied drop caps to 2
Dim lngPar As Long
Dim oPar As Paragraph
Dim dropCap As dropCap
  For lngPar = ActiveDocument.Paragraphs.Count To 1 Step -1
    Set oPar = ActiveDocument.Paragraphs(lngPar)
    If Len(oPar.Range.Text) > 1 Then
      With oPar.dropCap
        If .Position <> wdDropNone Then
          .LinesToDrop = 2
        End If
      End With
    End If
  Next lngPar
End Sub

Jamez · #2 06-14-2023, 03:42 PM

Thank you gmaxey, I don't see any change in the drop caps after running this. I also get an error at the end: Run-time error '4605': This method or property is not available because the current paragraph has no text.

Is there a special way I am supposed to run this macro?

The first macro is supposed to clear all drop caps and the second macro is supposed to set all drop caps to 2 lines, is that correct?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to convert first word of each section to Drop Caps	wrdy	Word VBA	2	05-30-2023 01:20 PM
Powerpoint-2019 Text in selected theme remains in All Caps even when small caps option is selected	Tanasha4	PowerPoint	2	04-06-2019 07:53 PM
Need a Macro to Change Every Instance of Small Caps to All Caps and Reduce the Font by 2 Points	CrossReach	Word VBA	2	11-13-2017 09:21 AM
Drop Caps Problem	dustnik	Word	5	12-12-2016 01:14 PM
Multiple drop caps	Ziggy-R	Publisher	0	10-26-2010 06:23 PM