[英]Error in a Word VBA macro, trying to insert values into bookmarks
我正在尝试编写一个Word宏,该宏将注册表中“当前用户”中的数据插入文档中的预定义书签中。 我有一个ini文件,该文件指示每个注册表项的名称是什么,然后将该值导入Word宏的循环中。 这很好(我认为),但是Word宏也需要将数据插入文档中。 如果书签在那里,则可以正常工作,但是如果没有书签,则宏似乎仍会插入数据。 我不要 我只希望宏插入数据,前提是该名称对应一个书签。 我做到了,因此每个书签都需要被称为““ 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
现在,错误发生在大约这里:
sVerdi = objShell.RegRead(regPath & "\" & Felter) ''"
sBookMarkName = ""
sBookMarkName = (sBookMarkNametemp)
If sVerdi <> Felter Then
即使注册表仅包含三个键,宏也会遍历从文本文件获得的每个名称,并多次插入最后一个注册表键。
为什么在插入名称之前不检查书签是否存在?
If ActiveDocument.Bookmarks.Exists(sBookmarkName) Then
... insert using your code
End If
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.