'每天20分钟,半年精进VBA'。收看视频,每天利用20分钟,半年的课程,跟紧我的进度,半年的时间,你会有所成。要知道,学习是自己的事情,不能等,没有人替你学习。有了VBA,你可以受益终生。这套视频是以'VBA代码解决方案为蓝本'的讲解,共147讲,不同于刻板的课件,完全是是我实际经验的传授,我是20年前自学的VBA,我会在视频中以我自己的体会讲解如何写代码,如何调试代码,写代码应该注意到哪些,如果大家有志于学习,有志于精进VBA,尽早参加这个活动。现在视频录制到30余讲,尽早参加活动,尽早收益,还可以追赶上我的进度呢。 446 ActiveDocument.Sections.Last.Range.InsertAfter '文档结束!' 在当前文档中最后一节的结尾添加文字'文档结束!' 447 ActiveDocument.Range(Start:=0, End:=10) 表示当前文档前10个字符所组成的一个Range对象 448 Set myRange = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(2).Range.Start, _ End:=ActiveDocument.Paragraphs(4).Range.End) 将当前文档第2段至第4段设置为一个Range对象 449 ActiveDocument.Paragraphs(1).Range.Copy 复制当前文档中的第一段 450 Selection.Copy Documents.Add.Content.Paste 复制所选内容到新文档中 451 ActiveDocument.Bookmarks('Book1').Copy Name:='Book2' 将Book2书签复制Book1书签标记的位置 452 Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4将所选内容移至文档中的第4行 453 Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext 将所选内容移至下一个表格的第1个单元格 454 Selection.Range.AutoFormat 为所选内容套用格式 455 ActiveDocument.Content.Font.Name = 'Arial' 将当前文档的字体设置为斜体 456 ActiveDocument.Content.Select Selection.Delete 将当前文档中的内容删除 457 Documents.Add '添加一个新文档 458 Set myTable =ActiveDocument.Tables.A dd(Selection.Range, 2, 2) 在当前文档所选区域添加一个2行2列的表格 459 Open 'C:\my.txt' For Input As #1 打开一个用于输入的文件并令其编号为1 460 Line Input #1, TextLine 读取被打开用于输入且编号为1的文件 461 Close #1 关闭编号为1的文件 |
|