vb Word vb.net 合并单元格格 多行字

来源：蜘蛛抓取(WebSpider) 时间：2015-07-16 06:11 标签： vb.net 合并单元格
【求助】我想用vb整合几个excel表格和word文件，实现查找功能_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：102,515贴子：
【求助】我想用vb整合几个excel表格和word文件，实现查找功能收藏
主要是在vb界面显示这些文件界面，然后在text1里输入关键字达到查询特定内容的功能。先谢过了
登录百度帐号推荐应用查看: 2236|回复: 5
VB返回 多个满足条件的单元格 行号
阅读权限20
在线时间 小时
未命名.jpg (62.59 KB, 下载次数: 0)
20:25 上传
如图 怎么返回 多个满足条件的单元格 行号？谢谢
20:24 上传
点击文件名下载附件
6.07 KB, 下载次数: 19
阅读权限95
在线时间 小时
..................
20:55 上传
点击文件名下载附件
10.2 KB, 下载次数: 23
阅读权限20
在线时间 小时
本帖最后由 senhuan 于
21:01 编辑
Dim rng As Range, dic
Set dic = CreateObject(&Scripting.Dictionary&)
For Each rng In Range(&a1:a100&)
& & If rng.Value = 1 Then
& && &&&dic(rng.row) = &&
& & End If
Next rng
[b1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub复制代码
(36.27 KB, 下载次数: 2)
21:01 上传
阅读权限10
在线时间 小时
& & & & & & & &
完成功能，见附件，看是否满足你的要求。。。
21:02 上传
点击文件名下载附件
9.42 KB, 下载次数: 33
阅读权限10
在线时间 小时
增加的显示行号的功能
21:12 上传
点击文件名下载附件
10 KB, 下载次数: 77
阅读权限20
在线时间 小时
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师vb&操作word字符替换&添加表格&文字格式
Dim doc As New Word.Application, wd As Word.Document
doc.Documents.Add '赋值
doc.Documents(1).Activate
&Set wd = doc.Documents(1) '赋值
&With doc.Documents(1).Words(1)
.Font.name = "宋体"
.Text = "中国人民解放军 武警部队"
wd.Paragraphs.Add
&'选中对象
&Dim sel As Word.Selection
&Set sel = doc.Selection '赋值
& With doc.Selection.Font
&&&&&&&&&&&
.Size = 14
&&&&&&&&&&&
.Bold = True
&&&&&&&&&&&
.Italic = True
& End With
& '文档操作
&Set wd = doc.Documents(1) '赋值
&'段落标记
&Dim p As Word.Paragraphs
&Set p = wd.Paragraphs '赋值
&doc.Documents(1).Paragraphs(1).Alignment =
wdAlignParagraphCenter
doc.Documents(1).Words(wd.Words.Count)
"宏录制器会经常创建一个使用Selection属性来控制操纵Selection对象的宏。但是，用户通常可以用一个或几个Range对象来以很少的命令完成相同的任务。以下的示例是用宏录制器创建的。该宏对文档中的前两个单词进行加粗。"
&wd.Paragraphs(wd.Paragraphs.Count).FirstLineIndent
&wd.Paragraphs.Add
&Dim rng As Word.Range
&Set rng = wd.Range(wd.Range.End - 1,
wd.Range.End)
&wd.Tables.Add rng, 3, 5
&For i = 1 To wd.Tables(1).Rows.Count
&&& For j = 1 To
wd.Tables(1).Columns.Count
wd.Tables(1).Rows(i).Cells(j).Range.Text = "A" & i
&&& Next j
&doc.Selection.Font.Size = 12
&doc.Selection.Font.Bold = False
&doc.Selection.Font.Italic = False
&doc.Selection.Paragraphs(doc.Selection.Paragraphs.Count).Alignment
= wdAlignParagraphLeft
doc.Selection.Paragraphs(doc.Selection.Paragraphs.Count).FirstLineIndent
doc.Documents(1).SaveAs App.Path &
doc.DisplayAlerts = wdAlertsNone
Private Sub Command4_Click()
Dim doc As New Word.Application, wd As Word.Document
& doc.Documents.Open App.Path &
&Set wd = doc.Documents(1)
&wd.Select
With doc.Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
&&& .Text =
"Selection"
.Replacement.Text = "Sele ctionS election"
&doc.Selection.Find.Execute Replace:=2
& With wd.Tables(1).Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "A21"
.Replacement.Text = "B51"
.Execute Replace:=2
& End With
&doc.DisplayAlerts = wdAlertsNone
&wd.SaveAs App.Path &
"\aa2.doc"
& doc.Visible = True
& doc.Visible = True
doc.ActiveDocument.PrintPreview
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
2013年 总版技术专家分年内排行榜第三
2012年 总版技术专家分年内排行榜第七
匿名用户不能发表回复！|
每天回帖即可获得10分可用分！小技巧：
你还可以输入10000个字符
(Ctrl+Enter)
请遵守CSDN，不得违反国家法律法规。
转载文章请注明出自“CSDN（www.csdn.net）”。如是商业用途请联系原作者。

我要回帖

更多关于 vb.net 合并单元格 的文章

 

随机推荐