在Excel中为VBA创建Tabstops以获取Word文件

Question

我需要通过Excel宏自动将两个不同的文本部分插入到新生成的文件中。这是我的代码示例。

首先我清除所有现有的标签以获得一个干净的文档，然后我想在左侧对齐的“此文本应在左侧对齐”和“右侧对齐”的右侧对齐的“此文本应对齐”同一条线。

.Content.Paragraphs.TabStops.ClearAll
.Content.InsertAfter "This text should be aligned on the left"

.Content.Paragraphs.TabStops.Add Position:=NewPos, _
      Alignment:=wdAlignTabRight, _
      Leader:=wdTabLeaderLines

 .Content.InsertAfter "This text should be aligned on the right"
 .Content.InsertParagraphAfter

使用此命令，我设法在Word中生成一个Tabstop，但我似乎无法定位它，或者使“此文本应在右侧对齐”右侧对齐。

最后它应该是这样的：

这两个文本部分应该由VBA生成并以这种方式对齐。

Answer 1

以下代码是否适合您？

Sub AlignLeftAndRight()
    Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(16) _
        , Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
    Selection.TypeText Text:="This text should be aligned on the left"
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:=vbTab & "This text should be aligned on the right"
End Sub