为段落格式字符采样 StringName.SubString(p,1)

Question

请尝试专门回答我的问题，不要提供替代方法，因为我有一个非常具体的问题需要这个临时解决方案。非常感谢。

我的代码通过 VB.NET 自动打开 Word，打开文档，找到 table，转到一个单元格，将 cells.range.text 移动到一个字符串变量中并进入 For 循环将位置 p 处的字符与 String 进行比较。

我试过字符串： "^p", "^013", "U+00B6"

我的代码：

Dim nextString As String

    'For each cell, extract the cell's text.
    For p = 17 To word_Rng.Cells.Count
        nextString = word_Rng.Cells(p).Range.Text
        'For each text, search for structure.
        For q = 0 To nextString.Length - 1
            If (nextString.Substring(q, 1) = "U+00B6") Then
                Exit For
            End If
        Next
    Next

将单元格文本分配给字符串变量时结构数据是否丢失。我以前在 VBA 中成功搜索过这样的格式标记。

Answer 1

假设您的字符串包含字符，您可以使用 ChrW 从十六进制值创建适当的字符，并检查：

If nextString.Substring(q, 1) = ChrW(&h00B6) Then
    Exit For
End If

更新

这是一个完整的例子：

Dim nextString = "This is a test " & ChrW(&H00B6) & " for that char"
Console.WriteLine(nextString)

For q = 0 To nextString.Length - 1
    If nextString(q) = ChrW(&H00B6) Then
        Console.WriteLine("Found it: {0}", q)
    End If
Next

这输出：

This is a test ¶ for that char
Found it: 15

为段落格式字符采样 StringName.SubString(p,1)

Sampling StringName.SubString(p,1) for paragraph formatting character

vb.net

automation

ms-word

office-interop

paragraph