[求助]

cn_blaze

下面是代码：

Private Sub Document_Close()
Dim bm1, bm2, fs As String
bm1 = ActiveDocument.Paragraphs(1).Range
a = Len(bm)
If a = 15 Then
   bm2 = Left(bm1, 11)
   Else
   bm2 = Left(bm1, 9)
End If
fs = ActiveDocument.Tables(1).Cell(11, 2).Range
MsgBox bm2 & "考核得分为：" & fs & "分", vbInformation
End Sub

cn_blaze

问题1：msgbox对话框中，122分后面的那个圆点怎么去掉？

问题2：msgbox弹出框，实现这样的格式：“XX部第二季度得分为”是第一行，“122分”放到第二行且居中，如何实现。

konggs

1.可用下面的
fs = ActiveDocument.Tables(1).Cell(11, 2).Range
fs=mid(fs,1,len(fs)-2)
即可。
2.没有现成的居中，只能用空格在前面补。另起一行的代码为chr(13)
MsgBox bm2 & "考核得分为：" & chr(13) & space(５) & fs & "分", vbInformation
或MsgBox bm2 & "考核得分为：" & chr(13) & "       " & fs & "分", vbInformation

PS：cn_blaze兄的另一个贴子问代码的问题，我觉得那这个不好判断。因为，在我机子试了几次是成功的。

还有就是不用每改变选区就更新域，这样，太浪费了。效率也不高。你说，是吗？

cn_blaze

更新域的这个代码是我从这里找的一个现成的。:P

正如你所说，不用每次改变选取就更新域，但是要做到每次改变了打分的内容，就需要更新了，这个判断我还不知道。:(

在此感谢你的回复

[em02]