Tag: word vba
对于Excel中的每个单元格，在Microsoft Word中查找
我正在尝试查看是否可以在第9页和第15页之间的Microsoft Word文档的每个单元格中find值。当我到达想要设置search范围的部分时，Set Doc = wrdApp.Selection .Range给我的错误“types不匹配” 如果有人能够帮助我，我会永远感激。 这将最终为我节省数周的工作。 word文档不能复制到excel中 – 这是一个长期的探索。 word文档必须保持其格式，每个页面都有一些奇怪的标题，并合并格式化等。 谢谢，斯宾塞 Sub TFUpdate() Dim Wd, FinalRow, TableRow Dim wrdApp As Object Dim DoC As Range Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open("C:\Users\kimbersr\Desktop\Word Project\TF1.doc") wrdApp.Visible = True ThisWorkbook.Worksheets("sheet2").Activate FinalRow = Cells(Rows.Count, 1).End(xlUp).Row TableRow = 1 x = 1 For i = 1 To […]
将Excel图像粘贴到Word标题在Office 2013中不起作用
我有一个生成Word文档的Excel工作簿。 一次，它将Excel图像复制到生成的Word文档的标题中。 此代码在Office 2003,2007和2010中都能正常工作，但现在在2013年，它在Paste语句上失败，并在Paste方法中出现一个通用的自动化错误。 我希望有人可以帮助我在Office 2013中完成这项工作。要复制，请使用包含单个形状的名为“徽标”的工作表定义macros工作簿，添加以下代码并执行doctop子例程： Const wdCollapseEnd = 0 Const wdHeaderFooterPrimary = 1 Const wdPrintView = 3 Const wdSeekCurrentPageHeader = 9 Const wdSeekMainDocument = 0 次级（） 设置wd = CreateObject（“Word.Document”） wd.Application.Visible = True “插入带有标志的标题 工作表（“徽标”）形状（1）.CopyPicture xlScreen，xlBitmap 用wd.ActiveWindow.View .Type = wdPrintView .SeekView = wdSeekCurrentPageHeader 结束 用wd.sections（1）.headers（wdHeaderFooterPrimary）.Range .Collapse wdCollapseEnd 。糊 结束 wd.ActiveWindow.View.SeekView = wdSeekMainDocument 结束小组 在此先感谢您的帮助。
自动化从Excel中填充单词模板的过程所需的帮助
我是VBA的一名新手，如果有人愿意，我会很感激自动化一个过程的一些帮助。 🙂 我正在尝试从我创build的Excel电子表格中填充Word模板 我发现了一些代码，让我打开我的Word模板，但这是我能够去:(大声笑 Private Sub PrintHDR_Click() Dim objWord As Object Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Open "C:\Users\Duncan\Desktop\HDR.dotx" End Sub 我希望实现的下一步是将数据从某些单元格复制并粘贴到我的Word文档中。 我已经在Word中设置了书签，并命名了我希望复制的单元格。 一些单元格包含文本，其他单元格包含产生数字答案的公式/和。 在包含公式或总和的单元格中，这是我要复制到Word的答案。 任何帮助将非常感激。 提前致谢 ：） 邓肯
从Word中的内容控件提取数据到Excel
我有一个Word文档，它是“表单可填充的”，即它有内容控制对象，如富文本和dateselect器内容控件。 我正在寻找从特定领域的数据提取到Excel中。 例如，每个表单都有项目标题，开始date和pipe理器。 我想用这三个数据来为那个表单做一行。 最终每隔几个月需要完成几百个这样的表单，但现在我只想从一个开始。 我设想在Excel工作表上有一个button，它将运行VBA代码从Word文档中提取数据，并在工作表中填充适当的单元格。 Word文档的文件path是由用户指定的。 我是VBA新手。 如何将我的代码指向正确的文件，然后再次指向我需要的特定字段？ 我在Word文档中提供字段标题吗？ 这是在MS Office '13
如何导出Word文档中的所有表以分开Excel工作表
新的VBA，下面是我的Word VBA代码尝试和阅读Word文档中的所有表来分离Excel工作表（每个表一个）。 我遇到一个错误： WS.Cells(i, j) = myTable.Cell(i, j) 说： 请求的收集成员不存在 经过一些故障排除后，问题似乎与myTable.Cell（i，j），但每个表的大小应该处理…？ 想法，build议？ 谢谢！ Sub ReadTablesToExcel() Dim myTable As Table Dim RowsCount As Integer Dim ColumnsCount As Integer Dim oExcel As Object Set oExcel = CreateObject("Excel.Application") Dim oExcel1 As Object Set oExcel1 = oExcel.Workbooks.Open("C:\Users\Mike\Desktop\Book3.xlsx") For Each myTable In ActiveDocument.Tables Dim WS As Object Set WS = […]
Excel将文字alignment图片
我有一个从Excel中build立的报告，并在Word中输出，我也有一个名为“图片7”的图片。 我的问题是一旦这个从excel粘贴到word中有没有中间alignment的图片呢？ 该图片将作为一系列单元格的一部分进行复制。 所以我需要用word来引用图片。 它以单元格的范围为中心，但并不完全出现在单词文档中 编辑：目前我正在尝试这个 For Each shp In oDoc.Shapes If Left(shp.Name, 7) = "RN Logo" Then shp.Left = wdShapeCenter End If Next 但是，这只是把图片放在左上angular，我想是因为它粘贴的表格，我可能需要做一个绝对的位置。 编辑2：我find了一个工作，但它只是一个大的如果/绝对定位，片段下面 Sub Update_RN_Logo_Location() For Each shp In oDoc.Shapes If Left(shp.Name, 7) = "RN Logo" Then If Right(shp.Name, 1) = 1 Then shp.Left = oWord.CentimetersToPoints(2.4) Else shp.Left = oWord.CentimetersToPoints(0.75) End If […]
如何确定从Excel的特定的Word文档是否打开？
我希望我的Excelmacros可以通过在放置在模板文档中的书签之后插入电子表格数据来创build报告。 但是我发现， 如果模板文档文档已经打开，macros将会崩溃 ，因此模板文档将被locking为只读且不能被macros访问。 有没有办法来防止即使模板word文档已经打开，然后macros崩溃 ？ 以下是我的代码 Set wdApp = CreateObject("Word.Application") 'Create an instance of word Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\Templates\Template_Confirmation.docx") 'Create a new confirmation note
通过格式化将单词表导入excel
我需要将大量表格的Word文档导入到Excel工作表中。 这很容易，但是需要注意的是，在inputexcel时，要保留word doc的格式。 例如，字中的一些字段是蓝色，一些是红色的。 一些是蓝色的下划线，一些是红色的下划线。 基本上，Word文档中的任何颜色都需要在Excel表格中匹配。 这是我进行实际导入的代码。 Sub ImportWordTables_1() Dim wdDoc As Object Dim wdFileName As Variant Dim TableNo As Long 'table number in Word Dim iRow As Long 'row index in Excel Dim iCol As Long 'column index in Excel Dim tblCount As Long wdFileName = Application.GetOpenFilename("Word files,*.doc;*.docx", , _ "Browse for file containing […]
是否有可能在MS WORD文档的正文中使用UDF？
我知道在MS Excel中，可以在VBA模块中编写自定义函数 ，然后从Excel电子表格中调用它： =myfunction(arg1,arg2,…) 然而在VBA中，MS WORD可以做这样的直接调用，而不必在其周围有一个VBAmacros/子程序？
检查Word是否打开Excel
我正在努力弄清楚，如果我应该closuresExcel后做几个操作。 如果我已经打开了Excel（A.xls，D.xls）并启动我的Wordmacros，它从活动文档中获取值并将其转储到B.xls中，我希望我的macrosclosuresB.xls，但保留A和C. 但是，如果我没有打开A和C，我希望我的macros在完成运行后完全closuresExcel。 我尝试了几种方法来取得成功： Dim oXLApp As Object ' Get excel object closeExcelMy = FileHandling.setExcelObject(oXLApp) '********************************************************* '********* define if we need to close excel after sub is done '*********************************************************** Function setExcelObject(ByRef oXLApp As Object) As Boolean On Error GoTo notOpen setExcelObject = False Set oXLApp = GetObject(, "Excel.Application") ' On Error GoTo 0 ' If […]
