如何实现查询后数据的汇总显示？

sp97vhy · 发表于 2005-1-17 22:05

如何实现查询后数据的汇总显示？例如：如何将下几段中包含有胃病的段落选出并集中显示出来。实际上有许多段。不好意思字是随便敲的。

夼要百中有无中；大跃进大跃进蠕喱；中呖在国中在我肖有晨是国国国国男国是虽另男查大在在。

中另要国；要在历枯吉林的长白内政，有一个叫孙忱的画家，他有胃病。

他每天学习下棋，全面质量管理的下提颉顺国右困中历可啡中。

胃病是一个不好汉治疗的疾病。

上传附件请版主帮忙：

在线求助!!!! 另外问一下，在 word 中如何引用宏。在excel中可以绘一图形然后指定

hFVEdW5B.rar (4.16 KB, 下载次数: 19)

[此贴子已经被作者于2005-1-18 21:10:04编辑过]

守柔 · 发表于 2005-1-18 09:25

把你的附件上传更能解决问题。

cmyy · 发表于 2005-1-18 10:09

因为你没有说明如何集中显示，下面这段代码只是把含有“胃病”的段落字体置为蓝色了

sub S()

Dim P As Paragraph Dim r As Range For Each P In ActiveDocument.Paragraphs Set r = P.Range With r.Find .Text = "胃病" If .Execute = True Then P.Range.Font.Color = wdColorBlue End If End With Next P

end sub

[此贴子已经被作者于2005-1-18 10:10:26编辑过]

sp97vhy · 发表于 2005-1-18 21:24

怎么没有人回答，自己顶一下。

守柔 · 发表于 2005-1-19 06:14

'* +++++++++++++++++++++++++++++++++++++++

'* Created By 守柔(ShouRou)@ExcelHome 2005-1-19 6:11:24

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* --------------------------------------------------------------------------

Sub GetParagraph1() Dim i As Paragraph, Doc As Document On Error Resume Next '错误忽略 Application.ScreenUpdating = False '关闭屏幕更新 Set Doc = Documents.Add '新建一个空白文档,注意此DOC为活动文档 For Each i In Me.Paragraphs '在本文档(THISDOCUMET)的段落中循环 If InStr(i.Range, "胃病") > 0 Then '如果包括指定字符则 Selection.InsertAfter i.Range '活动文档的光标处插入该段落 End If Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub '---------------------- Sub GetParagraph2() Dim i As Paragraph, Doc As Document, strPar As String, AllPar As String On Error Resume Next Application.ScreenUpdating = False Set Doc = Documents.Add For Each i In Me.Paragraphs If InStr(i.Range, "胃病") > 0 Then strPar = i.Range AllPar = AllPar & strPar '将文本置于内存中,可以加快运行速度 End If Next Doc.Activate Selection.InsertAfter AllPar '一次性插入内存中的所有文本 Application.ScreenUpdating = True End Sub '----------------------

第二个问题麻烦大哥多写几句好吗？

sp97vhy · 发表于 2005-1-19 22:18

问题1已明白,谢谢!!!

又有一问题请帮忙，在线等待。

gt591gB3.rar (10.55 KB, 下载次数: 17)

守柔 · 发表于 2005-1-20 08:27

请参：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-1-20 08:26:21 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [用户窗体-UserForm1]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click() Dim i As Paragraph, Doc As Document, strPar As String, AllPar As String On Error Resume Next If Me.TextBox1.Text <> "" Then '如果文本框非空 Application.ScreenUpdating = False For Each i In ThisDocument.Paragraphs If InStr(i.Range, Me.TextBox1) > 0 Then strPar = i.Range AllPar = AllPar & strPar '将文本置于内存中,可以加快运行速度 End If Next If AllPar <> "" Then '如果找到相关段落 Set Doc = Documents.Add '新建文档 Selection.InsertAfter AllPar '一次性插入内存中的所有文本 Me.CommandButton2.Default = True '默认命令按钮 Else MsgBox "未找到指定搜索的段落内容，请重新检查并输入！", vbOKOnly + vbInformation Me.TextBox1 = "" '清空文本框 End If Application.ScreenUpdating = True End If Me.TextBox1.SetFocus '设置焦点 End Sub '---------------------- Private Sub CommandButton2_Click() Me.TextBox1 = "" '清空文本框 Me.TextBox1.SetFocus '设置焦点 End Sub '---------------------- Private Sub UserForm_Initialize() Me.Caption = "查询窗体" '初始化窗体 Me.TextBox1.SetFocus '设置焦点位置 Me.CommandButton1.Default = True '默认命令按钮 End Sub '----------------------
见附件，操作方法是点击菜单右侧按钮“查询窗体”

nR7jI42w.zip (14.21 KB, 下载次数: 30)

sp97vhy · 发表于 2005-1-20 20:38

请问版主，菜单上的“查询窗体”是怎么与代码连系起来的。我可以在“自定义”中建一个新的菜单，但不知如何使用。

cmyy · 发表于 2005-1-20 21:17

在自定义中选择""命令"页中的"宏",然后从宏的列表中拖一个宏到你新建的菜单或是工具栏中

退出自定义,此时点击菜单或是工具栏中的按钮,就会执行你刚才选中的宏

		自动登录	找回密码
密码			免费注册