将制表位转换/替换为逗号

Question

我的 Word 文档需要我将制表位转换或替换为逗号。

文本可能如下所示：

Hello........world (dot)
Hello------------World (dash)
Hello____World (line)
Hello          world (none)

Word 提供 4 种制表位前导选项：点、破折号、直线和无。
我只想将前 3 种领导者类型替换为逗号。

最后一个不会这样改：

Hello,world
Hello,World
Hello,World
Hello          world

Word 中的查找和替换选项卡功能不起作用。所以我尝试从各种来源“复制并粘贴”到一个简单的宏中来完成这项任务：

Sub Macro1()
    For Each para In ActiveDocument.Content.Paragraphs
        For Each aTab In para.TabStops
            If aTab.Leader = wdTabLeaderDots _
              Or aTab.Leader = wdTabLeaderDashes _
              Or aTab.Leader = wdTabLeaderLines Then
                TypeText = ","
                aTab.Clear
            End If
        Next aTab
    Next para
End Sub

参考：https://msdn.microsoft.com/en-us/library/office/ff192806.aspx

Word 说行中有错误：TypeText = ","。

---

Slai 对这个问题有一个解决方案。我将第二个代码复制到一个宏中，稍作修改使其工作：

Sub Macro1()
    Dim p As Paragraph, t As TabStop
        
    For Each p In ActiveDocument.Paragraphs
        For Each t In p.TabStops
            If t.Leader Then p.Range.Find.Execute "^t", , , , , , , , , ",", wdReplaceAll
        Next
    Next
End Sub

如果您需要宏仅处理所选内容中的段落，请将 ActiveDocument 替换为 Selection。

Answer 1

查找和替换格式似乎仅在制表位位置已知的情况下才有效：

With ThisDocument.Range.Find
    For L = wdTabLeaderDots To wdTabLeaderLines
        .ParagraphFormat.TabStops.Add Position:=36, Leader:=L
        .Execute "^t", , , , , , , , , ",", wdReplaceAll
    Next
End With

另一种方法是检查每个段落的制表位（顺便说一句WdTabLeader has 6 values）：

Dim p As Paragraph, t As TabStop

For Each p In ThisDocument.Paragraphs
    For Each t In p.TabStops
        If t.Leader Then p.Range.Find.Execute "^t", , , , , , , , , ",", wdReplaceAll
    Next
Next

Answer 2

TypeText 是Selection 对象的一个​​方法。由于您没有指定对象，TypeText 在您的代码中失败。由于您也不使用 Selection 对象，因此您根本不能使用 TypeText。我建议像这样的结构。

With Para.Range
    .Collapse wdCollapseEnd
    .Move wdCharacter, -1
    .Text = ","
End With

此代码将在段落末尾添加一个逗号，这将带您了解您希望逗号在哪里的问题。你想要它代替标签，它与TabStop 完全不同。选项卡是一个 Chr(9)，您可以轻松替换它。但是，如何解释这个 Chr(9) 取决于为其设置的 TabStop 类型，这取决于 Chr(9) 在页面上的哪个位置生效。你不能通过检查文本来判断这一点。因此，您无法通过查看文档的文本来区分 TabStops 的类型。

要明确：不能用逗号替换TabStop，因为TabStop 不存在。可以用逗号替换制表符。

如果不知道其在文本中的精确位置，就无法确定特定选项卡的前导。示例：如果TabStop 存在于距左边距 100 点处并且一个制表符在距左边距 100 点结束的空间中生效，比如说 50 点，并且在距左边距 50pts 和 100pts 之间的区域中没有其他 TabStop 设置，则文档中的选项卡可以与设置为 100pts 的 TabStop 关联，其领导者确定，并替换制定或省略的选项卡（不是TabStop !!!）。

如果知道文档中制表符的精确位置，就不可能在它与段落中的任何制表位之间建立关联。由于无法确定哪个TabStop 可能会生效，因此也无法对其任何属性做出有根据的猜测。如果不准确了解选项卡在文档中的位置，唯一可以做出的决定是无条件地执行还是替换它。