ssson的专栏

Sub CreateWord() Dim wordApp As word.Application Application.StatusBar = "正在创建。。。" Set wordApp = New word.Application With wordApp .Visible = True Application.St...

Sub copyall() ' ' 复制本文档所有内容至一个新建的文档中 ' ' Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) End Sub ...

‘ Selection.MoveDown Unit:=wdLine, Count:=1'光标下移一行 ’选中光标所在行 With Selection .HomeKey Unit:=wdLine, Extend:=wdExtend .MoveEnd Unit:=wdLine, Count:=1 End With 移动光标至文档开...