'插入表格
Sub setTable()
Set myRange = ActiveDocument.Range(Start:=2, End:=2)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
End Sub
'取得Word常规字符串
S...
' For i = 1 To Selection.Paragraphs.Count For j = 1 To Selection.Paragraphs(i).Range.Hyperlinks.Count MsgBox Selection.Paragraphs(i).Range.Hyperlinks(j).TextToDisplay MsgBox Selection...
Word中Mail Merge功能之后，分别保存成独立的word文件Sub BreakOnSection() Dim a As Excel.Application, ab As Excel.Workbook Set a = CreateObject("excel.application") Set ab = a.Workbooks.Open("D:\Book2.xl...
Public Sub Duqu() Dim myFile As String Dim docApp As Word.Application Dim docRange As Word.Range myFile = ThisWorkbook.Path & "\Word文档的名字" '指定Word文档 Se...
