将所有Txt文件导入Word文档时如何将文本样式设置为“标题1”

Question

我使用这种方法将所有文件导入到Word文档中。

https://stackoverflow.com/a/30494740/908080

我在这样的内容文本之前添加了文件名

With wdDoc.Range
     .InsertAfter FileCnt & ". "
     .InsertAfter myFile & vbCr
     .InsertParagraphAfter
     .InsertAfter txtFiles.Range.Text & vbCr
End With

工作正常。 是否可以将“文件名文本”的格式设置为“标题1”，其余内容设置为“普通文本”。 完成后，我可以创建目录并快速转到所需的文件。

因此它需要看起来像

1。 File1.Txt

这是File1文本

2。 File2.Txt

这是File2文本

Answer 1

有可能，但是（轻松）做到这一点需要稍微不同的方法来处理目标Range。像这样（未经测试）：

Dim rng as Word.Range
Set rng = wdDoc.Content 'a property that returns a Range; Doc.Range is a method
rng.Collapse wdCollapseEnd
With rng
     .Text = FileCnt & ". " &  myFile & vbCr
     .Style = wdStyleHeading1
     .Collapse wdCollapseEnd
     .Text = vbCr & txtFiles.Range.Text & vbCr
     .Style = wdStyleNormal
End With

使用专用Range对象就像使用选择对象一样-“合拢”就像按箭头键一样。因此，输入内容，格式，然后转到末尾（或开始）。然后重复下一个内容。