代码如下:
Sub 批量加粗()
Dim a As Range
Dim b As String
b = InputBox("请输入要加粗的关键字")
For Each a In ActiveSheet.UsedRange
If InStr(a.Value, b) > 0 Then
i = InStr(a.Value, b)
a.Characters(...
本文实例讲述了JS使用正则表达式实现关键字替换加粗功能的方法。分享给大家供大家参考,具体如下:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtm...