Tag: word vba

从Word文档访问Excel电子表格: 我在Word VBA 2010中有以下代码 Dim oExcel As excel.Application Dim oWB As workbook Set oExcel = New excel.Application Set oWB = oExcel.Workbooks.Open("C:\users\jane\desktop\excelSheet.xlsx") oExcel.Visible = True Set oWB = oExcel.Workbooks.Open() 它在第一行中抛出了一个用户定义的types – 基本上，代码不知道什么是excel.Application是; 但它知道应用程序是什么。如何让它知道什么是excel.Application是？另外，假设它知道一个excel.Application是什么，这个代码是否会在给定的位置打开excelSheet.xlsx？

如何正确执行Excel VBAmacros？: 我和我的同事们创build了一个用户表单，其中包含用于在Excel和Word中执行任务的一套工具我非常熟悉从模块产生应用程序对象，并closures它们而不影响其他任何东西 – 或其他Excel的运行副本。但是，用户表单必须从某处开始 – 这会在后台打开Excel表单。我已经尝试了Application.Visible = False但是这隐藏了所有打开的工作簿 – 如果您打开其他工作表我正在考虑创build一个Excel的包装工作表，并运行macros（在自己的Excel实例中产生macros） – 这个工作，但然后我留下了包装工作表和潜在的孤儿Excel应用程序，如果我closures我的父母。有没有比这更好的方式来执行macros而不影响MS Office上的其他用户体验？

从Excel列表中“查找并replace”Word中的多个单词: 我在MS Word中创build了一个查找并replacemacros，用B代替了A。好的，但现在我有50个需要replace的单词。这意味着我将不得不为每个单词创build一个新的条目，这将需要永远。再加上从现在开始的几个星期，我将不得不添加更多的单词来取代。有没有办法通过Excel链接单词列表，比如说第1列中的单词是我想用第2列中的匹配单词replace的单词？这是我迄今为止。 Sub Macro5() ' ' Macro5 Macro ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "apples" .Replacement.Text = "all the apples" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute […]

使用子内部的函数（使用Word和Excel的VBA）: 我有一个私人的子（命令button）内使用私人function的问题。它不会返回任何错误…也不会做任何事情。当我按下Word文档中的命令button时，它应该形成行，并从Excel工作表中导入数据，直到Excel中的最后一行，这就是我正在试图让函数做 – find最后一行工作表。如果你能看我的代码，并让我知道如果你知道为什么它不会工作，我会很感激。我需要在Private Sub commandbutton_2_Click（）中有这个函数吗？先谢谢你。 Private Sub CommandButton2_Click() Dim tbl As Table Dim row As row Set tbl = ActiveDocument.Tables(2) Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook On Error Resume Next Set exWb = objExcel.Workbooks.Open("S:\Electro-Protocol\Mot_Protocols\" & TextBox1 & ".xls") Dim lastRow As Integer lastRow = GetLastRow(objExcel, exWb) ActiveDocument.Tables(2).Columns.DistributeWidth […]

VBAalignment某些文字离开？: 我正在使用下面的代码来查找和replaceWord文档中的某些文本。代码正在执行从Excel工作簿。 Sub Macro1() Dim app As Word.Application Dim doc As Word.Document Set app = CreateObject("Word.Application") app.Visible = True Set doc = app.Documents.Open("G:\QUALITY ASSURANCE\03_AUDITS\PAI\templates\Audit Announcement Template.docx") With doc.Range.Find .Text = "22nd May 2017" .Text = "Supplier Name" .Text = "The Address" .Text = "Audit Code Goes Here" .Text = "Production Site Address Goes Here" .Replacement.Text […]

将word格式链接到excel: 我是教练机构的IT人员。我很早以前就devise了一个表格，通过这个表格我们可以input要进入的细节。之后，当一个批次的学生人数超过了我们可以很容易的跟踪的时候，我devise了一个excel数据库。现在唯一的问题是devise一种方式，我可以复制表单域的内容并链接到数据库。希望我得到的东西，一个更容易的VBA的事情也会好起来的

将数据从MS Word移到Excel: 我有一个Microsoft Word文档，有400个select题的testing题。我需要将所有这些文本放到一个Microsoft Excel图表中，如果我能够有一个允许我select所有以a.开头的文本的macros，我认为这会更容易a. 并在a.之后的第一个段落对象结束部分a. 。我试图得到帮助，被告知使用下面的macros，但macros没有做任何事情。我只想让macros只select所有的文本。如果我要在Microsoft Word中手动执行此操作，则按住Ctrl并突出显示a.开头的所有文本a. 并在第一段落对象结束。 Sub Aselection() ' ' Aselection Macro ' Dim pgh As Paragraph For Each pgh In ThisDocument.Paragraphs With pgh If Left(.Range.Text, 2) = "a." And Left(Right(.Range.Text, 3), 2) = "a." Then Debug.Print .Range.Text End If End With Next End Sub

VBA：variables别名: 重新构build了这个问题：我使用了一个范围（包含头文件）来定义一个数组，我初始化并从表中提取数据。事情进展顺利（冗余和重复代码），但我可以直接写入数组到Excel行。但是代码需要validation和初始化，因此我将其迁移到封装了两个需求的类中。 dynamic实现需要用InsertLines重写类。问题是，现在我有一个类的数据，但我不知道如何写它到一个单一的行。以前的algorithm： Dim MyRange as Range Dim sTR() as string 'set myrange to a specific range of cells' 'Redim the sTR array to match the number of unique variables in the range 'Extract values from multiples rows in a table to the sTR array' 'Write the array to the Excel file […]

VBA ExcelclosuresWord文档中的灰度: 我一直在控制Word文档的Excel应用程序的问题。基本上，Excel自动填写一个Word文档，并将其打印在您select的networking打印机上。问题是我需要打印的Word文件的颜色，我似乎无法closures打印时灰度选项。灰度选项是打印属性菜单中的打印选项。我试过了.BlackAndWhite = false但没有运气。感谢你给与我的帮助。

使用VBA将Excel对象导出到MS-Word: 我想创build一个Word文档的Excel结果，这样做我将使用VBA导出带有文本的形状。我可以将Shape导出到word文档，但是一旦文字变为文字，文本就会丢失。有人可以让我知道我做错了什么，或者需要添加到让我的形状包含文字，一旦它到达Word文档。问题：一旦复制到单词上，我的形状上没有文字 Dim wrdApp As Word.Application Dim embedWord As oleObject Dim wordDocument As Object 我的Word文档embedded到Excel中 Set embedWord = ActiveWorkbook.Sheets("Sheet1").OLEObjects(1) embedWord.Verb Verb:=xlPrimary Set wordDocument = embedWord.Object wordDocument.SaveAs (ActiveWorkbook.Path & "\test1.docx") Set wrdApp = GetObject(, "Word.Application") wrdApp.Quit 我保存word文档，然后将其分配给我的wrdApp Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open ActiveWorkbook.Path & "\test1.docx" 这是一个矩形，我可以得到复制到单词，但没有文字来与它。 ThisWorkbook.Sheets("Sheet1").Shapes("Rectangle 8").Copy With wrdApp .Selection.Goto What:=wdGoToBookmark, Name:=Bookmark1 'Using […]