Tag: ms word

从当前工作表粘贴到书的结尾到Word文档作为图片

我目前有一个工作macros（从TheSpreadsheetGuru修改代码），从A1复制到列H中最后一次使用的行，并将该数据作为图片粘贴到Microsoft Word文档。 它工作的很好，但我必须运行macros超过20次（每张一次），我有多个报告，我每周运行这个相同的标准。 是否有可能让这段代码遍历工作簿末尾的活动工作表（这将是所需的第一个工作表）中的所有工作表？ 我可以使用工作表名称（Linda是第一个，Victoria是最后一个表格），但名称更改频率相对较高，往往会添加更多的表格，而且我不希望每次都更改代码。 Sub PasteAsPicture() Dim tbl As Excel.Range Dim WordApp As Word.Application Dim myDoc As Word.Document Dim lastrow As Long Dim startcell As Range Set startcell = Range("H4") PicNme = ActiveSheet.name & ".docx" 'Optimize Code Application.ScreenUpdating = False Application.EnableEvents = False 'Copy Range from Excel With ActiveSheet lastrow = ActiveSheet.Cells(.Rows.Count, startcell.Row).End(xlUp).Row Set […]

VBAreplaceword文档中的某些文本？

我正在使用下面的代码来尝试replaceWord文档中的某些文本并将副本另存为。 这是我的代码： 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 app.doc.Content.Find .Text = "Insert Date" .Replacement.Text = "Hello" .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With doc.SaveAs Filename:="G:\QUALITY ASSURANCE\03_AUDITS\PAI\templates\Audit Announcement Template2.doc", _ FileFormat:=wdFormatDocument doc.Close app.Quit End Sub 我在这一行得到一个编译错误： With […]

VBA运行时错误：91

我正在尝试使用Outlook发送电子邮件到column:A每个电子邮件地址column:A在Excel工作表中，并在主体中插入一个Word文档。 我写了下面的代码，但它给了我运行时错误91.我正在使用Office 2013。 Public Sub Create_Outlook_Email() Dim OutApp As Object, OutMail As Object, OutWordEditor As Object Dim WordDoc As Object Dim wordfile As String Dim rng As Range Dim row As Range Dim cell As Range 'Create new Outlook email Set rng = Range("a2:a50") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) Set OutWordEditor = […]

VBA从word doc中的表复制文本到excel？

我有一个单词文件： Table 1 AA BB Table 2 CC DD 我试图从word文档中的表格中将每段文本复制到Excel中的单元格，如下所示： Excel中： Column A Column B AA BB CC DD 下面的代码只是复制我的Word文档中的最后一个表。 生成这个结果： Excel中： Column A Column B CC DD 这是我的代码： Sub ImportWordTable() Dim objWord As Object Dim wdDoc As Object Dim wdFileName As Variant Dim TableNo As Integer 'table number in Word Dim iRow As Long […]

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

从Microsoft Word中的表中检索文本？

我有一个像这样的文字文件： Table 1 Table 2 Some Text My Value 我想在Excel中使用VBA来检索表2中的文本，并将其放入我的表（“计算”）。 出于某种原因，这是行不通的，我的工作表上没有任何值。 我没有错误。 这是我的代码： Sub ImportWordTable() 'Application.ScreenUpdating = False 'Application.DisplayAlerts = False 'Application.EnableEvents = False Dim wdDoc As Object Dim wdFileName As Variant Dim TableNo As Integer 'table number in Word Dim iRow As Long 'row index in Excel Dim iCol As Integer 'column index in […]

如何访问mailmerge收件人variables？

我需要访问这个值，这可能吗？ 它存储在哪里 我需要通过VBA访问它（它在脚本中使用）。 这是我想要访问的号码的图片。

Excel VBA：遍历所有的单词文档并提取表格数据？

编辑的问题： 我有一个包含多个word文档的文件夹（docx和doc格式）： Word Doc 1 Word Doc 2 Word Doc 3 etc. 目前，我在Excel中有一个VBA代码循环遍历单词文档，并将所有表格数据提取到我的电子表格中。 码： Sub ImportWordTable() 'On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Dim oWordApp As Word.Application Dim wdDoc As Word.Document Dim MyFile As String Dim wdFileName As Variant Dim TableNo As Integer 'table number in Word Dim iRow As Long 'row […]

为什么我的vba代码保持冻结？

所以我只是想打开word文档，然后得到它们的价值，但它似乎不工作，并冻结我的excel。 有人知道我要做什么吗？ 我试图循环通过一个文件目录，然后打开每个和做的事情 Public i As Long Sub loopDir() Dim file As Variant directory = "D:\Exceloplossing\ZRM\" file = Dir(directory & "*.docx") Do While (file <> "") Call transfer(directory & file) file = Dir Loop End Sub Sub transfer(file As String) Dim objWord As Word.Application Dim objDoc As Word.Document Dim wb As Workbook Dim wsZRM As […]

使用VBA从excel中获取数据到office数组

我有一个Excel文件，其中存储在列中的一些文本和关键字。 我想使用Excel中的数据，使用vba在Word中进行一些高级search。 但是我收到一个错误，试图将excel单元格中的数据转换为vba单词中的数组。 我已经使用了转置excel函数，但它不处理超过255个字符，所以我无法获得超过255个字符的单元格的值。 如果有人能帮我一把，我会很感激。 Option Explicit Dim strArray Dim range As range Dim i As Long Dim numberOfUniqMatches As Integer Dim totalMatches As Integer Sub HighlightMatchesAndSummarize() totalMatches = 0 '************************************ GET DATA FROM EXCEL *************************************** Dim xlApp As Object Dim xlBook As Object Const strWorkBookName As String = "D:\keyword_source_3.xlsx" On Error Resume Next Set […]