Gen's questions

我正在尝试在 Microsoft Word 中创建一个 VBA 宏，它将：

1. 首先选择一段文本作为“颜色键”。所选内容中的每一行都有唯一的颜色和文本字符串。

2. 存储选择中每行的字体颜色和文本。

3. 在文档的其余部分搜索字体颜色与“颜色键”选择中的任意颜色匹配的段落。

4. 将颜色键中匹配的文本添加到具有相同字体颜色的任何段落的前面。

如果选择了三行并且运行了宏，预期的输出应该是这样的。

代码，我尝试过

Sub ApplyColorKeyPrefixes()

    Dim doc As Document
    Dim selectedRange As Range
    Dim colorKeyColors As Collection
    Dim colorKeyPrefixes As Collection
    Dim para As Paragraph
    Dim line As Range
    Dim colorCode As Long
    Dim prefixText As String
    Dim i As Long

    ' Initialize document and collections for color key
    Set doc = ActiveDocument
    Set colorKeyColors = New Collection
    Set colorKeyPrefixes = New Collection
    Set selectedRange = Selection.Range

    For i = 1 To selectedRange.Paragraphs.Count
        Set line = selectedRange.Paragraphs(i).Range
        line.End = line.End - 1  ' Exclude paragraph mark

        ' Store the color and corresponding text
        colorCode = line.Font.Color
        prefixText = Trim(line.Text)

        On Error Resume Next
        colorKeyColors.Add colorCode, CStr(colorCode)
        colorKeyPrefixes.Add prefixText, CStr(colorCode)
        On Error GoTo 0
    Next i

    'oop through all paragraphs in the document (after selection) to find matches
    For Each para In doc.Paragraphs
        ' Skip paragraphs in the initial selection
        If para.Range.Start >= selectedRange.End Then
            Set line = para.Range.Words(1)  ' use first text of selection to determine color
            colorCode = line.Font.Color
            
            ' Check if color match in parag
            On Error Resume Next
            prefixText = colorKeyPrefixes(CStr(colorCode))
            On Error GoTo 0

            If prefixText <> "" Then
                para.Range.InsertBefore prefixText & ": "
                
                ' Retain color for the og text and the prefix text
                para.Range.Words(1).Font.Color = colorCode
                para.Range.Font.Color = colorCode
            End If
        End If
    Next para

    Set colorKeyColors = Nothing
    Set colorKeyPrefixes = Nothing

End Sub

问题 代码当前将前缀应用于所有段落，而不仅仅是字体颜色匹配的段落。我怀疑我在 colorKeyPrefixes 中检查字体颜色匹配的方式可能存在问题，但我不确定问题出在哪里。

我如何修改宏，以便它仅将前缀文本附加到与所选“颜色键”中的某一行具有相同字体颜色的段落？

附加说明 所选内容中的每一行都保证只有一种颜色。颜色键最多可包含 12 种不同的颜色。我使用每个段落的第一个单词来检查颜色（假设该颜色适用于整个段落）。

我正在尝试对表中的值求和，其中行和列引用都是从单独单元格中的连接字符串动态生成的。具体来说，我需要：

1. 将包含连接行引用（例如，“数据转换验证模拟 1、切换计划验证”）的一个单元格 (BO28) 中的值拆分并匹配到表中的行。
2. 将包含连接列标题（例如“Jane Smith、Emily Force”）的另一个单元格 (BP28) 中的值拆分并匹配到表中的列标题。
3. 对行和列匹配的每个组合的相交值求和。

在我的公式中，我想对以下交点求和：

“数据转换验证模拟 1”与“Jane Smith” “数据转换验证模拟 1”与“Emily Force” “切换计划验证”与“Jane Smith” “切换计划验证”与“Emily Force”

因此，预期结果应该是80 + 40 + 80 + 40 = 240。但是，当我尝试应用此公式时，出现了 #VALUE! 错误：

=SUMPRODUCT(
    ISNUMBER(MATCH(BN2:BN10, TEXTSPLIT(BN25, ", "), 0)) *
    ISNUMBER(MATCH(BN1:BU1, TEXTSPLIT(BN26, ", "), 0)) *
    BN2:BU10
)

我使用 TEXTSPLIT 将 BO28 和 BP28 中的连接字符串拆分为单独的值。我应用 MATCH 查找相应的行和列，使用 INDEX 返回相交的值。将其全部包装在 SUMPRODUCT 中以处理数组逻辑。

尽管遵循了这种方法，我仍然不断收到 #VALUE! 错误，我不知道问题出在哪里。（如果需要提供 excel 文件，请告诉我）。谢谢

假设我有一个编号列表，其中每个数字后面跟着几个要点：例如

1. 编号列表 1.

• 项目符号列表1
• 项目符号列表2

2. 编号列表2

• 项目符号列表3
• 项目符号列表4

3. 编号列表3。

我希望能够将光标放在“编号列表 1”中的任何位置，并运行宏以将光标放在编号列表 2 的开头，跳过其间的所有项目符号列表

这就是我能做的..

Sub MoveToNextNumberedListItem()
    ' This checks if cursor is in a numbered list
    If Selection.paragraphs(1).Range.ListParagraphs.count > 0 Then
        ' Moves cursor to end of that line
        Selection.EndKey Unit:=wdLine

        ' Moves the cursor to the beginning of the next list item
        Selection.MoveDown Unit:=wdLine
        Selection.HomeKey Unit:=wdLine
    End If
End Sub

如果我将光标放在编号列表 1中的任意位置并运行此命令，当我希望它转到编号列表 2 的开头时，它只会将光标移动到项目符号列表 1