Tag: ms word

Excel VBA将每个命名的范围粘贴到单词上: 我有dynamic命名的单元格的范围。我需要将每个已命名的范围粘贴到单词的一个页面中，并移动到下一个命名范围的下一页。我尝试了一些代码，我无法做到。每个命名的范围数据都是相互重叠的。任何人都可以帮助我，请。 Set wbBook = ActiveWorkbook Set rs = wbBook.Names(1).RefersToRange For i = 2 To wbBook.Names.Count Set rs = Union(rs, wbBook.Names(i).RefersToRange) Next rs.Copy With wd.Range .Collapse Direction:=0 .InsertParagraphAfter .Collapse Direction:=0 .PasteSpecial False, False, True Application.CutCopyMode = False End With

从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？

Word VBA代码有运行时错误1004每隔一段时间运行: 我已经创build了下面的简单代码，以便将Word文档中的表导出到Excel文件中。我正在寻求将这个概念应用到一个更大的项目。代码运行良好的初始时间，但每隔一段时间都有运行时错误1004。 debugging被取消后，它再次运行良好。任何帮助将不胜感激。读取object'_Global的方法'Cells'失败 Sub tableexport() Dim oExcel As Excel.Application Dim Word As Document Set Word = Documents("Comps extraction from reports") Dim i As Long Dim j As Long Dim RowWord As Long Dim ColWord As Long Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open("C:\Users\chris\Desktop\TABLE EXPORT.xlsx") oExcel.Visible = […]

我想用poi创buildword或excel文件的副本: 我想用poi创buildword或excel文件的副本。我知道在阅读word或excel文件时也使用poi。阅读不仅意味着价值观，还意味着每个单元格的字体大小，表格颜色和背景颜色等属性。读取xlsx或docx文档的值和属性时，我想按照原样复制单词或Excel文档。有没有可能在任何网站的开放源码打开相关的源代码？

复制直到最后一块数据: 是否有可能select范围复制到最后一个项目？ Sheets("Design").Select Range("A1:C200").Copy 'My data only runs until E48 and Im left with 152 blancs. 所以，现在它从A1复制到E200，但是如何编辑上面的代码，直到最后一个数据，在我的情况下是E48？（这是可变的）谢谢！ @Jean 在我的Excel表中，我有从A1-A18运行的数据，B是空的，C1-C2。现在我想复制所有包含值的单元格。 With Range("A1") Range(.Cells(1, 1), .End(xlDown).Cells(20, 3)).Copy End With 这将复制从A1到C20的所有内容，但我只希望A1-A18和C1-C2看起来好像这些包含数据。但它需要以一种方式形成，一旦我有数据在B或我的范围扩展，这些也得到了复制。这可能更清楚一点吗？关于复制/粘贴情况; 我目前使用这个粘贴 appWD.Selection.PasteSpecial ' So it copies the formats too? 'In your case, do you mean I should do it like this? Range(.Cells(1, […]

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

使用子内部的函数（使用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 […]

在.NET中从Excel和Word文件读取最简单的方法: 这是真正的自我教育。但是，有没有更简单的方法来从Excel表读取，而不使用COM / INTEROP DLL？任何其他方式微软可以更容易地从单元格读取Excel表单元格中的值（以及Word中的Word ）？

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 […]

无法在iOS 7 SDK中打开.docx或.xlsx文件，仍然可以正常工作，如.doc，.xls，.rtf，.txt等文件格式: 我想打开.docx和.xlsx文件（Office 2007之后的Ms-Word的更新版本）。我已经尝试用iOS SDK UIWebView和QLPreviewController加载path文件。这些框架与.xls，.doc，.txt，.rtf，所有图像文件合成器和audio和video文件合成器一起使用，但不能打开格式为.docx，xlsx的文件。我怎样才能做到这一点。