Tag: ms word

运行excel或word之外的application.commandbars（）: 我试图找出一种方法来运行一个简单的VBA代码行： application.commandbars("research").enabled = false 不用打开excel或word（我想把这行代码同时用于excel和word）我正在考虑在vbs中创build一个word / excel对象，但想不到在对象的相同上下文中使用这一行代码的方法。

打开文件对话框获取Excel: 我已经写了一些需要Excel文件并更新Word文件中的标签（ActiveX控件）的Word VBA。这个Excel文件唯一的将会改变每个月的path和文件名。如何添加“打开文件”对话框，而不是每月编辑2个variables，以便用户select要使用的Excel文件？这是我现在拥有的： Sub Update() Dim objExcel As New Excel.Application Dim exWb As Excel.Workbook PathWork = "C:\My Documents\2015-05 Report\" CalcFile = "May2015-data.xlsx" Set exWb=objExcel.Workbooks.Open(FileName:=PathWork & CalcFile) ThisDocument.date.Caption=exWb.Sheets("Data").Cells(1,1) End Sub

在Excel中创buildstringVBA输出到Word将返回“False”，而不是string: 我试图在Excel VBA中build立一个string，然后输出到一个Word文件。我创build的基本string工作正常，但这些复杂的string作为“假”来到Word中，所以我不知道我做错了什么。我正在使用Excel / Word 2013。示例excel文件和word模板在这里： https : //dl.dropboxusercontent.com/u/5611192/Sales%20Package%20-%20Test%20for%20Word%20Proposal.xlsm https://dl.dropboxusercontent.com/u/5611192/Proposal.docx 不工作的string用以下循环构build： With Sheet1 For RowCnt = Firstrow To Lastrow If .Cells(RowCnt, 15).Value = "x" And .Cells(RowCnt, 13).Value = "" Then strProducts = strProducts & .Cells(RowCnt, 2).Value & " " & .Cells(RowCnt, 8).Value & Chr(11) ElseIf .Cells(RowCnt, 15).Value = "x" And Cells(RowCnt, 13).Value = […]

如何使用Excel VBAclosures手动打开的Word文档: 在运行excel vba代码之前，我已经手动打开了Word文档，是否可以closures通过Excel VBA打开的特定Word文档

遍历目录中的所有xls文件，复制范围，并粘贴到docx文件？: 我在一个目录中有大约500个Excel文件。所有文件在第一张表（相同的大小）上有一个表。我的客户希望他们都在一个字的文件。我不是一个VBA专家，尝试使用我在网上find的代码。我到目前为止已经遍历了目录中的所有文件。它也select和复制特定范围。但是，我如何获得转移到word文件？这是我做的： Sub LoopAllExcelFilesInFolder() Dim wb As Workbook Dim myPath As String Dim myFile As String Dim myExtension As String Dim FldrPicker As FileDialog 'Optimize Macro Speed Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual 'Retrieve Target Folder Path From User Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title […]

使用vba通过从Excel工作表导入的数据自动化Microsoft Word文档，使用variables过滤实际插入的数据: 我正在尝试用Excel中的信息填充Word文档。 Excel上的表看起来非常简单。 QUESTION |YES| DATA Prewritten question 1 | X | Prewritten data 1 Prewritten question 2 | X | Prewritten data 2 Prewritten question 3 | X | Prewritten data 3 那么我怎样才能在YES下自动填充带有variablesX的数据的新单词文档，只粘贴保存在数据列中的预写数据？我几乎在Word上使用这个步骤的邮件合并function，但是当我能够填充Word文档时，预写入的数据将被粘贴，但是每个从数据列粘贴的select将在Word上占据自己的页面，即使是短短的3个字的短语。

VBA Word格式mergefield: 我有一个字段函数，从Excel表格格式给定的数字（价格）。即： Fieldname = FieldName & " \# #.##0,00 USD" 它可以工作，但是如果这个值小于一千，那么哈希和这个点就被当作空格来读取。如何删除或防止空格显示在word文件中？

用VBA填充word文档中的excel数据: 我有一个word文档，我想填充来自excel的同样的话。可以说，两者都位于C：\testing我有一些使用VBA的知识，但这一点是有点过了。在我的文档中，我有一句话让我们说：我是firstname lastname ，我的用户名是username ，这是我的部门： department 我有一个名为数据的excel，一张名为sheet1的表与一个名为users的表和一些列：username，firstname，lastname，department。该表是一个odbc连接的表，并在工作簿打开时刷新。我的第一个问题是，我应该使用什么样的对象名字，姓氏，用户名，单词中的部门？我插入了一个富文本控件内容，并在其中一个传统的表单/文本格式字段，并将书签重命名为名字，姓氏等。我想使用macros和vlookup从Excel中填充单词中的数据。我真的不知道如何做到这一点，我有一些代码，但它不起作用。当macros启动一个窗口应该popup询问username和基于该值的其他框将被填写。代码如下： Dim objExcel As Object Set objExcel = CreateObject("Excel.Application") Dim username As String Dim firstname As String Dim lastname As String Dim department As String username = InputBox("Please enter the username", "Input") Set exWb = objExcel.Workbooks.Open("C:\test\data.xlsx") username = objExcel.WorksheetFunction.VLookup(username, _ eexWb.ActiveSheet.Range("A:F"), […]

调整同一段落不同部分的字体 – Excel VBA: 我通过VBA将数据从Excel中提供给Word文档。我想格式如下。 1. 售票＃452345： Lorem ipsum dolor sit amet，consectetur adipiscing elit，sed do eiusmod tempor incididunt ut labore et dolore magna aliqua。服务票据部分大胆和斜体，只是描述斜体。服务票号和说明来自Excel中的不同单元格。这是我的代码： '' Bookmark where I will be inserting the data. wdApp.Selection.GoTo what:=-1, Name:="Service_Ticket_Comments" Dim i As Integer Dim serviceTicket As String For i = 4 To shAuditTrail.Range("A4").End(xlDown).Row '' Pulling comments from the […]

使用VBA结合几个单词文档中的某些页面的内容: 我有一个关于在EXCEL使用VBA合并几个Word文档的内容的问题。这可能很简单，但我是新的VBA世界…目前，我可以打开一个单词文档并复制其所有内容将其粘贴到一个组合的文档重复步骤1和2 但是，我想知道如何使用VBA跳过所有文档的第一页。我尝试tempDoc.Range(Start:=2).Select ，但它没有工作。感谢您的任何build议！ Set objTempWord = CreateObject("Word.Application") Set tempDoc = objWord.Documents.Open(Folderpath to Word Document) Set objTempSelection = objTempWord.Selection tempDoc.Range.Select tempDoc.Range.Copy objSelection.TypeParagraph objSelection.Paste objSelection.InsertBreak Type:=wdSectionBreakNextPage tempDoc.Close