Hallo nochmal,
ich habe nun noch mit Selection.Find verschiedenes probiert: Einige Bilder kommen auh an die richtige Stelle, einige aber auch an falscher, am Doc-Anfang, rein.
Hier der Bild-Rein Code
Sub BildRein(ByVal PicName As String, ByVal PicNameErs As String)
Dim vTreffer As Boolean
vTreffer = False
Selection.Find.ClearFormatting
With Selection.Find
.Text = PicName
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
If .found = True Then
vTreffer = True
End If
End With
MsgBox (vTreffer & vbCrLf & PicName)
Selection.Find.Execute
Selection.MoveRight Unit:=wdCharacter, Count:=1
If vTreffer = True Then
MsgBox (vTreffer & vbCrLf & PicName)
Selection.InlineShapes.AddPicture FileName:=PicNameErs, LinkToFile:=False, SaveWithDocument:=True
End If
End Sub
Aufruf ist mit:
For i = LBound(vPfad) To UBound(vPfad) - 1
Selection.HomeKey Unit:=wdStory
Call BildRein("XXX" & vName(i) & "XXX", vPfad(i))
Next
Die XXX vorn und hinten sollen der "sicheren" Identifikation dienen. Im Text steht dann etwa: XXXSign_00-ZeichnungXXX
Schauts bitte nochmal jemand drauf
Besen Dank
F
|