Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument bei neuer Word Version

  • Word

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument bei neuer Word Version

    Hi,

    ein Bekannter hat mich um seine Hilfe gebeten.
    Er hat ein VBA Script welches Ihm bei seinen Word Dokumenten hilft.
    Nachdem er auf die aktuelle Word Version upgedatet hat bekommt er folgende Fehlermeldung:

    Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument

    Da ich mich in VBA nicht auskenne würde ich mich um eine Unterstützung freuen.

    Hier das Script:

    Quellcode

    1. Private Sub Command1_Click()
    2. StartScreen.Show
    3. Unload WADatenbank
    4. End Sub
    6. Private Sub Command2_Click()
    7. Open BasisVerz & "\WA\" & File1.FileName For Input As #1
    8. Open BasisVerz & "\WA\temp.tmp" For Output As #2
    9. Input #1, tmp1
    10. Write #2, Text1.Text
    11. Do While Not EOF(1)
    12. Input #1, temp2
    13. Write #2, temp2
    14. Loop
    15. Close #1
    16. Close #2
    17. Kill (BasisVerz & "\WA\" & File1.FileName)
    18. AlterName = BasisVerz & "\WA\temp.tmp": Neuername = BasisVerz & "\WA\" & File1.FileName
    19. Name AlterName As Neuername
    20. End Sub
    22. Private Sub Command3_Click()
    24. If List1.ListIndex <> -1 Then
    25. 'Set objWordComment = New Word.Application
    26. ''Set objWord = New Word.Document
    27. ' With objWordComment
    28. ' .Visible = False
    29. ' '.WindowState = 1 'wdWindowStateNormal
    30. ' '.Top = 0
    31. ' '.Left = 0
    32. ' '.Width = .PixelsToPoints(640)
    33. ' '.Height = .PixelsToPoints(480)
    34. ' '.StatusBar = "Word " & .Version & " (Build: " & .Build & ")"
    35. ' tems = Split(List1.List(List1.ListIndex), "-")
    36. ' tems2 = tems(2)
    37. ' tempver = Left(tems2, Len(tems2) - 4)
    38. ' .Documents.Open FileName:=BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex)
    39. ' ActiveDocument.BuiltInDocumentProperties(wdPropertyComments).Value = Text3.Text
    40. ' .Documents.Close
    41. ' .Application.Quit
    42. 'End With
    43. ''AppActivate objWord
    44. 'Set objWordComment = Nothing
    45. On Error Resume Next
    46. tems = Split(List1.List(List1.ListIndex), "-")
    47. tems2 = tems(2)
    48. tempver = Left(tems2, Len(tems2) - 4)
    49. Open BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex) & ".info" For Output As #2
    50. Write #2, Text3.Text
    51. Close #2
    52. End If
    53. End Sub
    55. Private Sub Command4_Click()
    56. If List1.ListIndex <> -1 Then
    57. erg = MsgBox("Wollen Sie die Datei " & List1.List(List1.ListIndex) & " wirklich löschen?", vbYesNo, "Sicherheitsabfrage")
    58. If erg = vbYes Then
    59. tems = Split(List1.List(List1.ListIndex), "-")
    60. tems2 = tems(2)
    61. tempver = Left(tems2, Len(tems2) - 4)
    63. Kill (BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex))
    64. Kill (BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex) & ".info")
    66. List1.RemoveItem (List1.ListIndex)
    67. Open BasisVerz & "\WA\" & File1.FileName For Input As #1
    68. Open BasisVerz & "\WA\temp.tmp" For Output As #2
    69. Input #1, tmp1
    70. Write #2, tmp1
    71. Do While List1.ListCount > 0
    72. List1.ListIndex = 0
    73. Write #2, List1.List(List1.ListIndex)
    74. List1.RemoveItem (List1.ListIndex)
    75. Loop
    76. Close #1
    77. Close #2
    78. Kill (BasisVerz & "\WA\" & File1.FileName)
    79. AlterName = BasisVerz & "\WA\temp.tmp": Neuername = BasisVerz & "\WA\" & File1.FileName
    80. Name AlterName As Neuername
    81. AktWA = File1.FileName
    82. If File1.FileName <> "" Then
    83. Text2.Text = Mid(File1.FileName, 3)
    84. On Error Resume Next
    85. Open BasisVerz & "\WA\" & File1.FileName For Input As #1
    86. Input #1, temp1
    87. Do While Not EOF(1)
    88. Input #1, temp2
    89. List1.AddItem temp2
    90. Loop
    91. Close #1
    92. Text1.Text = temp1
    93. End If
    94. End If
    95. End If
    96. End Sub
    98. Private Sub File1_Click()
    99. Text3.Text = ""
    100. List1.Clear
    101. List2.Clear
    102. AktWA = File1.FileName
    103. If File1.FileName <> "" Then
    104. Text2.Text = Mid(File1.FileName, 3)
    105. On Error Resume Next
    106. Open BasisVerz & "\WA\" & File1.FileName For Input As #1
    107. Input #1, temp1
    108. Do While Not EOF(1)
    109. Input #1, temp2
    110. List2.AddItem temp2
    111. Loop
    112. Close #1
    113. Text1.Text = temp1
    114. For za = 0 To List2.ListCount - 1
    115. If Mid(List2.List(za), 18, 2) = "An" Then
    116. List1.AddItem (List2.List(za))
    117. List2.RemoveItem (za)
    118. za = za - 1
    119. End If
    120. Next za
    121. For za = 0 To List2.ListCount - 1
    122. If Mid(List2.List(za), 18, 2) = "Ar" Then
    123. List1.AddItem (List2.List(za))
    124. List2.RemoveItem (za)
    125. za = za - 1
    126. End If
    127. Next za
    128. For za = 0 To List2.ListCount - 1
    129. If Mid(List2.List(za), 18, 2) = "Au" Then
    130. List1.AddItem (List2.List(za))
    131. List2.RemoveItem (za)
    132. za = za - 1
    133. End If
    134. Next za
    135. For za = 0 To List2.ListCount - 1
    136. If Mid(List2.List(za), 18, 2) = "Be" Then
    137. List1.AddItem (List2.List(za))
    138. List2.RemoveItem (za)
    139. za = za - 1
    140. End If
    141. Next za
    142. For za = 0 To List2.ListCount - 1
    143. If Mid(List2.List(za), 18, 2) = "Br" Then
    144. List1.AddItem (List2.List(za))
    145. List2.RemoveItem (za)
    146. za = za - 1
    147. End If
    148. Next za
    149. For za = 0 To List2.ListCount - 1
    150. If Mid(List2.List(za), 18, 2) = "Fa" Then
    151. List1.AddItem (List2.List(za))
    152. List2.RemoveItem (za)
    153. za = za - 1
    154. End If
    155. Next za
    156. For za = 0 To List2.ListCount - 1
    157. If Mid(List2.List(za), 18, 2) = "Li" Then
    158. List1.AddItem (List2.List(za))
    159. List2.RemoveItem (za)
    160. za = za - 1
    161. End If
    162. Next za
    163. For za = 0 To List2.ListCount - 1
    164. If Mid(List2.List(za), 18, 2) = "Re" Then
    165. List1.AddItem (List2.List(za))
    166. List2.RemoveItem (za)
    167. za = za - 1
    168. End If
    169. Next za
    170. If List1.ListCount > 0 Then List1.ListIndex = List1.ListCount - 1
    171. End If
    172. End Sub
    174. Private Sub Form_Load()
    175. Me.Left = MDIForm1.Width / 2 - Me.Width / 2 '- MDIForm1.Left
    176. Me.Top = MDIForm1.Height / 2 - Me.Height / 2 '- MDIForm1.Top
    177. If RunsLokal = True Then
    178. Command2.Enabled = False
    179. Command4.Enabled = False
    180. Frame5.Enabled = False
    181. End If
    182. File1.Path = BasisVerz & "\WA"
    183. End Sub
    185. Private Sub List1_Click()
    186. Text3.Text = ""
    187. 'If List1.ListIndex <> -1 Then
    188. 'Set objWordComment = New Word.Application
    189. ''Set objWord = New Word.Document
    190. ' With objWordComment
    191. ' .Visible = False
    192. ' '.WindowState = 1 'wdWindowStateNormal
    193. ' '.Top = 0
    194. ' '.Left = 0
    195. ' '.Width = .PixelsToPoints(640)
    196. ' '.Height = .PixelsToPoints(480)
    197. ' '.StatusBar = "Word " & .Version & " (Build: " & .Build & ")"
    198. ' tems = Split(List1.List(List1.ListIndex), "-")
    199. ' tems2 = tems(2)
    200. ' tempver = Left(tems2, Len(tems2) - 4)
    201. ' .Documents.Open FileName:=BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex)
    202. ' Text3.Text = .ActiveDocument.BuiltInDocumentProperties(wdPropertyComments).Value
    203. ' .Documents.Close
    204. ' .Application.Quit
    205. 'End With
    206. ''AppActivate objWord
    207. 'Set objWordComment = Nothing
    208. 'End If
    210. If List1.ListIndex <> -1 Then
    211. On Error GoTo nofile
    212. tems = Split(List1.List(List1.ListIndex), "-")
    213. tems2 = tems(2)
    214. tempver = Left(tems2, Len(tems2) - 4)
    215. Open BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex) & ".info" For Input As #2
    216. Input #2, datinfo
    217. Close #2
    218. Text3.Text = datinfo
    219. End If
    220. Exit Sub
    221. nofile:
    222. Text3.Text = ""
    223. End Sub
    225. Private Sub List1_DblClick()
    226. If List1.ListIndex <> -1 Then
    227. Set objWord = New Word.Application
    228. 'Set objWord = New Word.Document
    229. With objWord
    230. .Visible = True
    231. .WindowState = 1 'wdWindowStateNormal
    232. '.Top = 0
    233. '.Left = 0
    234. '.Width = .PixelsToPoints(640)
    235. '.Height = .PixelsToPoints(480)
    236. .StatusBar = "Word " & .Version & " (Build: " & .Build & ")"
    237. tems = Split(List1.List(List1.ListIndex), "-")
    238. tems2 = tems(2)
    239. tempver = Left(tems2, Len(tems2) - 4)
    240. .Documents.Open FileName:=BasisVerz & "\" & tempver & "\" & List1.List(List1.ListIndex)
    241. ' MsgBox .ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor).Value
    242. End With
    243. AppActivate objWord
    244. Set objWord = Nothing
    245. End If
    248. End Sub
    250. Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
    251. For za = 0 To File1.ListCount
    252. If File1.List(za) = "WA" & Format(Val(Text2.Text), "0000") Then
    253. File1.ListIndex = za
    254. Exit For
    255. Else
    256. File1.ListIndex = -1
    257. End If
    258. Next za
    259. End Sub

    Da AppActivate einen FensterTITEL und kein Objekt erwartet, dürfte klar sein, wo der Fehler liegt.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Na Moment, ich fand die Ursache für den genannten Fehler. Ob das alles ist, um das Ganze zum Laufen zu bringen, entzieht sich meiner Kenntnis.
    Was da jetzt reinkommt, kommt auf Word drauf an. Es reicht normalerweise, wenn nur ein Teil des Titels der zu aktivierenden Anwendung als Parameter bei AppActivate steht. Wenn Du also das Dokument 187.docx geladen hast, dann steht ja in der Word-Titelleiste bei Word 2016 eben genau das: "187.docx". Das kann dann bei AppActivate verwendet werden:

    Visual Basic-Quellcode

    1. AppActivate "187.docx"

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Ich glaube sogar, hier ist AppActivate gar nicht die Methode der Wahl.
    Da würde ich eher objWord.Activate und / oder objWord.ActiveDocument.Select verwenden.

    P.S.:

    conny schrieb:

    auf die aktuelle Word Version upgedatet

    conny schrieb:

    2003 -> 2013
    Ich würde mal sagen:
    Von einer Uralt-Version auf eine etwas neuere.
    Aktuell wäre 2019.
    Versuche, in der Beschreibung exakt zu sein, wenn du uns nicht in die Irre führen willst.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „petaod“ ()

Facebook
Telefonspende