Question

我有一小部分VBA代码可以工作并将文件插入到单词内的特定书签中，但是我很难从插入的文件格式化文本，要么使用书签的格式要么使用指定插入时的格式。

工作代码

    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”我尝试格式化书签的区域以及下面的代码。

不起作用Example1

    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

Answer 1

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

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

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

Answer 2

抱歉，我错过了你代码中的fpath变量，我刚刚测试了它并且工作正常，非常感谢。

将ini文件插入带格式的单词

2 个答案: