如何将自制的宏以及窗体、模块备份及转移？

sdbbsdbb

问题401.如何将自制的宏以及由宏控制的窗体、模块以及自定义工具栏（包括定义以及自制的图标）备份及转移？ 自从来到这块宝地，向版主学了不少东东，也编写了不少对我来说十分重要的宏，但这些玩意儿都只能单机运作，即不能（全部）转移(而不是复制)到另一台机器上，又不能可靠备份，某次我的NORMAL模板出了点问题，只好删除后再新建，结果，我丢失了（除原先保留好的宏以外）所有的成果，真是郁闷！ 第一方案是备份"NORMAL.DOT"文件,这样做能做到万无一失,但我的工具栏是经常更新的,全面备份只能记录而不能做到有所选择,况且,这对于不同版本的WORD估计也不可能完全通用. 第二方案 当然，窗体可用“导出”的方法一一备份窗体内容，模块应当也可类似处理，这些现意儿如每转移一台机器都要重新干一回，实在太麻烦。另外,为方便使用，我已将不少宏都定义到“自定义工具栏”中，且都改了简短好用的名字或自制了很‘象形’的图标，这些东东怎么转移、备份我就没辙了。版主，能否帮忙建立个类似于DOS的批处理，让偶能使VBA成果能象VB编制的EXE软件一样‘即拷即用”(并且可按需COPY,不同于全面备份DOT文件)。而上次在坛中见到的那个WROD助手更证明了这一点,即其中的自定义的宏、菜单以及图标都是可移植的，但能否用较为简单的方法来达到这个目的? 另外，随着我自建的宏越来越多,在"宏"列表框中显示的名字越来越多,很不养眼,能否用自建命令或其他方法(反正我不希望列表框中有几十个令人眼花暸乱的宏)来达到目的? 又及，如在建立宏时，起的是E文名字（例如TRY），则一旦将该宏拖到工具栏上后，再将宏中的名字改为中文名称（如“段首双全角空格代换”），但WROD似乎也有“记忆”效应，鼠标放在(该宏对应的)图标上时，仍显示“旧”的宏名--TRY(其实，此时系统中已不存在名字为TRY的宏了！)，而非“段首双全角空格代换”！这个问题有解决的可能么?(我的习惯不好,往往宏一建立,我立马往工具栏上拖,并马上改图标,如果重新建立一下,那个可爱的图标又得重新动手了!)

守柔

第一个问题,你可以试试工具/模板和加载项/管理器/宏方案项,工具栏等,将NORMAL.DOT中的自定义东东复制到一个文档中,(可以使用SHIFT+鼠标单击).

当重命名或者删除模板(NORMAL.DOT)后,打开含有导出宏方案与工具栏的文档,工具/模板和加载项/管理器/宏方案项,工具栏等,将此文档中的自定义东东添加到NORAML.DOT中,你且试试,是否能够满足你的要求.

另外,建议以重命名模板为宜,这样,一些东东,想起来的时候,还能找得到.

第二个问题:

"另外，随着我自建的宏越来越多,在"宏"列表框中显示的名字越来越多,很不养眼,能否用自建命令或其他方法(反正我不希望列表框中有几十个令人眼花暸乱的宏)来达到目的?"

我想,一是你要及时清理,一些不用的宏,少用的宏,可以不一定非得放在NORMAL.DOT中,可以放在文档中.二是对一些功能相似结构相似的宏,可以合并宏,在过程中加入判断,与用户相互根据用户(你)的选择,做相应的动作;三是可以对最常用的一些宏,定义快捷方式,可以避免眼烦;

第三个问题:

"这个问题有解决的可能么?(我的习惯不好,往往宏一建立,我立马往工具栏上拖,并马上改图标,如果重新建立一下,那个可爱的图标又得重新动手了!)"

一是养成良好的习惯,我接触代码久矣,还是英文(与爱国无关)的比较适宜.如果非得更改,并且按你的要求正确的屏幕提示,可以用代码运行一下. Sub Example() Application.CommandBars(41).Controls(11).TooltipText = "段首双全角空格代换" End Sub 还有问题,再交流.祝你成功.