急! 麻烦帮忙看看怎么样循环取10308开头的 ,解析功能编号、功能名称、功能类型。功能入参下面是的表格
功能编号:10308001
功能名称:股东查询
功能类型:查询功能
功能入参:
列名 列代码 列类型 必输 FIX域 说明
资产账户 CUACCT_CODE BIGINT √ 8920
交易板块 STKBD VARCHAR(32) X 625
交易账户 TRDACCT VARCHAR(20) X 448
[/b]
Sub 宏_输出Proto文件()
Dim funcId As String
Dim funcName As String
Dim inlineArray(100) As String
Dim retValue As Long
Dim bIsGenrate As Boolean
Dim fileName As String
Dim rowInput As Integer
Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst
' 金证微架构宏_输出Proto文件 宏
Selection.Find.Forward = True
Selection.Find.ClearFormatting
Selection.Find.MatchWholeWord = False
Selection.Find.MatchCase = False
Selection.Find.Wrap = wdFindStop
Selection.Find.Execute FindText:="功能编号:10308"
Do While Selection.Find.Found = True
Char = Selection.EndOf(Unit:=wdWord, Extend:=wdExtend)
funcId = delete_vbcrlf(Selection.Text)
funcId = Mid(funcId, Len(funcId) - 7, 8)
-- 需要循环找文档中10308开头的功能号,解析功能功能编号、功能名称。 现在功能名称找不到
Selection.Find.Execute FindText:="功能编号:"
Selection.Find.Forward = True
If Selection.Find.Found = True Then
Char = Selection.EndOf(Unit:=wdWord, Extend:=wdExtend)
funcName = delete_vbcrlf(Selection.Text)
funcName = Mid(funcId, Len(funcId) - 7, 8)
End If
Char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)
Selection.Find.Execute FindText:="功能编号:10308"
Loop