Question

vb 求代码 文字输入 WORD

比如有个字串变量
A1=“abcdefg”
按Command1 后自动打开WORD程式，然后这串文字出现在WORD内光标之前。

Answer 1

'
'入口参数；Insert_String 是要插入的字符
'功能；在Word文档中插入字符 这个功能：如果文档被关闭后则会出错，否则可连续的插入字符
Public Function InsertString(ByVal Insert_String As String) As Boolean
On Error GoTo ONERROR
objApplication.Selection.TypeText Text:=Insert_String
objApplication.Visible = True '使程序可见
InsertString = True

Exit Function
ONERROR:
If Err.Number <> 0 Then
Select Case Err.Number
Case Else
MsgBox "错误代码：" & Err.Number & " 错误描述：" & Err.Description
InsertString = False
End Select
End If
End Function
插入前需要建立word文档对象.

追问

我要的不是在Word文档中输入，要的是Word编辑器中输入。这样的代码有吗，谢谢了先。
另外我要完整的，我是来鸟！

Answer 2

用shell试试

Answer 3

'首先要引用 MS word 9.0 OBJ...
Private Sub Command2_Click()
Dim appWord As New Word.Application
Dim wrdDoc As New Word.Document
Set appWord = New Word.Application
Set wrdDoc = appWord.Documents.Open("C:\TEMP\1.doc")
wrdDoc.Content.Text = "1234567"
wrdDoc.Content.Select
appWord.Visible = True

End Sub