请教一个word格式问题，遇到一个文档，里面有大量这种格式问题

亮亮亮亮亮亮

请教一个word格式问题，遇到一个文档，里面有大量这种格式问题。


问题1：光标现在在“后”字后面，但是按一下向右的方向键，光标就会直接跳到最后
，按一下就会变成：

问题2：光标现在在“子”字后面，但是我如果打一个字，比如打一个A，这个A会出现在前面
，打一个A，这个A会出现在前面：

问题3：光标现在在“套”字后面，如果连续打几个字，比如ABCDEF，这些字会倒序出现：
连续打几个字，比如ABCDEF，会变成：

hgszth

下载了附件，一起正常 没有出现异常现象

wuwenbin32415

我这操作也会出现楼主讲的问题

vbee

物 前面有2个不可见字符
删掉就好了

vbee

vbee 发表于 2025-11-5 18:35
物 前面有2个不可见字符
删掉就好了

2个字符Unicode分别是8238和8236

vbee

Unicode的编码为“8238”，用来强制该符号之后的字符从右向左渲染。 一些中东地区语言，比如阿拉伯语，波斯语，希伯来语，它们是从右向左书写和阅读的，所以默认为RLO。 简单来说，这世界上的语言有两大类，一类是从左往右书写和阅读，比如中文，英文。

wuwenbin32415

vbee 发表于 2025-11-5 18:50
2个字符Unicode分别是8238和8236

请问是怎么删掉的？

墨策

wuwenbin32415 发表于 2025-11-6 11:39
请问是怎么删掉的？

分别查找^u8236和^u8238，替换为空就行了

vbee

1. Sub Replace8238()
   
2. ActiveDocument.Select
   
3.    ' 清除查找和替换的格式
   
4.    'Selection.Find.ClearFormatting
   
5.    'Selection.Find.Replacement.ClearFormatting
   
6.    ' 设置查找和替换条件
   
7.    With Selection.Find
   
8.        .Text = ChrW(8238)  ' 要查找的文本
   
9.        .Replacement.Text = "" ' 替换后的文本
   
10.        .Forward = True ' 向前搜索
    
11.        .Wrap = wdFindContinue ' 搜索到文档末尾后继续从头开始
    
12.    End With
    
13.    ' 执行替换
    
14.    Selection.Find.Execute Replace:=wdReplaceAll
    
15.    
    
16.       With Selection.Find
    
17.        .Text = ChrW(8236)  ' 要查找的文本
    
18.        .Replacement.Text = "" ' 替换后的文本
    
19.        .Forward = True ' 向前搜索
    
20.        .Wrap = wdFindContinue ' 搜索到文档末尾后继续从头开始
    
21.    End With
    
22.    ' 执行替换
    
23.    Selection.Find.Execute Replace:=wdReplaceAll
    
24. 
    
25. End Sub

复制代码

For i = 1 To 9
T = Mid(TT, i, 1)
MsgBox T & AscW(T)
Next
End Sub

wuwenbin32415

墨策 发表于 2025-11-6 12:05
分别查找^u8236和^u8238，替换为空就行了

高手