VB中如何将text导入word并保存，要简单代码 VB求教：想把excel里面的内容通过VB控件保存到word...
VB\u4fee\u6539text\u4e2d\u7684\u5185\u5bb9\u5e76\u4fdd\u5b58\u3002\u6c42\u6700\u7b80\u5355\u7684\u65b9\u6cd5\u3002 \u3010\u56de\u7b54\u6ee1\u610f\u7684\u8bdd\u53e6\u5916\u8ffd\u52a0100\u5206\u3011Private Sub Command1_Click()dim a() as stringOpen "d:\1.txt" For Input As #1Dim Lines As StringDim NextLine As StringDim i As Integerredim a(0)i=0Do While Not EOF(1)On Error Resume NextLine Input #1, a(i)i=i+1redim preserver a(i)LoopClose #1a(0)=1a(1)=2a(2)=3 dim str1 as string ,sfor each s in astr1=str1 & chr(10) & chr(13) & snext Open "d:\1.txt" For Output As #1Print #1, str1Close #1
\u5728EXcel\u7684VB\u7f16\u8f91\u5668\u4e2d\u63d2\u5165\u4e00\u4e2a\u6a21\u5757\uff0c\u8f93\u5165\u5982\u4e0b\u4ee3\u7801\u8bd5\u8bd5\u770b\u3002
Sub ExcelToWord()
Dim WordObject As Object '\u58f0\u660e\u4e00\u4e2a\u5bf9\u8c61\u53d8\u91cf\uff0c\u8fd9\u91cc\u5373\u5c06\u58f0\u660e\u4e3aWord\u5bf9\u8c61
On Error Resume Next
Set WordObject = CreateObject("Word.Application") '\u7528set\u6765\u521b\u5efaWord\u5bf9\u8c61\uff0c\u8fd9\u91cc\u662f\u8fd0\u884cWord\u7a0b\u5e8f\uff0c\u4f46\u672a\u65b0\u5efa\u6587\u6863
WordObject.Visible = 0 '\u540e\u53f0\u8fd0\u884cWord\u5bf9\u8c61\uff0c\u53ea\u5728\u4efb\u52a1\u7ba1\u7406\u5668\u4e2d\u5b58\u5728WinWord.exe\u8fdb\u7a0b\uff0c\u4f46\u5728\u4efb\u52a1\u680f\u4e0a\u770b\u4e0d\u5230word\uff1b\u5982\u679c\u4e3a1\u6216\u8005True\u5219\u53ef\u4ee5\u770b\u5230word\u8fd0\u884c\u754c\u9762
WordObject.Documents.Add DocumentType:=wdNewBlankDocument '\u65b0\u5efa\u4e00word\u6587\u6863
'\u4ee5\u4e0b\u4e3a\u83b7\u53d6Excel\u8868\u683c\u4e2d\u7684\u5185\u5bb9\uff0c\u51c6\u5907\u628a\u6570\u636e\u4f20\u9001\u7ed9Word,\u53ef\u4ee5\u6839\u636e\u81ea\u5df1\u7684\u5b9e\u9645\u9700\u8981\u5b9a\u5236\u4ee3\u7801\uff0c\u8fd9\u91cc\u53ea\u662f\u793a\u4f8b\u4ee3\u7801
Excel.Application.Sheets(1).Activate '\u5207\u6362\u5f53\u524d\u7535\u5b50\u8868\u683c\u7684\u88681\u4e3a\u5f53\u524d\u6fc0\u6d3b\u8868
Excel.Application.Sheets(1).UsedRange.Select '\u9009\u4e2d\u5f53\u524d\u6fc0\u6d3b\u8868\u7684\u6240\u6709\u6570\u636e
Selection.Copy '\u5c06\u9009\u4e2d\u7684\u533a\u57df\u8fdb\u884c\u590d\u5236
WordObject.Application.Activate '\u5c06\u540e\u53f0\u8fd0\u884c\u7684Word\u6fc0\u6d3b\u4e3a\u5f53\u524d\u7a97\u53e3
WordObject.ActiveWindow.Selection.Paste '\u5c06\u521a\u624d\u4eceExcel\u4e2d\u590d\u5236\u8fdb\u526a\u8d34\u677f\u4e2d\u7684\u5185\u5bb9\u7c98\u8d34\u8fdbword\u4e2d\u6765
WordObject.Saved = True '\u5c06\u4fdd\u5b58\u6587\u6863\u7684Saved\u5c5e\u6027\u8bbe\u7f6e\u4e3aTrue\uff0c\u8fd9\u6837\u540e\u53f0\u8fd0\u884c\u7684Word\u5728\u4fdd\u5b58\u6587\u6863\u65f6\u5c31\u4e0d\u4f1a\u5f39\u51fa\u662f\u5426\u4fdd\u5b58\u7684\u5bf9\u8bdd\u6846\u4e86\uff0c\u8fbe\u5230\u6084\u65e0\u58f0\u606f\u7684\u6548\u679c
WordObject.ActiveDocument.SaveAs "D:\temp\\u5bfc\u51fa\u6570\u636e.doc" '\u8c03\u7528saveas\u547d\u4ee4\u4fdd\u5b58\u6587\u6863\uff0c\u6839\u636e\u5b9e\u9645\uff0c\u6307\u5b9a\u6587\u6863\u7684\u4fdd\u5b58\u8def\u5f84\u548c\u540d\u79f0
WordObject.Application.Quit '\u9000\u51fa\u5e76\u5173\u95ed\u7a0b\u5e8f\u6587\u6863
Set WordObject = Nothing '\u91ca\u653e\u5bf9\u8c61
End Sub
Private Sub Command1_Click()
Dim App As Object
Set App = CreateObject("word.application") '创建word对象
With App.documents.Add '添加一个空白文档
.Content.InsertAfter Text1.Text '在文档后面插入text1的内容
.saveas "d:\123.doc" '保存
.Close True '关闭 文档
App.quit '退出word程序
End With
End Sub
----------------------------------------------------------------------------打开以有文档
Private Sub Command1_Click()
Dim App As Object
Set App = CreateObject("word.application") '创建word对象
With App.documents.open("d:\123.doc") '打开文档
.Content.InsertAfter Text1.Text '在文档后面插入text1的内容
.save '保存
.Close True '关闭 文档
App.quit '退出word程序
End With
End Sub
简单的做法。 。 。
<br为aaa.rtf（富文本文件）后控制参考微软丰富文本框
窗体上添加一个RichTextBox
代码
me.RichTextBox1.LoadFile“C：\ aaa.rtf
绛旓細Set regex = CreateObject("vbscript.regexp")regex.Global = True regex.Pattern = vbTab & "|" & vbCrLf & "|" & " "Text = "hello," & vbTab & "world;" & vbCrLf & "hello,wor ld"MsgBox Text, , regex.Replace(Text, "")...
绛旓細鏈濂界殑鍔炴硶灏辨槸鍏堝鍑轰负鑳藉鍏DR閲岀殑鏂囦欢锛岀劧鍚庡啀瀵煎嚭JPG鐨勶紝鍐嶆彃鍏ュ埌wor閲,杩欐牱鐨勫浘鎵嶄笉浼氬け鐪燂紒鍏蜂綋濡備笅锛1. 鍦ˋutoCAD R14涓粯鍒跺ソ鍥惧舰锛岄夊伐鍏(Tools)->绯荤粺閰嶇疆(Preferences)->鏄剧ず(Display)->棰滆壊(Color)锛屽皢鑳屾櫙鑹插彉鎴愮櫧鑹诧紙鍚﹀垯璐村叆鐨勫浘浼氬甫绾粦鑹茶儗鏅級锛屽崟鍑烩淥K鈥2. 鍥炲埌缁樺浘绐楀彛锛...
绛旓細Dim i as interger for i=0 to 500 Form1.PSet (i, Sin(i))next i 浠ヤ笅鏄竴涓師绋嬪簭鐨浠ｇ爜:鏂板缓涓涓伐绋,鍦‵orm绐椾綋涓婃坊鍔犱竴涓猵icture鎺т欢鍜屼袱涓猚ommand鎺т欢,鐒跺悗鎶婁笅闈㈢殑浠ｇ爜绮樿创杩涘叆鍗冲彲:Const Pi = 3.1415926535 '瀹氫箟鍦嗗懆鐜 Dim a, wor '瀹氫箟鐢ㄤ簬鍦≒icture1涓婄殑涓涓綅缃墦鍗板瓧绗﹀嚱鏁 Pri...
绛旓細绗竴姝,鏂板缓涓涓伐绋,鏂板缓涓涓狥orm1,鍦ㄤ笂闈㈡坊鍔犱竴涓猵icture鎺т欢鍜屼竴涓猚ommand鎺т欢,鐒跺悗閫変腑姝ゆ帶浠,鍙冲嚮"澶嶅埗",鍦ㄧ獥浣撶┖鐧藉鍙冲嚮"绮樿创",鍦ㄥ脊鍑鐨瀵硅瘽妗嗕腑閫夋嫨"鏄",鍒涘缓浜嗕竴涓狢ommand鎺т欢鏁扮粍,澶嶅埗,浣跨獥浣撲笂鎬诲叡鍑虹幇7涓狢ommand鎺т欢,鐒跺悗澶嶅埗浠ｇ爜:Const Pi = 3.1415926535 '瀹氫箟鍦嗗懆鐜 Dim a, wor Dim...
绛旓細鎺т欢閮ㄥ垎锛氫笁涓枃鏈紝涓や釜鎸夐敭锛屼竴涓猵icture锛屽叏閮ㄤ笉鏀瑰悕銆傛枃鏈1杈撳叆鏂滅巼锛屾枃鏈2杈撳叆X0,鏂囨湰3杈撳叆Y0銆傛寜閽1浣滃浘銆傛寜閽2娓呯┖鎵浣滃浘褰備繚鎸佸潗鏍囪酱銆傚鏋滃VB鐨鍧愭爣杞存湁鐤戦棶锛岃鏌ラ槄鐧惧害鎴栧叾瀹冭祫鏂欍備互涓嬫槸鍏ㄩ儴浠ｇ爜锛欳onst Pi = 3.1415926535 '瀹氫箟鍦嗗懆鐜 Dim a, wor '瀹氫箟鐢ㄤ簬鍦≒icture1涓婄殑涓涓綅缃...
绛旓細锛1锛夋柊寤轰竴涓伐绋,鏂板缓涓涓狥orm1,鍦ㄤ笂闈㈡坊鍔犱竴涓猵icture鎺т欢鍜屼竴涓猚ommand鎺т欢锛涳紙2锛夐変腑姝ゆ帶浠,鍙冲嚮"澶嶅埗",鍦ㄧ獥浣撶┖鐧藉鍙冲嚮"绮樿创",鍦ㄥ脊鍑鐨瀵硅瘽妗嗕腑閫夋嫨"鏄",鍒涘缓浜嗕竴涓狢ommand鎺т欢鏁扮粍,澶嶅埗,浣跨獥浣撲笂鎬诲叡鍑虹幇7涓狢ommand鎺т欢锛涳紙3锛夊鍒朵唬鐮:Const Pi = 3.1415926535 '瀹氫箟鍦嗗懆鐜 Dim a, wor ...
绛旓細wor = PrintWord(6, 2, "鍙屾洸绾 y=1/x ")End Sub Private Sub Command5_Click() '娓呯┖灞忓箷 XY End Sub Private Sub Form_Load()Me.Caption = "鏁板鍑芥暟浣滃浘 "Me.Show Me.AutoRedraw = True Picture1.BackColor = vbWhite Command...
