[求助]怎样把DOT的文件转成DOC的文件

pwkduke

守柔版主：

我是指它的XP风格的按钮，我也想自己做，不知道是怎么做的。我只知道如果用程序做的话，只是改变按钮的ID号，但它们都是固定的，比如XXX号是键头之类的，而用手工做的话，在Office2000里只能做16色的按钮，我只是想给自己的程序增添一点色彩，绝无它意。

守柔

提供几种方法供参考：

Sub Test() Application.CommandBars("Standard").Controls(1).Picture = LoadPicture("C:\WINNT\SYSTEM32\SETUP.BMP")'将常用工具栏第一个控件的图标(新建)更改为另一个图片形式,注意此处是BMP End Sub Sub RESET()'恢复 Application.CommandBars("Standard").Controls(1).RESET End Sub 方法二:复制一图片,回到WORD中,右击工具栏,自定义,在自定义对话框打开的情况下,右击指定控件如还是第一个"新建"按钮,然后点击粘贴按钮图像,OK.

方法三:(与第一个类似)

Sub RESET() Application.CommandBars("Standard").Controls(1).RESET End Sub Sub ChangeButtonImage() Dim picPicture As IPictureDisp Dim picMask As IPictureDisp Set picPicture = stdole.StdFunctions.LoadPicture("C:\WINNT\system32\n2k.BMP") Set picMask = stdole.StdFunctions.LoadPicture("C:\WINNT\Blue Lace 16.BMP") With Application.CommandBars("Standard").Controls(1) .Picture = picPicture .Mask = picMask End With End Sub

可能还有更多的方法,你也可以与WORD作者直接联系,该作者也在我们论坛上啊!