用宏来拷贝Word文件里面的自定义样式
来源:互联网 发布:java多线程死锁面试题 编辑:程序博客网 时间:2024/06/03 15:02
'使用下面的宏,可以把D:/db/a.doc文档的所有自定义样式拷贝到当前文档
'如何关闭打开的D:/db/a.doc,现在还不知道怎么会出错误,以后再看看.
Sub CopyMyStyles()
'
' 拷贝自定义样式 Macro
' 宏在 2005-03-10 由 胡丹 创建
'
'要应用的文档(当前文档)
Dim strDest As String
strDest = ActiveDocument.FullName
'模板文档位置
Dim strTemplete As String
strTemplete = "D:/db/a.doc"
Dim wrd As Application
Set wrd = GetObject(, "Word.Application")
wrd.Documents.Open (strTemplete)
wrd.Visible = True
Dim styleLoop As Style
On Error GoTo THEERROR
For Each styleLoop In wrd.ActiveDocument.Styles
If styleLoop.BuiltIn = False Then
Application.OrganizerCopy Source:=strTemplete, _
Destination:=strDest, _
Name:=styleLoop.NameLocal, _
Object:=wdOrganizerObjectStyles
End If
Next styleLoop
MsgBox "导入成功"
GoTo THELAST
THEERROR:
MsgBox "发生错误"
THELAST:
'Dim d As Document
'For Each d In wrd.Documents
' If d.FullName = strTemplete Then
' d.Close (wdDoNotSaveChanges)
' End If
'Next d
'Set wrd = Nothing
End Sub
- 用宏来拷贝Word文件里面的自定义样式
- 在csdn里面写入word里面编辑的样式
- Word 2013自定义样式
- 将Source Insight里面着色代码拷贝到word里面的方法
- 自定义上传文件的样式
- 拷贝标准的选择屏幕修改为自定义的样式
- java 文件拷贝:简单拷贝,jar、war等里面的拷贝
- 拷贝出你GAC里面的DLL文件
- C# 拷贝文件夹(包含里面的所有文件)
- VC中对word每页文件的单独拷贝
- 使用自定义的样式文件的Spinner
- 将自定义文件上传按钮的样式
- word的样式
- android 自定义样式文件
- 自定义file文件样式
- 文件上传自定义样式
- 如何从虚拟机里面拷贝出文件
- 去掉WORD里面的画布
- [Windows安全知识]知马识马不养马
- 什么是Web Service?
- 新年学习计划
- 面试经历
- 实现一个Asp.net自定义Back控件
- 用宏来拷贝Word文件里面的自定义样式
- hibernate相关
- ASP 三十二条精华代码
- 【转载】为什么我们总是比别人钱少?
- AdvancedSQLInjectionwithMySQL
- 我应该玩下去?(只限男人看,女勿进,否则吐血勿怪我)
- 用JavaScript给文件夹加密(For Win98/2000)
- 世界500强公司名单(2004年度)
- 当一切烟消云散...