使用VBA快速将文本转换为Word表格

taller_2000

已于 2024-10-03 07:39:31 修改

阅读量842

点赞数 3

分类专栏： VBA Word 表格文章标签： Word VBA Word 表格文本转表格 VBA

于 2024-09-28 12:46:54 首次发布

本文链接：https://blog.csdn.net/taller_2000/article/details/142614286

版权

Word提供了一个强大的文本转表格的功能，结合VBA可以实现文本快速转换表格。

示例文档如下所示。

在这里插入图片描述

现在需要将上述文档内容转换为如下格式的表格，表格内容的起始标志为@@@。

在这里插入图片描述

示例代码如下。

Sub SearchTab()
    Application.DefaultTableSeparator = "*"
    Selection.HomeKey unit:=wdStory
    With Selection.Find
        .Text = "@@@"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchAllWordForms = False
        Do While .Execute
            With Selection
                .Delete
                .Expand wdParagraph
                .Font.Italic = True
                .Range.Font.TextColor.RGB = RGB(97, 146, 0)
                .MoveDown unit:=wdParagraph