expression.PasteSpecial(IconIndex, Link, Placement, DisplayAsIcon, DataType, IconFileName, IconLabel)
expression Required. An expression that returns one of the objects in the Applies To list.
IconIndex Optional Variant. If DisplayAsIcon is True, this argument is a number that corresponds to the icon you want to use in the program file specified by IconFilename. Icons appear in the Change Icon dialog box (Insert menu, Object command, Create New tab): 0 (zero) corresponds to the first icon, 1 corresponds to the second icon, and so on. If this argument is omitted, the first (default) icon is used.
Link Optional Variant. True to create a link to the source file of the Clipboard contents. The default value is False.
Placement Optional Variant. Can be either of the following WdOLEPlacement constants: wdFloatOverText or wdInLine. The default value is wdInLine.
DisplayAsIcon Optional Variant.Optional Variant. True to display the link as an icon. The default value is False.
DataType Optional Variant. A format for the Clipboard contents when they're inserted into the document. WdPasteDataType.
| Can be one of the following WdPasteDataType constants |
| wdPasteBitmap |
| wdPasteDeviceIndependentBitmap |
| wdPasteEnhancedMetafile |
| wdPasteHTML |
| wdPasteHyperlink |
| wdPasteMetafilePicture |
| wdPasteOLEObject |
| wdPasteRTF |
| wdPasteShape |
| wdPasteText |
| The default format varies, depending on the contents of the Clipboard. |
IconFileName Optional Variant.If DisplayAsIcon is True, this argument is the path and file name for the file in which the icon to be displayed is stored.
IconLabel Optional Variant.If DisplayAsIcon is True, this argument is the text that appears below the icon.
Example
This example inserts the Clipboard contents at the insertion point as unformatted text.
Selection.Collapse Direction:=wdCollapseStart
Selection.Range.PasteSpecial DataType:=wdPasteText
This example copies the selected text and pastes it into a new document as a hyperlink. The source document must first be saved for this example to work.
If Selection.Type = wdSelectionNormal Then
Selection.Copy
Documents.Add.Content.PasteSpecial Link:=True, _
DataType:=wdPasteHyperlink
End If