新人敬请高手赐教：孤字不成行

bxlzbtpap

　　第一次发现还有这么一个word高手云集的地方，兴奋中……
　　现请教一个问题，这问题在偶这个水平上怕是无解了，请各位斑竹和高手指教。

　　一个文档全部整理编辑完毕，就是说，纸型、页面、版式、边距、行宽、缩进、制表位、字体、字号、字宽、字数等相关因素统统都已确定，那就剩下了最后一个问题：孤字检查。
　　孤字不成行，这是约定俗成的编辑规则。
　　于是问题来了：用什么命令可以自动规避孤字成行？
　　普通的办法是人工搜索孤字，然后人工处理，比如压缩本段字间距等。偶一直就是这么干的。这当然是很蠢的办法，偶希望有个高明的办法，一口气做完这件事儿。
　　

bxlzbtpap

也上传一个附件。其中，“德”“国”“军”三个字就是所谓孤字，这种类型的东西不允许的。

bxlzbtpap

转成纯文本可以找到孤字，但纯文本又把格式破坏了。因此不能考虑。
问题的关键是：偶没有一个好办法确定所谓“行”。如果在不影响版面的情况下能给行作出标记，事情就好办多了。

守柔

原帖由 bxlzbtpap 于 2010-7-12 05:43 发表
　　第一次发现还有这么一个word高手云集的地方，兴奋中……
　　现请教一个问题，这问题在偶这个水平上怕是无解了，请各位斑竹和高手指教。

　　一个文档全部整理编辑完毕，就是说，纸型、页面、版式、边距、行 ...

写了一个小代码，供楼主参考。
Option Explicit
Private Const m_sngSpacing As Single = -0.2    '''此值可以调整;也可以根据段落字号按比例取值;也可以通过多次循环设置
Sub Example()
    Dim oPara As Paragraph
    Dim rngPara As Range
    Dim rngLine As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For Each oPara In .Paragraphs
            Set rngPara = oPara.Range
            If Not rngPara.Information(wdWithInTable) Then '''段落不在表格中
                rngPara.SetRange rngPara.End - 1, rngPara.End - 1 ''段落标记前一插入点位置
                rngPara.Select '''选定
                Set rngLine = .Bookmarks("\Line").Range '''返回当前行所在的Range区域
                If Len(rngLine.Text) < 4 And rngLine.InlineShapes.Count = 0 Then ''单字+标点+段落标记,不为图片
                    oPara.Range.Font.Spacing = m_sngSpacing '''紧缩字段间距
                End If
            End If
        Next
    End With
    Application.ScreenUpdating = True
End Sub

bxlzbtpap

守柔老大，偶水平低，不懂代码耶，55……
是不是把这段代码粘贴到宏列表中就能用了？

yongzhang26

守柔版主万岁~~~

bxlzbtpap

原帖由 yongzhang26 于 2010-7-12 09:40 发表
守柔版主万岁~~~

万万岁！！

bxlzbtpap

还有，斑竹，偶去看了您的网站，文本筛是不是有卖的？多少钱一个？
这也是偶一直想做但做不好的事情。

bxlzbtpap

偶把中文删除粘贴到宏里去，但一运行就报错。……一定是什么地方做错了，偶一点儿也不懂代码……

bxlzbtpap

除了代码就没有其他更通俗的办法解决这个问题么？