继续请教关于目录生成的问题

ldgm · 发表于 2005-3-3 12:01

守柔斑竹，上次的问题可能思路不对，因此放弃了，这次想请你帮忙告诉我解决这几个问题

我想做一个简化备课的VBA WORD，基本想法是这样的，点某个按钮或做某个操作后会自动生成一个空的备课表格，备课表头仍然希望能做到标题行重复，每一个备课表格自成一小节，然后还能在文档开头生成一个教学计划（类似目录），表格中第一行里的内容列入目录中。。。

难吗？

另外，我还想向你讨一个用VB生成WORD表格文档的示范性源代码，也能帮上忙吗？静候佳音。。。。

APMWd6iW.rar (8.79 KB, 下载次数: 19)

[此贴子已经被守柔于2005-3-3 17:58:25编辑过]

ldgm · 发表于 2005-3-3 23:17

晕，来看回贴，斑竹大人确是改了咱的标题。。。。不妥？

如意 · 发表于 2005-3-5 10:47

别叫了，让守柔休息一下吧。

守柔也是凡人一个哦，他也有七情六欲的。

本版块全靠守柔GG一人支撑着，他也需要休息的，也有家事需要处理的。

希望守柔保重身体哦。

守柔 · 发表于 2005-3-5 16:17

TO 楼主：

关于表格的代码，请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-3-5 15:49:31 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-NewMacros]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub ExampleToInsertTable() Dim MyTable As Table '定义一个表格对象,在插入点位置插入,2行5列,自动调整,固定列宽 Set MyTable = ActiveDocument.Tables.Add(Selection.Range, 2, 5, wdWord9TableBehavior, wdAutoFitFixed) With MyTable .Style = "网格型" '设置样式 '设置列宽为2.5厘米 .Columns.Width = Application.CentimetersToPoints(2.5) '设置行高为0.8厘米 .Rows.Height = Application.CentimetersToPoints(0.8) End With End Sub '---------------------- 另外，强烈建议您下载置顶贴子《守柔WORD编程代码集》，里面有对表格操作的范例。

至于您所提到的分节是正确的思路，目录可以根据表格中某行的大纲级别来提取，这是没有问题的，插入/索引和目录/目录，由WORD自动生成。

但是，请严重注意，您所附件中的标题行重复，还是有页码，这是不可能实现的，除非将其置于非重复标题行的单元格中或者在页眉页脚等处实现；您所说的第一行，是指哪行？不会是重复标题行的那一行吧？？？

不要将简单的问题，搞得复杂化。

ldgm · 发表于 2005-3-6 18:43

再次对斑竹的不厌其烦表示感谢，你是我见过的最具敬业精神的网络斑竹！！！

目录问题，我试了一下，表格外文本设置好标题样式可以做目录，但是表格内却不行，不知是不是我的操作有误。。。。。

还有，我说的自动生成表格是指在VB中如何实现，我想用VB设计一个备课软件，上述代码如何用在VB中呢？

4nhQWRxC.rar (15.01 KB, 下载次数: 11)

守柔 · 发表于 2005-3-7 05:52

VB中调用WORD，请参：

请注意：VB：工程/引用：Microsoft Word 10.0 Object Library

Private Sub Command1_Click() Dim WdApp As Word.Application, WdDoc As Word.Document Dim WdTable As Word.Table 'Set WdApp = CreateObject("Word.Application") Set WdApp = New Word.Application WdApp.Visible = True Set WdDoc = WdApp.Documents.Add Set WdTable = WdDoc.Tables.Add(WdApp.Selection.Range, 2, 5, wdWord9TableBehavior, wdAutoFitFixed) With WdTable .Style = "网格型" '设置样式 '设置列宽为2.5厘米 .Columns.Width = Application.CentimetersToPoints(2.5) '设置行高为0.8厘米 .Rows.Height = Application.CentimetersToPoints(0.8) End With End Sub '----------------------另，你的目录方法错误，插入/索引与目录/目录。如下附件：

dLd3RQke.rar (15.63 KB, 下载次数: 16)

ldgm · 发表于 2005-3-8 07:36

哦，原来是必须使用这个东东呀

也就是说运行的机器上必须装了word才行，是吗？能不能摆脱呢，比如说在RTF中生成什么的。。。。

		自动登录	找回密码
密码			免费注册