急需高手帮忙，几乎所有老师的噩梦，学生成绩word表格

有五龙

如何实现右上面成绩栏填入成绩后，子项（20%、30%、20%、20%、10%）自动生成对应整数成绩，且子项相加之和与右上面成绩栏相等，字体均为黑体，小四，居中

xyz74sc

这个表格应该是个用于邮件合并的模板，应该是有原始成绩的。没有原始成绩，这个分数计算就有作假的嫌疑了。

有五龙

xyz74sc 发表于 2017-11-29 12:09
这个表格应该是个用于邮件合并的模板，应该是有原始成绩的。没有原始成绩，这个分数计算就有作假的嫌疑了。 ...

上面给的文件就是这样，成绩按理是先给子项成绩，然后汇总总成绩，但是学生人多时间根本来不及，直接先给总成绩，然后倒推分给子项

duquancai

附件，打开word文档，点击“计算”按钮》》》》》》》》》》》》》》》》》》》

horseman

四舍五入的不会弄，其他的应该符合你的要求吧

秋枫

word.zip (714 Bytes, 下载次数: 19)

2017-11-29 22:08 上传

点击文件名下载附件

提供一个脚本。
使用方法：
打开你的文件后，双击附件中提供的脚本运行。

全文：

1. Dim WordApp
   
2. 
   
3. On Error Resume Next
   
4. 
   
5. Set WordApp = GetObject(, "Word.Application")
   
6. If WordApp Is Nothing Then
   
7.         MsgBox "Run Word first.", vbInformation, "Information"
   
8.         WScript.Quit
   
9. End If
   
10. 
    
11. On Error Goto 0
    
12. 
    
13. Dim table
    
14. Set table = WordApp.ActiveDocument.Tables(1)
    
15. table.cell(3, table.columns.count).range.Select
    
16. 
    
17. Const wdline = 5
    
18. Const wdParagraph = 4
    
19. Set sel = WordApp.selection
    
20. Dim score, tmp, s1, s2, s3, s4, s5
    
21. tmp = sel.text
    
22. score = CDBL(Left(tmp, Len(tmp)-1))
    
23. 
    
24. sel.movedown wdline, 2
    
25. sel.expand wdParagraph
    
26. sel.Font.Name = "黑体"
    
27. sel.Font.Size = 12
    
28. sel.ParagraphFormat.Alignment = 1
    
29. s1 = Round(score*0.2)
    
30. sel.typetext CStr(s1)
    
31. 
    
32. sel.movedown wdline, 1
    
33. sel.expand wdParagraph
    
34. sel.Font.Name = "黑体"
    
35. sel.Font.Size = 12
    
36. sel.ParagraphFormat.Alignment = 1
    
37. s2 = Round(score*0.3)
    
38. sel.typetext CStr(s2)
    
39. 
    
40. sel.movedown wdline, 1
    
41. sel.expand wdParagraph
    
42. sel.Font.Name = "黑体"
    
43. sel.Font.Size = 12
    
44. sel.ParagraphFormat.Alignment = 1
    
45. s3 = Round(score*0.2)
    
46. sel.typetext CStr(s3)
    
47. 
    
48. sel.movedown wdline, 1
    
49. sel.expand wdParagraph
    
50. sel.Font.Name = "黑体"
    
51. sel.Font.Size = 12
    
52. sel.ParagraphFormat.Alignment = 1
    
53. s4 = Round(score*0.2)
    
54. sel.typetext CStr(s4)
    
55. 
    
56. sel.movedown wdline, 1
    
57. sel.expand wdParagraph
    
58. sel.Font.Name = "黑体"
    
59. sel.Font.Size = 12
    
60. sel.ParagraphFormat.Alignment = 1
    
61. s5 = score-s1-s2-s3-s4
    
62. sel.typetext CStr(s5)
    
63. 
    

复制代码