Reappearance of Error 91

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Embedded document's Word icon missing after closing. Using Word 97. When I embed other Word documents in a document and select to display them as icons, the documents open fine and allow changes, but after closing, the Word icon is missing from the main document. If I double-click the area where the icon previously appeared, the embedded document reopens. But, when it closes, the icon does not display in the main document. The placeholder is there but no icon. How can this problem be solved? Thank you, Charlie charlie6067 Tag: Reappearance of Error 91 Tag: 106583
 - 2
 - calculating age in word xp i want to list a birthdate on one line and todays date on another, and then in a third spot have the persons age calculated. Can anyone tell me how to do this. I am new to this and would need step by step instructions. Help please Tag: Reappearance of Error 91 Tag: 106580
 - 3
 - Macro to print watermark Thanks to this group I have code to print the part of a document located between two bookmarks: Set r = ActiveDocument.Range( _ Start:=ActiveDocument.Bookmarks("DocStart").End, _ End:=ActiveDocument.Bookmarks("DocEnd").Start) r.Select ActiveDocument.PrintOut Range:=wdPrintSelection Set r = Nothing Selection.HomeKey unit:=wdStory I have placed this code into an add-in, and I use an autoexec macro to add a custom toolbar with a button for running the macro. It works as it should (although I wish I could get it to print the header and footer, but that may not be possible, from what I can understand). However, the main reason for this post is that I would like to add a watermark to the range of pages being printed. This is some code (abridged for readability) I created using the macro recorder (except that I changed "PowerPlusWaterMarkObject1" to "msoTextEffect1"). ActiveDocument.Sections(1).Range.Select ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, _ "XYZ Company", "Arial Black", 1, False, False, 0, 0).Select Selection.ShapeRange.Name = "msoTextEffect1" Selection.ShapeRange.TextEffect.NormalizedHeight = False ' More Selection.ShapeRange items ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument I can run the macro in the document in which it was created, but I cannot find the trick to having the macro run in the document containing the bookmarks. In other words, I open a document, and the Add-In loads with the code to print between the bookmarks. I can run the macro, and it prints only the part of the document it should. However, I cannot get it to run the watermark code on the open document. I expect part of the problem is that Sections(1) does not apply, and things of that sort, but I can't seem to sort it all out. Can I run the watermark code along with the code to print the selection between the bookmarks? Tag: Reappearance of Error 91 Tag: 106579
 - 4
 - Placing checkbox on Flexgrid Hi, I am trying to place a checkbox on a flexgrid using the following code. Everything works fine, but I cannot see the checkbox. Can you please let me know what am I missing here? I have 11 columns in the grid and I want the checkbox to be on 1st row after heading row and on the last column. Dim NewCheckBox As MSForms.CheckBox mshflgrReport.Row = 1 mshflgrReport.Col = 10 Set NewCheckBox = Me.Controls.Add("Forms.checkbox.1") With NewCheckBox .Name = "MyCheck" .Caption = "" .Top = mshflgrReport.Top + mshflgrReport.CellTop .Left = mshflgrReport.Left + mshflgrReport.CellLeft .Width = mshflgrReport.CellWidth .Height = mshflgrReport.CellHeight .Font.Size = 7 .Font.Name = "Tahoma" .BackColor = &HFF00& .Visible = True .Value = True End With Thanks in advance, -- Pranav Vaidya VBA Developer PN, MH-India Tag: Reappearance of Error 91 Tag: 106577
 - 5
 - Tidying up code - printing macro I need help tidying up my code or making it easier to reference. I have a few macros that do similar things each one sets a different paper tray on the printer. You will see that I have written it so that it checks the printers location so it knows which printer tray to select. Is there a way I can change it to references the printers once instead of in each macro. Many thanks for your help in advance Code:Sub Print_LH() sLocation = GetPrinterDetails.Location 'HP Printers If InStr(sLocation, "TH20194") Or InStr(sLocation, "TH20485") Or _ InStr(sLocation, "TH30412") Or InStr(sLocation, "TH20192") Or _ InStr(sLocation, "TH20482") Or InStr(sLocation, "TH30413") Or _ InStr(sLocation, "TH20484") Or InStr(sLocation, "TH20193") Or _ InStr(sLocation, "TH20195") Or InStr(sLocation, "TH30142") Or _ InStr(sLocation, "TH20164") Or InStr(sLocation, "TH30041") Or _ InStr(sLocation, "TH20165") Then With ActiveDocument.PageSetup .FirstPageTray = 2 .OtherPagesTray = 2 End With 'Sharp MX4500 Printers ElseIf InStr(sLocation, "TH30441") Or InStr(sLocation, "TH30449") Or _ InStr(sLocation, "TH30143") Or InStr(sLocation, "TH30461") Then With ActiveDocument.PageSetup .FirstPageTray = 259 .OtherPagesTray = 259 End With 'Sharp 450 Printers ElseIf InStr(sLocation, "TH30141") Or InStr(sLocation, "TH30442") Or _ InStr(sLocation, "TH30143") Or InStr(sLocation, "TH30245") Then With ActiveDocument.PageSetup .FirstPageTray = 2 .OtherPagesTray = 2 End With Else: MsgBox "The Printer you are trying to use is either not networked or incorrectly set up." _ & vbCrLf & "In the first instance please use the File|Print Menu (Ctrl P)." _ & vbCrLf & "In the second instance please contact IT on Ext 109. " & sLocation, vbOKOnly End If Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False End Sub Tag: Reappearance of Error 91 Tag: 106571
 - 6
 - Inserting Table of Contents @ End of Word Document Hello, I am using Word COM to automatically add some text to page 1 of a document, then insert a TOC (Table of Contents) on Page 2. I am struggling on how to tell it to insert the TOC at the END of the document (As I am building it upwards). When I try and do an insert it deletes the text I've placed on page 1. set objword = CreateObject("Word.Application") objword.visible = True set objDoc = objword.Documents.Add() set objSelection = objWord.Selection objselection.TypeText("FIRST PAGE TEXT HERE") objSelection.InsertBreak(7) set myRange = objDoc.Range(0,0) objdoc.TablesOfContents.Add myRange Many Thanks in advance Mark Tag: Reappearance of Error 91 Tag: 106565
 - 7
 - how to control the encrypted word document's password? i have added readonly and modify password to word document using VBA,but when i open the encrypted word document ,i can remove the readonly and modify password with word's tool,how to let me can not remove the readonly and modify password . Tag: Reappearance of Error 91 Tag: 106564
 - 8
 - Macro that searches for highlights Strange happenings. I have a macro that searches for highlighting and copies it to the clipboard. Occasionally, the macro aborts with an error because there's nothing to copy. 1) If I manually search for highlights, I don't find any. 2) The macro supposedly finds something, but the cursor is still sitting at the top of the dcoument when the error occurs. 3) I tried to test for a zero-length field to work around the problem, but the selected data wasn't zero-length. ???? Note #2. 4) I eventually traced the problem to certain cells in a table. a) If I delete the data in that cell, the problem persists. b) If I select the cells and "remove highlighting" then the macro works fine. I know the solution, but I need more.. * Does anyone know what might be happening? * I want to find a way to train my macro to detect the problem and not abort when it encounters it. Just in case, here's the relevent portion of the macro (I've test it to see if it is troubled by those nasty cells -- it is): Sub temp3() Selection.Find.ClearFormatting Selection.Find.Highlight = True With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True End With If Selection.Find.Execute = True Then MsgBox "Found" End Sub I'm afraid I don't know how to let you examine the cells. -- JohnTheTemp Tag: Reappearance of Error 91 Tag: 106509
 - 9
 - Making a Process Alphabetical I have an ongoing problem. I use a program written in Access that manipulates a bunch of Word documents. I'll spare you the details, but the program basically does the following... (1) Creates and opens a new word file (called the "collection document"), and then creates a header and inserts a blank table of contents. (2) Begins opening Word files, one at a time, n a specified folder path. (3) When each Word file is opened, the program searches for a bookmarked block of text, copies that text, switches back to the "collection document," inserts a heading equal to the filename of the Word document from which it copied the text, and pastes the text immediately below. (4) The program loops through all of the documents in the specified folder. (5) When there are no more documents, the program updates the TOC to show the page numbers of each heading, and saves and closes the "collection document." My problem is... I want the blocks of text to be alphabetized by their heading. I thought that the program would loop through the files in the folder in alphabetical order, but it seems to use some random order that I can't figure out. I'm just using a simple Do While loop to loop through the files, as shown below [code establishing variables and such] myname = Dir(filedir, vbNormal) ' Retrieve the first entry. Do While myname <> "" ' Start the loop. If Left(myname, 1) <> "~" Then If (GetAttr(filedir & myname) And vbNormal) = vbNormal Then If Right$(myname, 4) = ".doc" Then Set mydoc = myapp.Documents.Open(filedir & myname, False, True, False) [the code for finding and copying the bookmarks, and pasting them into the collection document, is here] 'close the file mydoc.Close SaveChanges:=False End If End If End If myname = Dir Loop [code to update TOC, and some other random formatting stuff, and to save and close the document] Any idea where it is getting the order to go through the files? Any way to change something so that it goes through them in alphabetical order? Thanks, td Tag: Reappearance of Error 91 Tag: 106501
 - 10
 - Command Bar ID I have the ORK .ADM templates added into a GPO. I need to prevent users from using the Send To.. Command Bar. It's not listed in the predefined "Disable command bar and menu items" so I have to go to the custom "Disable command bar and menu items" section, and it wants the commands bar ID to disable it. I don't have Visual Basic for Applications, and it isn't looking like I will be getting it any time soon. Does anyone happen to know the command bar ID for "Send To..." and/or any of it's sub-commands? Thanks for your time. Tag: Reappearance of Error 91 Tag: 106498
 - 11
 - Conditional Macro Word 2003 I have a form document that is comprised of a series of six questions. Each question is followed by a Check Box; The CheckBox Bookmarks are named: Schedule1A, Schedule2A, etc. ending with Schedule6A I would like to set up a macro that begins with a *Submission Button* which would appear at the end of the form, analyze the condition of the preceding CheckBoxes and *fire* the remainder of the macro, which would beâ?¦ If the Check Box for Schedule1A is checked, insert Document No. XYZ at the end of the current document, followed by a Section Break If the Check Box for Schedule2A is checked, insert Document No. ABC at the end of the current document, followed by a Section Break So forth and so on, up to and including Schedule6A The reason for wanting the Section Breaks between the inserted documents is to facilitate the reordering of the subsequent compiled document if needed. If any one of you has a suggestion as to how to go about the above, I would be most appreciative. This is my first undertaking of anything beyond simple recorded macros â?? so please be gentle! Hopefully, Iâ??ve written out this macro scenario in a manner that is capable of being understood. Thanking you in advance, I remainâ?¦ Very truly yours â?? Rod Tag: Reappearance of Error 91 Tag: 106496
 - 12
 - what is VBA? Im sorry but Im new to the whole microsoft office software and I wanted to know what VBA is and what does it do? Tag: Reappearance of Error 91 Tag: 106494
 - 13
 - Working with FormFields in VBA I am having one .rtf file protected with some form fields enabled for user entry. I wanted to have Spell Check enabled for this protected document. I found your code online and seems that is working perfectly fine for spell check. Now the issue is that while running spell check, this code somehow also removes the name associated with the form fields, this is problematic as I want to parse the document on the basis of the name. I tried creating array of the form field name and assigning those name back after spell check but seems like that FormFields is a read only property. So can you please help me out in this problem? Thanking you in advance. Tag: Reappearance of Error 91 Tag: 106493
 - 14
 - auto update invoice date and number. What can I do to get my invoice template to automatically update the date and invoice number when I open it? Tag: Reappearance of Error 91 Tag: 106490
 - 15
 - printing multiple copies VBA Hi This line of code works perfectly in Word 2002 but ignores whatever is in the text box now in Word 2003? ActiveDocument.Printout Copies: = txtnum.value I have tried ActiveDocument.Printout Copies: = val(txtnum.value) and this does not work either? Any suggestions anyone please? Thanks GwenP Tag: Reappearance of Error 91 Tag: 106484
 - 16
 - Center-Align a table I need to center align some tables. I am using a macro in which I go to the table using a bookmark and then do: Selection.Tables(1).Rows.Alignment = wdAlignRowCenter this seems to center-align a right-aligned table but is not working for a left-aligned table. I am thoroughly stumped...! Tag: Reappearance of Error 91 Tag: 106480
 - 17
 - Style changes Where, oh! where is the default setting which, if set (or is it unset?), means I can confirm a style change and click the style box and a dialog box comes up asking if I want to keep changes or revert back? I set it ages ago and cannot find where so I can tell a friend. I am using 2002 but is it the same for all? Francis Hookham Tag: Reappearance of Error 91 Tag: 106475
 - 18
 - please clarify menu customization context Hello I've read to not change normal.dot when adding a custom menu. So I've put my custom menu and macros on a global template and saved the template in the startup folder (wdStartupPath). When i do this (and checked its loaded as an add-in) I can only see my menu when there is a document open that is attached to the global template (which I've read I should never have, and don't want). When the active document is attached to normal.dot I cannot see my menu. But with alt-F8 I can see my macros on the template. I thought I had read customization and macros on global templates were available (and visible) to all open documents, whatever their template. Can someone pleases clarify if this is supposed to work? FYI... I've built my menu at runtime with customization context as the global template and set to visible and enabled. I've also made one manually at design time with the same result. Word 2002 and 2007 Thanks! Tag: Reappearance of Error 91 Tag: 106471
 - 19
 - Want to protect, but not lock for viewing Hi there, for ask field purposes, I've needed to create a lock function that locks the sheet but does not refresh the fields. So using this: ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="pfhlock" The only problem is, this is inserting a "lock for viewing" password too. This is to be sent out for people to update certain fields but I don't want to have to provide them with a password because this will unlock the entire sheet. How can I get around this? Tag: Reappearance of Error 91 Tag: 106470
 - 20
 - Saving a setting for a document and template no matter who opens i ---Saving a setting for a document and template no matter who opens it (and no matter what their normal.dot template specifies)--- Saving a setting for a document and template no matter who opens it (and no matter what their normal.dot template specifies) Hello all, I need to know if setting the Tools>Options > check spelling as you type while working in a particular document... will save for just that document, or for all documents ever opened from that computer. i.e is the setting a.. document setting, or a user profile setting, or a template setting? How do I make Word always 'check spelling as you type' for EVERY document opened and created, without having to set the option for every document?I'm guessing I set my own normal.dot template this way. This is fine for me...but on a network level like SharePoint when many people may look at one document, just say my normal.dot says to 'check spelling...', but their normal.dot doesn't have it checked, is there any way I can make it so at least that particular document has the option set? i.e can i save the setting to the document itself, not just to normal.dot? Tag: Reappearance of Error 91 Tag: 106468
 - 21
 - Enable/Disable Toolbar button Word does it, so how can I do it? I want to enable/disable a toolbar button depending on cursor location/selection. For example, if I put the 'Restart Numbering' and 'Continue Numbering' buttons on the 'Formatting' toolbar, Word "knows" to enable these buttons _only_ if the current selection is numbered. Any ideas on how to replicate this functionality for the buttons on my own custom toolbar so the macro assigned to the button can be run only in the correct context? (In fact, the 'Restart/Continue Numbering' functionality is the functionality that I want to replicate, but I can't just add the native Word buttons to my custom toolbar because this functionality doesn't work with protected documents. So if somebody has a clever idea for getting around this...) -- Cheers! The Kiwi Koder Go the (~cough-splutter-gag~) 'Boks... Tag: Reappearance of Error 91 Tag: 106459
 - 22
 - Saving changes made in a form If a user opens a form to edit a document, is there a way to save the original information of the changes made in the document as Variables? If it can be done is there a way to call it back up later for review? LEU Tag: Reappearance of Error 91 Tag: 106458
 - 23
 - Compile Error: Method or data member not found I keep getting a message that says the following: Compile Error: Method or data member not found The code looks like this: Private Sub CommandButton1_Click() ListBox1.BoundColumn = 1 ActiveDocument.Variables("FirstName").Range.InsertBefore ListBox1.ValueNext i ListBox1.BoundColumn = 2 ActiveDocument.Variables("LastName").Range.InsertBefore ListBox1.ValueNext i ' etc. ActiveDocument.Fields.Update UserForm1.Hide End Sub And the error occurs on this line: ActiveDocument.Variables("FirstName").Range.InsertBefore I got this idea form this site: http://www.pcreview.co.uk/forums/thread-875661.php I get my ListBox1 to load with this sub: Sub Userform_Initialize() Dim i As Integer, Addressee As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long ' Open the database Set db = OpenDatabase("C:\Documents and Settings\RMS\Desktop\Contacts.xls", False, False, "Excel 8.0") ' Retrieve the recordset Set rs = db.OpenRecordset("SELECT * FROM `List`") ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset ListBox1.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records ListBox1.Column = rs.GetRows(NoOfRecords) 'ListBox1.List = rs.GetRows(NoOfRecords) 'Transposed List ' Cleanup rs.Close db.Close 'AddressBlock = db Set rs = Nothing Set db = Nothing End Sub Does anyone have any ideas as to what I'm doing wrong? This would be so awesome if I could get it to work!!! Thanks, Ryan-- -- RyGuy Tag: Reappearance of Error 91 Tag: 106451
 - 24
 - Can you load Word 2000 or Word 2003 on the new windows Vista? Help.........are older versions of Word compatible with Vista....I did not get software with my new computer & i want to continue to use older versions of word. -- cindy Tag: Reappearance of Error 91 Tag: 106450
 - 25
 - How can I set some style to the words without loss of original underline or bold or other? There is some text, which has a first words with underline or Bold or Italicize. Different. How and can I employ to these words some style BUT these words not must to lost my underline, bold or italicize.Example (thanks Helmut Weber): Sub Test455091() Dim oRng As Range For Each oRng In ActiveDocument.Sentences With oRng.Words(1) .style = ("MyStyle") End With Next End Sub But this code change my original style for first words. How can I set some style to the words without loss of original underline or bold or other? Is such possible or not? Tag: Reappearance of Error 91 Tag: 106442
- Next
 - 1
 - How to extract content from other word documents Hi All, I have a large number of word documents with me and each document contains section called introduction or overview (header 1) (it is either one of the two). I would like to consolidate all of this into a new word document. How do I do the same In short take (overview/intro) sections from different document and dump it into a single word file. Here are my computer details OS: Windows XP Office 2003 Professional Regards, Arry Tag: Reappearance of Error 91 Tag: 106439
 - 2
 - when i click on a pictures my format tab opens but the picture st. When I click on a picture within a document my format tab opens but the pictures styles button is not on there so how do I get it on there so I can change the effect of the picture in my word processing class please help me figure out how to get it so I can do my work. Thanks Sam Tag: Reappearance of Error 91 Tag: 106437
 - 3
 - Find the index of selected bookmark (Wd 2002 +) I have a bookmark spanning a selection. I place the insertion point within the bookmark. I need to use VBA to determine the name of the bookmark containing the insertion point. Sounds simple, but I can't get the index, which I need to get the name. As a last resort I could note the range of insertion point, and search all bookmarks for one spanning that range, but that's a bit "heavy". Any help much appreciated TIA Ian B Tag: Reappearance of Error 91 Tag: 106434
 - 4
 - Load Data from ListBox into Word Doc. BoundColumn? From Wordâ??s help menu, I can tell that the BoundColumn identifies the column of associated data values stored for the control. There doesnâ??t seem to be a whole lot of documentation on this subject, but I am pretty sure it does what I want it to do. Thanks to some slick code provided by Doug Robbins, I can get data from an Excel workbook to populate my ListBox, but I canâ??t seem to get the code form the ListBox into my Word document. The code that I am currently working with is shown below: Sub CommandButton1_Click() Set NewDoc = ActiveDocument With NewDoc cmbFirstName.BoundColumn = 1 .Variables("varFirstName") = cmbFirstName.Value End With UserForm1.Hide End Sub Private Sub Click() Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "DOCVARIABLE FirstName ", PreserveFormatting:=True Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "DOCVARIABLE LastName ", PreserveFormatting:=True End Sub In my word document, I have several fields such as this: Error! No document variable supplied. Error! No document variable supplied. I keep getting this message when I hit Ctrl+F9: Error! No Document variable Supplied. What am I doing wrong? Cordially, Ryan--- -- RyGuy Tag: Reappearance of Error 91 Tag: 106431
 - 5
 - Show my own hlp file I want to show some help context either by clicking a userform commandbutton or a commandbar chained to a macro. Can someone show me a code snippet how to do that. I suppose I have to compile af hlp file, or is there another way? Tag: Reappearance of Error 91 Tag: 106429
 - 6
 - How to select in whole document all first words in sentences? There is a document. In this document I need to select all first words in every sentences. And then I need apply some style to these words. How I can do it? Thank you. Tag: Reappearance of Error 91 Tag: 106426
 - 7
 - Need code for prompt and find/replace macro - help! Hello - total newbie to this, want to start doing more... I'm trying to set up a macro attached to a document that, after using a hotkey combination, prompts them for replacement text (for example, ABC Company replaced with XYZ Corporation). Basically, an automated way to engage the find/replace feature with a prompt for replacement text. I only understand the very basics of the code I've tried to create using the Record feature, so I need some very basic instructions for my confused brain. Can you tell me what I need? Many thanks!! -Mike Tag: Reappearance of Error 91 Tag: 106402
 - 8
 - Ask the working path to the user Hi, I would like to pop up a form when the document open and asking user the working folder by browsing until the folder. Store the folder path into a public variable. Thanks Stephane Vial Tag: Reappearance of Error 91 Tag: 106397
 - 9
 - The "new page" or "soft page break" event Hello, everyone. When content fills a page and passes the bottom page margin, a new page is automatcially added (i.e., a "soft" page break). What is the event causing this behavior? I would like to modify it to do more than add a page. I'm using Word 2000 (on W2K) and Word 2003 (on XP). Tag: Reappearance of Error 91 Tag: 106395
 - 10
 - Control A Series of Templates From a Master Document I have a Master Document which provides the user with a form to input data which is then held in an ini file). This data is then - currently - accessed by other templates when I call those other templates on an individual basis. For example, I have a number of letter templates that are sent off regularly to my clients . The templates pick up the name and address and other specific data for that particular letter from the ini file. There ar also templates for in-house records, for faxes etc What I would like to do is to be able to access these other templates from this master document by clicking on a button on the master document, which would then present me with the desired template. I am sure ths is a trivial problem, but it's one that has confounded me for a while. Tag: Reappearance of Error 91 Tag: 106393
 - 11
 - Delete Everything EXCEPT Items in a Table Does anyone have a macro that will delete everything in a word document EXCEPT items in a table? Thanks, Ryan--- -- RyGuy Tag: Reappearance of Error 91 Tag: 106386
 - 12
 - how is "/mMacroName" supposed to work? The documentation says to use "/mMacroName" to run a macro when starting Word (from cmd line). But this doesn't work for me. Word starts and then just sits there doing nothing. I have "MacroName" in a .dot file in the Word startup dir (not a Normal.dot file). It's not in a user's startup dir. Is this setup supposed to work? -Christopher Allen Tag: Reappearance of Error 91 Tag: 106385
 - 13
 - Help with Range.TextRetrievalMode? Just come across this oddity... (Word 2002, under Vista HP) I don't seem to be able to change the values for TextRetrievalMode (includehiddentext or includefields) when the range it is applied to is a comment's range (mycomment.range)... Trying different view types on the TextRetrievalMode object doesn't help either. And for different comments the TextRetrievalMode settings seem different (and inconsistent - so I can't compare comments for their "normal" text) any ideas? Tag: Reappearance of Error 91 Tag: 106381
 - 14
 - Protect/unprotect header/footer Can you protect/unprotect a header/footer? Are these sections to which one could apply .protect and .unprotect? Tag: Reappearance of Error 91 Tag: 106379
 - 15
 - Find Keyword, Copy Table, and Place in New Document (almost workin I am working with the code below to find all files in a directory, with a certain name, open each, find a keyword, and copy/paste (at append) a table that contains this keyword, to a summary document. This almost works, but not quite. I am looking for the text â??Additional Informationâ?? in one or many tables, in each document in a certain folder on out firmâ??s network drive. I can import all docs in the folder, but not just the tables that contain the text â??Additional Informationâ??. What am I doing wrong? I believe the problem occurs between the two lines marked '************ My code is below: Sub Append() Dim i As Long Application.ScreenUpdating = False Documents.Add With Application.FileSearch .LookIn = "F:\" .SearchSubFolders = False .FileName = "*Summary*.doc" .Execute For i = 1 To .FoundFiles.Count If InStr(.FoundFiles(i), "~") = 0 Then '************************************* Selection.Find.ClearFormatting With Selection.Find .Text = "Additional Information" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute '************************************* Selection.InsertFile FileName:=(.FoundFiles(i)), _ ConfirmConversions:=False, Link:=False, Attachment:=False Selection.InsertBreak Type:=wdPageBreak End If Next i End With End Sub Regards, Ryan--- -- RyGuy Tag: Reappearance of Error 91 Tag: 106377
 - 16
 - Deleting styles with leading spaces in their names I need to programmatically delete styles whose names begin with a space character. I know that it's not possible for a user to create such a thing intentionally -- the style modification/creation dialogue suppresses such leading spaces. But the paragraph/character hybrid style logic that Word 2003 and later uses can lead users to accidentally create styles with names of " Char Char", " Char Char Char", and so on. If you record a macro, delete a " Char Char" style by hand, and then look at what you have recorded, you'll see: ActiveDocument.Styles(" Char Char").Delete But simply running this as a VBA command does not actually work: "The requested member of the collection does not exist". It also does not work to declare a style variable and use For Each logic to try to catch it: Dim myStyle As Style For Each myStyle In ActiveDocument.Styles If (myStyle.NameLocal = " Char Char") Then Debug.Print "", "_Deleting " & myStyle.NameLocal myStyle.Delete End If Next (Interestingly, myStyle.NameLocal does resolve correctly in the debug.print statement.) I've tried escaping the space in the style name, and using a character reference instead of a literal space, but I can't find the magic bullet. Any ideas out there? TIA.... Tag: Reappearance of Error 91 Tag: 106374
 - 17
 - Find/Replace 2 col table insert tables, logos ^p (keep richttext when replacement text) This is a multi-part message in MIME format. ------=_NextPart_000_005B_01C80D17.666D30E0 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable Beginner vba user - completely stuck and could do with some assistance = please regarding using replacement text which holds its format. I have simple code that selects find [variable] 1st column table and = selects replacement text from 2nd column. The replacement text is = formatted sometimes within the cell and has tables (nested in the cell) = and inline graphic or addresses with returns or paragraphs with returns = (^p). The active document is on screen and the find/replace inserts the = replacement text but does not insert nested tables (these become just = text with faint square blocks), nor paragraph marks these also turn into = faint square blocks and the table of course does not insert. How do I enable my code to allow the text or nested table or inline = graphic or address with pilcrow returns insert as the replacement text = and hold format? Any ideas how I can achieve this please that would allow my replacement = text to be richtext desperate newbie... Sub ReplaceListv3() Dim vFindText As Variant Dim vReplText As Variant Dim sFindText As Range Dim sReplText As Range Dim i As Long Dim SourceFile As String Dim Source As Document Dim Target As Document Set Target =3D ActiveDocument 'The document in which the replacements = are to be made Dim Msg, Style, Title, Response Msg =3D "Do you want to use the default replacements file ?" ' Define = message. Style =3D vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title =3D "Select Source File" ' Define title. ' Display message. Response =3D MsgBox(Msg, Style, Title) If Response =3D vbYes Then ' User chose Yes. Set Source =3D Documents.Open("c:\documents\basic.doc") 'Open the = document containing the table of 'replacements to be made. It assumes that there is a header row in the = table. 'Modify the path and filename to suit. Else ' User chose No. Display the FileOpen dialog With Dialogs(wdDialogFileOpen) If .Display <> -1 Then SourceFile =3D "" MsgBox "You did not select a file." Exit Sub Else SourceFile =3D WordBasic.FileNameInfo$(.Name, 1) End If Set Source =3D Documents.Open(SourceFile) 'Open the selected = document End With End If With Source.Tables(1) For i =3D 2 To .Rows.Count Set sFindText =3D .Cell(i, 1).Range sFindText.End =3D sFindText.End =96 1 Set sReplText =3D .Cell(i, 3).Range sReplText.End =3D sReplText.End - 1 Target.Activate =91Target.content.select =91reinforce grab right = document With Selection.Find .Forward =3D True .Wrap =3D wdFindContinue .MatchWholeWord =3D True .MatchWildcards =3D False .MatchSoundsLike =3D False .MatchAllWordForms =3D False .Format =3D True .MatchCase =3D False .Text =3D sFindText =91Text=3D=94^p=94 .Replacement.Text =3D sReplText .Execute Replace:=3DwdReplaceAll End With Next i End With Source.Close wdDoNotSaveChanges Target.Activate ;Target.content.select =91reinforce grab right document End Sub ------=_NextPart_000_005B_01C80D17.666D30E0 Content-Type: text/html; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-1252"> <META content=3D"MSHTML 6.00.6000.16544" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV> <DIV>Beginner vba user = - completely stuck and=20 could do with some assistance please regarding using = replacement text which=20 holds its format.</DIV> <DIV> </DIV> <DIV>I have simple code that selects find = [variable] 1st=20 column table and selects replacement text from 2nd column. The = replacement=20 text is formatted sometimes within the cell and has tables (nested in = the=20 cell) and inline graphic or addresses with returns or paragraphs = with=20 returns (^p).</DIV> <DIV> </DIV> <DIV>The active document is on screen and = the=20 find/replace inserts the replacement text but does not insert nested = tables=20 (these become just text with faint square blocks), nor paragraph marks = these=20 also turn into faint square blocks and the table of course does not=20 insert.</DIV> <DIV> </DIV> <DIV>How do I enable my code to allow the = text or nested=20 table or inline graphic or address with pilcrow returns insert as the=20 replacement text and hold format?</DIV> <DIV> </DIV> <DIV>Any ideas how I can achieve this please = that=20 would  allow my replacement text to be richtext</DIV> <DIV> </DIV> <DIV>desperate newbie...</DIV> <DIV> </DIV> <DIV> </DIV> <DIV> Sub=20 ReplaceListv3()<?xml:namespace prefix =3D o ns =3D=20 "urn:schemas-microsoft-com:office:office" = /><o:p></o:p> Dim vFindText=20 As Variant<o:p></o:p> Dim vReplText=20 As Variant<o:p></o:p> Dim sFindText=20 As Range<o:p></o:p> Dim sReplText=20 As Range<o:p></o:p> Dim i As=20 Long<o:p></o:p> Dim SourceFile=20 As String<o:p></o:p> Dim Source As=20 Document<o:p></o:p> Dim Target As=20 Document<o:p></o:p> Set Target =3D=20 ActiveDocument 'The document in which the replacements are to be=20 made<o:p></o:p> Dim Msg, Style,=20 Title, Response<o:p></o:p> Msg =3D "Do you=20 want to use the default replacements file ?"<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 message.<o:p></o:p> Style =3D vbYesNo=20 + vbCritical + vbDefaultButton2<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 buttons.<o:p></o:p> Title =3D "Select=20 Source File"    = ' Define=20 title.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = '=20 Display message.<o:p></o:p> Response =3D=20 MsgBox(Msg, Style, Title)<o:p></o:p> If Response =3D=20 vbYes Then    ' = User chose=20 Yes.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Set Source =3D=20 Documents.Open("c:\documents\basic.doc") 'Open the document containing = the table=20 of<o:p></o:p> 'replacements=20 to be made. It assumes that there is a header row in the=20 table.<o:p></o:p> 'Modify the=20 path and filename to suit.<o:p></o:p> Else<SPAN=20 style=3D"mso-spacerun: yes">    ' User chose No. = Display the=20 FileOpen dialog<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    With=20 Dialogs(wdDialogFileOpen)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = If=20 .Display <> -1 Then<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D ""<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 MsgBox "You did not select a = file."<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 Exit Sub<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Else<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D WordBasic.FileNameInfo$(.Name,=20 1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 If<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 Source =3D Documents.Open(SourceFile) 'Open the selected=20 document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    End=20 With<o:p></o:p> End=20 If<o:p></o:p> With=20 Source.Tables(1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    For i =3D 2 To=20 .Rows.Count<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sFindText =3D .Cell(i, 1).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sFindText.End =3D sFindText.End =96 = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sReplText =3D .Cell(i, 3).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sReplText.End =3D sReplText.End - = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri><SPAN=20 style=3D"mso-spacerun: yes">       =20 =91Target.content.select<SPAN=20 style=3D"mso-tab-count: = 1">          =20 =91reinforce grab right document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = With=20 Selection.Find<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Forward =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Wrap =3D wdFindContinue<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWholeWord =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWildcards =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchSoundsLike =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchAllWordForms =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Format =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchCase =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Text =3D sFindText<o:p></o:p> <FONT=20 size=3D3>=91Text=3D=94^p=94<SPAN=20 lang=3DEN-GB style=3D"mso-ansi-language: = EN-GB"><o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Replacement.Text =3D = sReplText<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Execute = Replace:=3DwdReplaceAll<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 With<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Next=20 i<o:p></o:p> End=20 With<o:p></o:p> Source.Close=20 wdDoNotSaveChanges<o:p></o:p> <FONT=20 face=3DCalibri>Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri>;Target.content.select<SPAN=20 style=3D"mso-tab-count: 1">   =91reinforce grab right=20 document<o:p></o:p> End=20 Sub<o:p></o:p></DIV> <DIV> </DIV></DIV></BODY></HTML> ------=_NextPart_000_005B_01C80D17.666D30E0-- Tag: Reappearance of Error 91 Tag: 106368
 - 18
 - Find/Replace nested table, format from cell in replacement text column! This is a multi-part message in MIME format. ------=_NextPart_000_034A_01C80D0F.CD29D340 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable Beginner vba user - completely stuck and could do with some assistance = please regarding using replacement text which holds its format. I have simple code that selects find [variable] 1st column table and = selects replacement text from 2nd column. The replacement text is = formatted sometimes within the cell and has tables (nested in the cell) = and inline graphic or addresses with returns or paragraphs with returns = (^p). The active document is on screen and the find/replace inserts the = replacement text but does not insert nested tables (these become just = text with faint square blocks), nor paragraph marks these also turn into = faint square blocks and the table of course does not insert. How do I enable my code to allow the text or nested table or inline = graphic or address with pilcrow returns insert as the replacement text = and hold format? Any ideas how I can achieve this please that would allow my replacement = text to be richtext desperate newbie... Sub ReplaceListv3() Dim vFindText As Variant Dim vReplText As Variant Dim sFindText As Range Dim sReplText As Range Dim i As Long Dim SourceFile As String Dim Source As Document Dim Target As Document Set Target =3D ActiveDocument 'The document in which the replacements = are to be made Dim Msg, Style, Title, Response Msg =3D "Do you want to use the default replacements file ?" ' Define = message. Style =3D vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title =3D "Select Source File" ' Define title. ' Display message. Response =3D MsgBox(Msg, Style, Title) If Response =3D vbYes Then ' User chose Yes. Set Source =3D Documents.Open("c:\documents\basic.doc") 'Open the = document containing the table of 'replacements to be made. It assumes that there is a header row in the = table. 'Modify the path and filename to suit. Else ' User chose No. Display the FileOpen dialog With Dialogs(wdDialogFileOpen) If .Display <> -1 Then SourceFile =3D "" MsgBox "You did not select a file." Exit Sub Else SourceFile =3D WordBasic.FileNameInfo$(.Name, 1) End If Set Source =3D Documents.Open(SourceFile) 'Open the selected = document End With End If With Source.Tables(1) For i =3D 2 To .Rows.Count Set sFindText =3D .Cell(i, 1).Range sFindText.End =3D sFindText.End =96 1 Set sReplText =3D .Cell(i, 3).Range sReplText.End =3D sReplText.End - 1 Target.Activate =91Target.content.select =91reinforce grab right = document With Selection.Find .Forward =3D True .Wrap =3D wdFindContinue .MatchWholeWord =3D True .MatchWildcards =3D False .MatchSoundsLike =3D False .MatchAllWordForms =3D False .Format =3D True .MatchCase =3D False .Text =3D sFindText =91Text=3D=94^p=94 .Replacement.Text =3D sReplText .Execute Replace:=3DwdReplaceAll End With Next i End With Source.Close wdDoNotSaveChanges Target.Activate ;Target.content.select =91reinforce grab right document End Sub ------=_NextPart_000_034A_01C80D0F.CD29D340 Content-Type: text/html; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-1252"> <META content=3D"MSHTML 6.00.6000.16544" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV>Beginner vba user = - completely stuck and=20 could do with some assistance please regarding using = replacement text which=20 holds its format.</DIV> <DIV> </DIV> <DIV>I have simple code that selects find = [variable] 1st=20 column table and selects replacement text from 2nd column. The = replacement=20 text is formatted sometimes within the cell and has tables (nested in = the=20 cell) and inline graphic or addresses with returns or paragraphs = with=20 returns (^p).</DIV> <DIV> </DIV> <DIV>The active document is on screen and = the=20 find/replace inserts the replacement text but does not insert nested = tables=20 (these become just text with faint square blocks), nor paragraph marks = these=20 also turn into faint square blocks and the table of course does not=20 insert.</DIV> <DIV> </DIV> <DIV>How do I enable my code to allow the = text or nested=20 table or inline graphic or address with pilcrow returns insert as the=20 replacement text and hold format?</DIV> <DIV> </DIV> <DIV>Any ideas how I can achieve this please = that=20 would  allow my replacement text to be richtext</DIV> <DIV> </DIV> <DIV>desperate newbie...</DIV> <DIV> </DIV> <DIV> </DIV> <DIV> Sub=20 ReplaceListv3()<?xml:namespace prefix =3D o ns =3D=20 "urn:schemas-microsoft-com:office:office" = /><o:p></o:p> Dim vFindText=20 As Variant<o:p></o:p> Dim vReplText=20 As Variant<o:p></o:p> Dim sFindText=20 As Range<o:p></o:p> Dim sReplText=20 As Range<o:p></o:p> Dim i As=20 Long<o:p></o:p> Dim SourceFile=20 As String<o:p></o:p> Dim Source As=20 Document<o:p></o:p> Dim Target As=20 Document<o:p></o:p> Set Target =3D=20 ActiveDocument 'The document in which the replacements are to be=20 made<o:p></o:p> Dim Msg, Style,=20 Title, Response<o:p></o:p> Msg =3D "Do you=20 want to use the default replacements file ?"<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 message.<o:p></o:p> Style =3D vbYesNo=20 + vbCritical + vbDefaultButton2<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 buttons.<o:p></o:p> Title =3D "Select=20 Source File"    = ' Define=20 title.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = '=20 Display message.<o:p></o:p> Response =3D=20 MsgBox(Msg, Style, Title)<o:p></o:p> If Response =3D=20 vbYes Then    ' = User chose=20 Yes.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Set Source =3D=20 Documents.Open("c:\documents\basic.doc") 'Open the document containing = the table=20 of<o:p></o:p> 'replacements=20 to be made. It assumes that there is a header row in the=20 table.<o:p></o:p> 'Modify the=20 path and filename to suit.<o:p></o:p> Else<SPAN=20 style=3D"mso-spacerun: yes">    ' User chose No. = Display the=20 FileOpen dialog<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    With=20 Dialogs(wdDialogFileOpen)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = If=20 .Display <> -1 Then<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D ""<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 MsgBox "You did not select a = file."<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 Exit Sub<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Else<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D WordBasic.FileNameInfo$(.Name,=20 1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 If<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 Source =3D Documents.Open(SourceFile) 'Open the selected=20 document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    End=20 With<o:p></o:p> End=20 If<o:p></o:p> With=20 Source.Tables(1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    For i =3D 2 To=20 .Rows.Count<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sFindText =3D .Cell(i, 1).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sFindText.End =3D sFindText.End =96 = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sReplText =3D .Cell(i, 3).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sReplText.End =3D sReplText.End - = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri><SPAN=20 style=3D"mso-spacerun: yes">       =20 =91Target.content.select<SPAN=20 style=3D"mso-tab-count: = 1">          =20 =91reinforce grab right document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = With=20 Selection.Find<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Forward =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Wrap =3D wdFindContinue<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWholeWord =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWildcards =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchSoundsLike =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchAllWordForms =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Format =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchCase =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Text =3D sFindText<o:p></o:p> <FONT=20 size=3D3>=91Text=3D=94^p=94<SPAN=20 lang=3DEN-GB style=3D"mso-ansi-language: = EN-GB"><o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Replacement.Text =3D = sReplText<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Execute = Replace:=3DwdReplaceAll<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 With<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Next=20 i<o:p></o:p> End=20 With<o:p></o:p> Source.Close=20 wdDoNotSaveChanges<o:p></o:p> <FONT=20 face=3DCalibri>Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri>;Target.content.select<SPAN=20 style=3D"mso-tab-count: 1">   =91reinforce grab right=20 document<o:p></o:p> End=20 Sub<o:p></o:p></DIV> <DIV> </DIV></BODY></HTML> ------=_NextPart_000_034A_01C80D0F.CD29D340-- Tag: Reappearance of Error 91 Tag: 106365
 - 19
 - Move object with text Having many small screen shots to put into a Word document I prefer to let the objects dictate where the text goes rather that the other way round. I therefore have to un-tick 'Move object with text'. I have tried to record a macro but 'greyed' commands prevent that. Can you help please? Francis Hookham Tag: Reappearance of Error 91 Tag: 106360
 - 20
 - SENDTO ? I created a form in HTM format in WORD. I can add a hyperlink to MAILTO: some people. But, is there a way to change this hyperlink to send the page, opening up a new email, have it already addressed and all I have to do now is SEND? Tag: Reappearance of Error 91 Tag: 106356
 - 21
 - Detecting the end of a row In a mixed selection that begins in a paragraph and ends in the first row of a table, the range.paragraphs contains the end-of-row marker as a para. If I select that para range, range.information(wdatendofrowmarker) is false. If I collapse the range, it's true. Is there any other way I could detect that the para was the end-of-row marker without collapsing it or creating a working range to collapse and test? In other words, is there any way to test that the end of row marker is selected aside from range.information? Bear -- Windows XP, Word 2000 Tag: Reappearance of Error 91 Tag: 106353
 - 22
 - UserForm Controls and Bookmarks I have a word document with approx 20 bookmarks in it. I have a UserForm that populates those bookmarks. I would like the code to be generic but am having a problem - the following code returns an error "Invalid Qualifier" with reference to the textBox field name. I would really appreciate somehelp on this <code> Dim Bmk() As String Dim y As Integer, J As Integer Dim txtFieldName As String y = ActiveDocument.Bookmarks.Count ReDim iniarray(y) For J = 1 To y Bmk(J) = ActiveDocument.Bookmarks(J).Name Trim(txtFieldName) = CStr(Bmk(J)) ActiveDocument.Bookmarks(Bmk(J)).Range.Text = txtFieldName.Text Next J </code> Tag: Reappearance of Error 91 Tag: 106351
 - 23
 - Argument names in subs and functions When naming arguments for use in a sub or function, should I adhere to my usual naming format? E.G. Sub LOParas(ByRef rngWork As Range, strAction As String) or is Sub LOParas(ByRef Range As Range, Action As String) okay? Bear -- Windows XP, Word 2000 Tag: Reappearance of Error 91 Tag: 106346
 - 24
 - Error on updating fields Group, While trying to update fields in a document, I am continuously getting the error: "One or more of the fields in the selection could not be updated". I've done the same steps for months, (ie, type the doc, insert the fields, ctrl+a, F9 to update). When I print my documents, it truly is not updating the fields, I've deleted the fields and re-entered, and still the same error. This error is not only appearing on one field, but several. Any suggestions on what this problem could be related to? Diane Tag: Reappearance of Error 91 Tag: 106345
 - 25
 - Change a word throughout the document in one step I have a 75 page document that has a few words that need to be changed throughout it. For example: If I have a word like Chicago on many pages and I want to change it to Denver. How can I create a command so that if I change the first Chicago to Denver, the rest of the Chicago's throughout the document will change as well? I'm not real familiar with macro's and I don't want to use the find and replace command. Trying to make this user friendly. -- Thanks for any assistance you can provide. RH Tag: Reappearance of Error 91 Tag: 106344

Strange behaviour.
I have just reinstalled Office 2003 in place of 2007, I have regained
ability to add to my custom dictionary and to Spell Check in Outlook
Express but a weird on exit error message has reappeared. Whenever I
exit from Word I get a Microsoft Visual Basic message box saying
run-time error '91': Object variable or With block variable not set. I
thought I was running Word not Visual Basic. Could somebody please tell
me how to get rid of this annoying artefact.

--
--

Wisdom and experience come with age, they say, but I wish I could
remember the darn question

Top

Re: Reappearance of Error 91 by Graham

Graham
Tue Oct 16 22:28:42 PDT 2007

The message refers not to the application but to an inappropriate macro in
normal.dot or an add-in.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

GbH wrote:
> Strange behaviour.
> I have just reinstalled Office 2003 in place of 2007, I have regained
> ability to add to my custom dictionary and to Spell Check in Outlook
> Express but a weird on exit error message has reappeared. Whenever I
> exit from Word I get a Microsoft Visual Basic message box saying
> run-time error '91': Object variable or With block variable not set. I
> thought I was running Word not Visual Basic. Could somebody please
> tell me how to get rid of this annoying artefact.
>
> --

Top

Re: Reappearance of Error 91 by GbH

GbH
Wed Oct 17 02:25:15 PDT 2007

In news:uko2W6HEIHA.4400@TK2MSFTNGP04.phx.gbl,
Graham Mayor <gmayor@REMOVETHISmvps.org> wibbled :
> The message refers not to the application but to an inappropriate
> macro in normal.dot or an add-in.
>
>
> GbH wrote:
>> Strange behaviour.
>> I have just reinstalled Office 2003 in place of 2007, I have regained
>> ability to add to my custom dictionary and to Spell Check in Outlook
>> Express but a weird on exit error message has reappeared. Whenever I
>> exit from Word I get a Microsoft Visual Basic message box saying
>> run-time error '91': Object variable or With block variable not set.
>> I thought I was running Word not Visual Basic. Could somebody please
>> tell me how to get rid of this annoying artefact.
>>
>> --

Removed what seems to be a Scansoft PDF munging macro and it went away.
Thanks.

--
--

Wisdom and experience come with age, they say, but I wish I could
remember the darn question

Top