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

lss001 · 发表于 2024-7-27 10:27

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

Sub test()
'使vbe代码窗口不可见
Application.VBE.MainWindow.Visible = False
Selection.TypeText Text:="==="
'使用Wscript避免关闭小键盘
Set ws = CreateObject("Wscript.Shell")
ws.SendKeys "{ENTER}" '模拟键盘回车
'使vbe代码窗口可见
Application.VBE.MainWindow.Visible = True
End Sub

过客fppt · 发表于 2024-7-27 15:45

我觉得直接用VBA输入下划线会更好，可以直接设置线的粗细，还可以直接设置颜色，下面是输入“===”，“---”，“~~~”，“+++”回车录制出来的输入下划线的代码，删除了输入的部分，保留直接输出下划线的VBA代码

shenjianrong163 · 发表于 2024-7-27 21:54

lss001 发表于 2024-7-27 10:27
Sub test()
'使vbe代码窗口不可见
Application.VBE.MainWindow.Visible = False

谢谢老师指正！

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

[求助] Word输入三个“===”，变双直线

评分

评分