救命:用VBA如何获取一个自选图形是浮于文字上方还是衬于文字下方呢?

真心无著 2007-04-26 11:17:28

操作步骤:
1. 新建一Word文档my.doc.
2. 输入一段文字,
3. 加入一自选图形,并拖至2中输入的文字上方.
4. 设置自选图形的版式为"浮于文字上方"或"衬于文字下方".
5. 保存my.doc.

问题: 用VBA如何获取一个这个自选图形是浮于文字上方还是衬于文字下方呢?

...全文

1315 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cbice2004 2007-07-24

打赏
举报

修改了下，重新发：
var doc = new ActiveXObject('Word.Application');
var range = doc.Range; //选择的区域
var sel = doc.Selection; //选择点
var seal_picture = doc.InlineShape; //嵌入型图片
var str ; //印章图片的路径和文件名
var seal_shape =doc.Shape; //粘贴版型图片

var docurl=
doc.Visible = true;
doc.Documents.Open (docurl);
doc.Application.Activate();
//获得书签位置
range = doc.ActiveDocument.Bookmarks("seal1").Range;
sel = range;

str = "D:\\印章\\Sign_12.gif";
//插入图片
seal_picture = sel.InlineShapes.AddPicture(str);
//设置可用名
seal_picture.AlternativeText = "印章";
seal_picture.Select(); //当前图片为焦点
seal_shape = seal_picture.ConvertToShape(); //类型转换
seal_shape.WrapFormat.Type = 3; //图片类型
seal_shape.ZOrder(5); //5 图片沉于文字　４　图片浮于文字
doc.ActiveDocument.SaveAs(docurl);
doc=null;

cbice2004 2007-07-24

打赏
举报

例子：
var doc = new ActiveXObject('Word.Application');
// mdll.UTCLicServer = "10.195.0.73"; //这里记录是的授权服务器所在的机器名或者ip
var range = doc.Range; //选择的区域
var sel = doc.Selection; //选择点
var seal_picture = doc.InlineShape; //嵌入型图片
var str ; //印章图片的路径和文件名
var seal_shape =doc.Shape; //粘贴版型图片

var docurl='http://'+document.forms[0].Server_Name.value+':'+document.forms[0].Server_Port.value+'/nnpsoa/sxpzfwgl.nsf/V_SendFile_NeedChecking/'+document.forms[0].DocId.value+'/$File/'+document.forms[0].StraightmatAttachmenQGComplete.value;
doc.Visible = true;
doc.Documents.Open (docurl);
doc.Application.Activate();
//获得书签位置
range = doc.ActiveDocument.Bookmarks("seal1").Range;
sel = range;
// 597883b6165dd3bb48256ca60012d3d1
str='http://'+document.forms[0].Server_Name.value+':'+document.forms[0].Server_Port.value+'/nnpsoa/Config.nsf/597883b6165dd3bb48256ca60012d3d1/'+document.forms[0].SignID.value+'/$File/'+document.forms[0].SignFileName.value;
alert(str);
// str = "D:\\印章\\Sign_12.gif";
//插入图片
seal_picture = sel.InlineShapes.AddPicture(str);
//设置可用名
seal_picture.AlternativeText = "印章";
seal_picture.Select(); //当前图片为焦点
seal_shape = seal_picture.ConvertToShape(); //类型转换
seal_shape.WrapFormat.Type = 3; //图片类型
seal_shape.ZOrder(5); //5 图片沉于文字　４　图片浮于文字
doc.ActiveDocument.SaveAs(docurl);
doc=null;

NoBlank 2007-05-29