前期准备:
1.手动添加书签;
2.图片绝对地址;
3.手动设置图片大小。
未来预期优化:
1.弹窗指定书签;
2.弹窗指定图片地址;
3.弹窗设定图片大小。
function AddPictureAtBookmark(){
TravFS();
}
function TravFS(){
var myDir=String.raw`C:\Users\Administrator\Desktop\ID`;
var fDialog=Application.FileDialog(msoFileDialogFilePicker);
fDialog.Filters.Clear();
fDialog.Filters.Add("all docs","*.doc*",myDir);
fDialog.AllowMultiSelect=true;
fDialog.Show();
for(var i=1;i<=fDialog.SelectedItems.Count;i++){
var file=fDialog.SelectedItems(i);
Documents.Open(file);
AddImg();
Documents.Save(true,true);
Documents.Close(true,true,true);
}
}
function AddImg(){
var bkmkName="sig";
var rawUrl=String.raw`C:\Users\Administrator\Desktop\ID\00.jpg`;
var img=ActiveDocument.Bookmarks.Item(bkmkName).Range.InlineShapes.AddPicture(rawUrl);
img.Width=100;
img.Height=60;
}