5941 - 多个错误 - 设置 LocA_BldgRoomFlr = 活动文档.书签("LocA_BldgRoomFlr")。范围

Question

我似乎有多个错误，我已经更改了代码并进行了故障排除，但似乎仍然不起作用。。。。我将非常感谢你的帮助。

Private Sub SubmitButton_Click()
Dim Ckt_Speed As Range
Set Ckt_Speed = ActiveDocument.Bookmarks("Ckt_Speed").Range
Ckt_Speed.Text = Me.Ckt_Speed.Value
Dim LocA_StreetAdd As Range
Set LocA_StreetAdd = ActiveDocument.Bookmarks("LocA_StreetAdd").Range
LocA_StreetAdd.Text = Me.LocA_StreetAdd.Value
Dim LocA_BldgRoomFlr As Range
Set LocA_BldgRoomFlr = ActiveDocument.Bookmarks("LocA_BldgRoomFlr").Range
LocA_BldgRoomFlr.Text = Me.LocA_BldgRoomFlr.Value
Dim LocA_CityStateZip As Range
Set LocA_CityStateZip = ActiveDocument.Bookmarks("LocA_CityStateZip").Range
LocA_CityStateZip.Text = Me.LocA_CityStateZip.Value
Dim LocA_NPA_NXX As Range
Set LocA_NPA_NXX = ActiveDocument.Bookmarks("LocA_NPA_NXXA").Range
LocA_NPA_NXX.Text = Me.LocA_NPA_NXX.Value
Dim LocA_ConnType As Range
Set LocA_ConnType = ActiveDocument.Bookmarks("LocA_ConnectionType").Range
LocA_ConnType.Text = Me.LocA_ConnType.Value
Dim LocZ_StreetAdd As Range
Set LocZ_StreetAdd = ActiveDocument.Bookmarks("LocZ_StreetAddress").Range
LocZ_StreetAdd.Text = Me.LocZ_StreetAdd.Value
Dim LocZ_BldgRmFlr As Range
Set LocZ_BldgRmFlr = ActiveDocument.Bookmarks("LocZ_BldgRmFloor").Range
LocZ_BldgRmFlr.Text = Me.LocZ_BldgRmFlr.Value
Dim LocZ_CityStateZip As Range
Set LocZ_CityStateZip = ActiveDocument.Bookmarks("LocZ_CityStateZipCode").Range
LocZ_CityStateZip.Text = Me.LocZ_CityStateZip.Value
Dim LocZ_NPA_NXX As Range
Set LocZ_NPA_NXX = ActiveDocument.Bookmarks("LocZ_NPA_NXXZ").Range
LocZ_NPA_NXX.Text = Me.LocZ_NPA_NXX.Value
Dim LocZ_ConnType As Range
Set LocZ_ConnType = ActiveDocument.Bookmarks("LocZ_ConnectionType").Range
LocZ_ConnType.Text = Me.LocZ_ConnType.Value
Dim Circuit_Speed As Range
Dim LocA_StreetAddress As Range
Dim LocA_BldgRoomFloor As Range
Dim LocA_CityStateZipCode As Range
Dim LocA_NPA_NXXA As Range
Dim LocA_ConnectionType As Range
Dim LocZ_StreetAddress As Range
Dim LocZ_BldgRmFloor As Range
Dim LocZ_CityStateZipCode As Range
Dim LocZ_NPA_NXXZ As Range
Dim LocZ_ConnectionType As Range
Set Ckt_Speed = ActiveDocument.Bookmarks("Circuit_Speed").Range
Set LocA_StreetAdd = ActiveDocument.Bookmarks("LocA_StreetAddress").Range
Set LocA_BldgRoomFlr = ActiveDocument.Bookmarks("LocA_BldgRoomFloor").Range
Set LocA_CityStateZip = ActiveDocument.Bookmarks("LocA_CityStateZipCode").Range
Set LocA_NPA_NXX = ActiveDocument.Bookmarks("LocA_NPA_NXXA").Range
Set LocA_ConnType = ActiveDocument.Bookmarks("LocA_ConnectionType").Range
Set LocZ_StreetAdd = ActiveDocument.Bookmarks("LocZ_StreetAddress").Range
Set LocZ_BldgRmFlr = ActiveDocument.Bookmarks("LocZ_BldgRmFloor").Range
Set LocZ_CityStateZip = ActiveDocument.Bookmarks("LocZ_CityStateZipCode").Range
Set LocZ_NPA_NXX = ActiveDocument.Bookmarks("LocZ_NPA_NXXZ").Range
Set LocZ_ConnType = ActiveDocument.Bookmarks("LocZ_ConnectionType").Range
Ckt_Speed.Text = Me.Ckt_Speed.Value
LocA_StreetAdd.Text = Me.LocA_StreetAdd.Value
LocA_BldgRoomFlr.Text = Me.LocA_BldgRoomFlr.Value
LocA_CityStateZip.Text = Me.LocA_CityStateZip.Value
LocA_NPA_NXX.Text = Me.LocA_NPA_NXX.Value
LocA_ConnType.Text = Me.LocA_ConnType.Value
LocZ_StreetAdd.Text = Me.LocZ_StreetAdd.Value
LocZ_BldgRmFlr.Text = Me.LocZ_BldgRmFlr.Value
LocZ_CityStateZip.Text = Me.LocZ_CityStateZip.Value
LocZ_NPA_NXX.Text = Me.LocZ_NPA_NXX.Value
LocZ_ConnType.Text = Me.LocZ_ConnType.Value
Me.Repaint
PLS_CKT_Form.Hide
End Sub

Answer 1

由于代码的语法看起来是正确的，最有可能导致错误的原因是书签不存在。

使用书签的安全方法是在尝试写入之前检查书签是否存在。下面的例程安全地设置文本，然后重新安装书签以将插入的文本括起来。

Public Sub InsertIntoBookmark(bookmarkName As String, text As String, _
Optional targetDoc As Document = Nothing)
Dim bookmarkRange As Range
Dim cleanupRequired As Boolean
If targetDoc Is Nothing Then
Set targetDoc = ActiveDocument
cleanupRequired = True
End If
If targetDoc.Bookmarks.Exists(bookmarkName) Then
Set bookmarkRange = targetDoc.Bookmarks(bookmarkName).Range
bookmarkRange.text = text
targetDoc.Bookmarks.Add bookmarkName, bookmarkRange
End If

Set bookmarkRange = Nothing
If cleanupRequired Then Set targetDoc = Nothing
End Sub

使用

Private Sub SubmitButton_Click()
InsertIntoBookmark "Ckt_Speed", Me.Ckt_Speed.Value
InsertIntoBookmark "LocA_StreetAdd", Me.LocA_StreetAdd.Value
...
End sub