Set Wordapp = CreateObject("word.Application")
Wordapp.Visible = True
Set Wdbook = Wordapp.Documents.Add
Wdbook.Range.InlineShapes.AddOLEControl ClassType:="BaoDo.XRT"
'"BaoDo.XRT"为VB编写的控件,可不知VB如何改变控件中参数
Wordapp.Visible = True
Set Wdbook = Wordapp.Documents.Add
Wdbook.Range.InlineShapes.AddOLEControl ClassType:="BaoDo.XRT"
'"BaoDo.XRT"为VB编写的控件,可不知VB如何改变控件中参数
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货