在Word中"选择性粘贴"后如何
写一个宏,做成按钮自动完成
具体可以用"录制宏"先手工操作一遍,看看宏代码,把有用的代码留下来,再作适当修改。然后再用工具栏的"自定义"功能把宏做为按钮,以后就可以自动完成了。
下面是宏代码:
Sub Macro2()
'
' Macro2 Macro
' 宏在 2006-1-26 由 zhangyongsc 录制
'
Selection。 Copy
Selection。PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
Placement:=wdFloatOverText, DisplayAsIcon:=False...全部
写一个宏,做成按钮自动完成
具体可以用"录制宏"先手工操作一遍,看看宏代码,把有用的代码留下来,再作适当修改。然后再用工具栏的"自定义"功能把宏做为按钮,以后就可以自动完成了。
下面是宏代码:
Sub Macro2()
'
' Macro2 Macro
' 宏在 2006-1-26 由 zhangyongsc 录制
'
Selection。
Copy
Selection。PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
ActiveDocument。
Shapes("Picture 2")。Select
ActiveDocument。SaveAs FileName:=" m", FileFormat:=wdFormatHTML, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveWindow。
View。Type = wdWebView
End Sub
保存后的文件还不到1k,略作修改后就可以变为通用的程序。收起