| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 其他 >> 实例分析正文
最新推荐 更多内容
VB.Net在word中搜索指定条件的信息
VB.Net在word中搜索指定条件的信息
作者:Ilu    来源:乐博网整理     更新时间:2009-9-25

乐博网lob.cn提示:调试环境为 vs2008 +  windows2003 / windows2008 / xp / vista

VB.Net在word中搜索指定条件的信息
Public Class ThisDocument
    Private richTextControl1 As Microsoft.Office.Tools.Word.RichTextContentControl
    Private richTextControl2 As Microsoft.Office.Tools.Word.RichTextContentControl
    Private richTextControl3 As Microsoft.Office.Tools.Word.RichTextContentControl
    Private richTextControl4 As Microsoft.Office.Tools.Word.RichTextContentControl
    Private Sub ThisDocument_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        Me.Paragraphs(1).Range.InsertParagraphBefore()
        Me.Paragraphs(1).Range.Text = "职位类别:" & vbCrLf
        Me.Paragraphs(1).Range.Characters.Last.Select()
        richTextControl1 = Me.Controls.AddRichTextContentControl("richTextControl1")
        richTextControl1.PlaceholderText = "请在此位置输入职位类别:"
        Me.Paragraphs(2).Range.InsertParagraphBefore()
        Me.Paragraphs(2).Range.Text = "工作地点:" & vbCrLf
        Me.Paragraphs(2).Range.Characters.Last.Select()
        richTextControl2 = Me.Controls.AddRichTextContentControl("richTextControl2")
        richTextControl2.PlaceholderText = "请在此位置输入工作地点:"
        Me.Paragraphs(3).Range.InsertParagraphBefore()
        Me.Paragraphs(3).Range.Text = "行业类别:" & vbCrLf
        Me.Paragraphs(3).Range.Characters.Last.Select()
        richTextControl3 = Me.Controls.AddRichTextContentControl("richTextControl3")
        richTextControl3.PlaceholderText = "请在此位置输入行业类别:"
        Me.Paragraphs(4).Range.InsertParagraphBefore()
        Me.Paragraphs(4).Range.Text = "其他要求:" & vbCrLf
        Me.Paragraphs(4).Range.Characters.Last.Select()
        richTextControl4 = Me.Controls.AddRichTextContentControl("richTextControl4")
        richTextControl4.PlaceholderText = "请在此位置输入您的其他要求:"
    End Sub
    Private Sub ThisDocument_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    End Sub
    '确认
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyInfo As String = "您当前设置的搜索条件如下:"
        MyInfo += vbCrLf & "职位类别:" + Me.richTextControl1.Text
        MyInfo += vbCrLf & "工作地点:" + Me.richTextControl2.Text
        MyInfo += vbCrLf & "行业类别:" + Me.richTextControl3.Text
        MyInfo += vbCrLf & "其他要求:" + Me.richTextControl4.Text
        MessageBox.Show(MyInfo, "乐博网信息提示", _
                            MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    VB.Net为word设置页眉页脚
    VB.Net为word设置封面
    VB.Net在word中查找文字
    VB.Net为word添加和删除注释
    VB.Net输出Word和Excel报表的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]