wore 排版问题--vba如何操作样式标题

474489459

kingtau 发表于 2019-11-22 20:01
经过反复修改，可以达到要求的。
新手发贴和回复需要审核，经常好几个小时审核才能通过。
修改条件注释 ...

不明觉历，特别是计算页数，硬是看不懂。

kingtau

474489459 发表于 2019-11-22 22:04
不明觉历，特别是计算页数，硬是看不懂。

这个计算页数的原理就是用下一个表格所在的页码减去当前表格所在的页码，当循环到最后一下表格的时候没有下一个表格了，只能用文档总页数来减，结果再加1。
这样并不科学，如果正文里除标题下面刚插入的之外，还有其它表格就不灵了，科学的应该是用标题来定位和计算。但是如果作为本文档的专用代码，这样更容易实现，代码更易写易读。

kingtau

总感觉选择和移动部分代码有问题，仔细查阅文档做出改进。
并对关键代码加了注释助于理解（前辈们的注释极大的加快了我的学习进程）。
针对该示例文档，代码1秒执行完成，作为入门月余的新手还是有点小小的成就感，共勉

1. Sub 插入表格3()
   
2. Dim i As Paragraph
   
3. Application.ScreenUpdating = False
   
4.     For Each i In ActiveDocument.Paragraphs
   
5.             If Len(Trim(i.Range)) = 1 Then '
   
6.                 i.Range.Delete '删除空段
   
7.                 ElseIf i.Range.Bold Then '查找条件可在这里改成其它样式
   
8.                 n = n + 1   '生成文件编号
   
9.                 i.Range.Select
   
10.                 Selection.ParagraphFormat.PageBreakBefore = True '将找到的标题设置段前分页
    
11.                 With Selection
    
12.                     c = Replace(.Range.Text, Chr(13), "") '获取标题内容以备插入第一个单元格
    
13.                     .MoveDown wdParagraph  '移动光标至下一段首
    
14.                 Set myTable = ActiveDocument.Tables.Add(.Range, 3, 2) '插入3行2列表格
    
15.                         With .Tables(1)
    
16.                             .Style = "网格型"
    
17.                             .Cell(1, 1).Range.InsertAfter Text:="题目：" & c
    
18.                             .Cell(2, 1).Range.InsertAfter Text:="修改日期：年月日"
    
19.                             .Cell(3, 1).Range.InsertAfter Text:="生效日期：年月日"
    
20.                             .Cell(1, 2).Range.InsertAfter Text:="文件号：阳光医疗集团-" & n
    
21.                             .Cell(2, 2).Range.InsertAfter Text:="版本号："
    
22.                             .Cell(3, 2).Range.InsertAfter Text:="页数："
    
23.                             .Select
    
24.                             .Range.Font.Name = "仿宋"
    
25.                             .Range.Font.Size = 14
    
26.                             .Columns.AutoFit '自动列宽
    
27.                             .AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
    
28.                         End With
    
29.                 .Cells.VerticalAlignment = wdCellAlignVerticalCenter '垂直居中
    
30.                 .Collapse wdCollapseEnd '光标移出表格
    
31.             End With
    
32.      End If
    
33. Next
    
34. j = ActiveDocument.Tables.Count '
    
35.     For k = 1 To j
    
36.         With ActiveDocument
    
37.             If k = j Then
    
38.                 page = .Range.Information(4) - .Tables(k).Range.Information(3) + 1 '最后一个表格的页数由文档总页数减当前页码加1得到
    
39.                 .Tables(k).Cell(3, 2).Range.InsertAfter page
    
40.                 Exit For
    
41.             End If
    
42.                 page = .Tables(k + 1).Range.Information(3) - .Tables(k).Range.Information(3) '下一表格所在的页码减当前表格所在的页码得到页数
    
43.                 .Tables(k).Cell(3, 2).Range.InsertAfter page
    
44.         End With
    
45.     Next
    
46.     Selection.HomeKey wdStory '过程结束后光标返回文档开头
    
47. Application.ScreenUpdating = True
    
48. End Sub

复制代码

474489459

kingtau 发表于 2019-11-23 13:24
总感觉选择和移动部分代码有问题，仔细查阅文档做出改进。
并对关键代码加了注释助于理解（前辈们的注释极 ...

如果加入表格之前文档已引入自动目录，代码运行即出现错误，是什么原因呢？

kingtau

474489459 发表于 2019-11-24 10:22
如果加入表格之前文档已引入自动目录，代码运行即出现错误，是什么原因呢？

不是应该先排版后引用目录么？
如果实在就要先目录后排版，那只能是改代码跳过目录域范围，目录域的结构和属性还没学过，再慢慢研究吧

474489459

kingtau 发表于 2019-11-24 15:35
不是应该先排版后引用目录么？
如果实在就要先目录后排版，那只能是改代码跳过目录域范围，目录域的结构 ...

好的，其实这个也不是什么大问题，只是在工作中总会遇到一些奇怪的现象。有你这样的老师兼同学，真的很高兴，谢谢你1

474489459

kingtau 发表于 2019-11-23 13:24
总感觉选择和移动部分代码有问题，仔细查阅文档做出改进。
并对关键代码加了注释助于理解（前辈们的注释极 ...

请问，为什么在实战中又出错了呢？

kingtau

474489459 发表于 2019-11-25 22:51
请问，为什么在实战中又出错了呢？

插入表格部分执行无误，没有问题
页数统计部分出错了，已事先申明这代码的统计方法并不适用于原文档中本来就存在表格的情况；
解决方法就是把插入页码那段注释掉，先插入表格，页数统计再想办法。

再就是感觉你应该理清顺序，一般来说应该先核对文档内容，将所有的文字和表格内容保证无错别字和缺字少段的情况，先整理成一篇无任何格式样式文档，并且没有分页符。内容确定了再全选文档设置字体字号，再手工确定标题并给予样式，再用代码自行执行标题段前分页和插入表格。执行完成后人工校对有无出错的地方，有的原文档内表格有跨页的也需要人工调整。到这步所有工作完成，再看文档格式、规律，决定页码统计方式。页码统计一定是要在最后的，因为很多操作都会造成页数增减。

474489459

kingtau 发表于 2019-11-26 09:29
插入表格部分执行无误，没有问题
页数统计部分出错了，已事先申明这代码的统计方法并不适用于原文档中本 ...

好的，谢谢你耐心细致的解释，我的基础不是一般的差。