我创建了一个宏,该宏从SAP中提取单词文件,这是我在工作中使用的一种平台形式。因此,宏可以完美运行,但是唯一的问题是,当宏打开一个单词doc时,会显示一条消息,而我无法消除它。
消息:
简介:本文档包含可能引用其他文件的链接。
我尝试过的解决方案:
1- Application.DisplayAlerts = False
2-{{1}}等于输入密钥
3-我创建了一个宏来从临时文件中打开单词并取消所有链接
Application.SendKeys "~", True
仅当我使用Sub automateword()
Dim wordApp As Object, monNG As String, monG As String, i As Integer
Dim path As String
Dim wb As Workbook
Set wordApp = CreateObject("word.Application")
monG = Environ("username")
monNG = "XXXXXX"
For i = 1 To 200
path = "C:\Users\" & monG & "\AppData\Local\SAP\SAP GUI\tmp\" & "_" & monNG
& "0" & i & ".doc"
If Dir(path, vbDirectory) <> "" Then
MsgBox path & i
'wordapp.documents.Open "Path"
Shell "explorer.exe " & path, vbNormalFocus
Application.Wait (Now + TimeValue("0:00:3"))
Application.SendKeys "~", True
'wordapp.ActiveDocument.Content.Fields.Unlink
wordApp.Visible = False
End If
Next i
End Sub
提供的Path
打开文件时,所有此解决方案才有效,而SAP打开文件时则无效
当我使用SAP时,我仍然收到此消息,我不知道为什么,因为那3种解决方案正在工作
所以我认为我没有在正确的地方调用消除消息的功能
任何人都可以照亮我吗?