Método Range.PasteSpecial (Word)
Insere o conteúdo da área de transferência. .
Sintaxe
expressão. PasteSpecial (IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)
expressão Obrigatório. Uma variável que representa um objeto Range.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| IconIndex | Opcional | Variant | Se DisplayAsIcon for True, esse argumento será um número que corresponde ao ícone que você deseja usar no arquivo de programa especificado por IconFilename. Os ícones aparecem na caixa de diálogo Alterar ícone: 0 (zero) corresponde ao primeiro ícone, 1 corresponde ao segundo ícone e assim por diante. Se esse argumento for omitido, o primeiro ícone (padrão) é usado. |
| Link | Opcional | Variant | True para criar um link para o arquivo de origem do conteúdo da área de transferência. O valor padrão é False. |
| Placement | Opcional | Variant | Pode ser uma das seguintes constantes WdOLEPlacement: wdFloatOverText ou wdInLine. O valor padrão é wdInLine. |
| DisplayAsIcon | Opcional | Variant | True para exibir o link como um ícone. O valor padrão é False. |
| DataType | Opcional | Variant | Um formato para o conteúdo da área de transferência quando for inserido no documento. Pode ser qualquer constante WdPasteDataType. |
| IconFileName | Opcional | Variant | Se DisplayAsIcon for True, esse argumento será o caminho e o nome do arquivo no qual o ícone a ser exibido está armazenado. |
| IconLabel | Opcional | Variant | Se DisplayAsIcon for True, esse argumento será o texto que aparece abaixo do ícone. |
Exemplo
Este exemplo insere o conteúdo da área de transferência no ponto de inserção como texto não formatado.
Selection.Collapse Direction:=wdCollapseStart
Selection.Range.PasteSpecial DataType:=wdPasteText
Este exemplo copia o texto selecionado e o cola em um novo documento como um hiperlink. O documento de origem deve primeiro ser salvo para que este exemplo funcione.
If Selection.Type = wdSelectionNormal Then
Selection.Copy
Documents.Add.Content.PasteSpecial Link:=True, _
DataType:=wdPasteHyperlink
End If
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.