如何让带横杠句上下对齐

szh9388

如何让带横杠句上下对齐
各位大师如何利“查找与替换”让带横杠句上下对齐

wangd111

把“（”替换为“  （”，就是替换为两个空格加括号，全部替换。然后把“.   －”（句号+三个空格+横杠）全部替换为“. －”（句号+一个空格+横杠）。可以用空格调节对位。

[ 本帖最后由 wangd111 于 2009-6-6 20:29 编辑 ]

szh9388

谢谢，我的意思是指让下面带横杠的句子与上面带横杠的句子对齐，用“查找与替换”有何好的方法，在线等

tangqingfu

参考sylun兄写的代码:(单击"帮助"后面的"统一英语对话样式及对齐"按钮)
Sub 统一英语对话样式及对齐()
Dim p As Paragraph, myRange As Range, myend As Long, myInfo As Long
Dim pl As Long, pt As Long, pw As Long, ph As Long
Application.ScreenUpdating = False
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
With myRange.Find
    .ClearFormatting
    .MatchWildcards = True
    .Text = "([．^13])[-—]{1,}"
    .Execute replacewith:="\1—", Replace:=wdReplaceAll
    .Execute findtext:="([．^13])[A-C][:：]", Replace:=wdReplaceAll
    myend = myRange.End
    .Replacement.Text = ""
    Do While .Execute("^13—")
            With .Parent
                .Select
                If InStr(.Paragraphs(1).Range.Text, "—") Then
                    ActiveDocument.ActiveWindow.GetPoint pl, pt, pw, ph, _
                        .Paragraphs(1).Range.Characters(InStr(.Paragraphs(1).Range.Text, "—"))
                    myInfo = pl
                    ActiveDocument.ActiveWindow.GetPoint pl, pt, pw, ph, .Paragraphs(1).Range.Characters(1)
                    .Paragraphs(2).LeftIndent = PixelsToPoints(myInfo - pl)
                End If
                .SetRange .End, myend
            End With
    Loop
End With
Application.ScreenUpdating = True
End Sub

smart3503

在查找内容中输入“^p—”，在替换中输入“^p     —”，其中横杠前有几个字符就输入几个空格

szh9388

又学会了几招，谢谢楼上各位老师的赐教

[ 本帖最后由 szh9388 于 2009-6-8 13:38 编辑 ]

喜有此李

这几个技巧挺好的，学习了