word 论文中插入打断符，用于打断查重系统读取句子或词语的重复率判断

word 论文插入打断符宏.vba

Sub 插入打断符()
'
' 插入打断符 宏
' 每间隔 ds 个字符插入一个打断符，用于打断查重系统读取句子或词语的重复率判断
' 需要导入一个叫 “打断符” 的样式
'   字体样式继承 正文
'   字体后续样式 正文
'   字体大小 1px
'   字体颜色 白色
'   字体宽度 0%
'

    Const ds As Integer = 4
    Const broke As String = "¥"

    Dim selected As Range
    Set selected = Selection.Range

    '先判断是否有选中区域，没有选中则表示整个文档
    If selected.Start = selected.End Then
        Exit Sub
    End If

    With selected.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = "(?{" & ds & "})"
        .Replacement.Text = "\1" & broke
        .Replacement.ClearFormatting
        .Execute Replace:=wdReplaceAll
    End With

    With selected.Find
        .ClearFormatting
        .MatchWildcards = False
        .Text = broke
        .Replacement.Text = broke
        .Replacement.ClearFormatting
        .Replacement.Style = ActiveDocument.Styles("打断符 字符")
        .Execute Replace:=wdReplaceAll
    End With
End Sub