如何在word中根据条件加星号

同样的问题    如何在word中根据条件加星号

	1	2	3
intercept	3.5	4.7	3.2
t	2.3	1.2	3.6
intercept	3.8	7.7	5.8
t	3.6	4.8	0.3
intercept	3.5	4.7	3.2
t	3.7	0.1	1.6

现在想根据t值大小对a进行上标加星号的操作  
加在intercept变量上
如果t<=1,则加一个*
如果1<t<=2,则加两个*
如果2<t,则加三个*

加在数字的右上方
谢谢

罗浮山混球 发表于 2014-10-26 12:40
在word中还真是不会了，最近一直学的是EXCEL，希望有高手可以帮楼主解答

其实word就是对象不同，思路还是差不多的。找准对象是关键。

1. Private Sub CommandButton1_Click()
   
2. Dim n&, i&, j&, s, k%
   
3.     With ActiveDocument.Tables(1)
   
4.         For n = 2 To .Rows.Count
   
5.             If Left(.Cell(n, 1).Range, 9) = "intercept" Then
   
6.                 For i = 2 To 4
   
7.                     s = Val(.Cell(n, i).Range)
   
8.                     j = Len(s)
   
9.                     If Val(.Cell(n + 1, i).Range) <= 1 Then
   
10.                         k = 1
    
11.                     ElseIf Val(.Cell(n + 1, i).Range) > 2 Then
    
12.                         k = 3
    
13.                     Else
    
14.                         k = 2
    
15.                     End If
    
16.                     .Cell(n, i).Range = Val(.Cell(n, i).Range) & String(k, "*")
    
17.                     .Cell(n + 1, i).Range = "(" & Val(.Cell(n + 1, i).Range) & ")"
    
18.                 Next
    
19.             End If
    
20.         Next
    
21.     End With
    
22. End Sub

复制代码

补充    t的数字外面加上   括号  （）

如果是stata，直接用outreg2
如果是已经到word了，放到Excel吧
用if语句判断，如，=IF(B3>2,"***",IF(B3>1,"**","*"))

再用合并语句合并，如，=a1&b1

你的数据详见附件

如果数据较大，直接编成VB运行

在word中还真是不会了，最近一直学的是EXCEL，希望有高手可以帮楼主解答

芐雨 发表于 2014-10-27 16:32
其实word就是对象不同，思路还是差不多的。找准对象是关键。

跟你学习了！

芐雨 发表于 2014-10-26 08:22
其实word就是对象不同，思路还是差不多的。找准对象是关键。

能否把word传一下，不怎么会使用那个控件，谢谢

芐雨 发表于 2014-10-26 08:22
其实word就是对象不同，思路还是差不多的。找准对象是关键。

word中在文档建立窗口的地方在哪啊     怎么试着只能在宏编辑器中建立   能否推荐word编程的一些参考书

小鳄鱼a 发表于 2014-10-29 14:01
能否把word传一下，不怎么会使用那个控件，谢谢

插入控件很简单，点控件，右键指定代码，取消设计模式就可以了

不用控件，直接运行代码：Alt+F11，按F5运行。跟Excel是一样的

芐雨 发表于 2014-10-29 14:09
插入控件很简单，点控件，右键指定代码，取消设计模式就可以了

不用控件，直接运行代码：Alt+F11， ...

intercept        .0021**        .0057***        .0095***        .0075***
t        (1.2189)        (2.7529)        (4.4319)        (5.2551)
intercept        .0021**        .0057***        .0095***        .0075***
t        (1.2189)        (2.7529)        (4.4319)        (5.2551)

如何让小数点前面保留0   即 0.0021