如何用vba判断段落是在某个表格某个单元格的第一行

honey_bee

代码如下
1）用于word文档
2) 代码对于正常段落没问题，但遇到表格任何单元格的第一行会出现一个字符的偏差。现在需要判断变量i是否属于某个表格某个单元格的第一个段落
请各位老师指教



Sub bluetext()
   Dim i As Paragraph, mt, oRang As Range, n%, m%
   With CreateObject("vbscript.regexp")
      .Pattern = "\x0b([^\x0b\r]*)\r"
      .Global = True
      For Each i In ActiveDocument.Paragraphs
         For Each mt In .Execute(i.Range.Text)
            m = mt.FirstIndex
            n = mt.Length
            Set oRang = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n - 1)
            oRang.Font.ColorIndex = wdBlue
         Next
      Next
   End With
End Sub

taller

表格任何单元格的第一行会出现一个字符的偏差 - 请上传截图

ggmmlol

好像没有问题呀。
垂直制表符.rar (19.83 KB, 下载次数: 7)

2025-3-11 07:44 上传

点击文件名下载附件

honey_bee

附上文件及截图

taller

taller

1. Option Explicit
   
2. 
   
3. Sub bluetext()
   
4.     Dim i As Paragraph, mt, oRang As Range, n%, m%, iOffset As Long, sTxt As String
   
5.     ActiveDocument.Range.Font.Fill.ForeColor.RGB = 0
   
6.     With CreateObject("vbscript.regexp")
   
7.         .Pattern = "\x0b([^\x0b\r]*)\r"
   
8.         .Global = True
   
9.         For Each i In ActiveDocument.Paragraphs
   
10.             sTxt = i.Range.Text
    
11.             If Len(sTxt) > 2 Then
    
12.                 iOffset = 0
    
13.                 If i.Range.Information(wdWithInTable) Then
    
14.                     If i.Range.Start = i.Range.Cells(1).Range.Start Then
    
15.                         iOffset = 1
    
16.                     End If
    
17.                 End If
    
18.                 For Each mt In .Execute(sTxt)
    
19.                     m = mt.FirstIndex
    
20.                     n = mt.Length
    
21.                     Set oRang = ActiveDocument.Range(i.Range.Start + m + iOffset, i.Range.Start + m + n)
    
22. '                    oRang.Select
    
23.                     oRang.Font.ColorIndex = wdBlue
    
24.                 Next
    
25.             End If
    
26.         Next
    
27.     End With
    
28. End Sub
    
29. 
    
30. ' 起始位置存在一个零宽度不可见字符
    
31. Sub Demo()
    
32.     Dim i
    
33.     For i = 0 To 4
    
34.         With ActiveDocument.Range(i, i + 1)
    
35.             Debug.Print "第" & i & "个字符:[" & .Text & "]", Len(.Text)
    
36.         End With
    
37.     Next
    
38. End Sub
    

复制代码

honey_bee

taller 发表于 2025-3-12 01:57

万事大吉，谢谢版主的补充代码。