VBA macro to create and then alter drop cap

[lb_duck]

Hi all - newby here and beginner with VBA. In Word, I can make a macro to insert drop cap - no probs. But can't seem to write the code to select the frame of that dropped cap so I can change its size to suit a different font.
Here's what I have, but error on Set frame line...

With Selection.Paragraphs(1).DropCap
.Position = wdDropNormal
.FontName = "Embassy BT"
.LinesToDrop = 2
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1

Dim frame As Word.frame
Set frame = .textframe.TextRange
Dim CopyRange As Word.Range
Set CopyRange = frame.Range.Duplicate

With frame.Range
.Select
.Bold = True
.Font.Color = 1441910
End With

With Selection.Frames(1)
.HeightRule = wdFrameExact
.Height = 28
.WidthRule = wdFrameExact
.Width = 30

End With

Any help will be gratefully accepted! Thanks