使用Word VBA自动化Excel时，我得到运行时错误'13'：使用.Find函数时类型不匹配
运行时错误'13'是一种常见的错误，它表示在使用.Find函数时发生了类型不匹配的问题。这个错误通常是由于在使用.Find函数时，查找的数据类型与目标范围的数据类型不匹配所导致的。
解决这个错误的方法是确保在使用.Find函数之前，目标范围和查找的数据类型是一致的。以下是一些可能导致这个错误的常见原因和解决方法：
- 目标范围的数据类型不匹配：确保目标范围的数据类型与查找的数据类型一致。例如，如果目标范围是一个包含数字的单元格区域，那么查找的数据类型也应该是数字。
- 查找的数据类型不匹配：确保在使用.Find函数时，查找的数据类型与目标范围的数据类型一致。如果目标范围是一个包含字符串的单元格区域，那么查找的数据类型也应该是字符串。
- 数据格式不一致：如果目标范围和查找的数据类型一致，但仍然出现错误'13'，可能是由于数据格式不一致导致的。在使用.Find函数之前，可以尝试将目标范围和查找的数据格式进行统一，例如使用文本格式或数值格式。
- 数据范围错误：确保目标范围和查找的数据范围是正确的。如果目标范围是一个单个单元格，那么查找的数据范围也应该是一个单个单元格。如果目标范围是一个区域，那么查找的数据范围也应该是一个区域。
总结起来，解决运行时错误'13'的关键是确保目标范围和查找的数据类型、数据格式、数据范围都是一致的。通过仔细检查代码并进行必要的调整，可以解决这个错误并实现使用Word VBA自动化Excel的功能。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库 MySQL 版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云人工智能：https://cloud.tencent.com/product/ai
- 腾讯云物联网平台：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发：https://cloud.tencent.com/product/mobile
- 腾讯云区块链服务：https://cloud.tencent.com/product/tbaas
- 腾讯云元宇宙：https://cloud.tencent.com/product/tencentmetaverse
相关·内容
3回答
这是我去年遇到的一些东西，因此似乎是一个很好的地方来记录它:)
问:自动化Excel时(/Word/...)在Delphi中，我如何检查一个Excel函数是否返回了变量Nothing (在VBA中被调用)？
浏览 0提问于2009-02-23得票数 6
回答已采纳
我试图制作一个VBA脚本，它打开一个word文档，查找一个类似于"TPXXXX“的单词，其中"X”是数字，然后将该文本粘贴到excel电子表格中。我可以打开word文档，但是我在选择和找到我需要的文本时遇到了困难。到目前为止，我有以下几点：
Sub Copy()
'Create variables
Dim Word As New Word.Application
Dim WordDoc As New Word.Document
Dim Doc_Path As String
Dim WB As Workbook
Dim WB_Name As String
Doc_Pa
浏览 1提问于2016-06-08得票数 0
回答已采纳
我有一个包含几行文本的Word文档和一个包含许多占位符的表，稍后我将在同一文档中从Excel填充，但将其另存为PDF。
我的最终目标是复制word文件中的整个文本，就像它在任何修改之前一样，并在每次我必须用Excel文件中的值完成它时粘贴它。
在word VBA中，这是完美的。复制整个文档并在末尾经过它，复制表格和文本行。
Selection.WholeStory
Selection.Copy
Selection.MoveDown Unit:=wdParagraph, Count:=2
Selection.PasteAndFormat (wdFormatOriginalFormatting)
浏览 0提问于2021-02-16得票数 0
我正在使用excel vba项目创建一个word文件，然后使用下面的代码将其保存为pdf。
wordapp.ActiveDocument.SaveAs2 "" & folder & "" & pdfname & ".pdf", 17
路径上使用PDF打印机打印同一个word文件。
& folder &
文件名为
& pdfname &
我曾尝试将其用作word文件中的宏，但它要求提供路径和文件名。并不是自动化的。
浏览 0提问于2018-05-07得票数 0
回答已采纳
1回答
我正在尝试使用Excel VBA在Word中创建一对多合并。在Word 2013中手动运行该进程时，表单将按预期工作。
当我尝试在Excel 2013中使用VBA进行自动化操作时，它默认为Excel电子表格中的每个新行插入分页符。
以下是代码块后面的源代码更改后的代码：
Dim cDir As String
Dim ThisFileName As String
Const WTempName = "HCCMailMerge.docx" 'This is Word Templates name
Dim NewFileName As String
NewFileName
浏览 0提问于2016-08-09得票数 0
1回答
我有一个包含两列和100行的excel文档。一列是要在word文档中查找的单词，第二列是我想用搜索的单词替换的单词。
我想遍历excel表中的每一行，并使用输入在word文档中搜索和替换。
我有VBA在Access方面的经验，但我以前从未在Word或Excel中使用过它，我非常困惑。
我认为起作用的是：
function replace(find,replace)
with activedocument.content.find
.forward=True
.wrap=wdFindContinue
.Execute fintext:=find,replacewith:=replace,matc
浏览 1提问于2015-07-15得票数 0
回答已采纳
抱歉，如果这是一个明显的问题，但我有一个问题与一些VBA代码，试图导入一些数据从word文件到Excel电子表格。word文档中有一些基本的表格，这些表格很好，但其中一个也在文本框中。在这种情况下，我可以让导入工作，但前提是word文件已经打开。我不知道为什么会这样。 如果有帮助，错误是:运行时错误，自动化错误，未指定错误。 wdFileName = Application.GetOpenFilename("Word files (*.doc*),*.doc*", , _
"Browse for file containing table t
浏览 29提问于2021-04-12得票数 0
回答已采纳
我是Excel VBA的新手。我需要使用Excel VBA完成一项重要的自动化任务。它需要将特定的数据/文本从Word文件拉到Excel工作表中。请参阅附件中的示例文件。
需要将Word文件中突出显示的日期及其下面的每个日期提取出来，放入Excel第一张工作表的'PO issue date‘栏中。同样，word文件中的每个零件编号(突出显示)都需要将其放入“Funai part No”列中。
类似地，需要将word文件中'TOTAL‘下的数量放入'Required Qty’列，将word文件中的PO编号(Lastrow end value - 70525003)放入
浏览 2提问于2017-04-19得票数 0
5回答
我想开发和自动化办公软件，如'Microsoft Excel2007‘和'Microsoft Word 2007’。但我不知道如何使用VBA或使用C#/.Net Framework来完成此操作。
使用VBA .Net框架有什么好处？
我应该专注于学习哪一个？
浏览 3提问于2010-05-27得票数 1
回答已采纳
我的目标是在word文档“北爱的经济”中找到独特的文本，并从该文档中复制三个连续的单词。我必须在excel VBA中执行此操作。在从.xlsm文件中执行VBA代码之前，将手动打开正在搜索的word文档。在执行VBA代码时，它将是唯一打开的.docx文件，但是文件名总是不同的，因此我们不能硬编码.docx文件名或路径。 Sub Find_Price()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim TextToFind As String
Dim NumberToFind As
浏览 34提问于2020-01-23得票数 0
回答已采纳
我在Excel中有一个打开word.app的VBA例程。除了一件事之外，所有的设置变量在多次运行中都工作得很好。我希望你能帮帮我！ 在我看来，相关代码： Dim WordApp As Word.Application
Dim WordDoc As Word.Document
'load format
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add(Template:=FormatLocation &
浏览 17提问于2021-01-19得票数 0
我的代码的目标是在整个word文档中查找书签，并用客户的姓名、地址或评估金额替换这些信息。我的代码搜索包含特定信息的书签(例如，书签看起来像姓名、地址、评估)，然后将其替换为excel表格中特定单元格中的信息。我希望代码查看整个文档中的所有书签，并将其替换为适当的信息并保留书签。代码有两个问题。其一，它指出不恰当地使用"Me“(指代码的Me.Repaint部分)。如果我试图在没有Me.Repaint的情况下运行代码，我会得到一个VBA运行时错误‘-2146959355 (80080005)'：自动化错误。有没有人有什么建议，我可以做的不同？谢谢 我已尝试删除me.repain
浏览 89提问于2019-06-29得票数 1
回答已采纳
2回答
从Excel VBA创建Word文档的常用方法是：
Set WD = CreateObject("Word.Document")
使用Excel 2011运行时会导致错误。
你知道如何用VBA在Excel 2011中创建Word文档吗？
(我不想使用AppleScript，因为我希望该程序也能在PC上运行。)
浏览 1提问于2011-11-16得票数 2
我使用Excel2010VBA以编程方式生成Word 2010文档。
当我试图将ListTemplate应用于我插入的段落之一时，程序就会崩溃(下面代码中的第5行)。
thisValue = tempSheet.Cells(i, 1).Value
.Content.InsertAfter thisValue
.Content.InsertParagraphAfter
Set thisRange = .Paragraphs(i).Range
thisRange.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(wdBulletGal
浏览 17提问于2012-07-13得票数 1
回答已采纳
1回答
我正在用Excel编写一个宏，用于打开和操作Word文档。当我在word中通过vba编辑器运行代码时，代码会工作，但是当我将代码行导入到excel宏中时，会得到一个运行时438错误。
字宏
Selection.Collapse WdCollapseDirection.wdCollapseEnd
插入Excel宏的代码，wtemp是word文档对象
wtemp.Activate
wtemp.Tables(3).Select
wtemp.Activate
wtemp.Selection.Collapse WdCollapseDirection.wdCollapseEnd
我相信问题在于选择对象，或
浏览 4提问于2017-11-23得票数 3
回答已采纳
2回答
强制COM服务器保持打开状态
、、、、
我有一个COM自动化服务器，由VB6 exe托管。
COM API来自Excel 。
Dim o as MyCOMAPI.MyCOMType
Set o = new MyCOMAPI.MyCOMType
o.DoSomething
当我在VBA中创建对象时，会启动exe和COM自动化，并且VBA可以使用API。
但是exe被Excel快速地“随机”关闭，我猜当Excel决定不再需要COM时。
这种行为造成了随机错误。
简单的解决方案是在运行VBA代码之前启动exe；在这种情况下，所有的执行程序都正常工作，因为在用户关闭之前，exe不会停止运行。
您有一些关于Excel如何管理对托管API的调用
浏览 1提问于2015-07-03得票数 1
回答已采纳
我是VBA的新手，尝试在Excel中用VBA填写Excel中的word模板。我使用以下代码将日期放入word文档的标记中: Dim Template As String Dim WordDoc, WordApp As Object
Dim Template as String
On Error Resume Next
Set WordApp = GetObject("Word.Application")
浏览 43提问于2019-06-07得票数 3
回答已采纳
0回答
在Word VBA中，您可以使用Selection.MoveLeft、Selection.MovRight等设置和移动光标位置。
但是，当尝试在Excel VBA中使用相同的方法时，我得到一个错误消息："Object不支持此属性或方法。“
我已经导入了Word对象库参考。
如何在Excel应用程序中使用VBA移动Word文档上的光标位置。任何帮助都将不胜感激。
编码:设置Doc = ActiveDocument.Content
With Doc.Find
.Execute FindText:="*", ReplaceWith:="NEW*"
浏览 8提问于2017-06-13得票数 0
回答已采纳
有人知道PowerPoint中的VBA/VSTO编程的未来吗？我一直在做一个办公自动化项目，我发现使用PowerPoint很令人沮丧，特别是因为它似乎比Excel或Word中的VBA支持低一个级别。
感觉微软正试图逐步淘汰PowerPointsince中对VBA的支持，他们在2007版本中放弃了宏录制，并且对象模型缺乏一些关键功能支持。
浏览 9提问于2009-11-11得票数 7
回答已采纳
我试图在word文档上选择一个占位符来粘贴剪贴板(我已经将excel表复制到剪贴板上)，但是在粘贴之前很难选择这个单词。获取Run-time error '450': Wrong number of arguments or invalid property assignment在线With Selection.Find
ActiveDocument.Content.Select
With Selection.Find '<- Error
.ClearFormatting
.Text = "TablePlaceHolder1"
E
浏览 1提问于2017-10-03得票数 1
回答已采纳
1回答
请解释如下：
Word.Application和Word.Global有什么区别？
在VBA Word宏中，对诸如应用程序和选择的全局对象的引用总是绑定到Word，或者如果Excel在前台运行，它们会无意中引用Excel对象吗？
如果我想打开Word，启动一个(长而复杂的)宏运行，然后将焦点切换到另一个应用程序(例如Excel )，是否需要修改对全局(如ActiveDocument )、应用程序和选择的引用，以显式地指向对象的单词版本，这样它们就不会与该对象的Excel版本相混淆吗？
浏览 0提问于2015-01-29得票数 0
回答已采纳
我正在尝试打开基于Excel数据的特定Word模板(该部分正在工作)。然后，一旦模板打开，我会尝试根据Excel文档中的标签进行查找，并替换为同一列中的相应数据。当我运行宏时，它打开模板，只旋转和旋转，而不给我输出。代码如下：
` Sub New_Purification_SOP()
'
' New_Purification_SOP Macro
''Open an existing Word Document from Excel
Dim objWord As Object
Dim myValue As Varia
浏览 4提问于2018-06-01得票数 2
1回答
微软，在他们的无限智慧中，决定Office 2010应用程序的默认文件格式应该是发布时已有13年历史的格式(Office 97-2002)。
较新的格式(2007和更新)将数据保存在压缩的XML文件中，这些文件要小得多，而且还允许许多其他特性。我们的公司IT部门没有或不能设置一个组策略来强制用户默认以新格式保存，所以我正在编写一个宏来调整我们部门中每个人的设置。
我可以在Excel和Word中非常简单地执行以下VBA代码(我是从Excel工作簿运行它)：
Public Sub SetExcelSave()
Dim myExcel As Excel.Application
Set m
浏览 2提问于2016-10-10得票数 1
回答已采纳
我尝试在excel2013中运行一段VBA代码，以便从我们的intranet站点访问一些数据，但我得到了一个运行时错误2147467259 (80004005) -自动化错误未指明错误。
Sub AccessWar()
Dim oIE As InternetExplorer
Dim oHTML As HTMLDocument
Set oIE = New InternetExplorer
oIE.Navigate ("http://iscls3apps/WAR40/aspx/WAR40AllReports.aspx")
oHTML = o
浏览 3提问于2015-03-20得票数 1
2回答
我想在Excel中使用一个连在一起的公式，其中也包括上标数字2(平方符号)，但这与下面的输入不兼容。公式大致如下：
=CONCATENATE("13";"²")
我想得到这样的输出：
13²
我试着在字体上使用上标函数，但是当文本在连接内时，它没有工作。
我必须使用级联，因为我想自动化。
有可能用Excel 2019年吗？或者是可能的，但需要VBA吗？
浏览 2提问于2021-12-25得票数 0
回答已采纳
3回答
我在VBA中创建了一个宏，它允许我选择一个用数字填充的单元格，并将该单元格中的数字拉到word文档中的特定位置。
但是，当我运行宏时，填充到Word中的数字没有用逗号格式化以分隔千位(例如，看起来像"10000“，但需要看起来像"10,000")。该数字已在Excel中使用逗号格式化，但该格式不会保留到Word中。
将数据从Excel提取到Word时，如何使用逗号格式化数字？
这是我到目前为止所知道的：
Sub Excel to Word()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Docume
浏览 14提问于2018-01-22得票数 1
回答已采纳
我有一个带有文本的单词doc，还有一个日期文本，其中显示了以下格式：
text text text 17.01.2020 text text text.
我希望将上面的日期文本替换为Excel中的一个单元格，该单元格也是一个类似于这个18.01.2020的日期。
因此，VBA代码应该执行以下操作：
1.打开word文档
2.查找文本并将其替换为Excel中的文本
3.省吃俭用。
Sub DocSearchandReplace()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application
浏览 5提问于2020-01-17得票数 0
回答已采纳
我想做以下几点：
在Excel中，创建表并定义范围(例如，A1到B13是"Arf"，保存在文件中)
使用VBA，从Excel移动到打开的Word文档
在打开的Word文档中，搜索字符串(例如，“桌子在这里”)
用Excel定义的范围替换单词字符串(例如，此处的表替换为"Arf")
我将为许多不同的表定义许多范围，根据我在Excel中使用的预定义表的不同，我将宏将该定义的范围导入到Word中的相应字符串中。
到目前为止，我已经在文件位置找到了许多用于进入和更改文本的代码，但我希望这是针对当前打开的任何Word文件(同时在Excel和Wo
浏览 1提问于2016-11-04得票数 2
回答已采纳
我一直在尝试使用VBA自动化PDFCreator。
是否可以从IE中打开的HTML文件自动创建PDF？
我在网上搜索到的代码可以在Excel或Word中运行，但我真正想要的是输入一个指向VBA表单的HTML文件路径，它应该打开、浏览浏览器并将其打印为PDF。
我知道如何用VBA控制PDFCreator，但我不知道如何将IE链接到PDFCreator打印机。
浏览 0提问于2011-12-08得票数 0
早上好, 我想将Word中的地址替换为Excel单元格中的地址。 我的情况如下图所示： ? 我在Excel中有一个地址，我想粘贴到基于表格单元格内的Word括号中。 有一些解决方案： Write to Word Document from Excel VBA Pasting a String from excel to Word using word-VBA VBA from Word to Excel VBA macros: Excel to Word text replacement 这和我的情况不同。 到目前为止，我的代码如下所示： Sub RamsOpen()
Dim a
浏览 51提问于2020-04-27得票数 0
回答已采纳
我正在使用一小部分代码从一个单元格中提取名称，并将它们分隔成不同的单元格。名字的数量差别很大，因此我需要尽可能多地自动化它。
我使用以下宏：
Function Get_Word(text_string As String, nth_word) As String
Dim lWordCount As Long
With Application.WorksheetFunction
lWordCount = Len(text_string) - Len(.Substitute(text_string, " ", "")) + 1
浏览 4提问于2014-06-10得票数 0
回答已采纳
我有一个包含模板内容的Word文档，在这里我将使用vba代码替换Word文档中的textbox，并使用我的用户名来为每个用户生成一个pdf报告。
在excel文件中的vba代码中，我打开Word文档，我需要有Word文档的路径。如果我硬编码Word文档路径，一切正常工作，没有错误。但是，每当我试图将路径存储在excel单元格中并将其赋值给变量时，它就会导致错误13类型错配。
我已经将变量coverLocation作为变量数据类型。我要再检查一遍路径是否正确。
我试图将它声明为String，但是在我设置coverLocation的行中会出现另一个错误。错误是“对象必需”。
任何人都可以告诉我什么
浏览 7提问于2022-10-23得票数 0
回答已采纳
我已经在Excel VBA中编写了代码，目前正在尝试将其转换为VS 2017上的vb.NET。
我想在Excel中复制一个表，并将其粘贴到Word文档中，同时在它们之间保留一个活动链接，以便Excel表中的任何更改都将被传送到粘贴到Word文档中的表中。我在Excel VBA中实现了这一点，但是vb.NET不能识别DataType:=wdPasteOLEObject和Placement:=wdInLine，说它们没有声明。
以下是我的代码中的示例：
excelApp = New Excel.Application
excelWB = excelApp.Workbooks.Open(Survey
浏览 9提问于2018-01-19得票数 1
回答已采纳
3回答
我希望使用Excel将“标记名”存储在A列中，并将其相关的“替换文本”存储在B列中。当代码运行时，它需要收集每个标记，每次一个标签(逐行)，搜索整个单词文档，以替换它们。
我注意到标题和页脚中的特殊标记没有被替换。我翻到这篇文章()，发现使用一系列的范围(或者在文档中遍历所有可用的故事范围)，我能够做到这一点。
我改进了我的代码，正如上面的链接所建议的那样，它起作用了，只要我的代码嵌入到我的“正常”Word文件中，从而使用来自Word的VBA代码对另一个Word文档进行操作。但是，目标是在读取Excel文件时使用VBA Excel操作替换。
当我将代码移到Excel时，我正被一
浏览 2提问于2015-09-25得票数 1
你好，堆栈溢出社区。
到目前为止，我要做的是从我以前打开的word文档中手动复制一个价格，并将其粘贴到Excel表格中。这是唯一在计算机上打开的.docx文件，所以我们只需要在当前打开的word文件中找到价格。我想让你帮我自动完成这项任务。
这张图显示了文件中复制价格的部分。在这个例子中是605.000。但我在word文件里查之前不知道价格。文件这个词是我知道价格的地方。
所选的文本在整个文档中只发生一次，因此我需要VBA复制"brutto“之后的内容，直到第一次昏迷。是的--只有没有十进制值的货币数量，因为它们总是,00。但是不仅仅是七个标志，因为如果我有1.250.000的公寓价
浏览 3提问于2020-01-21得票数 0
回答已采纳
1回答
我正在尝试生成一个单词云，其中一个单词中有一个+符号。我知道+符号在RegEx中有特殊的含义，我也知道在WordCloud()中有一个regexp参数。但是，我不知道如何调整这一点，以便允许+在word云输出中显示？
下面是我的当前代码：
import matplotlib.pyplot as plt
%matplotlib inline
from wordcloud import WordCloud, STOPWORDS
# Define a function to plot word cloud
def plot_cloud(wordcloud):
# Set figure si
浏览 0提问于2021-01-16得票数 0
回答已采纳
2回答
在Excel中，我正在编辑一个Microsoft文档。我的Word文档中有一个表格，其中第4列由一个数字组成，然后是后面的字母wk。
示例：
+------+------+------+-------+
| Col1 | Col2 | Col3 | Col4 |
+------+------+------+-------+
| test | 2 | 123 | 1 wk |
| test | 2 | 123 | 13 wk |
| test | 2 | 123 | 10 wk |
+------+------+------+-------+
我试图改变字母wk的字体
浏览 0提问于2018-12-03得票数 0
回答已采纳
2回答
我有一个100+页面Word文档，我想从中提取所有带下划线的单词。我对VBA和Excel非常熟悉，但对Word相对来说比较陌生。我在想这是不是我想做的最好的方法。
我将从我的Word文档中运行以下操作：
Sub extractUnderlinedWords()
Dim thisDoc As Word.Document
Application.ScreenUpdating = False
Dim appExcel As Object, oxlWbk As Object
Dim FN As String
Dim aRange As Range
Dim intRowCount As In
浏览 0提问于2016-07-28得票数 3
回答已采纳
我正在使用excel VBA代码从Excel更新Word文档脚注表格信息。它的工作正常是唯一的问题。我无法在word中更新页码。请参考下面的代码，我正在使用。下面也是我在word中的页脚表的图像。
使用此代码。这段代码将帮助我更新一些信息从excel到MS word页脚表。它工作完美，但页码，我需要你的帮助，使动态。
Sub Update_Informe_word_2003()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdRng As Word.Range
Dim j As
浏览 3提问于2021-07-30得票数 1
场景
我有一个userform，它上的一个按钮使用MatchCase = True执行搜索功能，另外还有其他自动化工作。每当这个userform是活动的，并且我尝试在其他打开的worbooks中做一些搜索，总是匹配的大小写被勾选。每次我需要手动取消选中excel中的匹配情况时，此用户表单是活动的。请看照片
当userform没有显示时，
当用户窗体显示时，
问题
是否可以使用MatchCase = True运行宏，但同时打开其他工作簿并默认情况下按下Ctrl+F Matchcase？换句话说，在搜索宏执行之后，如何删除搜索关键字和搜索条件？我使用以下搜索代码，搜索词作为变量
浏览 0提问于2018-09-18得票数 1
回答已采纳
您好，我正在尝试创建一个宏，将数据从excel传输到word，最初是在Excel 2007中创建的，但现在我在Excel 2013中工作，它给我一个不匹配的运行时错误13，并且不知道如何解决它。
我检查了参考资料，但似乎问题并不在那里。
Sub toWord()
wArch = Hoja1.Range("C3").Text & Hoja1.Range("C2").Text & ".dotx"
Set objWord = CreateObject("Word.Application")
ob
浏览 2提问于2015-09-16得票数 1
我是VBA的新手，如果我犯了一些基本的错误，我很抱歉。 我正在使用VBA脚本在PDF文件内的表中搜索字符串。从word调用脚本时，脚本运行正常，但从Excel调用脚本时，脚本运行不正常。 我的PDF有许多表，最终目标是获得包含特定字符串的表的表号。 我包含了下面的代码。 Sub FindTableno()
Dim oTbl As Table
Dim oRow As Row
Dim oCell As Cell
Dim tblno As Integer
On Error Resume Next
' Create a "FileDialog" object as
浏览 3提问于2019-05-09得票数 1
0回答
我用VBA Excel开发了一个小程序。这是一个很好的开始，但我调整了一些预设--一个网站推荐这样做，就像从MS Word中提取文本一样。我剥离了我正在处理的所有代码，如下所示：
Function FnOpeneWordDoc()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("C:\Users\Filepath\Example1.docx")
objWord
浏览 22提问于2018-07-17得票数 1
回答已采纳
1回答
我正在尝试从.net运行时从VBA (Word/Excel)调用对象。这是工作的：oT = CreateObject("System.Text.UTF8Encoding")，但不是这个：CreateObject("System.Management.Automation.Runspaces.RunspaceFactory")错误是:运行时错误'429‘；ActiveX组件不能创建对象
我不明白的是Excel/Word是如何决定哪些类是公开的，哪些是不公开的
浏览 1提问于2017-10-11得票数 0
回答已采纳
我们用C++/Qt编写了一个应用程序，它从多个excel文件中读取一些数据，然后生成一个word报表。我们利用Office自动化服务器的优点从excel文件中读取/查找和复制数据，并将它们写入单个word文件。
该应用程序运行良好，在我的办公室计算机中没有任何重大问题。昨天，我决定把这个应用程序复制到我的笔记本电脑上，笔记本电脑有相同的操作系统和办公版本。在运行这个应用程序之后，我的OS/Office似乎出了点问题。没有任何数据被复制到word文件中。经过调试，我发现这个应用程序实际上可以读写办公文件，但无法调用CopyPicture自动化方法！
我想把范围复制成图片，所以我使用了"C
浏览 1提问于2017-03-17得票数 0
我试图在excel文件中运行此VBA。这个代码的第一部分允许我选择一个文件并打开它。现在我想让代码搜索文件并格式化我要求它的单词。我以前用Word写过这段代码，现在很难进入excel。有像"withwdapp“这样的行告诉excel vba在Word中执行下一组步骤吗？
Sub Find_Key_Words()
'Open an existing Word Document from Excel
Dim FileToOpen
Dim appwd As Object
ChDrive "C:\"
FileToOpen = Appli
浏览 1提问于2013-11-13得票数 1
回答已采纳
我和VBA、excel和word一起工作。我从Excel复制数据表(数据从数据库中加载)并粘贴到Word.When中，我在Excel.How中更新值以刷新Word中的数据
Excel
Word
当我更新值Password2 -> Password3时，我希望当我单击word中的命令按钮时，数据将在word中更新
谢谢！
浏览 4提问于2014-09-08得票数 0
1回答
我在这里从来没有问过问题，但是我很绝望，我找不到解决我的问题的方法。
我正在用VBA编程访问。我必须获取特定Excel文件中特定单元格的值。为了得到这个值，我必须首先找到单元格，所以我的问题就来了。
当我尝试使用.Find方法来获取我需要的单元格的列时，它给出了错误"13"，类型不兼容。
这就是我要做的：
Dim col As Integer
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Set appExcel = CreateObject("Excel.Application"
浏览 0提问于2017-05-31得票数 0
你好
我的vlookup一直有一个错误13，当我在我的工作表上执行vlookup时，它很快就工作了，vba不需要帮助吗？
这是我的代码，所有的列都是我的工作表中的文本
Sub address_change()
Dim updatesheet As Variant
Dim sbw As String
Dim Param As String
Dim entier As Integer
Dim fname As String
Dim tsk As Task
Dim rg As Variant
Dim ws As
浏览 5提问于2021-10-19得票数 0
我的目标是通过打开某个word文档并将单元格或字符串传入位于word VBA中的find宏，使用单元格引用搜索单元格中的文本字符串。本质上，我试图将一个变量从excel宏传递到word宏中。我做不到这件事。我的目标是将变量Party传递给一个名为macro5的Word宏。我可以通过不传递参数并在word宏中对文本进行硬编码来实现以下代码的工作，但是当我试图从excel传递参数时，它不起作用。任何帮助都将不胜感激。
我的excel宏代码：
Sub Open_Correct_WordDOC()
' Open_Correct_WordDOC Macro
Dim WordA
浏览 3提问于2014-11-19得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
