K
KarateB
Ok new user here so be gentle
Long story short, Im working with a excel database for a karate studi
that was designed by someone who is no longer with us. I am trying t
run an action that creates and prints labels and when i do I get a ru
time error. The following is what shows up when i debug. If more info i
needed let me know, this database contains some sensitive info so I'
trying to be careful of what I post.
x.Selection.TypeParagraph
' Change font back so it is not red for rest of label
x.Selection.Font.ColorIndex = wdBlack
x.Selection.Font.Name = "Courier New"
'*
'* Format Phone Info
'*
x.Selection.Font.Bold = wdToggle
x.Selection.TypeText Text:="Phones: "
x.Selection.Font.Bold = wdToggle
If (DadCellPhone <> "") And (MomCellPhone <> "") Then
x.Selection.TypeText Text:=Left("Mc-" & MomCellPhone &
Dc-" & DadCellPhone, 33)
ElseIf (DadCellPhone = "") And (MomCellPhone <> "") Then
x.Selection.TypeText Text:=Left("Mc-" & MomCellPhone &
H-" & Homephone, 33)
ElseIf (DadCellPhone <> "") And (MomCellPhone = "") Then
x.Selection.TypeText Text:=Left("Dc-" & DadCellPhone &
H-" & Homephone, 33)
ElseIf (DadCellPhone = "") And (MomCellPhone = "") An
(DadWorkphone <> "") Then
x.Selection.TypeText Text:=Left("H-" & Homephone & " Dw-
& DadWorkphone, 33)
ElseIf (DadCellPhone = "") And (MomCellPhone = "") An
(MomWorkPhone <> "") Then
x.Selection.TypeText Text:=Left("H-" & Homephone & " Mw-
& MomWorkPhone, 33)
End If
The line " If (DadCellPhone <> "") And (MomCellPhone <> "") Then
x.Selection.TypeText Text:=Left("Mc-" & MomCellPhone &
Dc-" & DadCellPhone, 33)" is highlighted yellow and gives a refrenc
error but Im not sure how to go about fixing it. Any help is greatl
appreciated. If you need more info please let me know. Thanks agai
everyone
Long story short, Im working with a excel database for a karate studi
that was designed by someone who is no longer with us. I am trying t
run an action that creates and prints labels and when i do I get a ru
time error. The following is what shows up when i debug. If more info i
needed let me know, this database contains some sensitive info so I'
trying to be careful of what I post.
x.Selection.TypeParagraph
' Change font back so it is not red for rest of label
x.Selection.Font.ColorIndex = wdBlack
x.Selection.Font.Name = "Courier New"
'*
'* Format Phone Info
'*
x.Selection.Font.Bold = wdToggle
x.Selection.TypeText Text:="Phones: "
x.Selection.Font.Bold = wdToggle
If (DadCellPhone <> "") And (MomCellPhone <> "") Then
x.Selection.TypeText Text:=Left("Mc-" & MomCellPhone &
Dc-" & DadCellPhone, 33)
ElseIf (DadCellPhone = "") And (MomCellPhone <> "") Then
x.Selection.TypeText Text:=Left("Mc-" & MomCellPhone &
H-" & Homephone, 33)
ElseIf (DadCellPhone <> "") And (MomCellPhone = "") Then
x.Selection.TypeText Text:=Left("Dc-" & DadCellPhone &
H-" & Homephone, 33)
ElseIf (DadCellPhone = "") And (MomCellPhone = "") An
(DadWorkphone <> "") Then
x.Selection.TypeText Text:=Left("H-" & Homephone & " Dw-
& DadWorkphone, 33)
ElseIf (DadCellPhone = "") And (MomCellPhone = "") An
(MomWorkPhone <> "") Then
x.Selection.TypeText Text:=Left("H-" & Homephone & " Mw-
& MomWorkPhone, 33)
End If
The line " If (DadCellPhone <> "") And (MomCellPhone <> "") Then
x.Selection.TypeText Text:=Left("Mc-" & MomCellPhone &
Dc-" & DadCellPhone, 33)" is highlighted yellow and gives a refrenc
error but Im not sure how to go about fixing it. Any help is greatl
appreciated. If you need more info please let me know. Thanks agai
everyone