1. http://club.excelhome.net/thread-373686-1-1.html 复制1格式Selection.CopyFormat粘贴格式Selection.PasteFormat 2. http://www.excelpx.com/thread-116445-1-1.html Sub Macro1() Dim Rng As Range Set Rng = ActiveCell Rng.Copy ActiveSheet.UsedRange.PasteSpecial Pas
2003 打开Word窗口,依次点击“工具----宏----Visual Basic编辑器”,打开“Microsoft visual Basic”窗口,在左侧“工程”栏选中“Normal”工程,点击“插入----模块”选项打开一个模块窗口,输入以下代码: Sub MyPaste() Selection.PasteAndFormat(wdFormatPlainText) End Sub 保存后关闭,返回Word窗口,依次点击“工具----自定义----键盘”按钮,在“类别”栏选中“宏”,在右侧“宏
WORD文档增加的宏文件, 作用:对全文中文字体更改为,DFKai-SB :对英文字母字体更改为,Times New Roman Sub AutoClose() Selection.WholeStory Selection.Font.NameFarEast = "DFKai-SB" Selection.Font.NameAscii = "Times New Roman" Selection.HomeKey Unit:=wdStory Do Selection.Fin