在控制台程序中Application.Documents.Open方法失效

最新推荐文章于 2021-09-04 09:22:51 发布
最新推荐文章于 2021-09-04 09:22:51 发布
阅读量1.5k 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： Office Development Word 2010 C# VSTO
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/TX_OfficeDev/article/details/8579383

这个可能跟DCOM的设定有关。请尝试以下步骤去解决它：

打开dcomcnfg.exe->Computer->Local Computer->Config DOCOM->搜索Microsoft Word 97-2003 Document->Properties->Identity->把Launching User改为Interactive User

python word.documents.open报错_python实现替换word中的关键文字(使用通配符)
weixin_35106463的博客
02-09 560
环境：Python3.6本文主要是通过win32com操作word，对word中进行常用的操作。本文以替换为例，讲解一下如何使用Python在word中使用“通配符模式”(类似于正则表达式)替换文本内容。#!/usr/bin/env python# -*- coding:utf-8 -*-import osimport win32comfrom win32com.client import Dis...
【CATIA的二次开发15】根对象Application涉及基础控制与进程管理相关方法
学习共勉：不积跬步，无以至千里； 不积小流，无以成江海。
05-30 1111
在CATIA VBA开发中，对根对象Application涉及撤销和重做事务管理相关方法进行详细总结，并且用不同形式展示出来。供大家后续开发中全面了解Application对象的方法，以便在开发过程中快速查找和使用。
WORD Application.Documents.Open函数返回null的一种解决方法
p15097962069的博客
09-04 501
WORD Application.Documents.Open函数返回null的一种解决方法
操作Word Application.Documents.Open方法参数说明
weixin_30701521的博客
02-05 1817
Open方法 语法1：打开指定的文件，并将其添加到文档集合。返回Document对象。 语法2：打开指定的对象。当应用到子文件或RecentFile对象，语法2返回一个Document对象。 语法1 expression.Open（FileName，ConfirmConversions，ReadOnly，AddToRecentFiles，PasswordDoc...
Application.Documents.Open函数返回null的一种解决方法
a754992265的博客
11-26 1135
WORDApplication.Documents.Open函数返回null的一种解决方法 DCOMConfigSettingfor"MicrosoftOfficeWord97-2003Document"内部配置一切正常，但调用Application.Documents.Open函数还是返回null。下面是一个解决方法： "C:\Windows\SysWOW64\conf...
C# 关于Microsoft.Office.Interop.Word中app.Documents.Add/Open报错
Doc_m的博客
05-07 4148
最近做Winform程序中需要实现按照模板输出word并显示在WebBrowser中。 在调用app.Documents.Open()时出现以下错误： System.Runtime.InteropServices.COMException HResult=0xFFF40005 Message=异常来自 HRESULT:0xFFF40005 Source=Microsoft.Off...
raise AttributeError(f"{self._username_}.{attr}") AttributeError: Word.Application.Quit报错了
03-22
出现`AttributeError: Word.Application.Quit`错误时，通常是因为在通过Python操作Word应用程序时（例如使用`win32com`库），尝试调用`.Quit()`方法但对象引用失效或未正确初始化。以下是逐步排查和解决方法： --- ...
检查以下下面的VB代码，无法实现复制是为什么Sub ExportToWord() On Error GoTo ErrorHandler Dim wdApp As Object Dim wdDoc As Object Dim wdSlide As Object Dim wdShape As Object Dim ws As Worksheet Dim rowCount As Long Dim row As Long Dim slideIndex As Integer Dim colIndex As Integer Dim title As String Dim text As String Dim cellValue As String ' Dim picCount As Integer ' Dim textCount As Integer ' Dim animationSettings As Object ' Dim OldLeft As Single, OldTop As Single ' Dim OldWidth As Single, OldHeight As Single ' Dim hasAnimation As Boolean ' Dim i As Integer ' ' 新增：存储原图片ID和新图片对象的字典 ' Dim originalShapeId As Long ' Dim shapeMapping As Object Dim findRange As Object ' 查找原组"NQA"的范围 Dim startPos As Long, endPos As Long ' 原组的起始和结束位置 Dim originalGroup As Object ' 原组文本范围 Dim newGroup As Object ' 复制后的新组 Dim offsetPara As Integer ' 新组与原组的段落间隔（控制距离） Dim isFirst As Boolean ' 判断是否是第一次查找 Dim firstGroup As Object ' 存储原组范围的集合 Dim Response As Integer ' 错误处理用变量（原代码缺失） ' 设置工作表 Set ws = ActiveSheet rowCount = ws.Cells(ws.Rows.Count, "A").End(xlUp).row offsetPara = 2 Set firstGroup = CreateObject("Scripting.Dictionary") ' 打开PowerPoint应用程序 Set wdApp = CreateObject("Word.Application") wdApp.Visible = True wdApp.Activate ' 强制激活Word窗口，确保操作被响应 ' 让用户选择PowerPoint文件 With Application.FileDialog(msoFileDialogOpen) .Filters.Clear .Filters.Add "Word Files", "*.docx; *.doc", 1 If .Show = -1 Then Set wdDoc = wdApp.Documents.Open(.SelectedItems(1)) Else MsgBox "未选择PowerPoint文件。操作已取消。" Exit Sub End If End With ' 3. 定位原组"NQA"的文本范围（从第一个"N"到最后一个"A"） Set findRange = wdDoc.Content isFirst = True ' 查找"N"确定起始位置 With findRange.Find .text = "题号NO" ' 原组的起始标记（可根据实际文本调整，如"题号N"） .Forward = True .Wrap = 1 ' wdFindContinue：查找整个文档 .MatchCase = False ' 不区分大小写 .MatchWholeWord = True ' 精确匹配整个标记 .Execute If .Found Then startPos = findRange.Start ' 记录"N"的起始位置 Else MsgBox "未找到标记'N'，无法确定原组范围！" wdApp.Quit Exit Sub End If End With ' 查找"A"确定结束位置（原组的结束标记） findRange.SetRange startPos, wdDoc.Content.End ' 从"N"位置向后查找 With findRange.Find .text = "答案解析A" ' 原组的结束标记（可根据实际文本调整，如"解析A"） .Forward = True .Wrap = 1 ' wdFindContinue：查找整个文档 .MatchCase = False ' 不区分大小写 .MatchWholeWord = True ' 精确匹配整个标记 .Execute If .Found Then endPos = findRange.End ' 记录"A"的结束位置 Else MsgBox "未找到标记'A'，无法确定原组范围！" wdApp.Quit Exit Sub End If End With ' 定义原组"NQA"的完整范围（从"N"开始到"A"结束） Set originalGroup = wdDoc.Range(startPos, endPos) If originalGroup.text = "" Then MsgBox "原组范围为空，无法复制！" wdApp.Quit Exit Sub ElseIf originalGroup.text <> "" Then MsgBox "原组有值" End If ' 从第二页开始插入数据 'slideIndex = 2 'For row = 2 To rowCount For row = 2 To 4 'If UCase(ws.Cells(row, 1).Value) = "Y" Then ' 检查是否需要添加新的幻灯片 'If wdPress.Slides.Count < slideIndex Then ' 使用Duplicate方法复制第一张幻灯片 'Set wdSlide = wdPress.Slides(1).Duplicate 'wdSlide.MoveTo slideIndex '确保上个操作做完替换Application.Wait Now强制停留 'DoEvents ' 稍等1秒，防止复制粘贴出错 '上一版本（刘）会停留一秒，但插入图片太慢了现在去掉了 'Application.Wait Now + TimeValue("00:00:01") 'Else 'Set wdSlide = wdPress.Slides(slideIndex) 'End If 'Set shapeMapping = CreateObject("Scripting.Dictionary") '计算非图片图形的数量 ' 复制原组并粘贴到文档末尾 originalGroup.Copy ' 复制原组文本（含格式） ' 移动光标到文档末尾（关键：确保粘贴位置正确） wdDoc.Content.End.Select ' 选中末尾，激活粘贴位置 wdDoc.Content.End.InsertParagraphAfter wdDoc.Content.End.InsertParagraphAfter ' 在末尾插入空段落 wdDoc.Content.End.Paste ' 粘贴新组 DoEvents ' textCount = 0 ' ' 循环遍历幻灯片中的每个形状 ' 'For Each wdShape In wdDoc.Shapes ' ' ' If wdShape.HasTextFrame Then ' textCount = textCount + 1 ' text = wdShape.TextFrame.TextRange.text ' text = UCase(text) ' 转换为大写以不区分大小写 ' ' ' 清空原有文本框内容 ' wdShape.TextFrame.TextRange.text = "" ' ' ' 循环检查工作表的每一列 ' Dim textToAdd As String ' textToAddN = "" ' textToAddQ = "" ' textToAddA = "" ' For colIndex = 1 To ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column ' title = UCase(ws.Cells(1, colIndex).Value) ' cellValue = ws.Cells(row, colIndex).Value ' ' ' 如果列标题包含标记且单元格不为空，则准备添加数据 ' If title Like "*NO*" And cellValue <> "" Then ' textToAddN = textToAddN & cellValue & "." ' ElseIf title Like "*题干*" And cellValue <> "" Then ' textToAddQ = textToAddQ & cellValue & vbLf ' ElseIf title Like "*选项*" And cellValue <> "" Then ' textToAddQ = textToAddQ & cellValue & vbLf ' ElseIf title Like "*答案*" And cellValue <> "" Then ' textToAddA = textToAddA & cellValue & vbLf ' ElseIf title Like "*解析*" And cellValue <> "" Then ' textToAddA = textToAddA & cellValue & vbLf ' End If ' Next colIndex ' ' ' 如果添加的文本最后有换行符，则移除它 ' If Len(textToAddN) > 0 And Right(textToAddN, Len(vbCrLf)) = vbCrLf Then ' textToAddN = Left(textToAddN, Len(textToAddN) - Len(vbCrLf)) ' End If ' If Len(textToAddQ) > 0 And Right(textToAddQ, Len(vbCrLf)) = vbCrLf Then ' textToAddQ = Left(textToAddQ, Len(textToAddQ) - Len(vbCrLf)) ' End If ' If Len(textToAddA) > 0 And Right(textToAddA, Len(vbCrLf)) = vbCrLf Then ' textToAddA = Left(textToAddA, Len(textToAddA) - Len(vbCrLf)) ' End If ' ' ' 将处理过的文本添加到文本框中 ' 'wdShape.TextFrame.TextRange.text = textToAdd ' With wdDoc.Content.Find ' .text = "题号NO" ' .Replacement.text = textToAddN ' .Format = False ' .Execute Replace:=2 ' End With ' With wdDoc.Content.Find ' .text = "题干选项Q" ' .Replacement.text = textToAddQ ' .Format = False ' .Execute Replace:=2 ' End With ' With wdDoc.Content.Find ' .text = "答案解析A" ' .Replacement.text = textToAddA ' .Format = False ' .Execute Replace:=2 ' End With ' End If 'Next wdShape 'DoEvents ' 稍等1秒，让PowerPoint处理完上一个操作 '上一版本（刘）会停留一秒，但插入图片太慢了现在去掉了 'Application.Wait Now + TimeValue("00:00:01") ' 准备填充下一页幻灯片 'slideIndex = slideIndex + 1 'End If Next row ' 结束后保存PPT 'wdPress.Save MsgBox "数据插入完成！" Set wdDoc = Nothing Set wdApp = Nothing Set ws = Nothing Exit Sub ErrorHandler: If Response = vbYes Then ' 如果用户选择是，关闭PowerPoint并退出宏 If Not wdApp Is Nothing Then wdApp.Quit Set wdApp = Nothing End If Exit Sub Else ' 如果用户选择否，尝试从下一个操作继续 Resume Next End If End Sub
最新发布
07-26
首先，我们需要考虑在VB中操作Word文档时，复制范围可能出现的常见问题。以下是一些可能的原因和解决方法： 可能的原因： 1. 对象引用问题：可能没有正确设置或引用Word文档对象，导致操作失败。 2. 范围选择...
ValueError: file 'D:\TMCP\prj\template\TMCP-Report Template-40.docm' is not a Word file, content type is 'application/vnd.ms-word.document.macroEnabled.main+xml'
07-11
但是，用户遇到的文件是.docm文件（启用宏的Word文档），其content type为'application/vnd.ms-word.document.macroEnabled.main+xml'，这不在python-docx默认支持的content type中（即CT.WML_DOCUMENT_MAIN）。...
Freemarker模板生成word文档及在Windows系统下（linux系统暂不支持）手机版打开为xml异常处理方法
Vincebran的博客
06-03 1287
package net.aykj.util; import java.io.BufferedWriter; import java.io.File; import java.io.FileInputStream; import java.io.FileOutputStream; import java.io.InputStream; import java.io.OutputStreamWriter; import java.io.Writer; import java.text.ParseExcept.
python word.documents.open报错_Python处理word到PDF,python,转,pdf
weixin_39895167的博客
12-04 2125
当实现word文档转换未pdf格式时，单个文档单次执行没有任何问题，但是当将一个文件夹下的目录进行批量转换时，遇到报错：Traceback (most recent call last):File "e:/workspace/python/wordtopdf.py", line 33, in createpdf(filepath,pdfpath)File "e:/workspace/python/...
python word.documents.open报错_python处理word文件:win32com用法详解
weixin_39679370的博客
11-29 675
【实例简介】目标：用python处理 doc 文件方法：引入 win32com首先要下载安装 win32com模块下载地址： 下载地址： http://sourceforge.net/projects/pywin32/files/现在,就可以用起来了。以下是一个实例,将D:adoc中的内容复制到新的doc中去,新文件命名为Dbd#-*-encoding: utf8->部分参考于:http://hi...
C#加载word文件 一切配置正常 wordApp.Documents.Open打开文件为null的解决fang'a
cihai4502的博客
02-07 1484
在之前的一个项目中，做了前台调用C#webservice后台实现替换word关键字，重新生成临时文件供给前台下载的报表功能，之前是没有问题的，一个多月之后拿起重新调试发现word文档打开之后返回结果null，代码如下： wordDoc = wordApp.Documents.Open(ref...
使用WebDAV实现Office文档在线编辑
从心所欲，不逾矩
06-21 2252
Office的文档处理能力是非常强大的，但是它是本地资源，在Office Web App尚未成熟前，仍需要使用本地能力来进行文档编辑，可是现代的系统的主流却是B/S，所以在B/S中调用本地的Office编辑的能力就非常重要。 目前还说，将Office编辑的能力与B/S结合起来的方法主流的方案有三种： DsoFarmer OCX嵌入网页在线编辑方案：在很多年前微软发布了一段C++开发源代码的OCX...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值