怎样把一个模块中的代码写入另一个模块中

偶然古月照江北 · 发表于 2021-10-5 22:44

Sub 代码写入另一模块()
Set dm1 = ThisDocument.VBProject.VBComponents("加载").CodeModule
Set dm2 = ThisDocument.VBProject.VBComponents("备用").CodeModule
ILine1 = dm1.CountOfLines
ILine2 = dm2.CountOfLines
dm1.DeleteLines 1, ILine1
strCode = dm2.Lines(1, ILine2)
dm1.AddFromString strCode
End Sub
——这是模块“备用”中的代码。我想把“备用”中的代码写入到Normal中的“加载”模块“中。但，这段代码只能写到文档中的”加载“中，不知怎么改呀，请教各位高手了，拜谢！！！
相关的问题是：怎样用VBA语句在Normal中也就是公用模块中新建一个模块？

偶然古月照江北 · 发表于 2021-10-6 14:53

高手都还在过节啊

413191246se · 发表于 2021-10-7 22:55

楼主，请点击“备用”模块后，再点击上面最左面的“查看代码”按钮，点击“编辑”菜单——全选——再点击 Normal 模块的”加载“模块，再点击上面最左面的”查看代码“按钮，这时光标可能是位于代码最下面，直接按"粘贴”按钮即可。

偶然古月照江北 · 发表于 2021-10-12 09:03

413191246se 发表于 2021-10-7 22:55
楼主，请点击“备用”模块后，再点击上面最左面的“查看代码”按钮，点击“编辑”菜单——全选——再点击 N ...

我是想用VBA复制粘贴啊

daibao88 · 发表于 2021-10-12 16:59

怎样用VBA语句在Normal中也就是公用模块中新建一个模块？
NormalTemplate.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "新加"

偶然古月照江北 · 发表于 2021-10-15 16:49

daibao88 发表于 2021-10-12 16:59
怎样用VBA语句在Normal中也就是公用模块中新建一个模块？
NormalTemplate.VBProject.VBComponents.Add(vbe ...

添加失败！

		自动登录	找回密码
密码			免费注册

[求助] 怎样把一个模块中的代码写入另一个模块中