1,939 questions
Just before mywddoc.Revisions.AcceptAll, add a line:
ActiveWindow.ActivePane.View.Type = wdPrintView
In Excel's VBA project, process the WORD document, get the run-time error: 4605.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(70.4, 68%, 16%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EI%3C/text%3E%3C/svg%3E)
informationVBA
41
Reputation points
- the error reporting VBA code is:
mydoc.revisions.acceptall 'mydoc is my word object the error code is: 4605
the error description is in Chinese, I translate it as: the method or feature is invalid, as the command can't be used to read. - on my computer there is no error reported, but on three others' computer, they get the same error.
- our windows version are same. our office versions are same: office 16.0
- our VBA project configuration is same: menu: tools -> reference, we selected the same excel object library, word object library, etc
- I want to know is there any configuration items to be configed on the computers?
Thanks.
Microsoft 365 and Office | Word | For business | Windows
Accepted answer
-
John Korchok 6,126 Reputation points2021-11-25T00:38:16.937+00:00 -
informationVBA 41 Reputation points
2021-11-25T02:10:10.747+00:00 Thanks a lot. your solution works perfectly. I add the object name: mywddoc before the ActiveWindow.
mywddoc.ActiveWindow.ActivePane.View.Type = wdPrintView mywddoc.Revisions.AcceptAllthe computers c1,c2,c3,c4 all run the code correctly now.
by the way, I wonder the difference among computers with the same code. Is there any software configuration on Office Word/Excel to solve the problem without modifying the code? -
John Korchok 6,126 Reputation points
2021-11-25T03:21:06.43+00:00 Probably not. If that line solves the problem, it's because the Word documents are in the wrong display mode when they were opened. There is no Word or Excel setting that can correct that.
Sign in to comment -
2 additional answers
Sort by: Most helpful
-
informationVBA 41 Reputation points
2021-11-24T13:45:11.287+00:00 - our VBA project configuration is same: menu: tools -> reference, we selected the same excel object library,
word object library, etc
-
John Korchok 6,126 Reputation points
2021-11-24T18:38:00.653+00:00 Posting more of your code would help with diagnosis. One circumstance that can raise that error is if the Word document is opened with an incompatible view. The document should be in **Print Layout* view, Read Mode or Web Layout view will cause an error.
-
informationVBA 41 Reputation points
2021-11-25T00:32:20.67+00:00 Thanks a lot, more code is as following.
Dim mywdapp As Word.Application
Dim mywddoc As Word.Document
Set mywdapp = New Word.Application
Set mywddoc = mywdapp.documents.Open(Filename:=DocToCheck, ReadOnly:=True)If mywddoc.Revisions.Count >= 1 Then
mywddoc.Revisions.AcceptAll 'mywddoc is my word object
End Iffor example, I open a word document A on computer c1 by the VBA codes above correctly( the VBA project is run in an excel documnet myexcel.XLSM), while error 4605 is raised on computer c2, c3, c4 trying to open the same word document A by the same myexcel.XLSM.
Sign in to comment -