求助大神，WORD文档有文字有表格，运行代码能全部选中表格中的数字，方便统一调置

wangchcm

求助大神，WORD文档有文字有表格，请帮设计一代码，运行代码能全部选中表格中的数字（只选表格中的数字不选文字），以方便统一调置数字格式，谢谢！

约定的童话

只选数字的话不妥，标题也会带进来，只能按照表格区域去选择，你这表格结构是固定的吗？

wangchcm

约定的童话 发表于 2020-3-27 08:42
只选数字的话不妥，标题也会带进来，只能按照表格区域去选择，你这表格结构是固定的吗？

表格结构不是固定的，想实现表格中数字的格式大小与表格中的文字不相同

相见是缘8

转一个老师的代码给你！

Sub 查找表格内数值设置为红色()
    Dim wRng As Range
    Set wRng = ActiveDocument.Content
    With wRng.Find
        .ClearFormatting
        .Font.Color = wdColorBlack
        .Replacement.ClearFormatting
      Do While .Execute("[0-9]{1,}", , , True, , , True)
         If wRng.Tables.Count > 0 Then
            wRng.Font.Color = wdColorRed
        End If
        wRng.SetRange wRng.End, ActiveDocument.Content.End
    Loop
    End With
End Sub

duquancai

wangchcm 发表于 2020-3-27 14:59
表格结构不是固定的，想实现表格中数字的格式大小与表格中的文字不相同

既然有附件且也不算太难，难度适中偏大！
我写一个代码提供你测试》》》》》》》》》》》》》》
代码详见楼下

duquancai

Sub main()
    Dim myDoc As Document, tb As Table
    Set myDoc = ActiveDocument
    For Each tb In myDoc.Tables
        tb.Range.HighlightColorIndex = wdRed
        With tb.Range.Find
            Do While .Execute("[0-9,.]{1,}", , , -1)
                With .Parent
                    If Not .InRange(tb.Range) Then Exit Do
                    .Expand wdCell
                    If isNum(.Text) Then .HighlightColorIndex = wdYellow
                    .Start = .End
                End With
            Loop
        End With
    Next
End Sub
Function isNum(ByVal myStr As String) As Boolean
    Dim re As Object
    Set re = CreateObject("VBScript.Regexp")
    re.Pattern = "^[0-9,.\r\x20\u3000\x07]+$"
    isNum = re.test(myStr)
End Function

wangchcm

相见是缘8 发表于 2020-3-27 18:59
转一个老师的代码给你！

Sub 查找表格内数值设置为红色()

谢谢！但运行不了！

wangchcm

duquancai 发表于 2020-3-27 20:50
Sub main()
    Dim myDoc As Document, tb As Table
    Set myDoc = ActiveDocument

谢谢！数字变黄色，文字变红色，能不能不变颜色，只是单纯能选中表格中的数字，能用来统一设置数字的大小，方向！

wangchcm

请大侠们帮改一下，不要颜色，能单纯选中数字，以方便统一调置大小、对齐方向，谢谢！

相见是缘8

wangchcm 发表于 2020-3-28 00:18
谢谢！但运行不了！

运行不了吗？我这边在你的附件上测试，可运行，数字变色。

如只是让数字处在选中状态，用查找就可实现！
打开 Word 文档，同时按电脑键盘上的 Ctrl 和 H 键，调出“查找\替换”框，勾选框内的“使用通配符”和“突出显示所在范围内的项目”。
在查找内容框内输入：[0-9]{1,}
点击框内的“查找全部”按钮。
文档表格中的数字，即处在选中的状态。