Function name: shareholder query
Function types: query function
Functions into the ginseng:
The column name column column type code will lose FIX domain description
8920 asset account CUACCT_CODE BIGINT)
Trade sector STKBD VARCHAR (32) X 625
Trading accounts TRDACCT VARCHAR (20) X 448
[/b]
Sub macro _ output Proto file ()
Dim funcId As String
Dim funcName As String
Dim inlineArray (100) As the String
Dim retValue As Long
Dim bIsGenrate As Boolean
Dim fileName As String
Dim rowInput As Integer
Selection. GoTo I:=wdGoToSection, Which:=wdGoToFirst
'gold card micro architecture acer _ output Proto file
Selection. The Find. Forward=True
Selection. The Find. ClearFormatting
Selection. The Find. MatchWholeWord=False
Selection. The Find. MatchCase=False
Selection. The Find. Wrap=wdFindStop
Selection. The Find. The Execute FindText:="function code: 10308
"The Do While Selection. The Find. Found=True
Char=Selection. The EndOf (Unit:=wdWord, Extend:=wdExtend)
FuncId=delete_vbcrlf (Selection. The Text)
FuncId=Mid (funcId, Len (funcId) - 7, 8)
- need to find the document circulation in 10308 at the beginning of function, function code parsing function, function name, function name now can not find a
Selection. The Find. The Execute FindText:="function types:
"Selection. The Find. Forward=True
If Selection. The Find. Found=True Then
Char=Selection. The EndOf (Unit:=wdWord, Extend:=wdExtend)
FuncName=delete_vbcrlf (Selection. The Text)
FuncName=Mid (funcId, Len (funcId) - 7, 8)
End the If
Char=Selection. The EndOf (Unit:=wdWord, Extend:=wdMove)
Selection. The Find. The Execute FindText:="function code: 10308
"Loop
CodePudding user response:
In Word start recording macros, manual, complete the required function end record macros, press Alt + F11 key, check just record macro corresponding VBA code,