Método Module.Find (Access)

Encuentra el texto especificado en un módulo estándar o módulo de clase.

Sintaxis

expresión. Buscar (Target, StartLine, StartColumn, EndLine, EndColumn, WholeWord, MatchCase, PatternSearch)

Expresión Variable que representa un objeto Module .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Target	Obligatorio	String	Texto que desea buscar.
Startline	Obligatorio	Long	Línea en la que empezar a buscar. Si se encuentra una coincidencia, el valor del argumento StartLine se establece en la línea en la que se encuentra el carácter inicial del texto coincidente.
StartColumn	Obligatorio	Long	Columna en la que comienza la búsqueda. Cada carácter de una línea se encuentra en una columna independiente, comenzando por cero en el lado izquierdo del módulo. Si se encuentra una coincidencia, el valor del argumento StartColumn se establece en la columna en la que se encuentra el carácter inicial del texto coincidente.
EndLine	Obligatorio	Long	Línea en la que se detiene la búsqueda. Si se encuentra una coincidencia, el valor del argumento EndLine se establece en la línea en la que se encuentra el carácter final del texto coincidente.
EndColumn	Obligatorio	Long	Columna en la que se detiene la búsqueda. Si se encuentra una coincidencia, el valor del argumento EndColumn se establece en la columna en la que se encuentra el carácter inicial del texto coincidente.
WholeWord	Opcional	Boolean	True da como resultado una búsqueda sólo de palabras completas. El valor predeterminado es False.
MatchCase	Opcional	Boolean	True da como resultado una búsqueda de palabras con el caso de que coincidan con el argumento Target. El valor predeterminado es False.
PatternSearch	Opcional	Boolean	True da como resultado una búsqueda en la que el argumento Target puede contener caracteres comodín como un asterisco (*) o un signo de interrogación (?). El valor predeterminado es Falso.

Valor devuelto

Booleano

Comentarios

El método Find busca la cadena de texto especificada en un objeto Module. Si se encuentra la cadena, el método Find devuelve True.

Para determinar la posición en el módulo en el que se encontró el texto de búsqueda, pase variables vacías al método Find para los argumentos StartLine, StartColumn, EndLine y EndColumn . Si se encuentra una coincidencia, estos argumentos contendrán el número de línea y la posición de columna en la que comienza (StartLine, StartColumn) y termina (EndLine, EndColumn) el texto de búsqueda.

Por ejemplo, si el texto de búsqueda se encuentra en la línea 5, comienza en la columna 10 y termina en la columna 20, los valores de estos argumentos serán StartLine = 5, StartColumn = 10, EndLine = 5, EndColumn = 20.

Ejemplo:

La función siguiente encuentra una cadena especificada en un módulo y reemplaza la línea que la contiene por una línea nueva especificada.

Function FindAndReplace(strModuleName As String, _ 
 strSearchText As String, _ 
 strNewText As String) As Boolean 
 Dim mdl As Module 
 Dim lngSLine As Long, lngSCol As Long 
 Dim lngELine As Long, lngECol As Long 
 Dim strLine As String, strNewLine As String 
 Dim intChr As Integer, intBefore As Integer, _ 
 intAfter As Integer 
 Dim strLeft As String, strRight As String 
 
 ' Open module. 
 DoCmd.OpenModule strModuleName 
 ' Return reference to Module object. 
 Set mdl = Modules(strModuleName) 
 
 ' Search for string. 
 If mdl.Find(strSearchText, lngSLine, lngSCol, lngELine, _ 
 lngECol) Then 
 ' Store text of line containing string. 
 strLine = mdl.Lines(lngSLine, Abs(lngELine - lngSLine) + 1) 
 ' Determine length of line. 
 intChr = Len(strLine) 
 ' Determine number of characters preceding search text. 
 intBefore = lngSCol - 1 
 ' Determine number of characters following search text. 
 intAfter = intChr - CInt(lngECol - 1) 
 ' Store characters to left of search text. 
 strLeft = Left$(strLine, intBefore) 
 ' Store characters to right of search text. 
 strRight = Right$(strLine, intAfter) 
 ' Construct string with replacement text. 
 strNewLine = strLeft & strNewText & strRight 
 ' Replace original line. 
 mdl.ReplaceLine lngSLine, strNewLine 
 FindAndReplace = True 
 Else 
 MsgBox "Text not found." 
 FindAndReplace = False 
 End If 
 
Exit_FindAndReplace: 
 Exit Function 
 
Error_FindAndReplace: 
 
MsgBox Err & ": " & Err.Description 
 FindAndReplace = False 
 Resume Exit_FindAndReplace 
End Function

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.