简单宏程序分析和总结.docxVIP

Ms-office 问候您 工程资源管理器 -normal-插入-模板-双击新建的模板-代码输入： Sub autoexec() Msg “欢迎您使用”,bokonly,”欢迎您” End sub 创建表格Sub mm() Dim cweek(7) cweek(1) = 星期日 cweek(2) = 星期一 cweek(3) = 星期二 cweek(4) = 星期三 cweek(5) = 星期四 cweek(6) = 星期五 cweek(7) = 星期六 Set odoc = ActiveDocument 定义一个文档对象 Set otable = odoc.Tables.Add(Range:=odoc.Range(Start:= 0, End:=0), Numrows:=20, numcolumns:=4) icount = 1 For Each ocell In otable.Range.Cells If icount Mod 4 = 1 Then ocell.Range.InsertAfter Date (icount - 1) / 4 ocell.Range.InsertAfter cweek (Weekday(Date + (icount - 1) / 4)) End If icount = icount + 1 Next ocell End Sub 删 除 Sub DBL() I = 1 Do 从当前文档的顶端注意选择文档的每一段文字 ActiveDocument.Paragraphs(I).Range.Select If Trim(Selection.Text) = Chr(13) Then 如果选测得段落只有回车符和空格则删除 此段Selection.Delete Else 如果选测得段落非空，就将选择的指针移向下一段 Selection.MoveDown I = I + 1 End If Loop Until I = ActiveDocument.Paragraphs.Count End Sub 4.格中错位的表格对齐Ms-office 问候您工程资源管理器 -normal-插入-模板-双击新建的模板-代码输入： Sub autoexec() Msg “欢迎您使用”,bokonly,”欢迎您” End sub 创建表格Sub mm() Dim cweek(7) cweek(1) = 星期日 cweek(2) = 星期一 cweek(3) = 星期二 cweek(4) = 星期三 cweek(5) = 星期四 cweek(6) = 星期五 cweek(7) = 星期六 Set odoc = ActiveDocument 定义一个文档对象 Set otable = odoc.Tables.Add(Range:=odoc.Range(Start:= 0, End:=0), Numrows:=20, numcolumns:=4) icount = 1 For Each ocell In otable.Range.Cells If icount Mod 4 = 1 Then ocell.Range.InsertAfter Date + (icount - 1) / 4 ocell.Range.InsertAfter cweek(Weekday(Date + (icount - 1) / 4)) End If icount = icount + 1 Next ocell End Sub 删 除 Sub DBL() I = 1 Do 从当前文档的顶端注意选择文档的每一段文字ActiveDocument.Paragraphs(I).Range.Select If Trim(Selection.Text) = Chr(13) Then 如果选测得段落只有回车符和空格则删除此段 Selection.Delete Else 如果选测得段落非空，就将选择的指针移向 下一段Selection.MoveDown I = I + 1 End If Loop Until I = ActiveDocument.Paragraphs.Count End Sub 格中错位的表格对齐 电子时钟Sub biao() Selection.InsertDateTime datetimeformat:=hh:mm::ss Selection.HomeKey unit:=wdLine Selection.EndKey unit:=wdLine, estend:=wdExtend Selection.InsertDateTime datetimeformat:=hh:mm::ss Application.OnTime when:=Now + TimeValu