vb编程从入门到精通文档（VB中如何生成一个WORD文档（有图））

本文目录

• VB中如何生成一个WORD文档（有图）
• 怎样用VB编写txt文档

VB中如何生成一个WORD文档（有图）

程序采用VB编程实现，需要机器安装有VB应用程序及Microsoft Office组件。打开VB，新建一个VB工程，取名Proc_Word，将启动窗体命名为FrmMain，选择“工程”菜单中的“引用”，在“引用”对话框中选择 “Microsoft Word8.0 Object Library”（这一步很重要，你必须选择这一ActiveX部件，否则代码不能正确运行，顺便说一句，如果安装的是Office2000，那么应该选择“Microsoft Word9.0 Object Library”）。同时在“工程”菜单中“部件”对话框中选择添加“Microsoft Windows common controls -2.5(sp2)”，以便在窗体设计中可以使用微调控件。

怎样用VB编写txt文档

Private Sub Command1_Click()
Dim a As String
a = "M5|Adr 63|TO Start-Line aBFFB CT| | | |"
Dim b As String
b = "M5|Adr 64|KD1 Q1 CT| | |Z 57.48156 m |"
Dim c As String
c = "M5|Adr 65|KD1 Q1 09:44:512 CT|Rb 1.02559 m |HD 10.331 m | |"
Dim d As String
d = "M5|Adr 66|KD1 370C1 09:45:322 CT|Rf 2.20885 m |HD 10.553 m | |"
Dim e As String
e = "M5|Adr 67|KD1 370C1 09:45:372 CT|Rf 2.20879 m |HD 10.552 m | |"
Dim f As String
f = "M5|Adr 68|KD1 Q1 09:45:522 CT|Rb 1.02556 m |HD 10.332 m | |"
Dim g As String
g = "M5|Adr 69|KD1 370C1 09:45:52 CT| | |Z 56.29832 m |"
Dim h As String
h = "M5|Adr 70|KD1 370C2 09:54:242 CT|Rf 2.23580 m |HD 8.131 m | |"
Dim i As String
i = "M5|Adr 71|KD1 370C1 09:54:482 CT|Rb 2.24197 m |HD 7.825 m | |"
Dim j As String
j = "M5|Adr 72|KD1 370C1 09:54:532 CT|Rb 2.24197 m |HD 7.825 m | |"
Dim k As String
k = "M5|Adr 73|KD1 370C2 09:55:112 CT|Rf 2.23579 m |HD 8.132 m | |"
Dim l As String
l = "M5|Adr 74|KD1 370C2 09:55:11 CT| | |Z 56.30449 m |"
Dim m As String
m = "M5|Adr 75|KD1 370C2 10:09:052 CT|Rb 2.43088 m |HD 20.163 m | |"
Dim n As String
n = "M5|Adr 76|KD1 1 10:10:032 CT|Rf 2.41167 m |HD 20.399 m | |"
Dim o As String
o = "M5|Adr 77|KD1 1 10:10:092 CT|Rf 2.41171 m |HD 20.407 m | |"
Dim p As String
p = "M5|Adr 78|KD1 370C2 10:10:272 CT|Rb 2.43091 m |HD 20.165 m | |"
Dim q As String
q = "M5|Adr 79|KD1 1 10:10:27 CT| | |Z 56.32370 m |"
Dim r As String
r = "M5|Adr 80|KD1 2 10:11:362 CT|Rf 2.41174 m |HD 20.406 m | |"
Dim s As String
s = "M5|Adr 81|KD1 1 10:11:422 CT|Rb 2.41174 m |HD 20.411 m | |"
Dim t As String
t = "M5|Adr 82|KD1 1 10:11:462 CT|Rb 2.41168 m |HD 20.405 m | |"
Dim u As String
u = "M5|Adr 83|KD1 2 10:11:522 CT|Rf 2.41174 m |HD 20.405 m | |"
Dim v As String
v = "M5|Adr 84|KD1 2 10:11:52 CT| | |Z 56.32366 m |"
Dim z As String
z = "M5|Adr 85|KD1 2 10:20:302 CT|Rb 2.55333 m |HD 27.730 m | |"
Open "C:\aaa.txt" For Output As #1
Print #1, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, z
Close #1
MsgBox "OK!Fishing and Complet All Work"
End Sub