1. 首頁
  2. 問答
  3. 運行時錯誤「5941」集合的請求的成員不存在

運行時錯誤「5941」集合的請求的成員不存在

2015-06-08 32 views
0

當運行宏我收到以下錯誤：運行時錯誤「5941」集合的請求的成員不存在

"Runtime Error '5941' The Requested Member of Collection Does Not Exist"

線下方以黃色突出顯示;這個宏適用於大多數用戶，並且只有兩位用戶報告錯誤。

Windows(DestTemplateName).Document.Bookmarks("fCustomer").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fCust").Range.Fields(1).Result.Text

任何幫助將大大受到讚賞。

Sub PopulateBookingForm() 

Dim SourceTemplateName As String, DestTemplateName As String 

' Set Method Statement Name 
SourceTemplateName = ActiveDocument.Name 

' Open Heavy Cranes ICO Booking Form 
ChangeFileOpenDirectory "\\SERVERSHARE\HCD\HCD General\Templates\" 
Documents.Open FileName:= _ 
    "\\SERVERSHARE\HCD\HCD General\Templates\Heavy Cranes ICO Booking Form.docx", _ 
    ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ 
    PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ 
    WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ 
    wdOpenFormatAuto, XMLTransform:="" 
Selection.Find.ClearFormatting 
Selection.Find.Replacement.ClearFormatting 

' Set Haulage Booking Form Document Name 
DestTemplateName = ActiveDocument.Name 

' ### START FIND AND REPLACE 

' Populate Customer(Client) 
Windows(DestTemplateName).Document.Bookmarks("fCustomer").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fCust").Range.Fields(1).Result.Text 

' Populate Version 
Windows(DestTemplateName).Document.Bookmarks("fVersion").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fRevision").Range.Fields(1).Result.Text 

' Populate Entered Onto CRM 
Windows(DestTemplateName).Document.Bookmarks("fEnteredOntoCRM").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fEnteredOntoCRM").Range.Fields(1).Result.Text 

' Populate CRM Opportunity Name 
Windows(DestTemplateName).Document.Bookmarks("fCRMOportunityName").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fCRMOportunityName").Range.Fields(1).Result.Text 

' Populate Contact Name 
Windows(DestTemplateName).Document.Bookmarks("fContactName").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fSiteContact").Range.Fields(1).Result.Text 

' Populate Telephone No (Mobile) 

If Replace(Windows(SourceTemplateName).Document.Bookmarks("fSiteMobile").Range.Fields(1).Result.Text, ChrW(8194), "") = "" Then 
    Windows(DestTemplateName).Document.Bookmarks("fTelephoneNo").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fSiteTel").Range.Fields(1).Result.Text 
Else 
    Windows(DestTemplateName).Document.Bookmarks("fTelephoneNo").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fSiteMobile").Range.Fields(1).Result.Text 
End If 

' Populate Fax No(Email) 
Windows(DestTemplateName).Document.Bookmarks("fFaxNo").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fSiteFax").Range.Fields(1).Result.Text 

' Populate Site Address 
Windows(DestTemplateName).Document.Bookmarks("fSiteAddress").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fSiteAddr").Range.Fields(1).Result.Text 

' Populate Duration 
Windows(DestTemplateName).Document.Bookmarks("fDuration").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fDuration").Range.Fields(1).Result.Text 

' Populate Date of Hire/RFW 
Windows(DestTemplateName).Document.Bookmarks("fTimeReadyForWork").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("dt1").Range.Fields(1).Result.Text 
Windows(DestTemplateName).Document.Bookmarks("fDayDateOfHire").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("dt1").Range.Fields(1).Result.Text 

' Populate Inspector 
Windows(DestTemplateName).Document.Bookmarks("fFormCompletedBy").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fACHSiteInspector").Range.Fields(1).Result.Text 
Windows(DestTemplateName).Document.Bookmarks("fSiteVisitedBy").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fACHSiteInspector").Range.Fields(1).Result.Text 
Windows(DestTemplateName).Document.Bookmarks("fMethodStatementBy").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fACHSiteInspector").Range.Fields(1).Result.Text 

' Populate CL 
Windows(DestTemplateName).Document.Bookmarks("fCL").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fTermsCL").Range.Fields(1).Result.Text 

' Populate CH 
Windows(DestTemplateName).Document.Bookmarks("fCH").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fTermsCH").Range.Fields(1).Result.Text 

' Populate Wires 
Windows(DestTemplateName).Document.Bookmarks("fWires").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fAccessoryWires").Range.Fields(1).Result.Text 

' Populate Web Slings 
Windows(DestTemplateName).Document.Bookmarks("fWebSlings").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fAccessoryWebSlings").Range.Fields(1).Result.Text 

' Populate Beams 
Windows(DestTemplateName).Document.Bookmarks("fBeams").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fAccessoryBeams").Range.Fields(1).Result.Text 

' Populate Chains 
Windows(DestTemplateName).Document.Bookmarks("fChains").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fAccessoryChains").Range.Fields(1).Result.Text 

' Populate Shackles 
Windows(DestTemplateName).Document.Bookmarks("fShackles").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fAccessoryShackles").Range.Fields(1).Result.Text 

' Populate Other 
Windows(DestTemplateName).Document.Bookmarks("fOther").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fAccessoryOthers").Range.Fields(1).Result.Text 

' Populate Job Description 
Windows(DestTemplateName).Document.Bookmarks("fJobDescription").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fDescOfWorks").Range.Fields(1).Result.Text & vbNewLine & vbNewLine & Windows(SourceTemplateName).Document.Bookmarks("fOperReqACHL").Range.Fields(1).Result.Text 

' Populate Other Information 
Windows(DestTemplateName).Document.Bookmarks("fOperationByClient").Range.Fields(1).Result.Text = Windows(SourceTemplateName).Document.Bookmarks("fOperReqClient").Range.Fields(1).Result.Text 

' ### END FIND AND REPLACE 

' Activate New Document 
Windows(DestTemplateName).Activate 
End Sub

宏基本上將某些文本從源文檔中的字段複製到目標文檔中。

來源

2015-06-08 Danny

回答

0

這聽起來像那些用戶正在運行您的宏時，ActiveDocument沒有fCust書籤。你可以嘗試使用fCust書籤在此之前測試添加到您的代碼：

If Windows(SourceTemplateName).Document.Bookmarks.Exists("fCust") = False Then 
    MsgBox "You are not using the correct source document. Failed to find the 'fCust' bookmark in " & SourceTemplateName 
    Exit Sub 
End If

在一個側面說明，你也許可以使用Document對象，以簡化你的代碼。

Dim sourceDocument As Document 
Dim destDocument As Document 

Set sourceDocument = ActiveDocument 
If sourceDocument.Bookmarks.Exists("fCust") = False Then 
    MsgBox "You are not using the correct source document. Failed to find the 'fCust' bookmark in " & sourceDocument.Name 
    Exit Sub 
End If 

Set destDocument = Documents.Open (FileName:= _ 
"\\SERVERSHARE\HCD\HCD General\Templates\Heavy Cranes ICO Booking Form.docx", _ 
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ 
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ 
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ 
wdOpenFormatAuto, XMLTransform:="") 

    destDocument.Bookmarks("fCustomer").Range.Fields(1).Result.Text = sourceDocument.Bookmarks("fCust").Range.Fields(1).Result.Text 

... the rest of the code goes here 
destDocument.Activate

發佈您的代碼，以SE的Code Review部分來獲取你的工作代碼更詳細的審查。

來源

2015-06-08 10:09:57 ChipsLetten

相關問題

 相關問題