Я создал макрос That Extract word file from SAP, который представляет собой табличную форму, которую я использую в своей работе.Таким образом, макрос работает отлично, но единственная проблема в том, что когда макрос открывает слово doc, отображается сообщение, и я не могу его удалить.
Сообщение:
Traduction: Этот документ содержит ссылки, которые могут ссылаться на другие файлы.
Решение, которое я пробовал:
1- Application.DisplayAlerts = False
2- Application.SendKeys "~", True
, что соответствует вводу Ключ
3- Я создал макрос для открытия слова из временного файла и отмены связи всего
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
при условии Shell "explorer.exe " & path, vbNormalFocus
, но не когда SAP открывает его
Когда я использую SAP, я все еще получаю это сообщение Я не знаю почему, потому что эти 3 решения работают
Так что проблема, я думаю, что я не вызываю функцию устранения сообщения в нужном месте
Кто-нибудь может зажечь меня на этом ??