对于新入门VBA的朋友，我推出了一个活动："每天20分钟，半年精进VBA"。每天通过分享视频，收看视频，利用20分钟，看我的讲解，跟紧我的进度，半年的时间，你会有所成，可以在工作中利用VBA，让VBA代替你的部分工作。这套视频是以"VBA代码解决方案为蓝本"的讲解，共147讲，每讲20分钟左右，不同于刻板的课件，视频讲解是我实际经验的传授，如何写代码，如何调试代码，写代码应该注意到哪些，这些点滴会在视频中有讲解，如果大家有志于学习，有志于精进VBA，可以参加这个活动。活动时间大概半年左右。现在视频录制到30余讲，尽早参加活动，尽早收益，还可以追赶上我的进度呢。
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) 当前文档中的第二节
,
