请教下，vb里如何读取一个txt的某行的数据，显示在text1里。。。
谢谢啊~~附上详细代码
本回答由提问者推荐
var sogou_ad_id=731547;
var sogou_ad_height=160;
var sogou_ad_width=690;vb串口数据处理
vb串口数据处理
(C)2017 列表网&琼ICP备号-12&增值电信业务经营许可证B2-&VB6.0简体中文企业版 - 软件下载 - 编程开发 - 源码天空
> 编程开发 > VB6.0简体中文企业版
&热门软件下载
VB6.0简体中文企业版
资源等级：
上传会员：
资源类别：
￤编程开发
文件大小：
授权方式：
发布时间：
网友评分：
1.2分 / 17次
下载次数：
VB6.0简体中文企业版,源码天空提供,请勿盗链.
解压密码:codesky.net_vb23
&&网友评论（共有198条）
&好东西！！
shmily-28 17:19:39
&好东东。。
秋无馨, 09:59:55
&下来用用先
YangAn, 15:20:17
&CDkey是什么啊
qizhenwei1, 19:19:30
ziyunjie0, 12:27:54
&看看在说啊
zshzh, 12:14:01
&ID是多少啊?怎么找不到啊?请各位帮帮忙吧!
gdsspt, 12:36:13
&不是太好用的啊?
njy, 11:10:24
&ID是多少啊?
kkyanwang, 18:17:29
&cd key 是什么啊?谁告诉我啊
wdmhandsome, 15:37:58
&ID是多少啊?怎么找不到啊?请各位帮帮忙吧!
wwd-27 14:33:53
&id是多少？
yuzhanyao, 00:08:57
&VB6.0简体中文企业版,SN全1
cool, 16:58:24
&id是什么？
紫欣女孩831, 11:40:06
xinyu, 00:21:09
&我下载下来了ＶＢ６．０可是没给我ＣＤ　ＫＥＹ　让我怎么办，让人白欢喜一场．
鱼水情, 13:47:25
111111 啊。都填1不就好了吗，你第一次用啊
graymood, 18:09:36
&求高人指点啊
vb6.0下载了安装不了啊
有什么注册出错啊 帮忙~~~~~~~~~~~~~
zhq-22 11:16:30
&请教：是不是级别不够？无法显示？
tqlxlh, 09:39:43
&请问MSDN library在哪里啊？
rht112, 21:42:30
&425-0052536这是CD号
xiaobin23, 18:18:04
&什么是安装导向吖?
我不会吖,,请高手教教,,
过几天好考试了,
我还没有复习好VB吖!
<font color="#7-07-03 11:52:59
&CD-KEY到底是111111还是425-0052536
hahahaha, 15:36:08
&没有安装成功，请高手指点一二。
yxj-15 17:43:24
&怎么安装啊
什么是安装向导啊
请高手指点一下啊
<font color="#7-11-06 10:37:45
& 请问MSDN library在哪里啊？
ugly7-11-28 16:16:01
&是个好东西啊
宋建龙, 18:43:18
& 怎么安装啊 什么是安装向导啊 我不会啊 请高手指点一下啊
<font color="#-12-30 20:19:24
&MSDN library不安装也够用了啊！！
dahutu007, 10:15:53
&我的怎么解压时老是说密码错误啊?
lsmxj737, 02:33:29
&给个正确的密码啊 ====
ZACK, 10:30:19
&密码别把后面那个空格也考上去
"codesky.net_vb23"
"codesky.net_vb23 "
sddsddsd, 17:52:25
&msdn library 要到微软官网下,1.5G
sddsddsd, 17:53:25
&"codesky.net_vb23" 不是 "codesky.net_vb23 "
这有什么区别呀,高手给说的细点
wsacr, 11:46:40
&ID是多少?谁知道阿 谢谢啦~~~我安了好久 有点郁闷了
myra, 22:23:37
&让下载就帮助安装好吗,"codesky.net_vb23" 不是 "codesky.net_vb23 " 这有什么区别呀,高手给说的细点
wsacr, 20:22:12
&1.解压密码“codesky.net_vb23”，如果复制时不小心会将后面的空格一块粘上去，那
么密码就会多了一位。
2.安装过程会提示输入ID，一直按1就OK，出现“下一步”就OK了。
xingjina500, 17:07:23
&谢谢,安上了
wsacr, 18:01:35
NOKIA7610的驱动盘的下载地址是多少，请高手告诉个明确答案，谢谢~！
yongge, 15:23:06
&什么是加密密码啊？
高手帮帮忙
聂媛媛, 15:01:41
&出现请先运行“安装向导”然后就安装不了了```高手们到底是什么会事啊```？
canyon, 17:11:53
&出现请先运行“安装向导”然后就安装不了了```高手们到底是什么会事啊```？
ychun168, 11:12:54
&请问：如何才能安装MSDN？
ychun168, 11:18:22
&请问：如何才能安装MSDN？请高手告诉个明确答案，谢谢~！
ychun168, 19:48:14
&买正版就能安装，除此之外，我不知道有什么办法了
tcker, 19:57:10
&CDKey我知道
按1不松直到不出字为止
意思也就是CDKey全是1
这网站不错啊 VB满好下载的嘛
yuhongli, 12:56:23
& 出现请先运行“安装向导”然后就安装不了了```高手们到底是什么会事啊```？
yingdeng110, 13:45:47
&点哪个安装啊？？？？？？？？？？？？
asdf-03-01 14:04:01
&解压密码“codesky.net_vb23”，为什么不对啊
wengbin, 22:19:09
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
XBF, 23:02:37
&安装完成后是英文版
wengbin, 22:38:16
&搞错了，我下的是vc
wengbin, 22:52:43
&什么叫在安装时系统注册表遇到了问题?怎么办啊?
<font color="#8-03-08 10:15:16
&我下载了.怎么需要解压密码啊?可是我不知道啊!上面给的也不能用啊!帮忙给我一下了!
fvsoar, 09:53:15
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！............................别点确定,把它拉到一边,试试
leigh85, 22:57:58
&安装不了,晕!~也是和楼上的一样,尚未安装成功.
胡汉三, 14:32:49
&没有ID号，装不了，请哪位提供一下，在下感激不尽。
yxj-20 22:27:36
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
sasuke, 17:51:25
&安装好了之后，要用DATA ENVIROMRNT,怎么没有啊？工程-引用里也没有？
y-31 17:06:19
&解压密码不对啊 怎么弄啊~~~
高手指点啊
<font color="#8-03-31 21:48:12
&太好了 我装上去了 ，不过下载的时间有点久哦 2小时
yexinxue, 18:40:01
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
lilijuan, 12:03:28
&安装向导在哪里？？？？
请出招！！！！
yxyong100, 14:26:07
&“安装向导”=setup文件
chen-12 14:40:55
&我在安装的时候,提示检测到一个早期版本的visual sourcesafe
然后就安装不了
birod, 12:17:55
&很期待ing
anpig99, 13:24:32
&谢谢，好东东
zlb101, 15:21:30
&web发布向导不会弄,请高手赐教
多多多, 16:52:38
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
yyfcyxt, 11:27:42
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了
这个东西跟系统有没有关系呀，谁装好了，说一下，你有没有这种问题呀，高手指点一下呀~~~~
yyfcyxt, 11:28:41
&我安装了程序后为什么不能上网了!!!安装好后VB到可以用的.但就不能上网了.把它删了后又可以上了.这是怎么回事啊!哪位高手帮帮我
tao-04-26 21:27:47
&为什么一解完压，它就不见了，怎么回事？安不了啊
yuiop, 14:46:48
&顺便问问，安vb需要安IIS吗？我刚学vb的，请高人指点一二
yuiop, 14:48:39
&ID是多少?
<font color="#8-04-28 16:38:01
&发布WEB怎么搞的呀
高手指教下
<font color="#-05-13 12:04:20
&什么回事，我都按照你们说的去做了，到结果是安装不得啊
ycwshuyan, 23:08:55
&真是晕了，什么那么难装啊，现在不知道什么好，有谁告诉我，联系QQ：
在此先行谢过，都是装到向导就有问题啦
ycwshuyan, 23:16:09
&id是什么呀
mbq, 21:34:19
&这不是完整版的吗　　部件里面怎么没有＂日历＂控件呢，速会！
<font color="#8-05-22 15:14:09
&我下载只用20分钟也!好快!就是不知道安装得吗?
勉@勉, 17:40:19
&安装不行也!安装向导失败,我日!
勉@勉, 18:26:10
&YES!我成功了!
就是那样一步一步的安装,最后它要你重起你就重起,那就对了!
谢谢楼上的解码codesky.net_vb23和名称setup!
我这下可以专究VB编程,成功的第一步即将开始,中国的人才准备再多一位我!哈哈!
勉@勉, 18:41:14
&晕了 你们咋都能下呢
我一个都连不上
zhou-05 18:53:29
&cdkey什么啊　快告诉我　安不上急死了
blacksky-07 17:04:06
&快点撒　　我急死了！！！
blacksky-07 17:05:00
&怎么ＣＤＫＥＹ键不上去啊
blacksky-07 17:07:05
&解压时密码输入codesky.net_vb23，后来输序号时输入425-0052536。我安装成功了，看这么多人不行，赶紧帮忙。
zeta, 02:05:27
<font color="#8-06-08 10:29:45
&我怎么老是安不了｀！总弹出什么＂请先安装控件＂～是什么意思呢～？知道的指点指点～？先谢了～～！
tgds-06-09 06:23:55
&这么多编程高手，请问，如何将窗体的页面设计成A4页面进行打印
jiysjp, 15:33:51
&下下来了不止怎么装
请高手 指点下
starwang, 10:09:31
&解压时密码输入codesky.net_vb23，后来输序号时输入425-0052536,绝对没错!!我也安装成功了!!加油
子目-29 12:04:51
&谢谢哦，安装成功了，谢谢上楼的
swm, 22:10:24
&请问下载哪个啊
我都弄不了啊
ぃ吥縭♀吥棄, 19:49:47
&密码是全部为1或0 ，试试！
zhang-11 21:05:26
&真是好东东！谢谢楼上各位的提示，下载安装都很顺利！不过想问问不安装MSDN，使用起来有什么影响？向楼上的高手们请教！
xixi, 15:30:48
&安装向导是什么东东啊~~~怎么安装？？？？急33谢谢
救救我吧, 16:55:36
&请问用这样软件需不需要钱的
地方dd, 13:24:08
&我下载以后安装在E盘第一层,解压输入了密码codesky.net_vb23,安装也输入了425-0052536,地址和企业名称我随便写的全是111.......,可是安装不上,出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了,请高手指点,解压时密码输入codesky.net_vb23，后来输序号时输入425-0052536,还有后面二行名称应该怎么写????
abstanghua, 20:07:22
&mmcontol的许可证是什么
罗易星, 21:22:47
&你们说的这个软件怎么我装有问题啊
我原来装过一个vb6.0精简版删了以后我再装vb6.0企业版怎么安装不上呀。安装运行安装时候来出现向导问题。是不是软件冲突
共0条评论...
li147, 16:11:53
&解压密码是什么？我输入解压密码:codesky.net和
解压密码:codesky.net_vb23 都显示错误！！！！
gbdd, 19:43:37
&哦。下成功了
mary_21, 18:18:22
& 真是好东东！谢谢楼上各位的提示，下载安装都很顺利！不过想问问不安装MSDN，使用起来有什么影响？向楼上的高手们请教！
<font color="#-09-03 07:27:23
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
aiqingwuai, 22:57:20
&我在安装的时候,提示检测到一个早期版本的visual sourcesafe 然后就安装不了 ,哪位高手指教一下
malaaiser, 10:04:16
&安装程序出错 注册D:\VB6.0\Tools\VS-Ent98\vmodeler\msvm.exe失败
Dr.yang, 13:20:06
&在Vista系统上怎么不兼容呀
有谁能帮我解决
wison8-09-20 21:13:35
&支持，呵呵
miaojianjin, 16:37:00
&老实说:装了一天没装上
liumax, 12:13:42
&我解压全是错误codesky.net_vb23 是解压码吗？？？？？？？？？
wsxql-01 09:13:58
&呵呵还好！解压密码是codesky.net_vb23不要后面的“ ”哦
wsxql-01 09:17:56
&CD KEY：全都是1，也就是“111-111111”，一直按1就行了！
srxh, 11:16:08
&安装使用没有问题,不过要注意的是,安装前信息收集有两个选项要点"否"。
第一个是说“发现旧版本，是否更新”的，留心看一下，是下载那个软件的位置，点了就替换了安装程序，安装肯定不成功的了，是个BUG。 第二个是问“是否软件都装了VB6”，点“否”兼容性好点，不担心影响原来装好的东东，出现些不明白的问题。
liuhongtian, 14:08:22
&还有，安装VB6前要先安装MSDN，在百度那里搜一下“vb6.0 msdn下载”就有不少网址~~Goodluck
liuhongtian, 14:31:08
&安装不上，说是“没发现Acme安装文件”真扫兴，下了好多版本，都一个求样！
zigenbiak, 14:20:55
&晕怎么安装的，那位高手可以说下
QQ08-10-11 22:08:03
&我用VB6.0企业版制作了一个小程序打包后在别的电脑上运行不了 为什么呢 哪位大侠指点一下
jilinyixiu, 18:09:13
&我用VB6.0企业版制作了一个小程序打包后在别的电脑上运行不了 提示：
Compendcies not correctly reistered：a file is missing or invalid
为什么呢 哪位大侠指点一下
jilinyixiu, 18:11:46
&靠，解压不了，网上提供的解压码不对。怎么回事？
sxsxedu, 21:52:33
解压密码不对啊？？怎么解压啊～？？正确的解压码是好多哦～～那个仁兄晓得～说下～联系：
<font color="#8-10-15 09:51:54
感谢上面的仁兄哈～～
<font color="#8-10-15 09:59:51
&朋友们SETUP就是安装向导，用这个就可以安装了
还有什么问题加我QQ
linxumu, 12:41:18
&大家相互学习
linxumu, 12:42:20
&为什么会出现指定位置无效？要安装再那里？
<font color="#k7, 22:48:32
&我的是Vista系统的能不能安装
jingyuehu, 19:51:51
&密码别把后面那个空格也考上去是 "codesky.net_vb23" 不是 "codesky.net_vb23 "
"codesky.net_vb23"
"codesky.net_vb23 "——多个空格
2.安装过程会提示输入ID，一直按1就OK，出现“下一步”就OK了。
mingmu, 13:30:03
&我想要问ID是什么啊？？？
<font color="#8-11-17 22:01:49
&为什么提示“找不到文件DAO350.DLL”，谁能告诉我一下
ty513ty, 10:44:36
&怎么打不开
lmh9-01-04 11:43:47
&装不了啊.老是叫我先打开安装向导.知道的讲下.QQ:谢谢!
clest, 18:35:59
&不知能不能下载
chyggw, 11:34:54
&解压好了 安装不成功 请告诉指教 Q
jxtight, 14:44:22
&在Vista 上怎么不能安装，安装时出现兼容性问题，请问如何解决，谢谢！
爱乐者, 17:53:03
&到最后一步了 不能安装 说让我先打开安装向导 不懂啊
快考试了 很急 快帮帮我吧 QQ
cfyjyy28, 18:03:16
&我想问下：添加控件MSComm(串口控件）时没找到，有哪位高手请指点下，谢谢
zhuzikun, 17:09:00
&为什么提示“找不到文件DAO350.DLL
gumuyu, 16:17:35
&上面的评论这么好！但我下载后确实有木马啊~~！
KO68, 17:18:30
&有没有安全的VB6.0下载
KO68, 17:19:10
&不错哦。是好东西。就是那个一层又一层的文件夹有点多了。呵呵。
总的来说，该顶！
楼上各位讲的也很仔细。谢谢咯！
无毒，我刚刚安装好了，也用了一下。嘿嘿。
shalahaiyo, 20:30:32
&我运行了安装向导 还是出现 请先运行安装向导 啊
lin9-05-15 16:51:35
&请问VB6.0版软件在那里下啊？
<font color="#9-05-29 15:00:31
&问一下大家，那个我按了下载地址一，二，三，都出现了找不到网页的情况，急死了
xbs21, 12:28:17
&安装序列号：111-1111111
twd2, 21:39:23
&下了，装也成功了，只是调试过程中，打开本地窗口，立即窗口之类的好像都不能使用，这个是简体版的问题，还是什么问题，没搞清楚。
pusiyu, 12:39:17
&什么啊，怎么下不了？
nishisheia, 23:39:39
&啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊
long_aijing, 09:22:58
&就是下不了。
我也是按那个1 2 3就是下不了。
后来右键下载，结果下了个htm。无语………………………………
nishisheia, 11:40:37
&哪位大哥大姐帮忙下！
我下载解压都对~就是老出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了~
详谈~~~跪求~~~！！！
a9-07-16 11:59:37
&怎么下不下来啊！
<font color="#9-08-06 21:02:29
&大哥大姐们！教我下啊！跪谢
<font color="#9-08-06 21:04:25
&点了安装会出现先打开安装向导，然后就安装失败，先打开安装向导再装也没用啊，各位大哥大姐，帮帮小弟我啊，十万火急啊！！！qq:
<font color="#9-08-07 01:19:06
&我怎么下载不了啊？
有哪位好心的哥哥姐姐帮帮忙啊！
<font color="#9-08-10 13:40:29
&谁下载好了 能不能给我发过来啊
<font color="#9-08-10 13:41:46
&我怎么不能下啊！！！！！！
q9-08-24 18:27:28
&下了的能不能我给发个，QQ，现在连接不能下了
jhjhq222, 18:43:09
&下载不了（刚学VB）..那个哥哥姐姐 能发给我下..QQ;..谢谢
<font color="#03, 20:27:19
&下不了啊，哪位哥哥MM发一下，QQ
wujiabao23, 15:36:51
&下不了啊，哪位哥哥MM发一下，QQ：
<font color="#9-11-08 13:12:22
&学习来了！
zjf-13 12:16:15
&师弟我学习来了！
madezhi, 18:43:32
&谢谢。。。。。。。。。。。
<font color="#0-04-02 23:15:47
&都告诉SN全1了还不知道我就郁闷了
susongdi, 20:44:11
&我下的怎么用不了啊,装的时候出现DA0350.dll找不到文件
cjj-02 20:20:00
& 我下VB6.0简体中文企业版的怎么用不了啊,装的时候出现DA0350.dll找不到文件.有哪位朋友知道的指点下或者发给我一个可以用的,我的邮箱是
小弟先谢谢了
cjj-02 20:23:50
&不知道好不好用。先谢了
gua0-05-21 14:41:04
&id号是什么？
lmz, 23:31:59
&我下载只用20分钟也!好快!就是不知道安装得吗?
<font color="#0-05-31 13:33:57
&我装好了，顶麻烦的，谁需要帮忙的，Q我（）。
wendy2, 01:30:07
&安装好一运行就会出现windows install，我以前装过ｖｓ２００５，可是现在都卸了啊，重装ｎ次没反应，求帮助
另外，不要让我重装系统！！！！！！
yan0-06-23 18:27:27
&初学者~！请网络虾米帮忙指点~！3Q~！QQ~！
<font color="#0-06-26 18:41:36
&什么是安装向导？哪里有？
renyucai-07 16:50:48
&序列号：111-1
Jimmy5, 13:19:44
&我是个超级菜鸟啊。请各位大哥们帮帮小弟的忙。 小弟QQ:。
a0-07-12 15:02:12
&为什么VB工程第二次保存的时候要求输入用户名和密码啊~~~用户名和密码是什么啊，我是菜鸟~~救命啊QQ，曾用名叶玉杰
yeyujie, 22:26:36
&为什么安装到最后会失败
高手指教下
*******, 01:43:43
&重新启动一下程序吧，，或许有用。我最开始安装的时候就总提示没有安装向导，到处乱点都没有用，最后我重新启动了电脑之后就安装上了。
pingpingqiu, 10:36:39
&评论的都用过vb吗
cyh1-02-16 19:55:38
&有的版本key全是0
cyh1-02-16 19:58:44
&为什么安装VB6.0时总是出现要先安装向导,程序里面哪有安装向导.我以前安装过,一安就成功.请各位老师帮忙指教. QQ:
xfzh84, 08:16:55
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
灰色空间, 13:33:01
&我是新手，想请问为什么我下载下来的是要我刻盘的程序啊？求高人指教。。。拜托了。。。跪求。。。
feir1028ccy, 16:25:42
&感谢楼主！好东西
chuxuezhe2, 14:25:05
&新手求教，哪位好心的大哥教教我咯！谢谢
ZTH, 18:53:30
&我下载后不用解压密码的啊,呵呵
zjtz-06-12 22:41:39
&大家好，大家用VB，是学习用，还是工作用？多交流下吧
wangyuweiok, 08:04:35
&感谢楼主！！提供这么好的资源。。
zhaiqf, 09:51:51
&那个高手知道IP是多少?
qq11-06-29 15:24:04
&那个高手知道ID是多少?
qq11-06-29 15:24:35
&为什么会出现
Windows文件保护
正常运行 Windows 所需的文件已被替换成无法识别的版本。要保持系统的稳定，Windows 必须还原这些文件的原有版本。
现在插入您的
Windows XP Professional Service Pack 3
怎么解决啊！
b-08-29 18:08:18
&咋个不能安装啊
windyhero, 16:31:37
& 你们说的这个软件怎么我装有问题啊 我原来装过一个vb6.0精简版删了以后我再装vb6.0企业版怎么安装不上呀。安装运行安装时候来出现向导问题。是不是软件冲突
windyhero, 16:45:23
&老是提示 安装程序不能装入系统文件或更新正在使用的共享文件，执行下一步操作前请关闭所有应用程序
windyhero, 16:48:44
&是ISO文件，非常感谢，安装成功，没病毒、没木马。
slxcyz, 20:42:55
&出现请先运行“安装向导”,点确定后就出现VB6.0企业版安装程序尚未安装成功，点确定就退出安装了，请高手赐教！！！
wjdg, 16:34:47
&希望我这次能装上去。。。。
weixiaoliDG, 19:29:11
&为什么下载不起啊/
w15-11-03 12:08:08
sssqks, 18:30:41
&&→&发表我的评论:
*字数限制500个字符（一个汉字占三个字符）
QQ技术交流群：编程乐园
(VB交流群) 3326898(Delphi交流群) (VC交流群)
版权所有 &
保留所有权力10:37 提问
哪位大神可以帮我讲解一下这个vb程序啊 ，感激不尽
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = InchesToPoints(0.8)
.BottomMargin = InchesToPoints(0.8)
.LeftMargin = InchesToPoints(0.8)
.RightMargin = InchesToPoints(0.8)
.Gutter = InchesToPoints(0)
.HeaderDistance = InchesToPoints(0.5)
.FooterDistance = InchesToPoints(0.5)
.PageWidth = InchesToPoints(8.5)
.PageHeight = InchesToPoints(11)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.GutterPos = wdGutterPosLeft
Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
Dim quote As String
Dim Keyword As String
Dim j As Integer
quote = """"
Dim found_key As Boolean
Dim startSearch As Long
Dim endSearch As Long
Open "C:\Users\shuqi\Desktop\新建文本文档.txt" For Input As #1
Set myRange = ActiveDocument.Content
Do While Not EOF(1) ' Loop until end of file.
Set myRange = ActiveDocument.Content
endSearch = myRange.End
Input #1, Keyword
With myRange.Find
.Text = Keyword
.Forward = True
.MatchWholeWord = True
.MatchCase = False
While myRange.Find.Execute
myRange.Collapse wdCollapseEnd
Set myIndexEntry = myRange.Fields.Add(myRange, Type:=wdFieldIndexEntry, _
Text:=quote & Keyword & quote)
startSearch = myRange.End
startSearch = startSearch + 7
Set myRange = ActiveDocument.Content
myRange.Start = startSearch
If startSearch = endSearch - 1 Then
GoTo skip_while
With myRange.Find
.Text = Keyword
.Forward = True
.MatchWholeWord = True
.MatchCase = False
' this code is because I had a loop here
If j = 300 Then
myRange.Bold = True
skip_while:
Close #1 ' Close file.
myRange.Start = 0
myRange.End = 0
With ActiveDocument
.Indexes.Add Range:=myRange, HeadingSeparator:= _
wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _
True, NumberOfColumns:=1, IndexLanguage:=wdEnglishUS
.Indexes(1).TabLeader = wdTabLeaderDots
按赞数排序
如果你的英语老师死得早，你也可以请教下英文词典。
开头几句给你翻译下，别的去请教你的英语老师：
With ActiveDocument.PageSetup 活动文档的页面设置
.LineNumbering.Active = False 行号的不要
.Orientation = wdOrientPortrait 纸张纵向
.TopMargin = InchesToPoints(0.8) 顶端边距
.BottomMargin = InchesToPoints(0.8) 底端边距
.LeftMargin = InchesToPoints(0.8) 左边距
.RightMargin = InchesToPoints(0.8) 右边距
.Gutter = InchesToPoints(0) 装订线
.HeaderDistance = InchesToPoints(0.5) 页眉距离
.FooterDistance = InchesToPoints(0.5) 页脚距离
.PageWidth = InchesToPoints(8.5) 纸张宽度
.PageHeight = InchesToPoints(11) 纸张高度
.FirstPageTray = wdPrinterDefaultBin 首页装纸盘
.OtherPagesTray = wdPrinterDefaultBin 其它页装纸盘（这里解释下，有时候我们封面比如说用牛皮纸，其他页用打印纸，那么这两个设置就很有用）
.SectionStart = wdSectionNewPage 选区开始
.OddAndEvenPagesHeaderFooter = False 单页和双页区分页眉页脚
呵呵，你要是经常和代码打交道的话，英语一般般，这些属性基本上一看就知道个大概。
要是想逐一弄懂都是什么意思，可以安装下面步骤：
录制一段宏（专录页面设置部分），随便设置几项内容，结束宏后查看代码然后逐一对应看是什么意思，
有不懂的属性直接在vba窗口内打开对象浏览器然后搜索相关的属性，看看是如何使用的。
Sub Macro1()
' Macro1 Macro
由 MicroDDD 录制
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
.NameFarEast = ""
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(3.17)
.BottomMargin = CentimetersToPoints(3.17)
.LeftMargin = CentimetersToPoints(2.54)
.RightMargin = CentimetersToPoints(2.54)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.5)
.FooterDistance = CentimetersToPoints(1.75)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterAutomaticSheetFeed
.OtherPagesTray = wdPrinterAutomaticSheetFeed
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
.LayoutMode = wdLayoutModeLineGrid
呵呵，我的word技巧还有不少是我的英语老师教我的。
准确详细的回答，更有利于被提问者采纳，从而获得C币。复制、灌水、广告等回答会被删除，是时候展现真正的技术了！
其他相关推荐