功能編號：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
uj5u.com熱心網友回復：
在Word中開始記錄宏，手動完成所需功能，結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/51409.html
標籤：VBA