|
我想用excel的VBA,控制打开指定word文件,并插入图片。
代码中出现一些问题,不知道如何解决。请教各位老师指正。
以下是图片和代码。
代码运行动作:1、在excelvba中打开指定文件名的word,2、然后逐一搜索“相关记录:”这个词,找到后,3、下移一行,4、再移动到该行的左边定格位置,5、然后随机插入图片。
代码如下:
Private Sub CommandButton1_Click()
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
Set appWD = GetObject(, "Word.Application")
Set doc = GetObject(ThisWorkbook.Path & "\" & "word" & ".docx")
appWD.Visible = True
appWD.Selection.HomeKey Unit:=wdStory '光标置于文件首
Str1 = "相关记录"
A1: For i = 1 To 6 '填写文字数据
If appWD.Selection.Find.Execute(Str1) Then '查找到指定字符串
appWD.Selection.MoveDown Unit:=wdLine, Count:=1
appWD.Selection.MoveLeft Unit:=wdCharacter, Count:=1
A2: appWD.Selection.InlineShapes.AddPicture Filename:=ThisWorkbook.Path & "\图库A\" & Str2, LinkToFile:=False, SaveWithDocument:=True
A2: appWD.Selection.InlineShapes.AddPicture Filename:=ThisWorkbook.Path & "\图库B\" & Str2, LinkToFile:=False, SaveWithDocument:=True
End If
Next
End Sub
问题1:A1位置,循环数量不知道怎么确定
问题2:A2位置,我想在For中,随机插入图库A和图库B中的各一张图片,而且在循环内,2个图库的自己文件夹内,不出现重复。
请教各位老师。(解释下,有特殊的和其他代码组合需要,所以需要通过Excel的VBA来执行)
随机插图.rar
(283.52 KB, 下载次数: 22)
|
|