设为首页收藏本站|繁體中文

Excel 技巧网

 找回密码
 注册

QQ登录

只需一步,快速开始

手机号码,快捷登录

查看: 2098|回复: 3

[Word] 如何运用VBA将所选文字设置为红色并在其两侧添加一对中括号呢?

[复制链接]
发表于 2014-8-30 14:42:50 | 显示全部楼层 |阅读模式
  • 署名作者: 0Mouse
  • 版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
  • 本文来自:
  • 引用作品:
  • 适用版本: 2010 
  • 语言环境: 简体中文
  • 学习方法: 掌握Excel技巧的关键是动手操作 | 下载 ≠ 知识


  • 免费注册成为本站会员,享用更多功能,结识更多Office办公高手!

    您需要 登录 才可以下载或查看,没有帐号?注册

    x
    本帖最后由 0Mouse 于 2014-8-30 14:48 编辑

    Q:如何运用VBA将所选文字设置为红色并在其两侧添加一对中括号呢?
    效果举例说明:
    图1:处理前:
    处理前.jpg
    图2:处理后:
    处理后.jpg
    A:步骤1:打开目标文档后,如图3所示,单击状态栏的“录制宏”按钮弹出“录制宏”对话框,如图4所示,在“宏名”输入框内输入自定义的宏名,如“设置属性”,在“将宏保存在”下拉选项中选择当前文档,再单击“键盘”按钮弹出“自定义键盘”对话框,如图5所示,在“将更改保存在”下拉选项中选择当前文档,单击“请按新快捷键”输入框,按住键盘上的<Alt>键不放,再按下<Q>键,松开按键,单击左下角的“指定”按钮,再单击“关闭”按钮,最后单击状态栏的“录制宏”按钮。
    图3:“录制宏”按钮
    “录制宏”按钮.jpg
    图4:“录制宏”对话框设置
    “录制宏”对话框.jpg
    图5:“自定义键盘”对话框设置
    自定义键盘.jpg
    步骤2:按<Alt+F11>组合键,双击左侧的“NewMacros”,在显示的模块窗口中补充相应代码,完整如下:
    1. Sub 设置属性()
    2. '
    3. ' 设置属性 宏
    4. '
    5. '
    6.     With Selection
    7.         .Font.ColorIndex = wdRed
    8.         .TypeText "[" & .Text & "]"
    9.     End With
    10. End Sub
    复制代码

    用法:选中任意文本后,按<Atl+Q>组合键,或者按<Alt+F8>组合键,在弹出的对话框中单击“运行”按钮。
    附件: 运用VBA将所选文字设置为红色并在其两侧添加一对中括号.rar (248.64 KB, 下载次数: 2)
    发表于 2014-12-31 08:40:26 | 显示全部楼层
    回复

    使用道具 举报

    发表于 2014-12-31 08:40:52 | 显示全部楼层
    这个不错哦!
    回复 支持 反对

    使用道具 举报

    发表于 2015-8-12 21:41:40 | 显示全部楼层
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    Archiver|手机版|Excel技巧网 ( 闽ICP备08107682号-2

    GMT+8, 2019-11-18 07:21

    Powered by Discuz! X3.4

    © 2001-2017 Comsenz Inc.

    快速回复 返回顶部 返回列表