Question

我想用VB编写一个编辑Word域代码的程序，需要向word里输入文字。请问问如何实现用程序向word里面输入文...

我想用VB编写一个编辑Word域代码的程序，需要向word里输入文字。请问问如何实现用程序向word里面输入文字？如何调整输入文字的格式？

Answer 1

Private Sub Command1_Click()
Dim ss As String
Dim WordApp As Object
ss = "用VB创建的word文本" '新建WORD文件名
Set WordApp = CreateObject("Word.Application")
WordApp.Application.Visible = 1 '控制word可见或不可见
Set myDoc = WordApp.Documents.Add()
With myDoc
.Content.Font.Name = "Arial"
.SaveAs FileName:="D:\" & ss & ".doc"
.Content.InsertAfter Text:="冷却塔报告" '插入文字，请使用这种格式
.Shapes.AddPicture FileName:="D:\a.jpg" '插入图片，请使用这种格式，路径自己写
.Save
End With
End Sub

Answer 2

没必要搞那么复杂吧。把插入光标定位到域代码上，按Shift+F9就可以展开或收拢域域代码。展开域代码后，你就可以编辑域代码了。