[求助]

octkings

在用WORD打字时常常用到加、乘法运算。能不能直接在WORD工具栏上插入一个计算器的图标，那样运算起来多方便。谢谢！

snood

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Sub 计算器() Dim sBuffer As String Dim lBufSize As Long Dim lStatus As Long On Error Resume Next lBufSize = 255 sBuffer = String$(lBufSize, " ") lStatus = GetSystemDirectory(sBuffer, lBufSize) sname = "" If lStatus <> 0 Then sname = Left(sBuffer, lStatus) End If

Shell (sname & "\calc.exe")

End Sub

octkings

把这些代码放在什么地方呀，怎么打开。我是个新手看不懂呀说的详细些好吗？

snood

Sub 计算器()

Shell ("calc.exe")

End Sub

hjzero777

的确不错，可是添加到工具栏中名称显示一大串“Normal.Newmarcro.计算器”，怎样实现宏名的更改，让它只显示“计算器”呢？