Hello All
Currently I have vba code:
This code should check if combobox is not empty, if true, then it should search for value in first and sixth column in wudoc.
In sixth column there is a path to the jpg file, which should be pasted to the word document on which whole my code is working.
Path to the jpg pic is like: Y:\Sample\faksymile\picture.jpg
All pictures are stored on share drive.
Can you assist me with this issue?
Currently I have vba code:
VBA Code:
'Some code above
If OfertomatMain.cmbUnderwriter1.Value <> "" Then
For b = 2 To 20 Step 1
If OfertomatMain.cmbUnderwriter1.Value = wudoc.Cells(b, 1).Value Then
Let underwriterstanowisko1 = wudoc.Cells(b, 2).Text
Let underwriterfaksymila1 = wudoc.Cells(b, 6).Text
End If
Next
Let i = wddoc.Paragraphs.Count
With wddoc.Paragraphs(i)
' Insert the picture into the specified paragraph
.Range.InlineShapes.AddPicture fileName:=underwriterfaksymila1, LinkToFile:=False, SaveWithDocument:=True
.Range.InsertAfter vbCr & vbCr
End With
Let i = wddoc.Paragraphs.Count
With wddoc.Paragraphs(i)
.Range.InsertAfter OfertomatMain.cmbUnderwriter1.Text & vbCr & underwriterstanowisko1 & vbCr & vbCr
End With
End If
This code should check if combobox is not empty, if true, then it should search for value in first and sixth column in wudoc.
In sixth column there is a path to the jpg file, which should be pasted to the word document on which whole my code is working.
Path to the jpg pic is like: Y:\Sample\faksymile\picture.jpg
All pictures are stored on share drive.
Can you assist me with this issue?