Tag: ms word

Vba：通过Excel.Application在Word中编辑图表: 我有一个简单的问题：我想编辑一个Word文档中的所有图表。更确切地说，我想在所有图表中执行search和replace（他们的数据更加精确）。现在我的做法是做这样的事情： Dim appExcel as Excel.Application Dim wb as Excel.Workbook Dim ws as Excel.Worksheet Dim shp as InlineShape Dim cht as Word.Chart For each shp in ActiveDocument.InlineShapes If shp.HasChart then set cht = shp.Chart 'Here comes the Question: how to assign the chartdata.workbook to wb? end if next shp 有人有想法吗？我会很感激！谢谢：）

使用EXCEL中的VBA代码复制WORD文档的上下文和格式: 在EXCEL ，我有一些VBA代码来打开Word文档A并将其内容从某个页面复制到一个新文档。目前，我可以复制它的文本。我想知道如何复制context和formatting 。下面是我目前的代码，我感谢任何build议！ Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objWord.Visible = True Set objSelection = objWord.Selection 'Prepare Document B objDoc.SaveAs (Folderpath to Document B) Set objTempWord = CreateObject("Word.Application") Set tempDoc = objWord.Documents.Open(Folderpath to Document A) 'copy context from Document A With tempDoc.Application .Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="2" .Selection.EndKey Unit:=wdStory, Extend:=wdExtend .Selection.Copy […]

如何编程selectWord文档的元素并复制到Excel: 有没有办法通过VBA函数调用来获得某些“段落，图像，标题1，标题2”和其他“单词元素”的集合。我正在研究这个，我运行accros ActiveDocument.fields ，但似乎并不是这样。我需要做的是将这些元素一个接一个地复制到一个excel文档中，但是我不知道如何访问它们。是否有任何集合或访问这些语法的语法？我的想法是做一个循环，并在那里使用它，我可能会发生这个错误。

如何将Excel数据导入Word的ContentControl: 我在文档上放置了纯文本内容控件。我打开macros并有以下代码 Sub PrefillDocument() ' ' PrefillDocument Macro ' ' Dim docName As ContentControls Dim objExcel As Object Dim FileName As String FileName = ActiveDocument.Path & "\CountyData.xlsx" Set objExcel = CreateObject("Excel.Application") Set exWb = objExcel.Workbooks.Open(FileName) MsgBox exWb.Sheets("4").Cells(1, 2) // Works ' Having problems trying to get the data from Excel into the content control Set […]

Vb.net：Word表格到Excel数据传输问题: 我可以成功地传输数据…我唯一的问题是这些奇怪的矩形放在Excel工作表的每个条目中是什么？我计划使用这张表格中的信息进行查询，并想知道它们是什么，为什么发生，以及如何摆脱它们。

从Excel返回一个值: 我有一个问题，从Excel表中获取价值。我正在按照教程，但它不起作用。我也包括Excel引用到word中，但仍然不能返回值这是我的代码： Sub Return_a_Value_from_Excel() Dim mySpreadsheet As Excel.Workbook Dim strSalesTotal As String Set mySpreadsheet = GetObject("C:\Documents\Book1.xls") strSalesTotal = mySpreadsheet.Application.Range("Test").Value Set mySpreadsheet = Nothing Selection.TypeText "Current sales total: $" & strSalesTotal & "." Selection.TypeParagraph End Sub 我只想返回在Excel中写入的值

MS Word引用不是函数| 自动化错误 – 库未注册| 错误-2147319779（8002801d）: 上下文我使用Excel中的Word打开文档并更新其中的链接。起初，Word正在打开并打开文档，但是我收到了错误信息： For Each aField In oDoc.Fields 试图简单地取消选中后，然后重新检查“Microsoft Word”引用，我也有同样的错误： Set oW = VBA.GetObject(, "Word.Application")和 Set oW = VBA.CreateObject("Word.Application") 然而，像oW As Word.Application这样的variables的声明似乎不会引起任何问题… Dim oW As Word.Application, _ oDoc As Word.Document, _ aField As Word.Field, _ aIs As Word.InlineShape, _ aSh As Word.Shape, _ fCt As Integer, _ isCt As Integer, _ i As Integer, […]

VBA Word更改表中的行和列的大小: 在Word中嵌套的表格我有一个模板，在工作中本质上是一个4行的列。每个单元格都标有书签。我已经将表格从Excel复制到Word中的一个书签（在单元格内）。现在我试图格式化这个“嵌套的表”，使其适合根据我想要的列宽（对于某些列），但我真的很努力的语法。此外，在表中，第一行包含一些合并的单元格（一些合并到相邻列中的单元格中，一些在下面的行中）。我正在尝试的代码是： With wd.Tables(2) .Columns(2).Width = 20 End With 但是我不断收到“运行时错误5941”：收集的请求的成员不存在。这是否意味着我不正确索引它？ Tabels(2)意味着在4行单元的较大单列内引用“嵌套表”。如何正确索引/find索引？当我合并单元格时，如何更改宽度？我需要：先把它们分开>调整宽度>重新合并？另外，我在VBA Word中这样做，如果我在excel VBA中引用“Microsoft Word xx.0 Object Library”，我可以在Excel中执行此操作吗？

VBA excel嵌套数据从excel到word中的表格（将excel数据复制到Word表格中）: 我试图从excel中用VBA Excel粘贴一个表格。我将它粘贴到一个单元格中，在Word中创build的4行单列表中。所以它本质上是一个嵌套的表格。我不断收到，运行时错误4605：对象select方法“PasteAsNestedTable”失败我试图使用PastAsNestedTable，否则我得到关于单元格不匹配的运行时错误，因为它试图合并两个表。所以我得到它说PasteAsNestedTable不是一个select的方法，但我怎么解决这个问题？我更新的代码是： Dim wdApp As Word.Application Dim wdDoc as Word.Document Dim tabl1 as Table, tabl2 as Table Set wdApp = new Word.Application With wdApp .visible = True .Activate .Document.Add(location) Set wdDoc=wdApp.ActiveDocument With wdApp Charts("chart1").ChartArea.Copy .Selection.GoTo what:=-1,Name:="chart1" .selection.Paste (Then add some more charts) End With Sheets("Sheet1").Range("A1:F10").Copy Set wdDoc=wdApp.ActiveDocument wdDoc.Bookmarks("table").Range.PasteAsNestedTable […]

Excel VBAbutton将工作表复制到新的Word文档: 下面的代码复制工作表中的表格，并将其粘贴到新的Microsoft Word文档中。唯一的问题是，当粘贴在word文档中时，它会切断一半的表格。有什么build议么？谢谢。 Sub btnExport() Dim objWord As Word.Application Range("C2:D60").Copy Set objWord = CreateObject("Word.Application.14") With objWord .Documents.Add .Visible = True .Selection.Paste End With End Sub 我正在使用的工作表