摘要:
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 ... 阅读全文
摘要:
ActiveShape.Text.FontProperties.Uppercase = cdrSmallCapsFontCase 阅读全文