Visual Basic - Copiar un String

Life is soft - evento anual de software empresarial
 
Vista:

Copiar un String

Publicado por Gabriela (16 intervenciones) el 21/06/2007 16:19:41
Hola nesecito ayuda, alguien sabe algun codigo para copiar un string.

Por ejemplo, yo tengo un string: Texto = "Hola"

intente con.

Texto.copy
pero no funciona.

yo quiero hacer algo como la funcion copy y paste normal.

alguien tiene alguna idea de como de hace esto?

por su ayuda muchas gracias

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Copiar un String

Publicado por Ayudante (62 intervenciones) el 21/06/2007 16:39:12
Si lo que necesitas es copiarlo al portapales de Windows para pegarlo después en otra parte:
Call Clipboard.Clear ' Para limpiar el portapapeles
Call Clipboard.SetText(Texto) ' Copia el contenido de tu variable
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar un String

Publicado por Gabriela (16 intervenciones) el 21/06/2007 16:58:31
Hola intente con el codigo que me diste pero no funciona, me sale un error funcion no definiert, te muestro mi codigo

Sub TextMarke()
Dim x, cad, y, z, inPos, texto As String

x = Selection.Text
cad = ActiveDocument.Path
z = ActiveDocument.Name
y = cad + "/" + z + "#" + x
inPos = InStr(y, "sources")
If inPos <> 0 Then texto = Mid(y, inPos)

With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=x
.DefaultSorting = wdSortByName
.ShowHidden = True
End With

Call Clipboard.Clear
Call Clipboard_SetText(texto)
End Sub

Sabes alguna otra funcio o como puedo definir a esa funcion?

muchas gracias de verdad por tu ayuda :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Prueba de esta manera

Publicado por Ayudante (62 intervenciones) el 21/06/2007 17:04:50
Creo que el error es por esto:
Call Clipboard_SetText(texto)
Usaste "_" en vez de punto ( Call Clipboard.SetText(Texto) )
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Prueba de esta manera

Publicado por Gabriela (16 intervenciones) el 21/06/2007 17:17:11
Hola Gracias por responder, ya lo intente de las dos maneras, con "." y con "_" pero no funciona me sale un error "Sub o Funtion no definida".

creo que el problema es que estoy trabajando con visual, pero haciendo una macro para word, el codigo que escribi es lo unico que escribi, quisas falte definir esos codigos que me diste?

muchas gracias nuevamente
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

En macros de word, no lo sé

Publicado por Ayudante (62 intervenciones) el 21/06/2007 17:37:14
Ah, muy bien. Sucede que ClipBoard es el objeto con el que VB identifica el portapapeles de Windows, y desconozco cómo sea reconocido (porque debe existir) en las macros de Word. En eso sí, lamento no poder ayudarte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:En macros de word, no lo sé

Publicado por Gabriela (16 intervenciones) el 21/06/2007 17:42:50
Gracias de todas maneras, voy a seguir intentando ;)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

"Perdón, flor, si te marchité"

Publicado por Ayudante (62 intervenciones) el 22/06/2007 01:03:30
Pues el espacio está ahí, para que pongan las preguntas, no veo el problema en escribir que no sabes algo. Además de que el mensaje era para Gabriela.
¿Y esa es tu aportación al foro, o la respuesta para quien pregunta? ¿o te crees el árbitro aquí?
Muy buen aporte el tuyo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

alguien podria saberlo, idio_ta

Publicado por Pelao (1 intervención) el 22/06/2007 01:24:51
jajajajaja como hay gente que nada tiene que hacer y se divierte escribiendo babosadas en este foro
aparte de criticar a los que tratan de colaborar en alguna respouesta no dan ninguna solucion.
bueno, ya tenemos el ejemplo del osama bin ladin: siempre es mas facil destruir que construir
eres quique, ivan, el taliban, alguno de los nuevos?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar un String

Publicado por fernando (102 intervenciones) el 22/06/2007 01:33:25
Para copiar un texto seleccionado en word:
Sub Macro1()
Selection.Copy
End Sub

Para pegar un texto copiado con la macro anterior:
Sub Macro2()
Selection.PasteAndFormat (wdPasteDefault)
End Sub

pero no sé si es esto lo que estás buscando.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar un String

Publicado por Gabriela (16 intervenciones) el 22/06/2007 08:47:58
Eso fue lo primero que intente, pero no funciona porque un String no es un objeto, para poder copiar con ese codigo se necesita que sea un objeto.

de todas maneras muchas gracias :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Copiar un String

Publicado por fernando (102 intervenciones) el 22/06/2007 11:56:23
El código que yo puse copia un texto seleccionado en un documento de word. Es lo mismo que seleccionar y hacer Ctrl + C.
No entiendo tu planteo. Texto es una variable string dentro VBA en Word y vos querés copiarlo y pegarlo en qué parte?
Puede ser así:

Sub Macro1()
'
Dim str As String
str = "Hola"
Selection.TypeText Text:=str

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar