将ini文件插入带有格式的word答案

【问题标题】：inserting ini File into word with formatting将ini文件插入带有格式的word
【发布时间】：2017-01-01 17:09:00
【问题描述】：

我有一小部分 VBA 代码可以工作并将文件插入到 word 中的特定书签中，但我正在努力从插入的文件中格式化文本，无论是使用书签的格式还是使用在插入时指定格式。

工作代码

    File_purchase_inv_def = HarvDir + "\v1live" + "\Purchase_Invoices.def"

    Selection.Range.InsertFile FileName:=(File_purchase_inv_def) 
        oRng = ActiveDocument.Bookmarks("BK_Puchase_Invioces").Range
        oRng.Select
        Selection.Range.InsertFile FileName:=(File_purchase_inv_def)

我尝试使用的格式是“Verdana”和字体大小“7”我尝试过格式化书签区域以及以下代码。

不工作示例1

    File_purchase_inv_def = HarvDir + "\v1live" + "\Purchase_Invoices.def"

    Selection.Range.InsertFile FileName:=(File_purchase_inv_def) 
        oRng = ActiveDocument.Bookmarks("BK_Puchase_Invioces").Range
        oRng.Select
        Selection.Range.InsertFile FileName:=(File_purchase_inv_def)
           With .Styles(Normal).Font
                .Name = "Verdana"
                .Size = 7
                  End with

不工作示例 2

File_purchase_inv_def = HarvDir + "\v1live" + "\Purchase_Invoices.def"

    Selection.Range.InsertFile FileName:=(File_purchase_inv_def) 
        oRng = ActiveDocument.Bookmarks("BK_Puchase_Invioces").Range
        oRng.Select
        Selection.Range.InsertFile FileName:=(File_purchase_inv_def)
          Selection.Font.Name = "Verdana"
          Selection.Font.Size = 7

【问题讨论】：

标签： vba insert ms-word

【解决方案1】：

这将使用书签的格式并替换书签的任何文本：

Dim fPath
fPath = "C:\Users\TestUser\Desktop\test.txt"

ActiveDocument.Bookmarks("BK_Puchase_Invioces").Range.Text = _
   CreateObject("scripting.filesystemobject").opentextfile(fPath).ReadAll()

【讨论】：

嗨，蒂姆，感谢您的快速回复，我刚刚尝试了您的代码，但我收到无效的过程调用

【解决方案2】：

抱歉，我在您的代码中遗漏了 fpath 变量，我刚刚对其进行了测试，它工作正常，非常感谢。

【讨论】：