[Iska]

С «On Error Resume Next» никогда не бывает «замечательно». Где у Вас определяется «strRegard», что за «objDoc.Range()»?

Общий принцип:

Код:

If Not IsEmpty(objIADsUser.mobile) Then
	.TypeText "моб.:" & objIADsUser.mobile
	.TypeText CHR(11)
End If