Hola: He encontrado por Internet un código que dice copiar el texto de un bloc de notas al Userform sobre el que se ejecuta. Pero no me funciona y debería hacerlo. Lo único a tener en cuenta es el que el bloc esté abierto y que el código incluya el nombre del bloc abierto (ej: "*Sin título: Bloc*"), como he señalado con unas flechitas. Quisiera saber si os funciona, y si no, cuál sería el remedio si es que lo tiene. Saludos. Option Explicit Private Declare Function SendMessageAsLong Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long _ ) As Long Private Declare Function SendMessageAsString Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As String _ ) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _ ByVal hWnd1 As Long, _ ByVal hWnd2 As Long, _ ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long ' Recupera en un buffer el texto de la linea Private Const EM_GETLINE As Long = &HC4 ' Recupera la cantidad de lineas Private Const EM_GETLINECOUNT As Long = &HBA ' Hwnd de la ventana Dim ret As Long Public Function Obtener_Texto(Hwnd_Ventana As Long) As String Dim i As Long Dim n As Long Dim temp As String ' Cantidad de lineas n = SendMessageAsLong(Hwnd_Ventana, EM_GETLINECOUNT, 0, 0) ' Recorre todas las lineas y obtiene el texto de _ la linea actual con la función Leer_Linea For i = 1 To n temp = temp & Leer_Linea(Hwnd_Ventana, i - 1) & vbCrLf Next Obtener_Texto = temp End Function ' Retorna el texto de la linea indicada Private Function Leer_Linea(Hwnd_Ventana As Long, Numero_Linea As Long) As String Const MAX_CHAR_PER_LINE As Long = 80 Dim Lo As Integer Dim Hi As Integer Dim ret As Long Dim Buffer As String Lo = MAX_CHAR_PER_LINE And (255) Hi = Int(MAX_CHAR_PER_LINE / 256) Buffer = Chr$(Lo) + Chr$(Hi) + Space$(MAX_CHAR_PER_LINE - 2) ' Recupera el texto en el Buffer, de la linea indicada en Numero_Linea. ret = SendMessageAsString(Hwnd_Ventana, EM_GETLINE, Numero_Linea, Buffer) ' Retorna la linea Leer_Linea = Left$(Buffer, ret) End Function ' Botón para recuperar el hwnd Private Sub Command1_Click() ' Recupera el Hwnd del bloc de notas ( Handle del Edit ) ret = FindWindowEx(FindWindow(vbNullString, "Sin título*"), _ '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 0, "Edit", vbNullString) If ret = 0 Then MsgBox "Error. El Hwnd es 0 ", vbCritical Else MsgBox "Hwnd del Edit del Notepad es: " & ret, vbInformation Command2.Enabled = True Command1.Enabled = False End If End Sub ' Botón que recupera el texto Private Sub Command2_Click() If ret = 0 Then MsgBox "error. El Hwnd es 0", vbCritical Else ' Muestra el texto del Notepad en el textbox Me.Tex1 = Obtener_Texto(ret) End If End Sub Private Sub Tex1_Change() End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Copiar texto del Bloc de notas con Hwnd.

Autor del tema Salvador1
Fecha de inicio 10 Dic 2016

Salvador1

Member

10 Dic 2016

Hola:

He encontrado por Internet un código que dice copiar el texto de un bloc de notas al Userform sobre el que se ejecuta. Pero no me funciona y debería hacerlo.

Lo único a tener en cuenta es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Copiar datos de varias hojas a una sola (formato texto y altura fila)

Respuestas: 6

24 Feb 2022

danyelsil

Pregunta

Copiar texto seleccionado y pegar texto plano

Respuestas: 10

13 Feb 2022

diegomuser

Pregunta

Copiar texto en filas, pegar valores y transponer en columas.

Respuestas: 1

20 Oct 2021

Héctor Miguel

Resuelto

Copiar texto de forma seleccionada a celda

Respuestas: 8

6 Ago 2021

Leopoldo Blancas

Pregunta

Como copiar texto de msgbox al portapapeles

Respuestas: 9

29 Jun 2020

Cacho R

Pregunta

macros de copiar texto especifico y pegar

Respuestas: 0

26 Abr 2020

jarja33

Pregunta

Uso de Botones de opciones para copiar y pegar como texto

Respuestas: 0

2 Nov 2018

[email protected]

Pregunta

Copiar el contenido de una celda (según color texto)

Respuestas: 2

11 Abr 2018

raquelh

Pregunta

Copiar el contenido de una celda (según color texto)

Respuestas: 4

16 Abr 2018

hc3115

Pregunta

Copiar texto de una celda, en anteultima celda seleccionada

Respuestas: 0

8 Feb 2018

eltavo

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba