如何用VB实现在已经有文字的WORD的最后插入文字

Question

如何用VB实现在已经有文字的WORD的最后插入文字

谢谢

Answer 1

Function bytetobin(m As Byte) As String '讲字节型数据转换成八位二进制字符串
Dim c$
c$ = ""
Do While m <> 0
r = m Mod 2
m = m \ 2
c$ = r & c$
Loop
c$ = Right("00000000" & c$, 8)
bytetobin = c$
End Function
'---------------------------------------------------------------------
Function reverse(m As String) As String '将八位二进制字符串颠倒顺序
Dim i%, x$
x = ""
For i = 1 To 8
x = Mid(m, i, 1) & x
Next i
reverse = x
End Function

Function Bintobyte(m As String) As Byte '将二进制串换成十进制
Dim x As String * 1, y%, z%
z = 0
For i = 1 To 8
x = Mid(m, i, 1)
y = x * 2 ^ (8 - i)
z = z + y
Next i
Bintobyte = z
End Function
'-------------------------------------
Private Sub command2_click()
Dim x As Byte, i%, fname$
fname = app.path & "\123.txt"
If Dir(fname) = "" Then
MsgBox "文件不存在!"
Exit Sub
End If
Open fname For Binary As #1 '以二进制访问模式打开待加密文件
For i = 1 To LOF(1) 'LOF函数是求文件长度的内部函数
Get #1, i, x '取出第i个字节
x = Bintobyte(reverse(bytetobin(x))) '这里调用了三个自定义函数
Put #1, i, x '将加密后的这个字节写回到文件原位置
Next i
Close
MsgBox "任务完成!"
End Sub
'-------------------------------------
Private Sub command1_click() '这个是保存Text1的内容到本身目录下.
open app.path & "\123.txt" for append as #1
print #1,text1
close #1
End Sub

Answer 2

在Word里，录一段宏，把这个操作记下来，你就有了。

Answer 3

Selection.EndKey unit:=wdStory '移到文档末尾
Selection.InsertAfter vbCrLf & "-插入的文字-" & vbCrLf
Application.ScreenUpdating = True