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
评论1
最新资源