Question

vb如何选取文章中任意一段文字

裁判文书是法院阐释法律、接受监督、宣传法制最直接、最主要窗口，也是程序公平和实体正义的集中连接点。长期以来，法院审理的大部分案件只在当庭宣布并且只针对诉讼当事人及有限的相关部门送达，这在一定程度上影响、限制了公众对司法公正的认知与监督。
最高法院力推司法公开，无疑是一大进步。其实早在2010年，最高法院就制定了《关于人民法院在互联网公布裁判文书的规定》，但是，这一规定的精神，各地落实的情况参差不齐，这次由最高法院出面主导，无疑具有示范和引导的积极作用。
比如上面一段文字，我要随意选取“部分案件只在当庭宣布并且只针对”怎么实现？
如果我要选取“法公正的认知与监督。最高法院力推司法公开，无疑”怎么实现？
在线等，加分哦。
加分不是目的，主要是帮助解决问题。谢谢了！
这样吧，是我没表述清楚。我其实先编写一个简单的做题软件。我现在是想怎样把这个文件中的题，显示到窗体中。比如下面是题：
4.在Word 97中，下列快捷键的组合错误的是________。

A.剪切：Ctrl＋X
B.粘贴：Ctrl＋C
C.保存：Ctrl＋S
D.打开：Ctrl＋O
5.Word 97关于字号大小的顺序，下列________正确。

A.五号＞四号＞12磅
B.五号＜四号＜12磅
C.五号＜12磅＜四号
D.四号＞五号＞12磅
6.下列关于Word 97的段落符的叙述________不正确。

A.可以显示但不会打印
B.一定在屏幕显示
C.删除后则前后两段合并
D.不打回车不会产生
怎样才能把他们准确的显示到一个label和option（0-3）中？
有没有高手能够留下QQ，方便请教

Answer 1

第一种：
先给出起始的字符和末尾字符
text2=起始字符
text3=末尾字符
txet1=文本
Private Sub Command1_Click()
Dim p, l As Integer
p = InStr(1, Text1.Text, Text2.Text)
l = InStr(p, Text1.Text, Text3.Text)
Me.Caption = Mid(Text1.Text, p, l - p + 1)
End Sub

追问

如果我选取“最高法院力推司法公开，无疑是一大进步。其实早在2010年，最高法院就制定了《关于人民法院在互联网公布裁判文书的规定》”就有两个“最”怎么办？

追答

没事吧，text2=起始字符输入“最”
text3=末尾字符输入“》”

Answer 2

你是什么意思？截取子字符串吗？
不明白你的意思，是不是说在文字中找到固定的字符串？