将word中执行的VBA代码转成excel中执行的VBA代码

yuhan4488

各位老师，以下附件中的word代码可以执行在当前文件夹的word文件中，根据指定文本位置插入图片（电子签名）。
因对word 的VBA不甚熟悉，请老师帮忙将word中执行的VBA代码转成在excel中执行的VBA代码。

3190496160

应该是先有一个excel表格，根据表格生成word文档，同时，根据班主任姓名插入相应的班主任签名吧？？？？

yuhan4488

3190496160 发表于 2022-12-5 14:46
应该是先有一个excel表格，根据表格生成word文档，同时，根据班主任姓名插入相应的班主任签名吧？？？？

老师，您好。我是一只菜鸟，在网上找了相关代码做了一个word执行VBA的插入签名图片的命令，目前只能执行插入一个签名图片，您说的根据不同的班主任姓名插入不同的班主任签名，我目前还不会。
因为对word的VBA代码不熟悉，目前的要求是想将word中执行的代码转成excel中执行，以便后续能扩大对word的处理，比如对指定word文件的处理

yuhan4488

贴一下在word中执行 的VBA代码，请各位老师看一下，如何将这个word的VBA代码转成在excel中执行的代码？
---------------------------------------------
Sub word插入图片电子签名()
Application.Visible = False
Dim fpath As String, fname As String, doc As Document, sc  As Range
fpath = ActiveDocument.Path & "\"
fname = Dir(fpath & "\" & "*.doc*")
Do While fname <> " "
Set doc = Documents.Open(fpath & "\" & fname)
With doc

With Selection.Find
.Text = " 班主任签名："
.Wrap = wdFindContinue
End With
Do While Selection.Find.Execute
Selection.Paste
           Set mypic = Selection.InlineShapes.AddPicture(FileName:=ActiveDocument.Path & "\周海滨.jpg", SaveWithDocument:=True)
           mypic.Width = CentimetersToPoints(2.5)
           mypic.Height = CentimetersToPoints(1.2)
Loop

.Save
.Close
    End With
fname = Dir
Loop
Application.Visible = True
End Sub

约定的童话

yuhan4488 发表于 2022-12-5 14:59
老师，您好。我是一只菜鸟，在网上找了相关代码做了一个word执行VBA的插入签名图片的命令，目前只能执行 ...

菜鸟的话就别在网上乱找代码拼凑了，找个老师傅分分钟搞定吧