如何将文本样式格式化为"Heading 1"将所有Txt文件导入Word文档

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. 文件1.Txt

这是文件1文本

2. 文件2.Txt

这是文件2文本

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对象视为使用选区 - "折叠"就像按箭头键一样。因此，输入内容，格式，然后转到末尾(或开头(。然后对下一个内容重复此操作。