Word中利用VBA导入样式

最新推荐文章于 2024-06-11 10:37:13 发布
最新推荐文章于 2024-06-11 10:37:13 发布
阅读量2.9k 收藏 11
点赞数 2
分类专栏： Word 文章标签： word vba 宏 样式
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yangcq06/article/details/51052066
版权

Word中利用VBA导入样式

由于经常编辑文本资料，需要导入自己定义的样式，比较麻烦。我利用宏录制了一些VBA程序。下面是一个示例。

Sub 导入样式表集()
'
' 导入样式表集 宏
'
'
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:="E:\待编辑文档.doc", Name:="诗词标题样式", _
         Object:=wdOrganizerObjectStyles
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:="E:\待编辑文档.doc", Name:="诗词样式", _
        Object:=wdOrganizerObjectStyles
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:="E:\待编辑文档.doc", Name:="诗词大义样式", _
        Object:=wdOrganizerObjectStyles
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:="E:\待编辑文档.doc", Name:="总结样式", _
        Object:=wdOrganizerObjectStyles
End Sub

但是问题来了，如果是新的编辑文档到来，需要导入，这个代码运行没有效果。仔细检查原因。是录制时候，只是针对具体的文档。要通用化，必须修改Destination:="E:\待编辑文档.doc"为Destination:=ActiveDocument，如下。

Sub 导入样式表集()
'
' 导入样式表集 宏
'
'
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:=ActiveDocument, Name:="诗词标题样式", _
         Object:=wdOrganizerObjectStyles
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:=ActiveDocument, Name:="诗词样式", _
        Object:=wdOrganizerObjectStyles
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:=ActiveDocument, Name:="诗词大义样式", _
        Object:=wdOrganizerObjectStyles
    Application.OrganizerCopy Source:="E:\样式表集合模板.doc", _
        Destination:=ActiveDocument, Name:="总结样式", _
        Object:=wdOrganizerObjectStyles
End Sub

大功告成！

yangcq06
关注
  • 2
    点赞
  • 踩
  • 11
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
用VBA编写自定义函数，结合通配符，批量排版Word文档的标题和字体,批量删除空行等
zhangdabai1的博客
01-30 1328
再WPS中，用“[一二三四五六七八九十]{1,3}.*^p”通配所有汉字序号开头的内容，设置为标题 1运用通配符“^p[一-﨩]{1,12}：”找到所有段落标记开头，中间有1-12汉字的内容，将其设置为蓝色加粗楷体。
VBA word 调整文档格式
01-08
VBA word 调整文档格式 宏 模块 截取自别人的代码，请需要者参考
使用VBA宏在Word中快速设置段落格式：轻松提升文档专业度
最新发布
m0_70207299的博客
06-11 1279
下面的VBA代码包含一个主函数设置段落格式，以及多个子函数分别用于设置正文和1-6级标题的格式。这个宏将帮你轻松完成复杂的格式设置。通过使用这些VBA宏，你可以轻松地在Word文档中统一设置段落格式和大纲级别。这不仅节省了时间，还确保了文档的专业外观。无论你是撰写学术论文还是商业报告，VBA宏都能显著提升你的工作效率和文档质量。如果你对宏的工作原理或使用方法有任何疑问，欢迎留言讨论。
word vba自动化排版-设置标题模板样式、标题、正文、图表、页面、上下标等设置、删除空白行、删除分页符分节符、删除空格等
LEILEI18A的博客
01-18 3055
word vba自动化排版-设置标题模板样式、标题、正文、图表、页面、上下标等设置、删除空白行、删除分页符分节符、删除空格等。
Word VBA 选择要显示的样式
戈壁二哥
01-24 700
选择要显示的样式 Sub 样式显示（）: ActiveDocument.StyleSortMethod = wdStyleSortByName ActiveDocument.FormattingShowFilter = wdShowFilterStylesInUse End Sub
使用VBA统一word文档表格样式
yivifu的专栏
05-12 2946
在多人协作的word文档中，经常会出现同一性质的内容格式不一致的情况。要快速统一同一性质的内容的格式，无疑是使用样式功能。但是对于表格而言，对表格样式的编辑无法做到使表格在页面居中，而且对于标题行重复这样的操作，需要指定表格的标题行区域。因此，文档中表格数量太多时，要快速统一所有表格的格式，最佳实践是结合VBA来进行自动化操作。以下代码可以将文档中的全部表格统一为同一种样式，所有表格在页面居中，同时将表格的首行区域设置为标题行。这里说的首行区域并不是只有第一行。举例来说，假设有一个表格有三列，其中第一列没有
VBA 学习笔记 Word样式处理
灵台方寸山斜月三星洞
06-15 3121
移除样式并保留格式 Sub 移除样式并保留格式() '不能完全保留格式 'https://sspai.com/post/38852 '对于一个由多文档合并起来的长文档，它的样式多而混乱以致于无法使用，会引起word崩溃 '对于这些样式，移除（即都统一为正文样式），并保留各种格式（变成不受样式控制的直接格式） Dim Para As Paragraph Dim Fnt As Font '代码字体的所有格式 Dim Pfmt As ParagraphFormat '代表段落
Word VBA代码 嵌入式图形（含Visio、SmartArt图）自动大小和样式等设置，遍历选定内容中嵌入式图形进行批量设置
05-14
嵌入式图形含Visio图大小和样式设置_遍历选定内容中嵌入式图形进行设置； 已对外解除多余的引用...②高级方式：在VBA代码编辑器中，导入本宏代码文件，并根据自己的VBA开发环境，设置相应的使用环境参数后，即可使用。
EXCEL WORD ACCESS VBA帮助文件 CHM
08-26
3. **事件驱动编程**：了解如何利用VBA响应用户操作或应用程序事件，例如在Excel中当单元格改变时自动触发的事件，或者在Word中文档打开或关闭时触发的事件。 4. **宏录制与编辑**：初学者可以通过宏录制快速生成...
VBA在Word文档中的应用.pdf
06-23
### VBA在Word文档中的应用 #### 摘要 VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic发展的编程语言，主要用于扩展Microsoft Office应用程序的功能。本文通过具体案例阐述了如何利用VBA...
Word VBA高效排版范例应用(实例文件)
11-02
在Word VBA（Visual Basic for Applications）中，我们可以利用其强大的编程能力来实现对文档的高效排版，从而提升工作效率。本实例文件是基于《Word VBA高效排版范例应用》这本书的内容，包含了多个实际操作示例，...
Word-VBA 格式化多级列表和自定义列表
10-19
word vba script for format the muti-level title and single-level level, support the bullet style and number style.
Excel-WordVBA:Excel和Word VBA
03-31
在Excel中，VBA可以用来创建复杂的计算公式，自动化数据导入和导出，以及创建动态图表。例如，你可以使用VBA来遍历工作表中的所有单元格，根据特定条件筛选数据，然后自动更新图表。此外，VBA还可以帮助我们构建...
用宏来拷贝Word文件里面的自定义样式
hudan的专栏
03-10 1274
使用下面的宏,可以把D:/db/a.doc文档的所有自定义样式拷贝到当前文档如何关闭打开的D:/db/a.doc,现在还不知道怎么会出错误,以后再看看.Sub CopyMyStyles() 拷贝自定义样式 Macro 宏在 2005-03-10 由 胡丹 创建要应用的文档(当前文档)Dim strDest As StringstrDest = ActiveDocument.FullN
用VBA实现批量数据填充到word模板
清凉世界
11-03 6155
场景  在办公类应用中，常常遇到以下场景： 将数据库数据取出，批量填充到预先画好的word模板，输出用于打印的word文档。   限制 ie浏览器，本机安装了word。   问：那么多可以选择的，jacob, iText, 国内大量的在线编辑控件，为什么非得用前端VBA呢?   归根溯源,由于word的私有格式，对于其文档的程序操作只能通过其所谓automation来进行， ...
三行代码导出任意样式word （极简的word导出，避免freemarker、Poi等复杂导出）
qq_39706302的博客
11-21 793
officeexport-java officeexport-java基于Apache FreeMarker，遵从模板 + 数据模型 = 输出的理念， 通过极简API实现javaBean即数据源，模板即样式的Word导出，提供以下功能： 基本文本的输出，文本占位符样式即输出文本样式。 文本行、表格行单行或多行的遍历输出，并能够进行循环嵌套。 提供数据处理的插件，通过添加处理器可定制任意输出值，例...
【word】如何让文本中已经使用的样式出现在样式库中？
fuxuer的博客
08-29 2300
如何让文本中已经使用的样式出现在样式库中
Word快速添加样式（简便）
qq_22841387的博客
12-04 953
很多情况下，我们通常会拿到一个模板类型的样式，如果我一个个的去新增样式就会显得有些呆板。本文将利用 word原生功能 ，新增样式
用ptyhon和vba清除Word的标题样式保留字体格式，生成标题目录。
RainBows的专栏
12-02 2655
不同格式的word文档合并为一个文件。 问题： 文件汇编，需要将70多个文件汇编成一个到一个文件里。最终汇编的方式是用word--插入--对象--文件中的文字。 但是由于原始文件有的设置了自动编号。插入后在合并后的文档上继续编号导致混乱。有的没有设置标题样式，提取不出来目录。 最终汇总需要 清除Word的标题样式保留字体格式() 解决方式： 开始享用python+docx库解决。但是docx库在原始文档没有style的情况下，无论如何添加不进去。 if match(run.text,"第*章
vba中word表格导入到excel
06-28
### 回答1： 可以使用VBA编写代码将Word表格导入到Excel中。具体步骤如下： 1. 打开Word文档，选择要导入的表格。 2. 在Word中按下Alt+F11打开VBA编辑器。 3. 在VBA编辑器中插入一个新的模块。 4. 在新的模块中编写代码，使用Word对象模型中的Table对象和Excel对象模型中的Worksheet对象来实现表格的导入。 5. 运行代码，将表格导入到Excel中。 需要注意的是，导入表格时需要考虑表格的格式和数据类型，以确保导入的数据准确无误。 ### 回答2： 在VBA中将Word表格导入到Excel可以通过使用Microsoft Word和Microsoft Excel对象库来实现。 首先，需要打开Word文档并选择需要导入的表格。通过以下代码可以打开Word文档并选择表格： ``` Sub ImportWordTable() Dim WordApp As Object Dim WordDoc As Object Dim WordTable As Object Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:\Users\example.docx") Set WordTable = WordDoc.Tables(1) '此时选定了第一个表格 '以下可以指定具体的某个单元格的值 'WordTable.Cell(1, 1).Range.Text End Sub ``` 接下来，需要将选择的表格中的数据逐行逐列地提取出来，并在Excel中创建一个新的工作簿和工作表来放置这些数据。通过以下代码可以在Excel中创建新工作簿和工作表： ``` Sub ImportWordTable() Dim WordApp As Object Dim WordDoc As Object Dim WordTable As Object Dim ExcelApp As Object Dim ExcelBook As Object Dim ExcelSheet As Object Dim i As Integer Dim j As Integer Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:\Users\example.docx") Set WordTable = WordDoc.Tables(1) '此时选定了第一个表格 Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook = ExcelApp.Workbooks.Add() Set ExcelSheet = ExcelBook.Worksheets(1) End Sub ``` 然后，需要使用循环来按行和列的顺序将表格中的数据提取到Excel工作表中。可以使用以下代码来实现： ``` Sub ImportWordTable() Dim WordApp As Object Dim WordDoc As Object Dim WordTable As Object Dim ExcelApp As Object Dim ExcelBook As Object Dim ExcelSheet As Object Dim i As Integer Dim j As Integer Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:\Users\example.docx") Set WordTable = WordDoc.Tables(1) '此时选定了第一个表格 Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook = ExcelApp.Workbooks.Add() Set ExcelSheet = ExcelBook.Worksheets(1) For i = 1 To WordTable.Rows.Count For j = 1 To WordTable.Columns.Count ExcelSheet.Cells(i, j) = WordTable.Cell(i, j).Range.Text Next j Next i End Sub ``` 最后，需要关闭Word文档和Excel工作簿，并释放所有对象。可以使用以下代码实现： ``` Sub ImportWordTable() Dim WordApp As Object Dim WordDoc As Object Dim WordTable As Object Dim ExcelApp As Object Dim ExcelBook As Object Dim ExcelSheet As Object Dim i As Integer Dim j As Integer Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open("C:\Users\example.docx") Set WordTable = WordDoc.Tables(1) '此时选定了第一个表格 Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook = ExcelApp.Workbooks.Add() Set ExcelSheet = ExcelBook.Worksheets(1) For i = 1 To WordTable.Rows.Count For j = 1 To WordTable.Columns.Count ExcelSheet.Cells(i, j) = WordTable.Cell(i, j).Range.Text Next j Next i WordDoc.Close WordApp.Quit ExcelBook.SaveAs("C:\Users\example.xlsx") ExcelBook.Close ExcelApp.Quit Set WordDoc = Nothing Set WordApp = Nothing Set WordTable = Nothing Set ExcelSheet = Nothing Set ExcelBook = Nothing Set ExcelApp = Nothing End Sub ``` 通过以上代码，可以将Word文档中的表格数据成功导入到Excel工作表中。需要注意的是，需要进行正确配置可以确保成功运行此代码，并及时更改相应的文件路径。 ### 回答3： 在VBA中将Word表格导入到Excel是一项非常有用的操作，它可以帮助你快速地将Word中的数据转移到Excel里面，从而进行更方便的处理。 下面是这个过程具体的步骤： 1. 打开需要导入的Word文档，选择需要导入的表格。 2. 打开Excel文档，并在新建的模块中添加以下代码： Sub ImportWordTableInExcel() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim TableNo As Integer '表格序号 Dim iRow As Long '行号 Dim iCol As Integer '列号 Set WordApp = CreateObject("Word.Application") '打开Word应用程序 WordApp.Visible = True '设置可见性 Set WordDoc = WordApp.Documents.Open(Filename:="C:\Users\johnDoe\Documents\example.docx", _ ReadOnly:=True) '打开Word文档 TableNo = WordDoc.Tables.Count '获取表格数 For Each tbl In WordDoc.Tables '循环遍历每个表格 For iRow = 1 To tbl.Rows.Count '循环遍历每行 For iCol = 1 To tbl.Columns.Count '循环遍历每列 ThisWorkbook.Worksheets(1).Cells(iRow, iCol) = _ Application.Clean(tbl.Cell(iRow, iCol).Range.Text) '将单元格中的文本导入到Excel中 Next iCol '进入下一列 Next iRow '进入下一行 Next tbl '进入下一个表格 WordDoc.Close '关闭Word文档 WordApp.Quit '关闭Word应用程序 End Sub 3. 保存并运行宏，即可将Word中的表格数据导入到Excel中。在导入完成后，你可以根据需要对Excel文档进行进一步的处理。 总的来说，通过VBA将Word表格导入到Excel可以大大节省你的时间和精力，同时还可以减少数据输入过程中的错误。希望这份回答可以帮助你更好地掌握这项技能。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值