如何快速将数字加上括号

ywh19860616

各位老师，请教一个问题

	0.01	0.05	0.10
a1	-4.016 -3.957	-2.574 -3.752	-0.883 -2.662
a1	-0.842 -1.357	-0.478 -1.416	-0.172 -5.151
a3	-0.034 -0.165	-0.065 -0.481	-0.141 -2.828
a4	0.321 5.021	0.260 0.969	0.661 6.416

如何将上表变为下面的表格？就是把每一排的第二行加上括号。

	0.01	0.05	0.10
a1	-4.016 (-3.957)	-2.574 (-3.752)	-0.883 (-2.662)
a1	-0.842 (-1.357)	-0.478 (-1.416)	-0.172 (-5.151)
a3	-0.034 (-0.165)	-0.065 (-0.481)	-0.141 (-2.828)
a4	0.321 (5.021)	0.260 (0.969)	0.661 (6.416)

ming0018

Sub 第二段加括号()
    Dim myDoc As Document
    Dim myCell As Cell
    Dim myTable As Table
    Dim myRng As Range
    Set myDoc = ActiveDocument
   
    For Each myTable In myDoc.Tables
        For Each myCell In myTable.Range.Cells
            If myCell.Range.Paragraphs.Count >= 2 Then
                Set myRng = myCell.Range.Paragraphs(2).Range
                myRng.SetRange myRng.Start, myRng.End - 1
                myRng.Text = "(" & myRng.Text & ")"
            End If
        Next
    Next
   
End Sub

duquancai

简单粗暴的：（针对提供的附件有效！）
勾选使用通配符
查找框填^13([-.0-9]{1,})
替换框填^p(\1)

点击替换全部。

ming0018

duquancai 发表于 2018-4-27 17:07
简单粗暴的：（针对提供的附件有效！）
勾选使用通配符
查找框填^13([-.0-9]{1,})

机智！——少于10字太可恶！

相见是缘8

duquancai 发表于 2018-4-27 17:07
简单粗暴的：（针对提供的附件有效！）
勾选使用通配符
查找框填^13([-.0-9]{1,})

看似 “简单粗暴”，实是实力和智慧的体现，佩服！