Word VBA 探测普通字符与回车符之间有其它字符的情况，例如：句号与回车符之间有其它字符，如何探测出来的代码

最新推荐文章于 2023-08-07 22:58:56 发布

wjf63000

最新推荐文章于 2023-08-07 22:58:56 发布

阅读量591

点赞数

分类专栏： VBA 文章标签： vba word vba

本文链接：https://blog.csdn.net/weixin_41422954/article/details/106651034

版权

使用Word VBA在2010版中探测句号与回车符之间存在2-4个额外字符的情况，以实现特定格式的文本清理。

摘要由CSDN通过智能技术生成

Word VBA 探测普通字符与回车符之间有其它字符的情况。

适于用word2010。

本例是：探测出来word文件中，句号与回车符之间有其它字符的情况，且其它字符为2-4个的情况。

代码如下：

Sub test_ZhiFu_and_Enter_ChaZhi_DaYuYi()

'获取当时word文档所有的段落数量
all_Paragraphs_count = ActiveDocument.Paragraphs.Count

'定义变量
Dim cha_zhi As Integer
Dim temp_duan_number As Integer
Dim duan_string As String

'设置temp_duan_number为0，用于记录差值在2-5个字符之间的 段  的数量。
temp_duan_number = 0


'循环语句探测
For i = 1 To all_Paragraphs_count

    '第i段的字符赋值到duan_string
    duan_string = ActiveDocument.Paragraphs(i).Range.Text

    '句号所在在字符串的位置
    Ju_Hao_position = InStrRev(duan_string, "。")
 
    '回车符号所在字符串的位置
    Enter_position = InStrRev(duan_string, Chr(13))
 
    '回车符号所在字符串的位置与句号所在在字符串的位置 的 差值
    cha_zhi = Enter_position - Ju_Hao_position
    
    
    '用0 < Ju_Hao_position探测有句号的段落，用1 < cha_zhi And cha_zhi < 6探测差值在2-5个字符之间