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

至此问题解决

转载于:https://www.cnblogs.com/gxgd/p/9240266.html

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页