Método Range.PasteSpecial (Word)
Inserta el contenido del Portapapeles. .
Sintaxis
expresión. PasteSpecial (IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)
expresión requerida. Variable que representa un objeto Range.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| IconIndex | Opcional | Variant | Si DisplayAsIcon es True, este argumento es un número que corresponde al icono que desea usar en el archivo de programa especificado por IconFilename. Los iconos aparecen en el cuadro de diálogo Cambiar icono: 0 (cero) corresponde al primer icono, 1 corresponde al segundo icono y así sucesivamente. Si se omite este argumento, se usa el primer icono (predeterminado). |
| Link | Opcional | Variant | True para crear un vínculo al archivo de origen del contenido del Portapapeles. El valor predeterminado es False. |
| Placement | Opcional | Variant | Puede ser cualquiera de las siguientes constantes WdOLEPlacement: wdFloatOverText o wdInLine. El valor predeterminado es wdInLine. |
| DisplayAsIcon | Opcional | Variant | True para mostrar el vínculo como un icono. El valor predeterminado es False. |
| DataType | Opcional | Variant | Un formato para el contenido del Portapapeles cuando se ha insertado en el documento. Puede ser cualquier constante WdPasteDataType. |
| IconFileName | Opcional | Variant | Si DisplayAsIcon es True, este argumento es la ruta de acceso y el nombre para el archivo en el que está almacenado el icono que se mostrará. |
| IconLabel | Opcional | Variant | Si DisplayAsIcon es True, este argumento es el texto que aparece debajo del icono. |
Ejemplo:
En este ejemplo, se inserta el contenido del Portapapeles en el punto de inserción como texto sin formato.
Selection.Collapse Direction:=wdCollapseStart
Selection.Range.PasteSpecial DataType:=wdPasteText
En este ejemplo, se copia el texto seleccionado y se pega en un documento nuevo como hipervínculo. El documento de origen primero debe guardarse para que funcione este ejemplo.
If Selection.Type = wdSelectionNormal Then
Selection.Copy
Documents.Add.Content.PasteSpecial Link:=True, _
DataType:=wdPasteHyperlink
End If
Vea también
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.