Question

示例 -

“让这个成为测试句”，假设选择了这一行，我需要一个Word宏来只选择第一个字母，即'L'，然后按照我想要的方式格式化它... 我无法让宏只选择所选行中的第一个字母。我试过这个 - `'Selection.HomeKey单位：= wdLine

Selection.MoveDown单位：= wdLine，计数：= 1

Selection.Expand wdLine

MsgBox（Selection.Text）`

有人可以给我一个答案吗

Answer 1

我认为你的意思是选择中的第一个角色？

MsgBox Selection.Characters(1)

或者，使用它来使该字符变粗：

Dim firstChar As Word.Range
Set firstChar = Selection.Characters(1)
firstChar.Bold = True

Answer 2

Option Explicit

Sub main()
    Dim firstAlphabet As Range

    Selection.SetRange Start:=0, End:=1 '<--| collapse Selection to its first character

    Set firstAlphabet = Selection.Range
    ' now use 'firstAlphabet ' range for your formatting


End Sub

选择单词文档中的第一个字母

2 个答案: