excel,word操作题评分(tane-100)(300分)

tane-100 朋友你好，此贴主要是为你回答前一个问题付分的，看看下面两个小问题，能不能帮忙解决一下，不帮忙也是照样付你400分+前100共500分。
(1)我想做一个考试系统，但在excel,word操作题时怎样评分遇到了麻烦，烦请各位帮忙解决一下？(delphi7+sqlserver2000)
(2)rar文件解密

不好意思，本帖只能填写300，下次下次再付你余下的100分。

我畢業設計就是做一個試卷生成系統,不知道你說的是不是這種程序啊?
呵呵,也是delphi7 + SQL server 2000做的哦

不過那是學生時代的東西了。。。

可以参考一下 一级B考试系统的做法，把答案也做到库里，用COMOBJ来判断

楼上的两位能否详细一些！谢谢！

以下是评分的VBA代码：
Score = 0
'//No 1 共 6 分
If ActiveDocument.Paragraphs(2).Range.Font.Color = wdColorBlue Then Score = Score + 2
If ActiveDocument.Paragraphs(2).Range.Font.NameFarEast = "黑体" Then Score = Score + 2
If ActiveDocument.Paragraphs(2).Range.Font.Size = 42 Then Score = Score + 2

'MsgBox (ActiveDocument.Paragraphs(7).Range.Font.Size)

'//No 2 共 4 分

If ActiveDocument.Paragraphs(3).Range.Characters(56).Font.Underline = wdUnderlineWavy _
And ActiveDocument.Paragraphs(3).Range.Characters(63).Font.Underline = wdUnderlineWavy Then
Score = Score + 4
End If

'//No 3 共 4 分

If ActiveDocument.Paragraphs(3).Range.Characters(64).Font.Borders(1).LineStyle = wdLineStyleSingle _
And ActiveDocument.Paragraphs(3).Range.Characters(64).Font.Borders(1).LineWidth = wdLineWidth050pt _
And ActiveDocument.Paragraphs(3).Range.Characters(64).Font.Borders(1).Color = wdColorRed Then
If ActiveDocument.Paragraphs(3).Range.Characters(70).Font.Borders(1).LineStyle = wdLineStyleSingle _
And ActiveDocument.Paragraphs(3).Range.Characters(70).Font.Borders(1).LineWidth = wdLineWidth050pt _
And ActiveDocument.Paragraphs(3).Range.Characters(70).Font.Borders(1).Color = wdColorRed Then
Score = Score + 4
End If
End If

'//No 4 共 4 分

If ActiveDocument.Paragraphs(3).Range.Characters(71).Font.Shading.Texture = wdTexture20Percent _
And ActiveDocument.Paragraphs(3).Range.Characters(71).Font.Shading.BackgroundPatternColor = wdColorGreen Then
If ActiveDocument.Paragraphs(3).Range.Characters(77).Font.Shading.Texture = wdTexture20Percent _
And ActiveDocument.Paragraphs(3).Range.Characters(77).Font.Shading.BackgroundPatternColor = wdColorGreen Then
Score = Score + 4
End If
End If

'//No 5 共 4 分

On Error Resume Next
shp = ActiveDocument.InlineShapes(2).Height
If Err <> 0 Then
Score = Score
Else
Score = Score + 2
If ActiveDocument.InlineShapes(2).Height = 169.8 And _
ActiveDocument.InlineShapes(2).Width = 283.25 Then
Score = Score + 2
End If
End If

'// No 6 共4分

If ActiveDocument.Paragraphs(4).DropCap.Position = wdDropNormal And _
ActiveDocument.Paragraphs(4).DropCap.LinesToDrop = 2 Then
Score = Score + 2
End If

If ActiveDocument.Paragraphs(4).DropCap.FontName = "隶书" Then
Score = Score + 2
End If


'// No 7 共6分
If ActiveDocument.Paragraphs(5).Range.Font.NameFarEast = "宋体" And _
ActiveDocument.Paragraphs(6).Range.Font.NameFarEast = "宋体" And _
ActiveDocument.Paragraphs(7).Range.Font.NameFarEast = "宋体" Then
Score = Score + 2
End If

If ActiveDocument.Paragraphs(5).Range.Font.Size = 12 And _
ActiveDocument.Paragraphs(6).Range.Font.Size = 12 And _
ActiveDocument.Paragraphs(7).Range.Font.Size = 12 Then
Score = Score + 2
End If
'wdLineSpace1pt5
If ActiveDocument.Paragraphs(5).Range.ParagraphFormat.LineSpacingRule = 1 And _
ActiveDocument.Paragraphs(6).Range.ParagraphFormat.LineSpacingRule = 1 And _
ActiveDocument.Paragraphs(7).Range.ParagraphFormat.LineSpacingRule = 1 Then
Score = Score + 2
End If

'MsgBox (ActiveDocument.Paragraphs(5).Range.Characters(2).Text)
'MsgBox (ActiveDocument.Paragraphs(6).Range.Characters(2).Text)
'MsgBox (ActiveDocument.Paragraphs(7).Range.Characters(2).Text)

'MsgBox (ActiveDocument.l)

MsgBox ("你的分数是： " & Score)

End If

出每道题都需要这么判断,DLEPHI也是同样的原理,挨个判断即可

能否将“If ActiveDocument.Paragraphs(2).Range.Font.Color = wdColorBlue Then Score = Score + 2”这一行翻译程delphi代码？

ActiveDocument，这是什么？D中对于那个的是什么？很想学习，关注！

(1)我想做一个考试系统，但在excel,word操作题时怎样评分遇到了麻烦，烦请各位帮忙解决一下？(delphi7+sqlserver2000)
你可以 多录制 宏 看看 代码
(2)rar文件解密
zip的好办 用vclzip

去网上搜下代码 DELPHI WORD
怎么调用一目了然，转化也很简单，改下语法而已
ACTIVEDOCUMENT是WORD的当前激活文档

你老提前不结贴，是因为不会翻译这些代码，还是找不到资料？
要现成的代码？呵呵

一，我已经研究几天了但问题还是没解决。
二，要结贴的朋友一值没有来。
呵呵呵！！！

几年前做过word和excel和资源管理器方面的考试系统，有机会找到了给你delphi7代码的
留个信箱吧

dwf1001，朋友谢谢你，我的邮箱是：myyyj@163.com

等着高手给你找吧,呵呵
1.存评分点,比如标题,第?个段落,第几个字至第几个字,什么格式什么颜色,等等
或EXCEL中的第某格,或某图表的格式
这样代码用宏录制,稍转换下即可拿到DELPHI中用
2.用COM方式调用WORD或EXCEL,挨个对照,评分
3.如果你不熟悉DELPHI中调用WORD,EXCEL的方式方法,建议就在论坛找,多的不得了
如果你连找都不想找,只想找个现成的程序,我劝你放弃吧~~

tane-100 朋友你怎么一直还不来，我答应给你加分的，你不来我没办法结贴啊！
madeagle这位老兄你也不用着急，这个问题我已经弄得差不多了，前几天我一直在研究VFP程序设计题的评分了，也弄的差不多了。也会你的分的，等等！
人得讲信誉啊，我答应为tane-100加分的，但他最近一直没来，所以没办法结贴！
呵呵！！！