Tag: word vba

在单词中查找文本并在其后插入数据: 我有以下VBA脚本从Excel工作表复制数据到单词。这工作正常。现在在粘贴之前，我想在word文档中search表单的名称，并在其下面粘贴相应的数据。到目前为止，我已经在我的脚本中包含了find函数，但不知道如何进一步进行。你可以请指导如何获得find的文本的位置，并使其后插入粘贴？ Sub ETW() Dim WordApp As Word.Application Dim myDoc As Word.Document Dim WordTable As Word.Table Dim ws As Worksheet Dim LastRow As Long Dim LastColumn As Long Dim pasteRange As Word.Range Dim StartCell As Range Set StartCell = Range("A2") Application.ScreenUpdating = False Application.EnableEvents = False Set WordApp = GetObject(class:="Word.Application") WordApp.Visible = […]

如何引用Word vba之前打开的工作簿？: 在MS Word上使用VBA有一个微妙的问题。我试图参考一些在启动之前打开的工作簿。从一个简短的testingmacros里面简单的 MsgBox Workbooks.Count 虽然打开了3个（空）工作簿，但它们的值为0。 Word启动后打开3个工作簿时，我得到正确的值3。如何解决这个问题？ jm2p Zeph

在excel和word之间共享macros模块: 在过去的两年中，我为excel和word写了几个macros，并将它们保存在normal.dotm和personal.xlsm中。我有一些处理文件读取，数据库交互，htmlparsing等模块，这些模块是完全相同的word和excel。直到现在我只是在这两个应用程序之间复制它们。有可能以某种方式将它们存储在一个位置（作为库），然后在两个应用程序中使用它们？我想有可能写一个模块，导出到一个给定的位置，然后删除它们，所以再次导入它们，以确保我记得复制这两个之间的所有模块，但这似乎是错误的方式来做到这一点。

如何处理运行时错误5174在excel文件不存在的目录？: 我需要检查目录中是否存在文件。如果文件不存在，我应该创build一个新的。但在运行时，Excel提供了一个错误; “运行时错误5174：应用程序定义或对象定义的错误”。 VBA中是否有任何exception处理技术来捕获这些运行时错误？如何克服这个问题，以便我可以创build一个文件，如果不存在？ Dim savename, FileExt, FileName As String Dim i, finalrow As Integer Dim wdvar As Word.Application Dim wrdDoc As Word.Document Set wdvar = CreateObject("Word.Application") wdvar.Visible = True FileName = Environ("UserProfile") & "\Desktop\Report.docx" Set wrdDoc = wdvar.Documents.Open(FileName) With wdvar .Visible = True .Activate .Documents.Add

运行时错误462：远程服务器机器不存在或不可用“在第二次迭代: 我知道这是非常接近其他问题，但我没有通过其他解决scheme，这就是为什么我现在发布我的问题，以确定我的问题。我已经在代码中指出第二次迭代期间popup错误的地方。这里也是一个类似问题的例子。 Sub ExcelToWOrdCopy() Dim objWord As Word.Application LR = Cells(Rows.Count, 1).End(xlUp).Row For x = 3 To LR Call PrintScreen 'Print screen set in a module and works fine Set objWord = CreateObject("Word.Application") objWord.Documents.Open ("C:\Users\a222012\Desktop\EDD Results File.docx") objWord.Visible = True objWord.ActiveDocument.Bookmarks("ScreenShot").Range.Paste 'Bookmarks have been placed in above word document. ActiveSheet.Range("C2:L2").Copy objWord.ActiveDocument.Bookmarks("LinkName").Range.Paste objWord.ActiveDocument.Tables(1).AutoFitBehavior (wdAutoFitWindow) 'Error […]

如何检测用户是否尝试点击保存/保存为选项或按下ctrl-S在Microsoft Word中使用VBA代码？: 我想检测用户按下ctrl-S或使用VBA excelmacros代码单击保存Microsoft Word的选项。我find了关于closures时保存更改和检测文档是否越来越近的相关链接，但是我无法find一些用于检测Word文档保存的示例代码。任何帮助将不胜感激。谢谢

VBA – 打开word文档，将数据从excel导出到Word文档: 我有一点我无法解决的问题。我已经编程VBA代码导出单元格数据从Excel文本文本框。它是如何工作的：我在excel文档中有一个button，突出显示想要使用的那一行，按下button，而不是从我告诉它的所有单元格中抓取数据，并将它们导入到单词中。我遇到的问题是，如果我select另一行并再次按下button，它会尝试再次打开相同的单词文档，因为它已经打开错误。有反正我可以做，如果语句来检查，如果它打开，如果它不打开它，如果它是使用活跃词文档？这是我目前的代码 Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open "C:\Users\swhiston\Desktop\IT Services Invoice.docx" 感谢GreatSc0tt

VBA Selection.PasteAndFormat添加换行符: 我有一个VBA脚本，在Excel中find一个命名的单元格，并根据Word中的标识符将其粘贴到Word中。我使用RegEx来查找标识符。我遇到的问题是，每当它粘贴的值（正确）“按Enter”，以便它进入下一行。它不应该。这是脚本： Dim objWord, objWordDoc, RegEx, objExcel, objWorkbook, content, texts, text, Text_Name Set RegEx = CreateObject("VBScript.RegExp") Set objWord = CreateObject("Word.Application") Set objExcel = CreateObject("Excel.Application") Set objWordDoc = objWord.Documents.Open("D:\Performance Review Template Rev1.docx", False, True) Set objWorkbook = objExcel.Workbooks.Open("D:\Template Rev1.xlsm", False, True) 'The entire content of the Word Document Set content = objWord.ActiveDocument.Content 'The […]

我想从单词中提取段落，并将其导入Excel电子表格中的单元格，并保留子弹数字和字母: 我需要一个word文档，并将其段落（hard breaks）导出到excel电子表格中的单个单元格中，同时保留项目符号和字母以及文本，表格和图表。我认为VBA将是最好的方法。我正在使用Office 2007。

从Excel中插入VBA到Word中: 我有一个电子表格，可以生成一个word文档，对其进行格式化，然后根据所选内容和input到电子表格中的内容，向文档中添加一大堆文本。所有这一切都很好。我想要做的是以某种方式插入VBA代码到Word文档在Excel中生成时。这里是我试图插入的具体代码 – 最终这需要进入Word VBA： Private Sub Document_Close() ActiveDocument.Saved = True End Sub 我似乎无法让Excel将此代码插入到正在生成的Word文档中。我知道这是可能的，但无法弄清楚。我尝试了几件事情，它接受我的代码，但我不知道它在哪里插入，因为当我寻找插入的行我找不到它们。这里是我用来生成Word documen的代码。有人可以请看看，让我知道如何将上述代码插入此文档？谢谢你提供的所有帮助。 Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Add With wrdApp.Selection 'A bunch of formatting code and text inputting is listed here for the word document. End With wrdApp.Visible = True wrdApp.Activate