摘要: Dim x As Double, y As Double, Shift As Long, b As Boolean, doc As Document Dim sel1 As Shape, sel2 As Shape, s1 As Shape, s2 As Shape Set doc = ActiveDocument b = False ... 阅读全文
posted @ 2016-11-26 22:10 存心影子 阅读(1414) 评论(0) 推荐(0) 编辑
摘要: ActiveShape.Text.FontProperties.Uppercase = cdrSmallCapsFontCase 阅读全文
posted @ 2016-11-26 16:09 存心影子 阅读(545) 评论(0) 推荐(0) 编辑