吧务
level 11
1. 有足够多的空闲时间
2. 不发广告 不发二维码及外链
3. 热情回复贴友问题
4. 有一定的VBA技术 及能力
有意向的可以私聊我 或回贴
2021年01月06日 03点01分
1
level 2
老师,可以加你的V吗,我想学习VBA,我的V:jjx55555xin
2021年11月25日 07点11分
4
level 1
Sub AddTextToWordDoc()
' 打开 Word 应用程序
Dim wordApp As New Word.Application
' 打开 Word 文档
Dim wordDoc As Word.Document
Set wordDoc = wordApp.Documents.Open("C:\gg.docx")
MsgBox ""
Exit Sub
' 向文档添加文本
wordDoc.Content.Text = "Hello, world!"
' 保存文档
wordDoc.Save
' 关闭文档和 Word 应用程序
wordDoc.Close
wordApp.Quit
End Sub
"C:\gg.docx" 文件存在 word类引用有勾选 ActiveX 部件不能创建对象 大佬们帮忙看看什么问题
2023年12月17日 07点12分
8
level 4
在工具栏中选择 工具 -> 引用,然后勾选 Microsoft Word 16.0 Object Library(版本可能有所不同,根据你安装的Word版本选择)。
还有你中途加一句exit sub是什么鬼?
2024年07月19日 10点07分
10