SELECT	p.RoutineName, 
	'EXEC sp_helptext ' + QUOTENAME(p.RoutineName) AS [Exec] 
FROM	( 
		SELECT	OBJECT_NAME(so.ID) AS RoutineName, 
			(SELECT TOP 100 PERCENT '' + sc.TEXT FROM SYSCOMMENTS AS sc WHERE sc.ID = so.ID ORDER BY sc.COLID FOR XML PATH('')) AS Body 
		FROM	SYSOBJECTS AS so 
		WHERE	so.TYPE IN ('C', 'D', 'FN', 'IF', 'P', 'R', 'RF', 'TF', 'TR', 'V', 'X') 
	) AS p 
WHERE	p.Body LIKE '%YourKeyWordHere%'

C = CHECK constraint 
D = Default or DEFAULT constraint 
FN = Scalar function 
IF = In-lined table-function 
P = Stored procedure 
R = Rule 
RF = Replication filter stored procedure 
TF = Table function 
TR = Trigger 
V = View 
X = Extended stored procedure

select
	--p.RoutineName, 
	'exec sp_helptext ''' +p.RoutineName+'''' AS [Exec] 
from	( 
	select
		quotename(user_name( so.uid ))+'.'+
		quotename(object_name(so.id)) as RoutineName, 
		(
		select top 100 percent
			'' + sc.text
		from
			syscomments as sc
		where
			sc.id = so.id
		order by
			sc.colid
		for xml path('')
		) as body 
	from
		sysobjects as so
	where
		so.type in
		('C','D','FN','IF','P','R','RF','TF','TR','V','X')
	) as p 
where
	-- String to search for
	p.Body LIKE '%##%'


Results:
Exec 
-------------------------------------------------------
exec sp_helptext '[DevGuy].[MyBadlyCodedProc]'
exec sp_helptext '[dbo].[MyBadlyCodedFunction]'