Microsoft Office Forums - View Single Post - Error 6124 on User (NOT DEVELOPER) Machine

EnigmaMatter · 09-11-2014, 10:25 AM

Hello All,

I have the following code in a UserForm and it works perfectly on the Developer (my) machine:

Code:

Private Sub CashANDCreditButton_Click()
Dim WD As Word.Document
    Set WD = ActiveDocument

  txtPO = POField.Text
  txtFacility = FacilityField.Text
  txtCity = CityField.Text
  txtST = STField.Text
  txtCreditAmount = CreditAmountField.Text
  txtCashAmount = CashAmountField.Text
  txtLocation = LocationField.Text
  Set WD = ActiveDocument
  With WD
    .SelectContentControlsByTag("POTag").Item(1).Range.Text = txtPO
    .SelectContentControlsByTag("FacilityTag").Item(1).Range.Text = txtFacility
    .SelectContentControlsByTag("CityTag").Item(1).Range.Text = txtCity
    .SelectContentControlsByTag("STTag").Item(1).Range.Text = txtST
    .SelectContentControlsByTag("CashAmountTag").Item(1).Range.Text = "$" & txtCashAmount & " CASH and "
    .SelectContentControlsByTag("CreditAmountTag").Item(1).Range.Text = "$" & txtCreditAmount & " CREDIT"
    .SelectContentControlsByTag("LocationTag").Item(1).Range.Text = txtLocation
End With
Unload Me
End Sub

Private Sub CashButton_Click()

Dim WD As Word.Document
    Set WD = ActiveDocument

  txtPO = POField.Text
  txtFacility = FacilityField.Text
  txtCity = CityField.Text
  txtST = STField.Text
  txtCashAmount = CashAmountField.Text
  txtLocation = LocationField.Text
  Set WD = ActiveDocument
  With WD
    .SelectContentControlsByTag("POTag").Item(1).Range.Text = txtPO
    .SelectContentControlsByTag("FacilityTag").Item(1).Range.Text = txtFacility
    .SelectContentControlsByTag("CityTag").Item(1).Range.Text = txtCity
    .SelectContentControlsByTag("STTag").Item(1).Range.Text = txtST
    .SelectContentControlsByTag("CashAmountTag").Item(1).Range.Text = "$" & txtCashAmount
    .SelectContentControlsByTag("CreditAmountTag").Item(1).Range.Text = ""
    .SelectContentControlsByTag("LocationTag").Item(1).Range.Text = txtLocation
End With
Unload Me
End Sub


Private Sub ClearButton_Click()
POField.Text = ""
FacilityField.Text = ""
CityField.Text = ""
STField.Text = ""
LocationField.Text = ""
CashAmountField.Text = ""
CreditAmountField.Text = ""
End Sub

Private Sub CreditButton_Click()
Dim WD As Word.Document
    Set WD = ActiveDocument

  txtPO = POField.Text
  txtFacility = FacilityField.Text
  txtCity = CityField.Text
  txtST = STField.Text
  txtCreditAmount = CreditAmountField.Text
  txtLocation = LocationField.Text
  Set WD = ActiveDocument
  With WD
    .SelectContentControlsByTag("POTag").Item(1).Range.Text = txtPO
    .SelectContentControlsByTag("FacilityTag").Item(1).Range.Text = txtFacility
    .SelectContentControlsByTag("CityTag").Item(1).Range.Text = txtCity
    .SelectContentControlsByTag("STTag").Item(1).Range.Text = txtST
    .SelectContentControlsByTag("CreditAmountTag").Item(1).Range.Text = "$" & txtCreditAmount & " CREDIT"
    .SelectContentControlsByTag("CashAmountTag").Item(1).Range.Text = ""
    .SelectContentControlsByTag("LocationTag").Item(1).Range.Text = txtLocation
End With
Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim WD As Word.Document
    Set WD = ActiveDocument

POField.Text = WD.SelectContentControlsByTag("POTag").Item(1).Range.Text
FacilityField.Text = WD.SelectContentControlsByTag("FacilityTag").Item(1).Range.Text
CityField.Text = WD.SelectContentControlsByTag("CityTag").Item(1).Range.Text
STField.Text = WD.SelectContentControlsByTag("STTag").Item(1).Range.Text
LocationField.Text = WD.SelectContentControlsByTag("LocationTag").Item(1).Range.Text

End Sub

HOWEVER, if any User/Client uses it, it returns an error 6124 on this line:

Code:

.SelectContentControlsByTag("POTag").Item(1).Range.Text = txtPO

I appreciate any and all help in advance! I have tried to Google and can't find an answer.