[分享]《word2000高级教程》的WORD2000版之2

cofe2000

vt5R6n4D.rar (62.53 KB, 下载次数: 44)

2004-7-19 11:32 上传

点击文件名下载附件
[分享]《word2000高级教程》的WORD2000版 之2

这是少的第12和13章

但是格式不对，我是在pdf中复制下来的，有没有排版高手给弄一下，我的word太菜了

上次高级教程中的段落符号我怎么做不出来

http://club.excelhome.net/viewthread.php?tid=42474

还有最重要的一点就是附件中的硬回车怎么去掉，用^p^p的话连段落都没有了，求救！！！

[此贴子已经被作者于2004-7-19 12:34:41编辑过]

守柔

由于该文段落标志与实际文章段落相差较大，且基本找不到规律，较难以实现重排，不过，的确是一篇好文章，谢谢COFE兄。

守柔

试试运行以下代码，可改善一下。

Sub Par() Dim i As Paragraph, Myrange As Range Application.ScreenUpdating = False On Error Resume Next For Each i In ActiveDocument.Paragraphs If i.Range Like "*.?.*" = True Then i.Range.Font.Bold = True If i.Range Like "*.?.*" = True Or i.Range Like "*=*" = True Or i.Range Like "*Sub*" = True _ Or i.Range Like "*End*" = True Or i.Range Like "*""*""*" = True Or i.Range Like "*Next*" = True _ Or i.Range Like "*Else*" = True Or i.Range Like "*MsgBox*" = True Then Else Set Myrange = ActiveDocument.Range(i.Range.End - 2, i.Range.End - 1) If Myrange <> "¡£" And Myrange.Font.Bold = False Then 'MsgBox Range(i.Range.End - 2, i.Range.End - 1) Myrange.Select Selection.EndKey Unit:=wdLine Selection.Delete End If End If Next Application.ScreenUpdating = True End Sub

cofe2000

这么乱的文章能整理成这样已经很不错了，版主辛苦了

可能还要将条件多加一些才能行吧，主要是太没有规律了