我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。
如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。
VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是如何学习VBA之3.3.11 VBA编程经典460句421-460
【分享成果，随喜正能量】踏着春天的脚步，轻快上路，与春同行。一路追逐芬芳和美好，一路播种希望和温暖。无论阳光阴晴，还是风霜雨雪，都坦然接受，一切都是最好的安排。
如何学习VBA之3.3.11 VBA编程经典460句421-460
421 ActiveDocument.Paragraphs(1).SpaceBefore 返回当前文档中第一段的段前间距
422 ActiveDocument.Paragraphs(1).SpaceAfter 返回当前文档中第一段的段后间距
423 ActiveDocument.Paragraphs(1).Range.Text 返回当前文档中第一段的内容
424 ActiveDocument.Paragraphs(1).Range.Style.NameLocal 返回当前文档中第一段应用的样式名
425 ActiveDocument.Paragraphs(1).Range.Style.Description返回当前文档中第一段所应用样式的详细描述
426 ActiveDocument.Paragraphs(1).Range.Style.Font.Name 返回当前文档中第一段所应用样式的字体名
427 ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast返回或设置一种东亚字体名
428 ActiveDocument.Paragraphs(1).Range.Style.Font.Size 返回或设置当前文档中第一段所应用样式的字体大小
429 ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing 返回或设置字符间距
430 Selection.Words.Count 所选区域的字数
431 Selection.Sentences.Item(1) 所选区域中的第一句的内容
432 ActiveDocument.Words(1).Select 选择当前文档中的第一个词
433 ActiveDocument.Range.Words(1).InsertAfter "我爱你！" 在当前文档中的第一个词后插入“我爱你”
434 Selection.Characters.Count 当前文档中所选区域的字符数
435 ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter 在当前文档的第一段之后插入一个新段落
436 ActiveDocument.Sections.First 当前文档的第一节
437 ActiveDocument.Sections.First.PageSetup.BottomMargin 当前文档第一节所在页的底边距
438 ActiveDocument.Sections.First.PageSetup.LeftMargin 当前文档第一节所在页的左边距
439 ActiveDocument.Sections.First.PageSetup.RightMargin 当前文档第一节所在页的右边距
440 ActiveDocument.Sections.First.PageSetup.TopMargin 当前文档第一节所在页的顶边距
441 ActiveDocument.Sections.First.PageSetup.PaperSize 返回或设置当前文档第一节所在页的大小
442 ActiveDocument.Sections.First.PageSetup.PageHeight 返回或设置当前文档第一节所在页的高度
443 ActiveDocument.Sections.First.PageSetup.PageWidth 返回或设置当前文档第一节所在页的宽度
444 ActiveDocument.Sections.Add Range:=myRange 在当前文档中添加新节
445 ActiveDocument.Sections.Item(2) 当前文档中的第二节
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.Add(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的文件
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
