请选择 进入手机版 | 继续访问电脑版
楼主: 小鳄鱼a
11216 9

[问答] 如何在word中根据条件加星号 [推广有奖]

  • 6关注
  • 10粉丝

学科带头人

3%

还不是VIP/贵宾

-

威望
0
论坛币
125 个
通用积分
0.0040
学术水平
40 点
热心指数
45 点
信用等级
43 点
经验
32801 点
帖子
1185
精华
0
在线时间
1539 小时
注册时间
2009-7-16
最后登录
2018-10-5

小鳄鱼a 发表于 2014-10-26 08:22:06 |显示全部楼层 |坛友微信交流群
50论坛币
同样的问题    如何在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,则加三个*

加在数字的右上方
谢谢

最佳答案

芐雨 查看完整内容

其实word就是对象不同,思路还是差不多的。找准对象是关键。
关键词:word Intercept inter Inte ERC 如何

本帖被以下文库推荐

芐雨 发表于 2014-10-26 08:22:07 |显示全部楼层 |坛友微信交流群
罗浮山混球 发表于 2014-10-26 12:40
在word中还真是不会了,最近一直学的是EXCEL,希望有高手可以帮楼主解答
其实word就是对象不同,思路还是差不多的。找准对象是关键


12.gif
  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
复制代码
已有 4 人评分经验 论坛币 学术水平 热心指数 信用等级 收起 理由
客初 + 20 + 20 热心帮助其他会员
yongyitian + 5 + 3 + 3 + 3 精彩帖子
╰不滅信念 + 5 + 3 + 3 + 3 想不到word里面也可以这么用!
罗浮山混球 + 2 + 2 + 2 + 2 精彩帖子

总评分: 经验 + 20  论坛币 + 32  学术水平 + 8  热心指数 + 8  信用等级 + 8   查看全部评分

使用道具

小鳄鱼a 发表于 2014-10-26 08:24:13 |显示全部楼层 |坛友微信交流群
补充    t的数字外面加上   括号  ()

使用道具

startyxf 在职认证  发表于 2014-10-26 09:51:18 |显示全部楼层 |坛友微信交流群
如果是stata,直接用outreg2
如果是已经到word了,放到Excel吧
用if语句判断,如,=IF(B3>2,"***",IF(B3>1,"**","*"))

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

你的数据详见附件

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

附件1.xlsx

10.88 KB

使用道具

在word中还真是不会了,最近一直学的是EXCEL,希望有高手可以帮楼主解答
已有 1 人评分论坛币 热心指数 收起 理由
小鳄鱼a + 5 + 4 精彩帖子

总评分: 论坛币 + 5  热心指数 + 4   查看全部评分

使用道具

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

使用道具

小鳄鱼a 发表于 2014-10-29 14:01:10 |显示全部楼层 |坛友微信交流群
芐雨 发表于 2014-10-26 08:22
其实word就是对象不同,思路还是差不多的。找准对象是关键。
能否把word传一下,不怎么会使用那个控件,谢谢

使用道具

小鳄鱼a 发表于 2014-10-29 14:08:36 |显示全部楼层 |坛友微信交流群
芐雨 发表于 2014-10-26 08:22
其实word就是对象不同,思路还是差不多的。找准对象是关键。
word中在文档建立窗口的地方在哪啊     怎么试着只能在宏编辑器中建立   能否推荐word编程的一些参考书

使用道具

芐雨 发表于 2014-10-29 14:09:45 |显示全部楼层 |坛友微信交流群
小鳄鱼a 发表于 2014-10-29 14:01
能否把word传一下,不怎么会使用那个控件,谢谢
QQ图片20141029140749.png


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

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

使用道具

小鳄鱼a 发表于 2014-10-29 14:35:36 |显示全部楼层 |坛友微信交流群
芐雨 发表于 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

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-29 15:30