打开一个Word文件 [英] Opening a Word file
问题描述
我想打开我的Word文件(进行更改然后将其保存为其他名称).
I would like to open my Word file (to make the changes then save it under different name).
我无法打开文件.
我的第一个代码:
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
来自这里:
EXCEL VBA以打开Word,编辑和将Saveas保存在指定位置.
这大致就是我要处理的Word文件的内容,但是问题就在第一步上.
which comes from here:
EXCEL VBA to Open Word, Edit and Saveas in the specified location.
This is roughly what I want to do with my Word file, however question is on the first step.
我在这里读到,这是一个普遍的问题. VBA Excel-无法打开现有的Word文档文件
I have read here, that it is a common problem. VBA Excel - Unable to open existing Word Document file
我在这里找到了更接近我的情况的答案: Excel宏-打开特定的Word文件
根据此查询的建议,我安装了以下代码:
I found a closer answer to my situation here: Excel macro - open specific word file
Following the advice from this query I mounted the following code:
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文件
但我不想打开该文件夹中的所有Word文档.
Another answer is here: Excel VBA to Open Multiple Word files in a loop
but I don't want to open all Word documents in the folder.
这个简单的解决方案:通过VBA打开Excel或Word文件
也带来同样的错误.
This simple solution: VBA to open Excel or/and Word Files
also brings the same error.
推荐答案
正如芬克在评论中指出的那样,您的文件图标看起来像您的文件是 docm
文件.由于图标是由文件扩展名选择的,因此只有一种解决方案:检查文件扩展名是否在资源管理器中不可见( https://fileinfo.com/help/windows_10_show_file_extensions ).
As Fink pointed out in the comments your file icon looks like your file is a docm
file. Since icons are chosen by file extensions there is only one solution: Check if you have file extensions turned invisible in Explorer (https://fileinfo.com/help/windows_10_show_file_extensions).
您的文件显然称为 RAMS.docx.docm
,但是您看不到文件扩展名 .docm
.
Your file is obviously called RAMS.docx.docm
but you cannot see the file extension .docm
.
检查以下项目是否有效
Set docWD = appWD.Documents.Open("C:\Users\mariuszk\Desktop\cf10\RAMS.docx.docm")
或打开文件扩展名视图并重命名文件.
or turn on your file extension view and rename the file.
这篇关于打开一个Word文件的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!