Has set around the way to insert a good pictures around the "type",
MsgBox ActiveDocument. Shapes (1). AlternativeText "no show"

If ActiveDocument. Shapes (1). AlternativeText="D: \ wordkaoshi \ winter Olympics rings. BMP" Then
Score=score + 1
End the If

Want to be a code Word automatic grading

CodePudding user response:

Sub GetSourceFromLinkedShape ()
Dim SHP As Word. Shape
Dim sSource As String

For Each In SHP ActiveDocument. Shapes
If SHP. Type=msoLinkedPicture Then
SSource=SHP. LinkFormat. SourceFullName
End the If
Next
End Sub

CodePudding user response:

Thank you very much! I went back to try!

CodePudding user response:

Nashma. Blog. Jp: still won't do!

CodePudding user response:

reference weixin_45820559 reply: 3/f

nashma. Blog. Jp: still won't do!

what mistakes?