Tag: word vba

将不相邻的Excel列拆分为不相邻的Word表格列

想从Excel中复制三个范围的数据，然后将这三个不同的范围粘贴到现有的Word表格中。 Word文档是从另一个程序生成的，文件名称每次都不相同。 我需要拆分三个范围，并粘贴到单词表（1），但在列不匹配的Excel副本。 当前进程是复制一个Excel范围，alt + tab到Word文档并粘贴到表中，重复剩下的两个范围。 这是我的复制代码，但我需要“粘贴”的帮助。 Sub Copy_CV() Dim MaxVal As Long, C As Long MaxVal = Worksheets("Prop").Application.Max(Columns(2)) C = MaxVal + 3 Worksheets("Prop").Range("G4:G" & C).Select Worksheets("Prop").Range("L4:L" & C).Select Worksheets("Prop").Range("M4:M" & C).Select Selection.Copy End Sub

在Word表格单元格中设置为加粗的特定字符

我有一个MS Excel工作表与自定义脚本。 该脚本的一部分应该是编辑MS Word文档中的信息。 需要编辑的东西是存储在Word文档的表格单元格中的文本。 我设法编辑它自己的文本，但我需要将部分文本设置为粗体。 我怎样才能做到这一点？ 这是一个例子。 说我需要在表单元格（1,1）中input“123456789”，并将第一个字符“12345”设置为粗体。 喜欢这个： 从Excel。 这是我试过的： Dim SavePath as string SavePath = "… path …" Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(SavePath) objWord.Visible = True objDoc.Tables(1).Cell(1, 1).Range.Text = "123456789" 'So far, so good. The next part (how to set part of text to bold) is what I can't […]

将Word表格数据传输到Excel表格

我用几个来源和我自己的知识编写/编译了代码，但它一直给我错误。 我是新的Word VBA所以努力debugging它。 Word上的表包含标题和我使用的Excel模板有一个不同的布局比单词表，因此我需要根据标题sorting值，并将其插入到Excel模板中适当的列。 最后的模板应该保存为不同的工作簿，模板中的值应该被清除。 错误我得到的是：我得到“oCell.Value”部分编译错误，如果我设置oCell作为范围，但是，当我设置oCell作为对象我得到错误5941“设置rText = oTable.Cell（我，n） 。范围”。 我无法弄清楚如何。 另外，如果你告诉我在Excel VBA中实现这样的代码会更容易，我也很乐意在Excel上做同样的过程。 编辑：我已经添加了“Application.Templates.LoadBuildingBlocks”，但它仍然给出了相同的错误。 Sub Word2ExcelRTM() Dim oDoc As Word.Document, oXlm As Excel.Workbook Dim oTable As Word.Table Dim oRng As Word.Range Dim sFname As String Dim rText As Word.Range Dim rHeader As Word.Range Dim oWrks As Excel.Worksheet Dim oCell As Excel.Range Application.Templates.LoadBuildingBlocks 'Change the path in […]

VBAtypes错配

我写了一些我很满意的VBA代码。 它通过一个工作表上的列表，切换到另一个，并设置一个variables（从而改变了一些图），然后打开单词，在graphics中复制到各种书签，并将文档保存为variables名称。 它像一个魅力工作，我是一个快乐的男孩（节省了一个好的一周，为某人一些工作）。 我还没有触及它，或者就此而言的工作表 – 今天打开它，它是第一批给我一个types错配。 我真的很喜欢一些build议，因为它让我挠了脑袋。 Public X As Integer Public Y As String Sub Macro2() 'Set up variables that are required Y = "" LoopCounter = 2 Do Until Y = "STOP" 'Grab the value from a list Sheets("CPD data 13-14").Select Range("A" & LoopCounter).Select Y = Range("A" & LoopCounter).Value 'Change the chart values […]

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 有人有想法吗？ 我会很感激！ 谢谢 ：）

复制并粘贴包括书签的VBA

我有一个Excel工作表，我正在试图将信息粘贴到一个wordfile文件“模板”（只是在我想要的布局文件），其中包含书签。 我想要做的是： 复制word文档中的所有内容（包括书签） 将书签replace为我的工作表中的数据 转到页面底部，插入一个分页符并粘贴复制的文本，包括书签 循环通过点2和3为我的Excel文件中的所有行 我已经将一些代码修补到一起，但是我无法获取书签，粘贴书签的文本仍然完好无损。 你们能帮助我吗？ Sub ReplaceBookmarks 'Select template PickFolder = "C:\Users\Folder" Set fdn = Application.FileDialog(msoFileDialogFilePicker) With fdn .AllowMultiSelect = False .Title = "Please select the file containing the Template" .Filters.Clear .InitialFileName = PickFolder If .Show = True Then Temp = fdn.SelectedItems(1) End If End With 'open the word document Set wdApp […]

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

从Word中获取Word书签索引以replace书签内的图像

这个问题与前一个有关 。 我有一个打开的Word文档，有一堆书签，每个书签都有一个以前从Excel导出的Excel表格的内嵌图像。 现在，我需要更新Word文档中的表格，因为它们在Excel中已更改。 我这样做的方式是将Excel中的表名与Word中的书签名称进行匹配。 如果它们相等，我想用当前的WordreplaceWord中现有的图像。 这是我的代码到目前为止： Option Explicit Sub substituir() Dim Mark As String Dim Rng As Range Dim ShpRng As Range Dim WordApp As Object Dim DocumentoDestino As Object Dim folha As Worksheet Dim tabela As ListObject Dim nomeTabela As String Set WordApp = GetObject(class:="Word.Application") Set DocumentoDestino = WordApp.ActiveDocument For Each folha In […]

VBA Word – 将光标移动到边界之外的新行

我正在尝试将光标移动到使用VBA从Excel生成的Word文档中的新行。 我设法添加一个新行，但是由于Word文档中的最后一个文本条目具有顶部和底部边界，因此每添加一行都保留在这些边界内。 有没有办法离开这个盒子，超越边界？ 代码附上。 任何帮助，高度赞赏，谢谢！ Option Explicit Sub CreateWordDocument() Dim wdApp As Object Dim wdDoc As Object Dim wdSelection As Object Dim wdTable As Object Dim wdRange As Object Set wdApp = CreateObject("Word.Application") wdApp.Visible = True Set wdDoc = wdApp.Documents.Add Set wdSelection = wdApp.Selection With wdSelection .Font.Name = "Calibri Light" .Font.Size = "26" .Font.Color = […]