Pasting


Copying

Range.Copy 
Selection.Paste

Range.Paste

This is the same as Selection.Paste
Pastes the contents of the clipboard at the current position. This replaces the current selection
Inserts the contents of the Clipboard at the specified range or selection. If you don't want to replace the contents of the range or selection, use the Collapse method before using this method.
When this method is used with a range object, the range expands to include the contents of the Clipboard.
When this method is used with a selection object, the selection doesn't expand to include the Clipboard contents; instead, the selection is positioned after the pasted Clipboard contents.


This example copies and pastes the first table in the active document into a new document.

If ActiveDocument.Tables.Count >= 1 Then 
    ActiveDocument.Tables(1).Range.Copy
    Documents.Add.Content.Paste
End If

This example copies the first paragraph in the document and pastes it at the insertion point.

ActiveDocument.Paragraphs(1).Range.Copy 
Selection.Collapse Direction:=wdCollapseDirection.wdCollapseStart
Selection.Paste

This example copies the selection and pastes it at the end of the document.


If Selection.Type <> wdSelectionType.wdSelectionIP Then 
    Selection.Copy
    Set Range = ActiveDocument.Content
    Range.Collapse Direction:=wdCollapseDirection.wdCollapseEnd
    Range.Paste
End If

Range.PasteSpecial

This is the same as Selection.PasteSpecial
Inserts the contents of the Clipboard allowing you to control the format of the pasted information and (optionally) establish a link to the source file (for example, a Microsoft Excel worksheet).
Note If you don't want to replace the contents of the specified range or selection, use the Collapse method before you use this method. When you use this method, the range or selection doesn't expand to include the contents of the Clipboard.


Selection.Range.PasteSpecial(IconIndex:= , _ 
                             Link:=False, _
                             Placement:=wdOLEPlacement.wdInLine , _
                             DisplayAsIcon:=False, _
                             DataType:=wdPasteDataType.wdPasteText , _
                             IconFileName:= , _
                             IconLabel )

IconIndex - (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 - (Variant) True to create a link to the source file of the Clipboard contents. The default value is False.
DisplayAsIcon - (Variant) True to display the link as an icon. The default value is False.
IconFileName - (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 - (Variant) If DisplayAsIcon is True, this argument is the text that appears below the icon.



Selection.PasteAndFormat

Selection.PasteAndFormat(wdRecoveryType.wdPasteDefault)
This method pastes the selected table cells and formats them as specified


Pastes the table cells and formats them as specified

Selection.PasteAndFormat(wdRecoveryType. 

It doesn't matter what the Zoom percentage is, the image is automatically resized to fit the width of the page
This line will paste an Excel chart as a picture

Selection.PasteAndFormat(wdRecovery.wdChartPicture) 

Selection.PasteExcelTable



Selection.PasteFormat




This example inserts the Clipboard contents at the insertion point as unformatted text.

Selection.Collapse Direction:=wdCollapseDirection.wdCollapseStart 
Selection.Range.PasteSpecial DataType:=wdPasteDataType.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 = wdSelectionType.wdSelectionNormal Then 
    Selection.Copy
    Documents.Add.Content.PasteSpecial Link:=True, _
        DataType:=wdPasteDataType.wdPasteHyperlink
End If


© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext