VBA Excel проблема с открытием файла Word

Question

Я хотел бы открыть свой файл Word, чтобы внести в него изменения, а затем сохранить его под другим именем.

В основном я проигрываю в самом начале, где я даже не могу открыть свой файл .

Мой первый код выглядит следующим образом:

 Sub RamsOpen2()

 Dim Doc
 Dim DocPath
 Dim DocObj
 Dim VarResult

 DocPath = "C:\Users\mariuszk\Desktop\cf10\RAMS.docx"
 Set DocObj = CreateObject("word.Application")
 Doc = DocObj.Documents.Open(DocPath)
 DocObj.Visible = True

 With Doc.ActiveDocument
 Set myRange = .Content
 With myRange.Find
.Execute FindText:="FindText", ReplaceWith:="ReplaceText", Replace:=2
End With
End With

VarResult = Doc.GetSaveAsFilename( _
FileFilter:="DP Document (*.doc), *.doc, DP Document (*.docx), *.docx", Title:="Save DP", 
initialvalue:="InitialDocument")

End Sub

отсюда:

ОТМЕНА VBA для открытия Word, редактирования и сохранения в указанном месте.

и это примерно то, что я хочу сделать с моим файлом слов, однако вопрос основан на первом шаге, где я застрял.

Я прочитал здесь, что это распространенная проблема.

VBA Excel - Невозможно открыть существующий файл документа Word

Я нашел более подробный ответ на мою ситуацию здесь:

Макрос Excel - открыть спецификацию c файл слова

и, следуя совету этого запроса, я смонтировал следующий код:

 Sub RamsOpen3()
 Dim appWD As Word.Application
 Set appWD = New Word.Application
 Dim docWD As Word.Document
 Set docWD = appWD.Documents.Open("C:\Users\mariuszk\Desktop\cf10\RAMS.docx")
  appWD.Visible = True
  '
  ' Data is selected and copied into "Design"
  '
  'Copy all data from Design
 Sheets("Frontsheet").Select
 Range("D18").Copy
' Tell Word to create a new document

  appWD.Selection.Paste
 ' Save the new document with a sequential file name
 Sheets("Sheet1").Select
 appWD.ActiveDocument.SaveAs filename:=ThisWorkbook.path & "/" & "TEST" & Range("C8").Text
 ' Close this new word document
  appWD.ActiveDocument.Close
 ' Close the Word application
 appWD.Quit
  End Sub

но проблема точно такая же!

Другой ответ здесь:

Excel VBA для открытия нескольких файлов Word в al oop

, но я не хочу открывать все документы Word в папке, потому что у меня там может быть больше 1.

Это простое решение:

VBA для открытия файлов Excel и / или Word

также приводит к той же ошибке ...

Есть ли шанс сделать этот файл открытым?

Answer 1

Как указал Финк в комментариях, значок вашего файла выглядит так, как будто он является docm файлом. Поскольку значки выбираются по расширениям файлов, существует только одно решение: проверьте, не стали ли расширения файлов невидимыми в Проводнике (https://fileinfo.com/help/windows_10_show_file_extensions).

Ваш файл явно называется RAMS.docx.docm, но вы не можете видеть расширение файла .docm.

Оформить заказ, если работает следующее

Set docWD = appWD.Documents.Open("C:\Users\mariuszk\Desktop\cf10\RAMS.docx.docm")

или включить просмотр расширений файлов и переименовать файл.