****高分求助VBA转换VC代码****

Question

Sub test()
    Dim Startpage As Long
    Dim mPage As String
    Dim myRange As Range
    Dim MyShape As Object    mPage = InputBox(prompt:="请在此输入页码!", Title:="Word页选定")
    If mPage = "" Then Exit Sub
    If mPage < 1 Then Exit Sub
    If mPage > ActiveDocument.BuiltInDocumentProperties("Number of Pages") Then
        MsgBox "超出页数范围", vbCritical
        Exit Sub
    End If
    With ActiveDocument
        Startpage = .GoTo(wdGoToPage, wdGoToNext, , mPage).Start
        Set myRange = .Range(.GoTo(wdGoToPage, wdGoToNext, , mPage).Start).Words(1)
        myRange.Select
        Set MyShape = .Shapes.AddPicture(ThisDocument.Path & "\1.jpg", , , 0, 0, , , myRange)
    End With
End Sub哪位朋友能帮我把这段代码转换成VC代码？？？非常感谢，找了很多资料都没搞定。。

Answer 1

这个我刚好会，不过这东西太麻烦了
需要创建一个word对象然后进行相应的操作

Answer 2

顶上在AddPicture中最后一个参数，在VC中怎样把一个Range带进去？？？？

Answer 3

CSDN无高人。。还是我问的问题太愚蠢？