06 2020 档案

WordVBA提取红色字体选项
摘要：Sub 提取红色正确答案选项() Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Font.Color = wdColorRed Selection.Find.Replacement.ClearForma 阅读全文
posted @ 2020-06-30 11:28 wangway 阅读(1035) 评论(0) 推荐(0)
哈哈哈
摘要：Sub AddTitle(ByVal sht As Worksheet) '第一步插入行 sht.Rows("1:1").Insert Shift:=xlDown '第二步合并单元格 With sht.Range("A1:D1") .HorizontalAlignment = xlCenter .V 阅读全文
posted @ 2020-06-09 14:49 wangway 阅读(140) 评论(0) 推荐(0)