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

weiyingde · 发表于 2021-2-24 16:57

本帖最后由 weiyingde 于 2021-2-24 17:01 编辑

我们知道在用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

▷◁♤♡♢♧▶◀♠♥♦♣☼☽☺◐☑✔☜☝☞☀☾☹◑☒✘☚☟☛▪•░▒♩♪♫♬〼۞℗®©♭♯♮¶▬™㏇☌☍☋☊㉿◮◪◔◕♈♉♊♋♌♎♏♐♑♓♒♍▨▤▧㊤▩▦▥㊧㊥㊨☳☯☱▫◈▣㊦☶☵☰▫◈▣㊦↕↔⊱⋛⋌⋚⊰¬†‡✲❈❉✿❀❃❁☸✖✚✪❤ღ❦❧ி₪✍✌✁✄☁☂☃☄♨☇☈☡➷⊹✉☏✙✟☤☥☦☧☨☫✎☬♟♙♜♖♞♘♝♗♛♕♚♔

«»‹›¡ ¿

⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳❶❷❸❹❺❻❼❽❾❿

∅∂∆∉∬∭₁₂₃½⅓⅔¼¾฿₠

约定的童话 · 发表于 2021-2-24 20:59

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

weiyingde · 发表于 2021-2-25 12:24

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

不知大侠要这句干吗。

约定的童话 · 发表于 2021-2-25 14:42

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

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

sylun · 发表于 2021-2-25 22:44

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

sylun · 发表于 2021-2-25 22:59

约定的童话发表于 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 · 发表于 2021-2-25 23:10

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

约定的童话 · 发表于 2021-2-26 08:42

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

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

weiyingde · 发表于 2021-2-26 11:02

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

谢谢，有空看一下。

sylun · 发表于 2021-2-27 11:00

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

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

		自动登录	找回密码
密码			免费注册

[求助] word VBA能操控这些特殊字符吗？