word宏命令大全1_魔兽世界宏命令大全手册 - CSDN文库

1星需积分: 47 121 浏览量更新于2023-03-16 评论 2 收藏 214KB DOC 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

Public excelRows As Integer '锁 F8

Public myDoc As Object '锁 F8

Public wordApp As Object '锁 F8

Public excelApp As Object '锁 F8

Public mySheet As Object '锁 F8

Public xlBook As Object '锁 F8

Public defaultPath As String '锁 F8

Public isAsk As Boolean '锁 F8

Public myCurCommand As String '锁 F8 F8 批处理类型

Public myCommand As String '锁 F0 F8 考试科目

Public myReCommand As String '锁 F8 F8 最下级命令

Public myConst As String '锁 F8 F8 常数命令集

Public isClose As Boolean '锁 F5/保存

Public myNewName As String 'F8 文字/保存

Public isReName As Boolean '保存/F8 移动图表

Public isKillFile As Boolean 'F8 文字

Public myClass As String 'F8 资料分类

Public exten As String 'F8 扩展名信息

Public extensionName As String 'F8 扩展名

Public myAllName() As String 'F8 图片名称

Public keyWord As String 'F8 关键字

Public myCount As Integer 'F6/F7/F9/F8 图片

Public isReColor As Boolean 'F6

Public strtext As String '

Public s As FileSearch ' '定义一个文件搜索对象

Public myStr As String '公共

Public myCurStr As String '公共(最底层、参数)

Public myText As String '公共(最底层、常量)

Public myBool As Boolean '公共

Public myInt As Integer '公共

Public myPath As String '公共

Public myRange As Range '公共

Public myName As String '公共

Sub F2 无格式粘贴到新 word 并保存关闭() '

' 用法（不选择→F2）：（没有窗口打开，新建文档） + 无格式粘贴 + 清除考试大等相关

信息 + 格式/字体/段落调整 + 保存 + 关闭

' 用法（全选 →F2）：区别在于，有窗口打开也新建

Dim isUnSave As Boolean

myCommand = "F2"

If Application.Documents.Count > 0 Then

If Selection.Range.Start = 0 And Selection.Range.End = ActiveDocument.Range.End Then

剩余33页未读，继续阅读

评论1

qq_41722202

2020-12-29

很垃圾，没什么用感觉

xj06541

粉丝: 2
资源: 25

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈