使用 VBA 将多个 RTF 文本合并为一个 RTF 文件

Question

我正在使用 VBA 从 MS Project 中提取“任务注释”，并希望创建一个 MS Word .DOC 文件并将这些文本复制到 EXCEL 中。

如果您使用任务对象的 Notes 属性，您只会获得 255 个字符，并且格式不会保留。 为了保持格式，您可以将 .MPP 文件转换为 .MPD 并提取注释。这些注释已使用 rtf 存储（请参阅 PJDB.HTM 查找“sub getRtf”）。 这样我就可以提取所有笔记并将它们写入 .rtf 文件中。 如果我使用 MS Word 打开该文件（包含多个注释[我已验证]），我只会看到第一个注释（并且格式正确）。 我从其他网站收集的信息了解到，一个文件中仅会处理一个 rtf 文本，并且加入多个 rtf 文本并非易事。

所以我的问题是： 有谁知道如何将多行 rtf 行组合成一个 rtf 文本。

我更喜欢使用 VBA 的答案。

当然，如果有人知道如何从 MS Project 中提取注释并创建保留格式的 .DOC 文件，那也可以

Answer 1

这可能不是正确的答案，但您可以在 VBA 中执行此操作：

对于每个 RTF 文件，打开并以富文本形式保存到剪贴板（通过 API），然后粘贴到 word 中。

它很丑，但很有效。

Answer 2

我有一个类似的任务，从数据库读取 RTF，并为在 Word 文档中保留 RTF 格式的所有记录创建报告。该代码从数据库获取 RTF，将其写入扩展名为 .rtf 的文件，然后将该文件插入到表单元格中。我猜这不完全是你在做什么，但报告确实显示了 N 条记录中的所有格式化文本。

所以“文件”并不是真正的“组合”。

Word 表格确实手动粘贴到 Excel 中，并且格式被保留。我不知道 Excel 中的 InsertFile 相当于什么。

    RS.Open SQL, con
    Do Until RS.EOF
        Set ts = fso.CreateTextFile("c:\temp\temp.rtf", True)
        ts.Write RS(0)
        ts.Close
        If iRow > 1 Then tbl.Rows.Add
        tbl.Cell(iRow, 1).Range.InsertFile "C:\temp\temp.rtf", , False
        .....
        iRow = iRow + 1
        RS.MoveNext
    Loop

需要对 Microsoft Scripting Runtime 的引用，如下：

    Dim ts As TextStream
    Dim fso As New FileSystemObject