vba打开word后每页插入文本框

Posted 2023-05-09

Dim wd As Word.Application
Dim dc As Word.Document
Set wd = New Word.Application
Set dc = wd.Documents.Open(ThisWorkbook.Path & "\模板\05-xx.doc")
wd.Visible = True
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 60, 60).Select

现在只有第一页能插入..
然后在里面打入数字或者文字!

ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 20, 20).Select '------2
ActiveDocument.Shapes.TextFrame.TextRange = ym + 1
当前页插入文本框
第一行是位置
第二行是内容 参考技术A 给你点建议 循环 Application.Browser.Next

如何让VBA自动响应word或excel打开文件时自动出现的消息框

我在编写一个word vba程序,处理大量word文件,有些word文件损坏,或有SQL连接询问是否更新,或是询问是否进行编码转换,或是文件本身是高版本的询问是否下载兼容包等问题,这样的文件是少数，但遇到时程序就只能中断运。编写程序时，希望直接跳过这样的“异类”文件（我可以将这样的文件标注出来，手动逐个处理），如何用VBA响应这样的消息框（自动向其发送 esc键或相当于点击“是”的命令），恳请高手指教。
是指用vba打开word文件是出现的提示框（消息框），我使用的语句是Documents.Open(FileName, ReadOnly:=True)，打开一个word文档，当该word文档有问题时（word文件损坏,或有SQL连接询问是否更新,或是询问是否进行编码转换,或是文件本身是高版本的询问是否下载兼容包等）会出现一个消息框，告诉你该文件被损坏（你需要点击确认），有的消息框询问是否更新数据、是否对该文件进行编码转换等（你需要点击是、否、取消）。对于处理单个文件无所谓，但是对于处理上千个文件，偶尔遇到，需要你回应该消息框，vba程序被中断，很烦人的。

另外用vb写一个监控程序，监控word,当word vba中断时 , 用 sendkeys 发送 esc。 word 中断时cpu占用率下降，vb是可以捕获的。或者关闭vba的错误提示也行的。 参考技术A 平时多注意清理电脑垃圾。
不要图方便顺手就把文件保存到桌面上。
下载的...手动打开恢复文件
在经过严重故障或类似问题后重新启动Word时，程序自动任何... 参考技术B 不是很明白