类似《TCS 2010中国标准编写模板》是 如何制作的

hfq20052006

    前段时间发现了《TCS 2010中国标准编写模板》比较好用，不知道是如何编写的，本人也想用类似的方法给公司编写一个公司规章制度的编写模板，不知哪位高手能够提供些思路！    《TCS 2010中国标准编写模板》这个软件我不上传了，大家可以百度下，到处是

周星骋

哈，纯属偶遇，正需要这个东东。
话说如果要编写它，不是一件很容易的事，要非常熟练的使用VBA、域、样式、自定义菜单/工具栏/按钮……等等几乎一切 Word 元素。
至于楼主想给公司制作一个规章制度的编写模板，那就简单多了，制作稍好一点的话，懂得用域、样式、自定义菜单/工具栏/按钮就行了，另存为模板分发给别人即可。甚至不需要一点VBA。

hfq20052006

楼上可否给提供个类似的例子看看，或提供个网址

周星骋

hfq20052006 发表于 2014-11-4 09:04
楼上可否给提供个类似的例子看看，或提供个网址

楼主想要哪些效果？
菜单、工具栏都想要？
还是只要即点即输就可？
你用的Word是多少版本？

我看了《TCS 2010中国标准编写模板》用的是Word 2003，那就以 Word 2003 为例吧，哎，还要我跑到旧电脑去抓图。

如果只要即点即输，那就简单了。其实方法很多。不过楼主喜欢《TCS 2010中国标准编写模板》，它用的是“窗体”域。
那就打开“窗体”工具栏，点击“文字型窗体域”，插入到文档中，如下图。
然后按右键点“属性”详细设置一下即可。
效果见本楼下端“简体例子模板.rar”。


自己建工具栏的话，
打开“视图”菜单→“工具栏”→“自定义”对话框（下文说的“自定义对话框”都是指这个），
再点击“工具栏”选项卡→“新建”按钮，就新建了一个空白工具栏，顺便改个名称，例如“楼主的工具栏”。
如下图：


自己建菜单的话，只有一点点区别，
还是打开“自定义对话框”，
点击“命令”选项卡→“新菜单”，
然后将右边的“新菜单”拖到菜单栏上，就产生了一个新的空白菜单，在其上按右键重命名，例如“楼主菜单”，
如下图：


新建的工具栏/菜单上还没有按钮/菜单项，
除了“自定义对话框”将内置的命令的拖上去之外，
楼主还可以新建一些样式、编辑一些宏，拖上去。
以样式为例，超精简地说一下，点击“格式”菜单→“样式和格式”，如下图，
然后去新建也好、修改也好，手工操作都比较多，这里不详细举例了。


将自己的样式添加到工具栏/菜单上，如下图，
打开“自定义对话框”，
点击“命令”选项卡→“样式”，
然后选择右边的样式，拖到工具栏上，或者拖到菜单上，即可。


上面的过程，可以边做边保存为文档，即doc格式，
一切做好后，楼主亲测无误后，可以另存为模板，然后分发啦。别人打开你的模板，改动文字后，直接点“保存”，一般不会影响原模板，而是要求取新文件名，保存为doc格式的。
另存模板的方法如下，
打开“另存为”对话框→选择保存类型为“文档模板”→可同时取个文件名→最后选保存位置→点“保存”按钮。
如下图：


要注意的是：
在不熟练的情况下，多做多试多思考。
直到成熟后，再分发给别人使用。
否则，如果制作出来的模板，加的限制功能太多，反而搞得不好用，那么发给别人去使用的话，只能得到两个字的反馈，那就是：
找骂。


下面上超简单地例子：
简单例子模板.rar (2.98 KB, 下载次数: 89)

2014-11-4 10:30 上传

点击文件名下载附件

hfq20052006

非常感谢楼上提供的帮助，自定义菜单和工具栏的问题搞定了，现在又碰上个棘手的问题，多次试验无果，再来请教：
如何在VB6.0中用代码实现在word文档中插入“下一页”的分隔符后将本节的页脚设置为“取消链接到前一个”，并删除页脚中的全部文本。
我的代码如下（未实现我的要求，结果是删除了第一节的页脚内容）：
        Selection.InsertBreak Type:=wdSectionBreakNextPage  '插入分隔符“下一页”
        If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close
        If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     '激活页眉页脚窗口显示
        If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter    '如果当前选择的是页眉，则切换到页脚
        Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious   '取消页脚的“链接到前一个”
        Selection.WholeStory    '选择页脚的全部内容
        Selection.Delete Unit:=wdCharacter, Count:=1    '删除页脚的内容
        ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument      '取消页眉页脚的激活

周星骋

hfq20052006 发表于 2014-11-5 16:26
非常感谢楼上提供的帮助，自定义菜单和工具栏的问题搞定了，现在又碰上个棘手的问题，多次试验无果，再来请 ...

很高兴楼主将原来的问题搞定了，期待你将来的大作。

至于你想将 插入分隔符“下一页”和页脚“取消链接到前一个”的功能做成自动化，
其实 VB 6.0 这个说法不准确，容易让人产生误解，还以为你要通过外部编程软件做呢，
正确的说法应该是 VBA。
虽然 Word 2003 的 VBA “关于”框显示的是 Visual Basic 6.0，但它确实只是 VBA。
而 Word 2013 的 VBA 就显示正确了，Visual Basic for Applications，简称 VBA：

现在手机上流行的 APP，其实在电脑里很早就出现了，它就是 Applications 的缩写，中文是“应用程序”的意思。
VBA 可以理解为：为应用程序设计的脚本语言。
与 VB 是有区别的。

哈，这样啰嗦下去，是会砸到花花草草的。

言归正传，Excel 的 VBA 我到是正在学习，能写一点简单的。
Word 的 VBA 我目前只停留在录制宏阶段。
论坛里高高手很多，例如最近一直活跃的zhanglei1371 等高手。
建议你另起帖子，呼叫高手来解答。
你上一楼的问题，对于他们来说应该轻而易举。
貌似要一个循环才行。

weilan2008

楼主，我最近遇到一个问题，向你请教一下，用TCS2010编辑的文件上传到蓝凌的OA，上传的过程中通过控件转换，取消文件的复制权限，我们在测试过程中，用WORD编辑的文件复制功能都能取消，但用TCS2010编辑的文件都能复制，请问你碰到过这样的问题没有，根据你的经验能否判断可能会是哪里的问题？
这个控件蓝凌是购买金格的，供应商态度不积极，我们也很郁闷{:soso_e101:}

hfq20052006

weilan2008 发表于 2015-8-4 10:28
楼主，我最近遇到一个问题，向你请教一下，用TCS2010编辑的文件上传到蓝凌的OA，上传的过程中通过控件转换 ...

不知你说的是文件的复制，还是文件中文本内容的复制

weilan2008

hfq20052006 发表于 2015-8-6 15:41
不知你说的是文件的复制，还是文件中文本内容的复制

文件中文本内容的复制

hfq20052006

weilan2008 发表于 2015-9-16 10:48
文件中文本内容的复制

你说的这个问题取决于蓝凌OA的保护策略（或设置保护的内部机制），这个只能通过OA公司调整保护机制解决。如果不嫌麻烦也可以将TCS 2010文件内容复制份重新放到word新建的文档中也应该可以解决。