一句话中的空格有下划线

dongdonggege

有一句话，有字符的地方没有下划线，没字符的地方有10个空格。比如这句话：“学校班级姓名等级分”。

我想用VBA一次输出，怎么弄？谢谢。

dongdonggege

有一句话，有字符的地方没有下划线，没字符的地方有10个空格。比如这句话：“学校班级姓名等级分”。

我想用VBA一次输出，怎么弄？谢谢。

校后面有10个空格，级后面有10个空格，名后面有后面有10个空格，分后面有10个空格。

dongdonggege

我的程序如下：

就是繁琐了。

1. Sub 空格有下划线()
   
2.     Dim s As String
   
3.     s = "学校            "
   
4.     s = s & "班级            "
   
5.     s = s & "姓名            "
   
6.     s = s & "等级分            "
   
7.     Selection.TypeText Text:=s
   
8.    
   
9.     Selection.HomeKey Unit:=wdLine '光标移到到行首
   
10.     Selection.MoveRight Unit:=wdCharacter, Count:=Len(s), Extend:=wdExtend '选择到行尾
    
11.     Selection.Font.UnderlineColor = wdColorAutomatic
    
12.     Selection.Font.Underline = wdUnderlineSingle
    
13.    
    
14.     Selection.HomeKey Unit:=wdLine '光标移到到行首
    
15.     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend '
    
16.     Selection.Font.Underline = wdUnderlineNone
    
17.    
    
18.     Selection.MoveRight Unit:=wdCharacter, Count:=13 '光标移到到指定位置
    
19.     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend '
    
20.     Selection.Font.Underline = wdUnderlineNone
    
21.    
    
22.     Selection.MoveRight Unit:=wdCharacter, Count:=13 '光标移到到指定位置
    
23.     Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend '
    
24.     Selection.Font.Underline = wdUnderlineNone
    
25.    
    
26.     Selection.MoveRight Unit:=wdCharacter, Count:=13 '光标移到到指定位置
    
27.     Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend '
    
28.     Selection.Font.Underline = wdUnderlineNone
    
29. End Sub

复制代码

batmanbbs

如果只是用于显示打印，直接使用下划线字符_

gwjkkkkk

请参考。。。

过客fppt

用find方法简化了楼主的代码，在WPS中运行宏能准确完成要求，楼主可以试一下



Sub 空格有下划线()
    Dim s As String
    s = "学校            "
    s = s & "班级            "
    s = s & "姓名            "
    s = s & "等级分            "
    With Selection
        .TypeText Text:=s
        .HomeKey Unit:=wdLine '光标移到到行首
        .MoveRight Unit:=wdCharacter, Count:=Len(s), Extend:=wdExtend '选择到行尾
        With .Font
            .UnderlineColor = wdColorAutomatic
            .Underline = wdUnderlineSingle
        End With
        With .Find
            .Text = "[一-郎]" '想匹配所有汉字，但是忘记最后一个字怎么打了
            .MatchWildcards = True
            .Replacement.Font.Underline = wdUnderlineNone
            .Execute Replace:=wdReplaceAll
        End With
    End With
End Sub

dongdonggege

过客fppt 发表于 2023-12-25 20:26
用find方法简化了楼主的代码，在WPS中运行宏能准确完成要求，楼主可以试一下

.Text = "[一-龢]"，匹配所有汉字。
谢谢帮忙。

wangjing321

过客fppt 发表于 2023-12-25 20:26
用find方法简化了楼主的代码，在WPS中运行宏能准确完成要求，楼主可以试一下

其实匹配汉字不用记忆那个难写又难念的字, 用[一-龟]就可以了

liuxi001

题目都看错了，我以为是简化这个呢
s = Replace("学校 班级 姓名 等级分", " ", "          ")
ss = Join(Split("学校 班级 姓名 等级分"), "          ")

过客fppt

确实是，最后的字又难念又难打，所以我以前喜欢用：[一-郎] 匹配绝大部分的汉字
不过今天复习了一下，发现无论是[一-郎] 还是[一-龟] 又或者[一-龢] ，要说匹配所有汉字都是不严谨的，正确的应该是[一-﨩]


查找效果如下：