设置字符样式时，如何只设置特定的属性好比底纹？

gemj

设置字符样式时，如何只设置特定的属性好比底纹？

我们设置样式的时候，一般情况下，因为选中设置的对象，都有字体、字号等信息，所以，设置的样式，就包含了这些信息。那么，在应用这些样式的时候，被应用样式的文字，也就承接了样式的字体、字号。

但有时候，我们并不希望，被应用样式的文字，承接样式里的字体、字号，而是保持其本来的。而只承接新样式中特定的一些属性，好比文字的底纹等。

那么，在设置样式的时候，是不是就不能直接在文档里用鼠标操作？

而只能通过VBA来设置？

但通过VBA代码设置时，如何只设置特定属性，好比字符底纹（也就是设置“字符样式”而非“段落样式”），而不涉及字体、字号等属性？

我测试了下，如果在代码中把字体设置为空：
        .Font.Name = ""
但样式还是会有一个默认的字体；在应用样式时，还是会把这个字体传递给应用了这个样式的文字上。

字体颜色，如果设置为：
        .Color = wdColorAutomatic
那也是一样的问题，在应用样式里，字体颜色会变更为Automatic，而不是我们所希望的，保持其原来的字体。
如果设置为：
        .Color = ""
这首先，就不被VBA所允许。

还有字号，咋设置？
        .Size = ""
这样定义，也不被VBA所允许的。

如果直接回避这些属性，把相关的语句删除，那设置出来的样式，也是有个默认的属性的。

这个问题怎么解决？请大神们出手哦~谢谢啦！

下面是录制（稍修改）的设置底纹的代码，如何修改才能达到我们想要的效果？

1. Sub test()
   
2.     ActiveDocument.Styles.Add Name:="diwenYellow", Type:=wdStyleTypeCharacter
   
3.     With ActiveDocument.Styles("diwenYellow").Font
   
4.         .NameFarEast = ""
   
5.         .NameAscii = ""
   
6.         .NameOther = ""
   
7.         .Name = ""
   
8.         .Color = wdColorAutomatic
   
9.         .Size = "12"
   
10.     End With
    
11.     With ActiveDocument.Styles("diwenYellow").Font
    
12.         With .Shading
    
13.             .Texture = wdTextureNone
    
14.             .ForegroundPatternColor = wdColorAutomatic '不设字体颜色
    
15.             .BackgroundPatternColor = -687800423
    
16.         End With
    
17.         .Borders(1).LineStyle = wdLineStyleNone
    
18.         .Borders.Shadow = False
    
19.     End With
    
20. End Sub
    

复制代码

gemj

发现发的附件里，没有宏，重新发下~

snow653124

只设置底纹的话，其他的font就不要管了，直接对段落的底纹格式进行设置不行么？
还是我理解的有问题

Sub 设置底纹样式_只设底纹()
    With ActiveDocument.Range.ParagraphFormat.Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic '不设字体颜色
            .BackgroundPatternColor = -687800423
    End With
End Sub

wdpfox

snow653124 发表于 2022-7-29 13:20
只设置底纹的话，其他的font就不要管了，直接对段落的底纹格式进行设置不行么？
还是我理解的有问题

正解