Word输入三个“===”，变双直线

dongdonggege

经常在网络有这样的帖子，Word输入三个“===”，敲回车键，就是一条双直线。

我手工输入，敲回车，正常，能得到一条双直线。
但是我用VBA，得到的就是三个等于号。多次在手工和VBA试了，都是这样，为什么？哪位老师解说下？

1. Sub test()
   
2.     Selection.TypeText Text:="==="
   
3.     Selection.TypeParagraph
   
4. End Sub

复制代码

无论是word还是WPS，设置什么的，我没有变动，请各位也试试。

lisongmei

那个是 自动更正选项   可以关掉，关掉后，输入=== 就是=== 了

dongdonggege

lisongmei 发表于 2024-7-26 17:40
那个是 自动更正选项   可以关掉，关掉后，输入=== 就是=== 了

我想要的VBA结果和手工一样的。就是要VBA得到双直线怎么弄？

Enocheasty

dongdonggege 发表于 2024-7-26 18:14
我想要的VBA结果和手工一样的。就是要VBA得到双直线怎么弄？

如果你不是非要模拟这种效果，只是为了双实线的话，直接用行Range的Borders对象设置双实线就可以了。

lisongmei

dongdonggege 发表于 2024-7-26 18:14
我想要的VBA结果和手工一样的。就是要VBA得到双直线怎么弄？

都用VBA了，那就直接代码设置双直线不就行啦。。。

shenjianrong163

Sub test()
    Selection.TypeText Text:="==="
    SendKeys "{ENTER}"  '模拟键盘回车
End Sub

dongdonggege

shenjianrong163 发表于 2024-7-27 09:17
Sub test()
    Selection.TypeText Text:="==="
    SendKeys "{ENTER}"  '模拟键盘回车

方法巧妙，但是在我的word里未实现，你的能实现吗？

shenjianrong163

dongdonggege 发表于 2024-7-27 09:24
方法巧妙，但是在我的word里未实现，你的能实现吗？

别在VBE窗口运行程序，那样模拟的回车会在代码中实现。你要在word界面中运行程序才行。

shenjianrong163

dongdonggege 发表于 2024-7-27 09:24
方法巧妙，但是在我的word里未实现，你的能实现吗？

dongdonggege

shenjianrong163 发表于 2024-7-27 10:04

能运行，能得到想要的结果了，谢谢帮助。