在WPS中，用VBA输入有背景和阴影的文字

一、效果展示

二、代码

Sub a()
    Call 输入样式文字("【例题1】", 1, 6, wdColorGray125, True)
    Call 输入样式文字("【变式1】", 1, 2, wdColorGray125, True)
    
End Sub

Function 输入样式文字(文字$, Optional ByVal 加粗 As Boolean = False, Optional ByVal 颜色 As Long = wdBlack, Optional ByVal 底纹颜色 As Long = wdColorAutomatic, Optional ByVal 阴影 As Boolean = False)
    Dim s%, j&
    Dim rng As Range
    s = Len(文字)
    Selection.TypeText text:=文字
    Selection.MoveLeft Unit:=wdCharacter, count:=s, Extend:=wdExtend ' 向前选中s位
    
    Set rng = Selection.Range
    j = rng.End
    Selection.SetRange Start:=j, End:=j
    
    rng.Shading.BackgroundPatternColor = 底纹颜色
    With rng.Font
        .name = "宋体"
        .name = "Times New Roman"
        .ColorIndex = 颜色
        .Bold = 加粗
        .Size = 10.5
        .SizeBi = 10.5
        .Shadow = 阴影

    End With
    
    Set rng = Nothing
'rng.Shading.BackgroundPatternColor=wdColorGold '金色底纹
'rng.Shading.BackgroundPatternColor=wdColorGray125 '银色底纹
'rng.Shading.BackgroundPatternColor=wdColorSkyBlue '蓝色
End Function