Sub MY()
Range("A1:I21").Copy
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Add
WordApp.Selection.Paste
WordApp.Windows(1).Visible = True
End Sub
这个可以将Excel自动生成word，但怎么样设置可以让打开的这个word是只读的，不能修改，除非我修改EXCEL
excel用vba自动生成只读的word
答案:2 悬赏:40 手机版
解决时间 2021-01-26 03:13
- 提问者网友：风月客
- 2021-01-25 22:01
最佳答案
- 五星知识达人网友：枭雄戏美人
- 2021-01-25 23:32
wordapp.ActiveDocument.ReadOnlyRecommended = True
全部回答
- 1楼网友：夜风逐马
- 2021-01-26 00:18
app.selection.paste
改成 wordapp.selection.paste
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯