如何用VB控制word画出任意长宽的矩形?小弟跪求

Question

请各位高手告诉我,如何能用VB控制word,在word中画出任意长宽的矩形

Answer 1

我这有个在WORD中画矩形的小程序,你自己改改能用
Sub NewShape()
    Dim docNew As Document    'Create a new document and adds a shape
    Set docNew = Documents.Add
    docNew.Shapes.AddShape Type:=msoShapeRectangle, _
        Left:=50, Top:=50, Width:=100, Height:=200    'Format the shape
'    docNew.Shapes(1).Fill.ForeColor _
'        .RGB = RGB(Red:=200, Green:=15, Blue:=95)
End Sub

Answer 2

自己去word里面录一个宏试一下，只要word能干的，vb都可以控制

Answer 3

Private Sub Command3_Click()
    Set wrdApp = New Word.Application
    With wrdApp
    
        .Documents.Add
    
        .ActiveDocument.Shapes.AddShape msoShapeRectangle, 100, 100, 200, 300        .Documents.Save
    End WithEnd Sub

Answer 4

AddShape 方法
                本方法创建一个自选图形并返回一个 Shape 对象，该对象代表新增的自选图形。语法expression.AddShape(Type, Left, Top, Width, Height, Anchor)expression  必需。该表达式返回一个 Shapes 集合。Type  Long 类型，必需。指定要创建的自选图形的类型。其值可取任意的 MsoAutoShapeType 常量。Left, Top  Single 类型，必需。自选图形边框左上角与锁定标记的相对位置（以磅为单位）。Width, Height  Single 类型，必需。自选图形边框的宽度和高度，以磅为单位。Anchor  Variant 类型，可选。Range 对象，代表该自选图形所连接的文本。如果指定了 Anchor，则锁定标记将出现在锁定区域第一段的开头。如果忽略此参数，则 Word 将自动选定锁定区域，而自选图形将参照页面的上边界和左边界定位。说明要改变所添加的自选图形的类型，可为其设置 AutoShapeType 属性。

Answer 5

建议你到WORD中录制宏看看~~~~~`