189 8069 5689
fishing.nets的意思是：
创新互联建站是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：响应式网站设计、成都品牌网站建设、全网营销推广。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。成都网站制作、网站建设、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案，我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏析悦目的作品，网站的价值服务。
渔网
net 英[net] 美[nɛt]
n. 网; 网状织物; 球网; 网罩;
vt. 用网捕; 捕获; 净赚; 踢入球门;
adj. 净的; 净得的; 最后的;
[例句]The opposing team must in turn try to keep the ball in the air before hitting it back over the net.
对方球员必须轮流击球，在球落地前将球击过网。
[其他] 第三人称单数：nets 复数：nets 现在分词：netting 过去式：netted过去分词：netted
你可以先手动生成一个空白的doc后缀的文档，这个兼容性好。
然后在vb里面打开这个模板文件，编辑以后另存为一个你自定义的文件。
打开文件方式创建word对象：
dim wrdApp
dim wrdDoc
set wrdApp = CreateObject("word.application")
wrdApp.visible = true
set wrdDoc = wrdApp.documnets.open(yourFilepath)
'以下是我编辑word的示范代码：
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
'Selection.Font.Bold = wdToggle
Selection.Font.Size = 24
Selection.TypeText Text:=kj
Selection.Font.Size = 36
Selection.TypeText Text:=a(0) vbCrLf
Selection.Font.Size = 18
Selection.TypeText Text:="——" a(1) vbCrLf vbCrLf
'Selection.MoveLeft Unit:=wdCharacter, Count:=2
'Selection.TypeText Text:=" "
'Selection.MoveRight Unit:=wdCharacter, Count:=1
'Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
Selection.ParagraphFormat.SpaceBefore = 10 '段前
Selection.ParagraphFormat.SpaceAfter = 20 '段后
Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly '固定值
Selection.ParagraphFormat.LineSpacing = 36 '18磅
Selection.ParagraphFormat.FirstLineIndent = Word.MillimetersToPoints(18) '首行缩进0.75厘米
'Selection.Font.Name = "宋体"
Selection.Font.Size = 24
Dim duan, mylen
mylen = Len(Text1.Text)
duan = Int(mylen \ 3000)
For i = 0 To duan - 1
Selection.TypeText Text:=Mid(mytext, 3000 * i + 1, 3000)
Next
Selection.TypeText Text:=Mid(mytext, 3000 * duan + 1, mylen - (3000 * duan))
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Size = 24
'Selection.Font.Bold = wdToggle
Selection.TypeText Text:=hx
'以下是我销毁对象的代码
Private Sub myQuit(myobject As Object)
If TypeName(myobject) "Nothing" Then
Set myboject = Nothing
End If
End Sub
'销毁word对象
Call myQuit(wrdDoc)
nets
n.
网;网状物;有专门用途的网;球门网
v.
净赚;净得;用网捕捉(鱼等);(巧妙地)捕获，得到
net的第三人称单数和复数
双语例句
1.Many dolphins die each year from entanglement in fishing nets.
每年都有许多海豚被捕鱼网缠绕致死。
2.The squadron's armour is draped in sand-coloured nets that melt into the landscape.
装甲连的装甲车上罩着沙色的网，和周围的风景融为一体。
3.He has a personal net worth of$ 10 million.
他有价值1千万元的个人净资产。
4.The company has announced net losses of$ 1.5 million.
公司宣告净亏损150万元。
5.This budget will have a net expansionary effect on the economy.
本预算对经济的发展最终会有促进作用。
定义一个OleDbCommand,把OleDbCommandBuilder的insertCommand给他,在语句后面加个断点就能看到
在循环体内加入DoEvents语句就OK。
但你的循环体没有设定条件，也很有问题，会一直循环不能跳出。