PatentAgentVV的个人资料 - RAT

PatentAgentVV PatentAgentVV

..

关注数: 26 粉丝数: 27 发帖数: 1,295 关注贴吧数: 6

如题，请教通达信股票池从板块输出成分股，可有偿。如图，请教各位大神通达信股票池如何实现从板块指数输出成分股。可有偿！！

如题，请教通达信股票池从板块输出成分股，可有偿。如图，请教各位大神通达信股票池如何实现从板块指数输出成分股。可有偿！！

急！！！！关于vb对Word页脚页码编号问题 Word文档里面有3个分节。求各位大侠支招！！！！采用以下代码只能按顺序从第一页的页脚编码到最后一页，不能对每一节分别重新进行编码。求支招如何对每一个分页分别进行编码 Private Sub Command1_Click() Dim mrange As Word.Range Dim r1 As Range, r2 As Range, r3 As Range Set r1 = mrange.Sections(1).Footers(wdHeaderFooterPrimary).Range Set r2 = mrange.Sections(2).Footers(wdHeaderFooterPrimary).Range Set r3 = mrange.Sections(3).Footers(wdHeaderFooterPrimary).Range With r1 .Font.Size = 10.5 .Collapse direction:=wdCollapseEnd .Fields.Add Range:=r1, Type:=wdFieldEmpty, Text:= _ "PAGE \* Arabic ", PreserveFormatting:=True .Expand unit:=wdSection .ParagraphFormat.Alignment = wdAlignParagraphCenter End With With r2 .Font.Size = 10.5 .Collapse direction:=wdCollapseEnd .Fields.Add Range:=r1, Type:=wdFieldEmpty, Text:= _ "PAGE \* Arabic ", PreserveFormatting:=True .Expand unit:=wdSection .ParagraphFormat.Alignment = wdAlignParagraphCenter End With With r3 .Font.Size = 10.5 .Collapse direction:=wdCollapseEnd .Fields.Add Range:=r1, Type:=wdFieldEmpty, Text:= _ "PAGE \* Arabic ", PreserveFormatting:=True .Expand unit:=wdSection .ParagraphFormat.Alignment = wdAlignParagraphCenter End With End sub

1 下一页