01.
If (
$WrdDoc
->Bookmarks->Exists(
"f1"
)) {
02.
$WrdDoc
->Bookmarks->item(
"f1"
)->Select;
03.
04.
05.
if
(
file_exists
(
"D:/Project2014/job_u/BTGLOGHRSS_Man/zz.jpg"
) ) {
06.
$myPic
=
$WrdDoc
->Bookmarks->item(
"f1"
)->Range->InlineShapes->AddPicture(
"D:/Project2014/job_u/BTGLOGHRSS_Man/zz.jpg"
, False, True);
07.
$myPic
->ScaleHeight = 50;
08.
$myPic
->ScaleWidth = 50;
09.
}
10.
11.
}