请问各位，在Word中，如何用VBA输入有底纹和阴影的文字

过客fppt

下面是代码，要达到想要的效果，还要添加哪些属性呢，谢谢



Sub Macro1()
    With Selection.Font
        .name = "宋体"
        .name = "Times New Roman"
        .Size = 12
        .SizeBi = 10.5
    End With
    Selection.TypeText text:="例题四"
End Sub

过客fppt

搞好了
selection.range.Shadow = True '设置阴影效果

selection.Shading.BackgroundPatternColor'设置底纹颜色
但是底纹颜色没有找到对应的

batmanbbs

如果没有在表里面，先选中这个颜色，然后在其他颜色->自定义中查看rgb值，然后用rgb赋值给底纹属性

过客fppt

batmanbbs 发表于 2023-12-1 16:13
如果没有在表里面，先选中这个颜色，然后在其他颜色->自定义中查看rgb值，然后用rgb赋值给底纹属性

谢谢batmanbbs 老师，感觉你每次都能让我醍醐灌顶啊，太厉害了，此问题已完美解决

batmanbbs

过客fppt 发表于 2023-12-1 17:28
谢谢batmanbbs 老师，感觉你每次都能让我醍醐灌顶啊，太厉害了，此问题已完美解决

不客气，不过由于WORD对颜色管理的特殊性，使用不在索引中的颜色值，在查找时可能会遇到找不到的问题，这时就需先用代码读取WORD的颜色值，然后再写到代码中。所以还是建议尽量使用RGB索引内的值 或者 直接使用 ColorIndex 的值。