如何用VB调用 word，并且在word里面增加两个图文框？

Question

如题所述，我对VBA不熟，请大家多多指点!谢谢!

Answer 1

在word里面录制宏,然后看看他的代码,将代码放到vb中

Answer 2

添加竖排：
ActiveDocument.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 162# _
        , 79.8, 144#, 46.8).Select
添加横排：
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 171#, _
        150#, 144#, 46.8).Select

Answer 3

用vb创建Word：
'引用Micorsoft Word 9.0 Object Library
Private Sub Command1_Click()
'   On Error GoTo connecterr
    Dim wordApp As Object
    Set wordApp = CreateObject("word.application")
    wordApp.Visible = True
    Dim myDoc As Object
    Set myDoc = wordApp.Documents.Add
    wordApp.selection.TypeText (" Hello")
    ......
    myDoc.Close
    wordApp.Close
    wordApp.Quit
    Set myDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
connecterr:
End Sub

Answer 4

如果不想创建新的文档，而是打开已有的文档：
'Set myDoc = wordApp.Documents.Add '这句取消
Set myDoc = wordApp.Documents.Open(App.Path & "\Test.doc")'打开已有文档

Answer 5

谢谢上面的各位，但是我现在要增加的是图文框，并不是增加一些文字或者Textbox

Answer 6

图文框？我不知道你要增加的是什么。
其实你可以自己录制宏就可以得到自己想要的代码：
'打开Word，在菜单的"工具"->"宏"->"录制新宏"，然后开始对Word操作，操作完了停止录制宏，在"宏"->"Visual Basic编辑器"->"模块"里的模块就有你录制的过程的代码，把需要的代码稍微修改就可以直接应用到vb里

Answer 7

faysky2()那样子可以操作word了，增加text是
ActiveDocument.ToggleFormsDesign
Selection.InlineShapes.AddOLEControl ClassType:="Forms.TextBox.1"