Word VBA宏错误，试图将值插入书签 [英] Error in a Word VBA macro, trying to insert values into bookmarks

问题描述

我正在尝试编写一个Word宏，该宏将注册表中当前用户"中的数据插入文档中预定义的书签中.我有一个ini文件，该文件指示每个注册表项的名称是什么，然后将该值导入到Word宏的循环中.这很好(我认为)，但是Word宏也需要将数据插入文档中.如果书签在那里，则可以正常工作，但是如果没有书签，则宏似乎仍会插入数据.我不要我只希望宏插入数据，前提是该名称对应一个书签.我做到了，因此每个书签都需要被称为"Bookmark"& sBookMarkname.

I'm trying to write a Word macro which inserts data from the Current User in Registry into predefined bookmarks in the document. I've got an ini-file which dictates what the names of each registry entry is, and that value is then imported into a loop in the Word Macro. This works fine (I think), but the Word macro needs to insert the data into the document as well. And this works fine if the bookmarks are there, but if they aren't, the macro seems to insert data anyway. I don't want that. I just want the macro to insert the data IF there's a bookmark coresponding to the name. I've made it so that each bookmark needs to be called ""Bookmark" & sBookMarkname".

这是代码.

Sub MalData()
    ''
    ''// MalData Macro
    ''

    Dim objShell
    Dim strShell
    Dim strDataArea
    Dim Verdier() As String
    Dim regPath
    Dim regString
    Dim Felter
    Dim WScript

    Dim sFileName As String
    Dim iFileNum As Integer
    Dim sBuf As String


    sFileName = "C:\felter.ini"
    If Len(Dir$(sFileName)) = 0 Then
        MsgBox ("Can't find " & sFileName)
    End If

    ''//Load values from ini-file which is later used to query the registry

    Set objShell = CreateObject("Wscript.Shell")

    With New Scripting.FileSystemObject
    With .OpenTextFile(sFileName, ForReading)

        If Not .AtEndOfStream Then regPath = .ReadLine
        If Not .AtEndOfStream Then regString = .ReadLine

        Do Until .AtEndOfStream
            Felter = .ReadLine

            On Error Resume Next
            Dim sBookMarkName, sVerdi
            sBookMarkNametemp = "Bookmark" & Felter
            MsgBox (sBookMarkNametemp)
            sVerdi = objShell.RegRead(regPath & "\" & Felter) ''"

            sBookMarkName = ""
            sBookMarkName = (sBookMarkNametemp)

            If sVerdi <> Felter Then
                Selection.GoTo What:=wdGoToBookmark, Name:=sBookMarkName
                Selection.Delete Unit:=wdCharacter, Count:=0
                Selection.InsertAfter sVerdi
                ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=sBookMarkName
            End If
        Loop

        On Error GoTo 0
    End With
    End With

End Sub

现在，该错误发生在大约此处:

Now, the error happens at about here:

sVerdi = objShell.RegRead(regPath & "\" & Felter) ''"

sBookMarkName = ""
sBookMarkName = (sBookMarkNametemp)

If sVerdi <> Felter Then

即使注册表仅包含三个键，宏也会遍历从文本文件获得的每个名称，并多次插入最后一个注册表键.

Even if the registry only contains three keys, the macro goes through every name gotten from the text file and inserts the last registry key multiple times.

推荐答案

为什么在插入名称之前不检查书签是否存在?

Why don't you check if the bookmark exists before inserting the name?

If ActiveDocument.Bookmarks.Exists(sBookmarkName) Then
    ... insert using your code
End If

这篇关于Word VBA宏错误，试图将值插入书签的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！