word选择性粘贴程序怎么写？

dongdonggege

各位老师，大家好。

1、 已经画了两个圆，位置不同，一样大小。

2、第2个圆，已经填充了图案。

3、已经选择两个圆，并且已经复制。

4、现在我想操作“编辑”——选择性粘贴。

5、请问，第4步的代码是什么？

1. 
   
2. Sub test1()
   
3.     Set mydoc = ActiveDocument
   
4.     Set shp1 = mydoc.Shapes.AddShape(msoShapeOval, 200, 100, 100, 100) '1插入第一个圆
   
5.     With shp1
   
6.         '.Fill.ForeColor.RGB = RGB(255, 0, 0) '
   
7.         .Fill.Visible = msoFalse '填充——无填充颜色
   
8.         .Line.Weight = 1.25 '2线型0.75--1.25
   
9.     End With
   
10.     Set shp2 = mydoc.Shapes.AddShape(msoShapeOval, 250, 100, 100, 100) '3插入第2个圆
    
11.     With shp2
    
12.         .Fill.Transparency = 0.5
    
13.         .Fill.Patterned msoPatternDarkDownwardDiagonal
    
14.         '4设置图片格式 --填充颜色 - -填充效果 - -图案
    
15.     End With
    
16.     mydoc.Shapes.Range(Array(shp1.Name, shp2.Name)).Select '5选择两个圆
    
17.     Selection.Copy '6复制
    
18.     'Selection.Delete '原图形删除
    
19.     Selection.PasteAndFormat (wdPasteDefault) '7选择性粘贴--图片(增强型图元文件)
    
20.     'Selection.ShapeRange.PictureFormat.CropRight = 75.4'
    
21.     'Selection.ShapeRange.Rotation = 180#'
    
22. End Sub

复制代码

dongdonggege

名称        值        Description
wdChart        14        将 Microsoft Office Excel 图表粘贴为嵌入的 OLE 对象。
wdChartLinked        15        粘贴 Excel 图表并将其链接到原始 Excel 电子表格。
wdChartPicture        13        将 Excel 图表粘贴为图片。
wdFormatOriginalFormatting        16        保留所粘贴材料的原始格式。
wdFormatPlainText        22        粘贴为无格式的纯文本文字。
wdFormatSurroundingFormattingWithEmphasis        20        使所粘贴文本的格式与周围文本的格式匹配。
wdListCombineWithExistingList        24        将粘贴的列表与邻近的列表合并。
wdListContinueNumbering        7        使粘贴的列表根据文档中的列表继续编号。
wdListDontMerge        25        不支持。
wdListRestartNumbering        8        对粘贴的列表重新进行编号。
wdPasteDefault        0        不支持。
wdSingleCellTable        6        将单个单元格表格粘贴为独立的表格。
wdSingleCellText        5        将单个单元格粘贴为文本。
wdTableAppendTable        10        通过在所选行之间插入粘贴的行，将粘贴的单元格合并到现有的表格中。
wdTableInsertAsRows        11        将粘贴的表格作为行插入到目标表格的两行中间。
wdTableOriginalFormatting        12        粘贴一个追加的表格，而不合并表格样式。
wdTableOverwriteCells        23        粘贴表格单元格并覆盖现有的表格单元格。
wdUseDestinationStylesRecovery        19        使用目标文档中使用的样式。

dongdonggege

忙到现在，终于成功了。

dongdonggege

问题是解决了，但是不太精确，怎么办？