word VBA能操控这些特殊字符吗？

weiyingde

我们知道在用VBA实现可以读取word中的文本，或向文档输入文本。
可用ASC读取文本的字符数字代码，再用chr函数向文档输入字符，或直接在代码中写入字符。
可是下面这戏特殊字符，用ASC获取的全部是63，这是“？”的数字代码，将这些文本复制在代码中，全部都是“？”，这也就是说，VBA不能识别他们。可是若是在VBA要处理它们，该怎么办？
请大侠解惑，支招。
先谢了！！
用下面可以验证。
Sub 获取代码()
Dim par As Paragraph
With ActiveDocument
For Each par In .Paragraphs
    For Each cha In par.Range.Characters
        If Asc(cha) <> 63 Then
           If Asc(cha) <> 13 Then MsgBox Asc(cha) & "  " & cha
        End If
    Next
Next
End With
End Sub

&#9655;&#9665;&#9828;&#9825;&#9826;&#9831;&#9654;&#9664;&#9824;&#9829;&#9830;&#9827;&#9788;&#9789;&#9786;&#9680;&#9745;&#10004;&#9756;&#9757;&#9758;&#9728;&#9790;&#9785;&#9681;&#9746;&#10008;&#9754;&#9759;&#9755;&#9642;&#8226;&#9617;&#9618;&#9833;&#9834;&#9835;&#9836;&#12348;&#1758;&#8471;&#174;&#169;&#9837;&#9839;&#9838;&#182;&#9644;&#8482;&#13255;&#9740;&#9741;&#9739;&#9738;&#12927;&#9710;&#9706;&#9684;&#9685;&#9800;&#9801;&#9802;&#9803;&#9804;&#9806;&#9807;&#9808;&#9809;&#9811;&#9810;&#9805;&#9640;&#9636;&#9639;&#12964;&#9641;&#9638;&#9637;&#12967;&#12965;&#12968;&#9779;&#9775;&#9777;&#9643;&#9672;&#9635;&#12966;&#9782;&#9781;&#9776;&#9643;&#9672;&#9635;&#12966;&#8597;&#8596;&#8881;&#8923;&#8908;&#8922;&#8880;&#172;&#8224;&#8225;&#10034;&#10056;&#10057;&#10047;&#10048;&#10051;&#10049;&#9784;&#10006;&#10010;&#10026;&#10084;&#4326;&#10086;&#10087;&#3007;&#8362;&#9997;&#9996;&#9985;&#9988;&#9729;&#9730;&#9731;&#9732;&#9832;&#9735;&#9736;&#9761;&#10167;&#8889;&#9993;&#9743;&#10009;&#10015;&#9764;&#9765;&#9766;&#9767;&#9768;&#9771;&#9998;&#9772;&#9823;&#9817;&#9820;&#9814;&#9822;&#9816;&#9821;&#9815;&#9819;&#9813;&#9818;&#9812;

&#171;&#187;&#8249;&#8250;&#161; &#191;

&#9322;&#9323;&#9324;&#9325;&#9326;&#9327;&#9328;&#9329;&#9330;&#9331;&#10102;&#10103;&#10104;&#10105;&#10106;&#10107;&#10108;&#10109;&#10110;&#10111;

&#8709;&#8706;&#8710;&#8713;&#8748;&#8749;&#8321;&#8322;&#8323;&#189;&#8531;&#8532;&#188;&#190;&#3647;&#8352;

约定的童话

Word.Selection.Find.Execute FindText:=arr(i, 4), Forward:=True '查找关键字
        p = Word.Selection.Information(wdActiveEndPageNumber) '获取关键字所在页码
p这句一直报错，楼主研究过没？

weiyingde

约定的童话 发表于 2021-2-24 20:59
Word.Selection.Find.Execute FindText:=arr(i, 4), Forward:=True '查找关键字
        p = Word.Select ...

不知大侠要这句干吗。

约定的童话

weiyingde 发表于 2021-2-25 12:24
不知大侠要这句干吗。

用excel的VBA去word文件查找excel里面的关键字，然后得出关键字在word里面的页码数字

sylun

试试用AscW函数获取其字符编码

sylun

约定的童话 发表于 2021-2-24 20:59
Word.Selection.Find.Execute FindText:=arr(i, 4), Forward:=True '查找关键字
        p = Word.Select ...

wdActiveEndPageNumber是Word VBA的一个常量名，其值为3，在Excel VBA中调用Word VBA时，应使用枚举常量值，而不是用常量名作参数，当然可以先对常量赋值再用。

413191246se

* 魏老师：这些特殊符号，大致可以有两种方法应用它们。首先用下面语句先识别其代码：
MsgBox Asc(Selection) & "/" & AscW(Selection) 如果 Asc 的值全是 63，则改用 ascw 的值。
第一种：直接在代码中用 Chrw()输入；如：Selection.TypeText Text:=ChrW(9655)
第二种：光写 chrw 代码没用，还要配合字体，如：Unicode 字体；可以用录制宏获得代码，此处略。
像全角空格，平时我记得是 chr(-24159)，今天，我用 ascw(selection)获取其值，又可表示为 chrw(12288)。

约定的童话

sylun 发表于 2021-2-25 22:59
wdActiveEndPageNumber是Word VBA的一个常量名，其值为3，在Excel VBA中调用Word VBA时，应使用枚举常量 ...

工具-引用那里勾选一下word就好了，代码是对的，可以得出数值

weiyingde

413191246se 发表于 2021-2-25 23:10
* 魏老师：这些特殊符号，大致可以有两种方法应用它们。首先用下面语句先识别其代码：
MsgBox Asc(Selecti ...

谢谢，有空看一下。

sylun

约定的童话 发表于 2021-2-26 08:42
工具-引用那里勾选一下word就好了，代码是对的，可以得出数值

以为是指宏运行时语法出错。对于p值出现偏差的原因，可能要根据具体代码和实际文档来分析判断