锦中融合门户系统

Sub CreateToDoList()

Dim doc As Document

Set doc = ActiveDocument

招生管理系统

Dim todoItems As String

todoItems = ""

For Each para In doc.Paragraphs

If Left(para.Range.Text, 1) = "*" Then

todoItems = todoItems & para.Range.Text & vbCrLf

End If

Next para

Dim json As String

json = "{ ""todos"": [" & vbCrLf

json = json & todoItems

json = json & "]}"

' 调用API将json数据发送到融合门户系统

Call SendToPortal(json)

End Sub

Sub SendToPortal(jsonData As String)

' 使用HTTP请求将jsonData发送到融合门户系统的API

' 示例代码略

End Sub