Question

如果我有一个例如

的段落

快速的棕色狐狸跳过懒狗。敏捷的棕色狐狸跳过了懒狗。敏捷的棕色狐狸跳过了懒狗。敏捷的棕色狐狸跳过了懒狗。敏捷的棕色狐狸跳过了懒狗。

需要做的是将第一行加粗到逗号

快速的棕色狐狸跳过懒狗，快速的棕色狐狸跳过懒狗。敏捷的棕色狐狸跳过了懒狗。敏捷的棕色狐狸跳过了懒狗。快速的棕色狐狸跳过懒狗。

用于使用VBA的Word中的所有段落。

Answer 1

Sub Test()
Dim p As Paragraph
Dim idx As Integer
Dim i As Integer
For Each p In ActiveDocument.Paragraphs

With p.Range
    idx = InStr(1, .Text, ",", vbTextCompare)
    If idx > 0 Then
        For i = 1 To idx
            .Characters(i).Bold = True
        Next i
    End If
End With

Next p
End Sub

遍历每个段落，找到第一个逗号，加粗所有字符，包括第一个逗号。

输入：示例段落，一些文字。

输出： 示例段落，一些文字。

它不是最优化的代码，因为它会循环遍历字符，但它经过测试和运行，并且应该为您所追求的内容提供理念。跳过没有逗号的段落。

如何使用VBA将字段的第一行加粗到逗号

1 个答案: