将所有 Txt 文件导入 Word 文档时如何将文本样式格式化为“标题 1”答案

【问题标题】：How to Format Text Style to "Heading 1" while importing all Txt files into Word document将所有 Txt 文件导入 Word 文档时如何将文本样式格式化为“标题 1”
【发布时间】：2019-12-10 01:50:05
【问题描述】：

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

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

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

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

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

所以它需要看起来像

1. File1.Txt

这是文件 1 文本

2。 File2.Txt

这是 File2 文本

【问题讨论】：

标签： vba ms-word format styles

【解决方案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 对象，就像使用一个选择一样——“折叠”就像按下一个箭头键。因此，输入内容、格式，然后转到结尾（或开头）。然后重复下一个内容。

【讨论】：