求句代码:如何使insertafter插入的文本段按要求对齐

weiyingde

要求:我在使用insertafter方法插入一段文字之后，使之右对齐，再插入一段文本，使之左对齐。
代码如下:
with activedocument.content
         .insertafter vbcr & 文本1$‘插入一段文本
         .paragraphformat.alignment=wdalignparagraphright‘使插入的文本1右对齐
        .insertafter vbcr & chr（12）‘插入一回车符和一分页符
        .insertafter 文本2$  & chr（13）‘插入一段文本:文本2并回车
        .paragraphformat.alignment=wdalignparagraphleft`要求左对齐
  end with
问题:
本来要求文本1右对齐，文本2左对齐，可是两段却都是右对齐，怎样才能符合要求？
请赐句代码。先谢啦。

weiyingde

自我解决了。
     With Selection
         .InsertAfter vbCr
         .TypeText VBA.Format(Date, "yyyy年m月d日重理")
         .MoveLeft 1, VBA.Len(VBA.Format(Date, "yyyy年m月d日重理")), wdExtend
         .Font.Name = "Arial Narrow"
         .Font.Bold = wdToggle
         .MoveRight 1, 1
         .ParagraphFormat.Alignment = wdAlignParagraphRight
         .TypeParagraph
         .ParagraphFormat.Alignment = wdAlignParagraphLeft
         .InsertAfter Chr(12)
         .MoveRight 1, 1, Extend:=wdExtend
         .Font.Name = "楷体"
         .Font.Bold = False
    End With