Além da resposta útil por Lernkurve, concluo que ' Colar especial… ' faz não fazer o trabalho, enquanto mapeia os pressionamentos de tecla para macros criadas a partir do 'modo colar 'diálogo faz. Como suas duas primeiras opções aplicam o Word 2013 e versões posteriores, qualquer pessoa que tenha aderido em 2007 terá que criar e mapear macros.
Gravando Macros
Para gravar macros, você precisa da aba Desenvolvedores ativada na faixa de opções, em Opções do Word / Opções Populares .
Macros para os modos de colagem
As macros necessárias para realizar o trabalho, registradas ao entrar no menu de opções após a colagem, são:
Sub PasteOriginal()
' Paste with option ‘original formatting’
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
Sub PasteMatching()
' Paste with option ‘match destination’
Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
End Sub
Sub PasteText()
' Paste with option ‘only text’
Selection.PasteAndFormat (wdFormatPlainText)
End Sub
Eu os mapeei para Ctrl + Alt + Deslocamento + ( < | | | > ) para manter formato , somente texto e formato de mesclagem respectivamente. Eu escolhi as teclas modificadoras Ctrl + Alt + Deslocamento para evitar confrontos com mapeamentos predefinidos, enquanto ( < | | | > ) sugerido para mim olhando para trás (para o formato fonte), neutro e olhando para frente (para o formato de destino), mesmo que não sejam realmente o que acontece .
Significado das opções
O significado das opções é descrito da seguinte maneira no MSDN (eu não testei isso completamente):
-
Manter a formatação da fonte (
wdFormatOriginalFormatting
): “Preserva a formatação original do material colado” - Presumo que isso inclua estilos, mas imagino o que acontece se os nomes dos estilos entrarem em conflito. Eu presumo que toda a formatação atual seja ignorada. -
Formatação de mesclagem (
wdFormatSurroundingFormattingWithEmphasis
): “Corresponde à formatação do texto colado à formatação do texto ao redor” - Eu acredito isso significa que os caracteres do fonte e qualquer ênfase ( negrito , itálico , _ sublinhado _) são inseridos na formatação atual, enquanto todas as outras formatações originais são ignoradas. / em> -
Manter somente texto (
wdFormatPlainText
): “Cola como texto simples e não formatado.” - Somente os caracteres da fonte são inseridos, na formatação atual.
Opções em Colar Especial
Eu investiguei as opções em Colar especial ... , gravando macros para cada opção, como na captura de tela do diálogo na resposta de Lernkurve. Alguns deles pareciam se comportar como manter o formato (algumas vezes fazendo coisas extras estranhas), outros como apenas texto , mas nenhum como formato . (Para obter todas as opções eu tive que colar texto com alguma formatação extra, caso contrário eu só tenho duas opções, o meu conjunto de opções incluiu "Imagem (Windows Metafile)", não em sua imagem.)
Estes foram os resultados:
Sub SpecialPasteDoc() ' MS Office Word-document object
Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement _
:=wdInLine, DisplayAsIcon:=False
End Sub
Sub SpecialPasteRTF() ' Formatted text (RTF)
Selection.PasteAndFormat (wdPasteDefault)
End Sub
Sub SpecialPastePlain() ' Unformatted text
Selection.PasteAndFormat (wdPasteDefault)
End Sub
Sub SpecialPastePic() ' Picture (Windows Metafile)
Selection.PasteAndFormat (wdPasteDefault)
End Sub
Sub SpecialPastePicEnhanced() ' Picture (Enhanced Metafile)
Selection.PasteAndFormat (wdPasteDefault)
End Sub
Sub SpecialPasteHTML() 'HTML Format
Selection.PasteSpecial Link:=False, DataType:=wdPasteHTML, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub
Sub SpecialPasteUnicodeText() ' Unformatted Unicode Text
Selection.PasteSpecial Link:=False, DataType:=20, Placement:=wdInLine, _
DisplayAsIcon:=False
End Sub