[求助]这个问题怎么解决?

yy0y0yy33

我想在一个WORD文档里建一个宏: 自动把当前文档的总字数统计出来，再减去38，然后填写在当前光标位置上。这个宏怎么做？

守柔

以下是引用yy0y0yy33在2004-7-25 14:19:00的发言：

我想在一个WORD文档里建一个宏: 自动把当前文档的总字数统计出来，再减去38，然后填写在当前光标位置上。这个宏怎么做？

你需要其中的总字数是指哪一个？请确定！

yy0y0yy33

从上面数第二个：“页数”下面那个----“字数”

守柔

方法一： 宏

Sub CharsCount() Dim CharsC As Long, GetChars As String On Error Resume Next Application.ScreenUpdating = False With CommandBars("Word Count") .Visible = True .Controls(2).Execute GetChars = .Controls(1).List(1) .Visible = False End With CharsC = CLng(Mid(GetChars, 1, Len(GetChars) - 1)) Selection.InsertAfter CharsC - 38 Application.ScreenUpdating = False End Sub

方法二： 域

在插入点处录入以下域 ：{ = { numchars} - 38 }按下F9即可。

如果你经常用可录入自动图文集。关于域的录入或者插入问题，可参见置顶贴子《也谈域在WORD中的应用》一文。

yy0y0yy33

谢谢你！！

[此贴子已经被作者于2004-7-26 11:14:48编辑过]

守柔

以下是引用yy0y0yy33在2004-7-26 10:47:00的发言：

这个宏运行后,只在原光标处出来个 "-38" ,并没有统计出字数

Sub CharsCount() Dim CharsC As Long, GetChars As String On Error Resume Next Application.ScreenUpdating = False With CommandBars("Word Count") .Visible = True .Controls(2).Execute GetChars = .Controls(1).List(1) .Visible = False End With CharsC = CLng(Mid(GetChars, 1, Len(GetChars) - 1)) Selection.InsertAfter (CharsC - 38) Application.ScreenUpdating = True End Sub 我又试了一遍，应该正确，但最后第二句应为Application.ScreenUpdating = True，

我写错了，写成为false.

代码中又加了一括号，你再试一下。

yy0y0yy33

现在行了，真诚感谢你！