Tag: 书签

Excel vba插入书签之前不给予预期的字顺序: 我正在使用下面的代码来打开一个新的Word文档并添加书签。我试图插入多个单词书签'MyBookmark'来形成一个句子：“从前…” 我期望通过使用InsertBefore将单词插入到书签之前，并且可以在第一个单词之后添加下一个单词，因为书签在单词的末尾结束。这不是发生了什么事情，而是在创build句子的句子开始处添加单词：“一次……一次” 我怎样才能在句子末尾添加单词？我试过使用InsertAfter，它有相同的结果。我不想改变添加单词的顺序，因为这是不可行的，我想实现这一点。下面的代码是我想要在实际实现中打开保存为dotx文件的模板的示例。 Sub InsertBefore() ' Open Word document from template Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True wrdApp.Documents.Add wrdApp.Activedocument.Bookmarks.Add Name:="MyBookmark" ' Insert text wrdApp.Activedocument.Bookmarks("MyBookmark").Range.InsertBefore "Once " wrdApp.Activedocument.Bookmarks("MyBookmark").Range.InsertBefore "upon " wrdApp.Activedocument.Bookmarks("MyBookmark").Range.InsertBefore "a time…" End Sub

复制并粘贴包括书签的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 […]

Word VBA – 使用定义的名称从excel插入数据: 我有一个Excel工作表中的一些数据。工作表中的每个单元格都有一个定义的名称。我也有一个书签定义的文字文件。每个书签与Excel中的单元格具有相同的名称。我有我的VBA代码。现在，我正在尝试1.转到Word 2中的每个书签。转到excel并转到具有相同定义名称的单元格。3.将单元格中的数据插入单词中的书签位置。这是我有： Dim wb As Excel.Workbook Dim excelPath As String Dim numBM As Integer Dim countBM As Integer Dim currentBM As String numBM = ActiveDocument.Bookmarks.Count excelPath = getFilePath() 'separate function to get the location of the excel file Set wb = Excel.Workbooks.Open(excelPath) For countBM = 1 To numBM currentBM […]

VBA导出Microsoft Word书签和select文本到Excel电子表格: 我最近在我的工作中负责了客户端的文档标准化工作。他们是政府，所以我不能以任何方式作为参考。抱歉。我想在VBA中做的是有一个大约80个书签的Word文档（有27个文件，我必须这样做）将书签的.Name和.Selection提取到Excel工作表。作为一个例子，我提供了以下内容：你好，我的名字是世界！如果以上是一个单词文件， World! 是书签和（ Doc_World ）的select将是书签名称。我正在尝试编写将写入"Doc_World"和"World!"的macros 到一个Excel表格。最后一个警告是，目前没有任何标准，所以我需要它只是在当前打开的文档中循环浏览书签。我实际上设法find了一些我想做的事情，然后拼凑了一些我一起发现的信息来创造一些有用的东西，但是你必须事先创build所有的xls文件。 @RachelHettinger比我自己想出了更多，更优雅的答案。为了参考，以下是我的frankenstein： Sub WdBkMktoXL() Dim ObjExcel As Object, ObjWorkBook As Object, ObjWorksheet As Object Dim Bmk() As String Dim x As Integer, J As Integer Set ObjExcel = CreateObject("EXCEL.APPLICATION") Set ObjWorkBook = ObjExcel.Workbooks.Open("C:\Users\Zach\Desktop\ETTP\TermsAndConditions\1.xlsx") Set ObjWorksheet = ObjWorkBook.Worksheets("Sheet1") x = ActiveDocument.Bookmarks.Count […]

书签特殊粘贴，Excel在相同的文件夹中查找: 我有一个Word文档和一个Excel文档，我创build了Word中的书签和特殊的粘贴到Excel中……这些书签工作时间长，因为文件保持在原始位置（例如-C：\ Documents and Settings \ My文件\新窗体）但我需要将文档移动到不同的客户端位置（例如 – C：\ Documents and Settings \ My Documents \ client1 ）在excel中的单元格信息是这样的; =Word.Document.8|'C:\Documents and Settings\My Documents\NewForm\TestFactFind.doc'!'!Title' 有什么我可以把所以Excel文件将查find其当前的文件夹来findWord文档，而不是一个设置的位置？