vba里面打开word文档,并实现通过特殊的字符将文档中的字符实现切分
这几天接到的任务是实现,将整个的word文档里面按照某个指定 的字符进行切分:
最后使用vba代码实现了打开word文档,并且按照相关的标示符将文档进行分开,最后拿到想要的文档,实现代码如下:
Sub change() ' ' 打开一个word文档,读取里面的内容 ' '定义一个路径 Dim StrPath As String StrPath = "D:\test1.docx" Set oApp = CreateObject("Word.Application") oApp.Visible = False Set oDoc = oApp.Documents.Open(StrPath) 'StrPath为文件路径 '获得最后一段的内容 Content = oDoc.Content.Text Dim s As String s = Split(Content, "=")(1) '从特定字符进行分割,获取到具体的json数据一分为2 oDoc.Close True Set oApp = Nothing MsgBox s End Sub
至此问题解决
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步