Error &H80004005

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - issue with filedialog browser Hi, I have a question. I've a userform that has a textfield. Next to it, there is a button with caption "Browse". I was thinking that when user wants to insert a picture, he/she clicks on "browse" that will bring up a filedialog box for user to select which image file they want to insert to the document. Once, they have chosen the file, the filepath will be captured and shown in the textfield that is next to it. After user has filled out all the text fields in the userform and press "ok" button, all the user data will be dumped to the word document. I use bookmark to do this. So, getting back to my question. i have a bookmark in the word document. I was hoping, the image will be placed where the bookmark for the image is in the word document. I use the following code to bring up the filedialog but couldn't retrieve the filepath to the textfield. Instead, it actually opens up the file. Dialogs(wdDialogFileOpen).Show I have tried to use the following codes Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _ FileDialogType:=msoFileDialogOpen) but got error message saying "invalid property". I have done this before in excel but the codes below doesn't work well with word. filein = Application.GetOpenFilename() Your help would be greatly appreciated. Thank you in advance Tag: Error &H80004005 Tag: 112318
  - 2
    - [Help]How to adjust Embedded Excel sheet 's view range the detail info, please follow this link: http://msdn.microsoft.com/newsgroups/default.aspx?&query=bluecoast&lang=en&cr=US&guid=&sloc=en-us&dg=microsoft.public.excel.programming&p=1&tid=27a75cb0-49f5-4d0c-8072-ca7f4453558b -- From China Tag: Error &H80004005 Tag: 112316
  - 3
    - issue with opening a file Hi, I have a question i need to ask of you MVP experts. Say, i have a several customised templates dot files e.g. our company Letter template, Fax template, and so on. Each of these templates have a userform (macro - autonew) that would be called up as soon as a user opens up the template My question is if i have a customised toolbar that has buttons for each of these templates in the normal.dot. So when user opens up a word document, he/she will find the toolbar. On the dropdown list, there are "Company Letter", "Company Fax", "Company Report". When they click on Company Letter, it brings up the Letter doc with the userform pops up waiting for user inputs. That's the idea. Today, i tried to do that but it actually opens up the template Letter.dot. Hence, there is no userform showing up. This is not what i anticipated. Here is my code for testing purpose only Sub Macro1() Documents.Open FileName:="C:\Documents and Settings\myComp\Application Data\Microsoft\Templates\Company Letter.dot", ReadOnly:=True End Sub I might have used the wrong code here for opening a file. Your ideas would be greatly appreciated. Thank you in advance Tag: Error &H80004005 Tag: 112310
  - 4
    - Excel (VBA) 2007 workbook in 2003 - available resources?? I have created from scratch a new main workbook and several 'satellite' dynamically populated/'built' report templates - in 2007 (as, 2003 to 2007 seemed to fraught with danger). All runs well, I have saved versions of the 2007 workbooks as 97-2003 workbooks with a couple of compatability 'fixes' around colour formats and shape formats. In 2003, I can run these (both the master workbook and the report templates )independantly and all works fine. But - if I call the report via the parameter selection main workbook reporting FORM - the report is found, opened, parameters populated, list boxes filled and report dynamically structured - all well. THe code then seeks to return to the main workbook to wrap up there - - and, alas, XL either falls over OR I get the following message (ad-infinitum): "Excel cannot complete this task with available resources. Choose less data or close other applications." Note - if the report is already open - and NOT opened via the procedure - then, all is fine again - however, that's not really sustainable - to open all report templates first...but - even though there ARE not links, is there some silly order of opening issue here? ----any ideas?? There ARE pictures and shapes and activeX combo boxes on the report template. The main workbook has pictures, shapes (acting as buttons), forms galore. I've already found that using a 'shape' in 2007 to close a workbook is dangerous and use activeX controls for that. I'm just a tad nervous about this whole 2003/2007 thing. Tag: Error &H80004005 Tag: 112309
  - 5
    - How to replace with a new template to a document Here is my code: Set thisDoc = Application.ActiveDocument Set myTemp = thisDoc.AttachedTemplate If myTemp.Path <> "C:\MyWordTemplate" Then With thisDoc .AttachedTemplate = "C:\MyWordTemplate\TestTemplate.dot" .Save End With End If I received the following message: Word cannot attach a document to a protected template. Thank you for any help. Tag: Error &H80004005 Tag: 112301
  - 6
    - normal.dot locked? I'm using Word 2003. I have a document created, for which I created a macro that I saved. It runs fine. When I try to go to Tools | Macros and select the new macro and click Edit, it tells me "Project is Unviewable". If I go to Tools | Macros | Visual Basic Editor and right-click on "Normal" and select properties, it tells me the same thing. Additional info - I had wanted to eliminate the warning I got about embedded macros, so I used Digital Signing, creating my own digital signature using "Digital Signature for VBA Projects". Note that with respect to Digital Signing, VBA macros within word, I know just enough to get myself into serious trouble, and not much more. Anyway, I suspect I've dug myself a hole, and I'm trying to figure out how to get out. How do I fix my Normal.dot, and how do I fix things up so I can go back and edit this macro that I created? Any ideas? Tag: Error &H80004005 Tag: 112300
  - 7
    - Word 2007 ribbon I am using the custom user interface editor to add a custom ribbon to a Word 2007 template. Is it possible to have the label on a button wrap to 2 lines? I want it to look like this: General Instructions NOT General Instructions Tag: Error &H80004005 Tag: 112299
  - 8
    - Searching for words in word document I am c programmer who needs help with an idea. I have a lot of programs and I place them in a word document to add notes not relevent to coding. After I save them how can I search the documents for a particular word quickly. Sort of like find.. next. Any help is greatly appreciated. Thanks. -Carl Tag: Error &H80004005 Tag: 112298
  - 9
    - ending multiple if/with statements I have what I know has to be a very basic programming question. But I always have trouble with this and have not been able to locate an answer that has made it clear to me. When you have multiple if and with statements: what is the proper sequence to end them. for example if with with if I need to end the two "with" statements and the last "if", but not the first one just yet. what is the proper sequence to end them? end with end with end if OR end if end with end with If someone could explain how to know what the sequence should be, I would greatly appreaciate it. Thanks. Tag: Error &H80004005 Tag: 112296
  - 10
    - Inserting Checkboxes into a table as an InlineShape using VBA coed I wish to insert two checkboxes, side by side on the same line, in the third column of a three column table. The Caption for one checkbox should be "YES" and the other one should be "NO". I can insert one checkbox, but when the code runs for the second checkbox, the first box gets overwritten. How do I place the second checkbox next to the first checkbox on the same line? I also want a small space between the two, say three spaces. Here is my code. Thank you. Sub insertInlineShapesCheckbox() Dim myCheckbox1, myCheckbox2 'shifts insertion point to first tab Selection.TypeText Text:=vbTab 'insert first checkbox Set myCheckbox1 = Selection.InlineShapes.AddOLEControl(ClassType:="Forms. CheckBox.1") With myCheckbox1.OLEFormat.Object .TextAlign = 3 .Alignment = 0 .Width = 43 .Caption = "YES" .FontName = "Arial" .FontSize = 11 End With 'Selection.TypeText Text:=" " 'Selection.TypeText Text:=vbTab 'insert second checkbox Set myCheckbox2 = Selection.InlineShapes.AddOLEControl(ClassType:="Forms. CheckBox.1") With myCheckbox2.OLEFormat.Object .TextAlign = 3 .Alignment = 0 .Width = 43 .Caption = "NO" .FontName = "Arial" .FontSize = 11 End With End Sub url:http://www.ureader.com/gp/1022-1.aspx Tag: Error &H80004005 Tag: 112291
  - 11
    - Can't read Range.Text in a protected document I need to find all emails inside a Word document. The problem is that when the document is protected, I can't read the Text property of the range. I get an error saying that the document is protected (Error #4605). All I'm doing is reading, I'm not modifying anything. I use the Split function to get the sentence of words where the @ sign was found, then I loop through the elements of my array until I get to the one that has the @ sign. It's this line that causes the error. Here part of my code: For Each rngStory In objDocument.StoryRanges With rngStory.Find .ClearFormatting .Text = "@" .Wrap = wdFindStop .Forward = True End With Do Until rngStory.Find.Execute = False With rngStory.Duplicate .Expand Unit:=wdSentence myArray = Split(.Text, " ", -1, vbTextCompare) '/// Error here !!! If UBound(myArray) <> -1 Then For i = 0 To UBound(myArray) If InStr(1, myArray(i), "@", vbTextCompare) <> 0 Then '/// ... Process Email here numEmailsFound = numEmailsFound + 1 End If Next i End If End With Loop Next rngStory Tag: Error &H80004005 Tag: 112289
  - 12
    - Search within a range I have defined a range. Now I need to be able to search for a specific phrase, move to the end of that phrase, insert a carriage return and insert a new phrase. This is what I was trying, but it is not working. I don't get any errors. It just doesn't work. I'm pretty sure it has something to do with meNotice vs. selection. But I just can't quite figure out the syntax. Any help would be greatly appreciated. Set meNotice = .Sections(.Sections.Count).Range With meNotice.Find .Text = "time shown below." If .Execute Then Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.InsertAfter Chr$(13) & "PLEASE TELEPHONE ME IMMEDIATELY." End If End With Tag: Error &H80004005 Tag: 112288
  - 13
    - turn off automatic date completion When I write a word in my Microsoft words 2007 editor that indicates the beginning of date some automatic completion mechanism is triggered displaying the full date. Unfortunately in my native language (Swedish) there are some words that are very common but that also could be the beginning of a date so this flashing occurs very often. I do not like this so I wonder how a script could look to disable this mechanism? Tag: Error &H80004005 Tag: 112287
  - 14
    - Make a copy of a Word VBA programme saved in the template directory Hi, I have written a complicated Word VBA programme and saved it as a template. May I ask how I can make a copy of it so that I can move the copy to another computer and use it there? Thanks. Mike Tag: Error &H80004005 Tag: 112285
  - 15
    - Spellchecking a Protected Document This seems to be a popular topic lately, so I thought I'd chime in as well. While the article at http://word.mvps.org/faqs/macrosvba/SpellcheckProtectDoc.htm is great if you want to check the spelling of the information input into formfields, my problem is a bit different. I have (Word 2003) templates that produce forms-protected documents, but the documents themselves don't contain any formfields. I use forms protection only because it allows me to protect only certain sections of the document, such as the header and footer, while leaving other sections, such as the main body of the document unprotected. The spellchecker checks the spelling in the unprotected sections OK, and I don't really mind if it doesn't check the spelling in the protected sections because 1) I know that I haven't made any spelling errors in the 'boilerplate' in these sections; and 2) if the user has made a spelling error in the 'variable' information, they can just rerun the code in template to correct the errors. However, there is a deficiency in the native spellchecker that I've been asked to develop a workaround for. In an unprotected document, if none of the choices in the 'Suggestions' list are viable, you can just type in the 'Not in Dictionary' box to make the change. However, this doesn't work in a protected document; the text in the 'Not in Dictionary' box is treated like it's in a protected section. I could always write code that unprotects the document before displaying the spellchecker, but there are a couple of drawbacks: First, this will allow the users to spellcheck the protected sections as well, which is not really a major problem except that if the user corrects an error that was introduced through the input of the 'variable' information described above, this correction won't get replicated back into the data from the UserForm. Thus if the user reruns the template, the correction won't be there and the error could be reintroduced without the user realising it. However, I can live with this. The real problem is that the spellchecker dialog isn't modal to Word. Therefore, if I unprotect the document, the user now has full access to the whole document, _including_ the protected sections. And believe me, the users will take advantage of this whenever possible; I learned this when I told the users I was going to fix a bug in my code that left the document unprotected and got a... umm... less than favourable response. ;-D Does anyone know a way to enable the editing capability in the 'Not in Dictionary' box without unprotecting the document? Or will my users just have to live with this limitation? (The second choice is acceptable as I'm quite happy to tell the users 'No' - as long as I can justify the response.) -- Cheers! The Kiwi Koder Please note: Uninvited email contact will be marked as SPAM and ignored - unless you want to hire me. Tag: Error &H80004005 Tag: 112277
  - 16
    - Sharing Arrays Between Modules In an earlier post, Jean-Guy Marcil provided me with some excellent instruction on structuring projects to separate UserForm-related processes from document-related processes. (Thanks again, Jean-Guy!) I'm now trying to apply this structure to a somewhat more complex project and have run into a problem straight away. In this new project, I use arrays to collect sets of similar information (e.g. the names and addresses of multiple parties to a contract). These arrays all reside in the UserForm class module, since they are obviously integral to the processes related to the UserForm; i.e. UserForm operations are used to create and maintain the arrays, and the arrays are used to display information in the UserForm. However, I cannot find a way to take the information in these arrays and transfer it back into the 'operational' class module that is used to perform the actual document-creation processes. UserForm controls (and the values contained therein) are simple enough to access and variables can be declared as Public and then just become a 'pseudo-attribute' of the UserForm object, but arrays cannot be Public. For obvious reasons, I don't want to dynamically create a heap of Public variables to dump the contents of the arrays into and then rebuild the arrays on the 'operational' side, and doing something like grabbing the contents of the ListBoxes that are used to display and maintain the arrays on the UserForm and then attempting to parse this information scares the daylights out of me. Does anybody have any suggestions on how to share contents of an array between two modules? -- Cheers! The Kiwi Koder Please note: Uninvited email contact will be marked as SPAM and ignored - unless you want to hire me. ;-) Tag: Error &H80004005 Tag: 112273
  - 17
    - Help with MVP spellcheck protected form code I am trying to use the code from http://word.mvps.org/faqs/macrosvba/SpellcheckProtectDoc.htm and I got an error that the password was incorrect so I tried to follow the directions from the website but I am still unsure where to insert oDoc.Unprotect Password:="colleen" And: oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, _ Password:="colleen" in to the code in the right places to get it to work. Help anybody? Thanks! ~Roxy Tag: Error &H80004005 Tag: 112271
  - 18
    - Fetching data in Excel from Word Hello, I have a Word document. I have in an Excel file with thousands of IP adresses and other similar type of information. In the word document, I have to create a chapter for each physical servers (a lot). In each chapter, a table display the IP configuration of the sever as well as virtualized servers inside it (a lot more) These information are randomy defined in the Excel file. What is the best way to do that ? I'd like to have a button in the word document which call a macro. This macro would open the Excel document and lookup the IP information based on the server name. Then, it would update tags or fields or variables that I would insert here and there in the word document. The goal here is to avoid regrouping & copying by hand thousands of IP adresses, which is prone to mistakes. Moreover, whenever the IP adresses are updated in the Excel file, I would run the macro to update the word document. Any good idea ? I know how to do a macro in Excel, but never did one in word. My main problem is how to create a "field" or a "variable" in the text (generally in -but not restricted to- a table) that my macro would recognise in the word document and update it ? Thanks in advance. JD Tag: Error &H80004005 Tag: 112266
  - 19
    - project locked Hi, Sorry if this has been asked recently or frequently. Somehow all my projects are looked. If I download a dot-file, add it and then try to open the macros in the editor, they are all locked. Even if I myself create a dot-file, add a project, type some dummy macrotext, close and then add that dot-file to another document, also that project is locked. I can´t even open the properties. The security settings are on the lowest level. Word 2003 What do I do wrong? TIA Örjan Tag: Error &H80004005 Tag: 112265
  - 20
    - Passing Values to a Module I created a form in VB called DemogInfoForm and would like to know how I can pass the value entered from a text box to a module? The instructions are on the "command OK" button. The value will also be used to gather other information from the mainframe. Here is what I got so far... Sub OkButton_Click() On Error GoTo Err_Command Me.CaSEText.SetFocus If Len(Me.CaSEText.Text) <> 10 Then 'Message that wrong number of digits entered for case number MsgBox "Please enter the 10-digit Case Number." _ & vbCrLf _ & " Please try again!", vbCritical, "10-digit Number Error Message" Exit Sub Else 'Once the value is verified, I would like to pass the value to the CaseNUMFind module .... thank you CaseNUMFind (Number) 'Go to module Tag: Error &H80004005 Tag: 112264
  - 21
    - Word 2003 custom Menus change and disappear Does anyone have a fool proof method for stabilizing custom menus (on the menu bar) in Word? I have a menu in a global template that should always show, as well as document templates that each contain a menu I want to appear only when someone is in a document created from that template. The problem SEEMS to stem from OTHER people's software -- the menus will be there but then they disappear, or multiple copies appear or the menu is suddenly empty or has the name for one menu with choices for another menu on it. Note: Custom TOOLBARS seem stable, it is just the MENU that is problematic. I have been fighting this for years and have done a lot of research but so far everything I try has a hiccup at some point. The programming is all VBA in Word .dot templates. So far I have tried: - Using tools, customize to create the menus w/in the appropriate templates -- works great on my computer, but menus disappear/duplicate constantly on about 80% of my clients. - Programmatically creating the menus -- this is good for the global template menu -- at first -- but somewhere through the day it gets trashed. I can't get the template specific menus to behave. They constantly disappear. - Write an event handler to delete and then recreate all menus and display as (Tried with the "Document change" or "WIndow Activate" event for the Word application) -- this seemed to work at first but suddenly the problems returned. I did not want to just "show" the menus per the event handler because they would suddenly have the wrong buttons or be empty part way through the day. (Maybe I am not writing it right.) Has anyone else had this struggle? It happens to me so much I am surprised I can't find more postings about it. PLEASE HELP!!!!! Thanks so much. Tag: Error &H80004005 Tag: 112256
  - 22
    - OrganizerCopy Error Dialog Problem When using OrganizerCopy, if the style name is not found in the source document, Word returns an error dialog. In a VBA application, is there anyway to suppress this dialog and let the code continue without the user having to click OK? The sample code. The dialog after the gSourceWordApp.OrganizerCopy call but before the If Err.Number = 4198 Then line. On Error Resume Next Dim styleName As String styleName = "corporateNameStyle" gSourceWordApp.OrganizerCopy Source:=sourceDocument.FindInFileName, _ Destination:=indexWordDocument.FullName, _ Name:=styleName, _ object:=wdOrganizerObjectStyles If Err.Number = 4198 Then gSourceWordApp.OrganizerCopy Source:=sourceDocument.FindInFileName, _ Destination:=indexWordDocument.FullName, _ Name:="Normal", _ object:=wdOrganizerObjectStyles End If Tag: Error &H80004005 Tag: 112253
  - 23
    - Comparing Word documents I inherited some Word VBA code to format a report based on rtf output from DOORS. I made some changes to the VBA to improve performance (it used to run for more than hour) and now I would like to compare the Word document produced from the latest version with a Word document produced from the previous version of the Word VBA macros. I am running Microsoft Office Word 2003. I opened the more recent copy, and then: 1. pulled down Tools-->Compare and Merge documents... 2. checked the "Legal Blackline" checkbox 3. selected the baseline word document produced under the old macro set 4. clicked on "Compare" The only differences that showed up was that every row of the main table is black-barred with (on each page) a change box pointing at the header saying "Formatted Table". When I move my mouse over the "Formatted Table" change box it says "Author formatted Table:" Any clue what this is trying to tell me? The contents look fine otherwise. --Thank you, --Mike Jr. Tag: Error &H80004005 Tag: 112251
  - 24
    - Spaces after 1 incorporate footnote Below is my 1 space after macro, but I need to add 1 space after footnote - I keep getting errors in my attempts: .^f<space><space> to be .^f<space> a single space after footnote is that possible to do? Sub Spaces_After() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "([.\?\!]) {1,}" .Replacement.Text = "\1 " .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False .MatchWildcards = False End With Selection.Find.Execute While Selection.Find.Found Selection.HomeKey Unit:=wdStory Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Wend Selection.Find.Text = " ^l" Selection.Find.Replacement.Text = "^l" Selection.Find.Execute While Selection.Find.Found Selection.HomeKey Unit:=wdStory Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Wend End Sub Tag: Error &H80004005 Tag: 112250
  - 25
    - VBA Code cleaners Does anyone know where I can get a VBA Code Cleaner program which works with Word 2003 and above, please? All the ones I've found seem to concentrate on Excel but not Word. I've always used the one mentioned in the MVPS site but this only works up to Word 2002. Thanks Roderick Tag: Error &H80004005 Tag: 112249
- Next
  - 1
    - Changing the default spelling language for Word 2007 Hello, Is it possible to change the default office (word) spelling language from code? Preferably from c#, I have not found the location where word stores this. Kind regards, Sven Maes Tag: Error &H80004005 Tag: 112240
  - 2
    - if bookmark.Exist (Left("nut", 3) Hi all I am hoping to use VBA to check if a document has a bookmark starting with a particular string. I thought I could use LEFT to check if it exists but it does not pick up the bookmark. Checking if bookmark exits works perfectly when not using LEFT Ive tried: If ActiveDocument.Bookmarks.Exists(Left("_BD", 3)) = True Then msgbox "Yes its here" end if I found that looping through the document works but I do want to search for each bookmark eg: Dim myBM As Bookmark For Each myBM In ActiveDocument.Bookmarks If ActiveDocument.Bookmarks.Exists(myBM.Name) And Left(myBM.Name, 3) = "_BD" then do this End If Next myBM Any ideas? Thanks in advance Tag: Error &H80004005 Tag: 112237
  - 3
    - MACRO TO TOGGLE FONT ON AND OFF I have document that uses a particular font (usually no more than a few characters in length) in numerous places throughout. Is there a macro that would toggle this font on and off using a shortcut-key combination (e.g. like the way that CTRL + "I" does for italic type)? -- JBusby Tag: Error &H80004005 Tag: 112236
  - 4
    - Wrong font color for envelopes When I try to use the tab for letters and labels when printing an envelope, the type comes out green even though black is the default color. It does not happen with labels. Tag: Error &H80004005 Tag: 112234
  - 5
    - Programing the page number Hello: I have an application of Visual Basic 2005. I can make a word XP document ("Document 1") by code inside the application. I want to put the page number in the document but I don't know how from inside the code of Visual Basic. That's the problem. Thanks Tag: Error &H80004005 Tag: 112231
  - 6
    - printing macro built a macro in word to bring data from an excel worksheet. Is there a way to have word merge stop at a location instead of searching the full excel sheet. Have used first & last 1 & 50 still goes the limit.This is being done in 2000 as the people who will use after I am gone are novices as I am. This is really my last hurdle to this project. Thanks to anyone who can speed up this merge. Tag: Error &H80004005 Tag: 112228
  - 7
    - Setting a Range Can someone tell me how to set a range for the last section of a document? Or as an alternative how to set the range to the section where the cursor is? Specifically what I need to do is set the last section as a range so I can make some modifications. First I need to delete the last two rows from a table in that section (there are two tables, and I need to delete rows 3 and 4 from the second table). Then I need to search for a text string, and insert some text in front of the original text. Thanks for any help. Tag: Error &H80004005 Tag: 112222
  - 8
    - Change font Colour/Color I have a template document on which I want to be able to change lightblue to black after drafting the document. I have the following code in my macro at the moment and it works ok I just wondered if there was a more efficient way of writing it that I haven't thought of or if I should do some error checking on it as well. Still finding my way around vba at the moment and am improving with the help of this site. Public Sub SetTextToBlack() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Font.Color = wdColorLightBlue .Replacement.Font.Color = wdColorBlack .Wrap = wdFindContinue End With Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveRight End Sub Many thanks JayM Tag: Error &H80004005 Tag: 112220
  - 9
    - Deleting text boxes with red line or text Is it possible to use VBA to delete text boxes in a word document that have a red line around them (or with red text in)? If so can you point me in the right direction for the code Many thanks JayM Tag: Error &H80004005 Tag: 112217
  - 10
    - PLEASE respond ASAP Hi there, It's a crazy problem i'm facing. I have to work on many documents and there will be a footer kind of note, same note I have to keep in each document but the page is not the same. For example, there is a word "xyz" and we dont know in the document where it comes, when it appears there should be a footnote in the first instance of the document. If it comes in the second page of one document, it comes on someother page in other document. SO I thought of recording a macro as the text is same for all. Now it is working, when I say run it appears BUT IN ALL PAGES OF THE DOCUMENT whereas I require only in the active page, that is the page where I am working and is needed. I mean, when I go to a particular page and run the macro, it should come only on that particular page and not the entire document. How can I edit the code to do that? Where and what should add inside the coding to write the text in particular page. Otherwise, everytime I have to either open or keep open the other document, copy and paste. I thought of a simple macro but it is becoming complicated. Sorry for a big explanation, I just want to make clear. Thanks in advance for your valuable time and solutions. But please respond asap. Tag: Error &H80004005 Tag: 112214
  - 11
    - Combo Box Is there a way in Word VBA to create a combo or list box where values can be displayed and also have the ability to add and delete items. For instance have a list of predefined food that the user can modify via the list and add additional items or remove items of food they don't want on the list? Thanks in advance Tag: Error &H80004005 Tag: 112209
  - 12
    - VBA to determine Word version of a document Hi, I need to create a vba macro that will provide info about which version (fileformat) of Word the active document was saved in. I tried the following, but no luck: Sub CheckDocType() 'Assuming that constants are as follows: Format 15 - docx; Format 16 - docm If ActiveDocument.SaveFormat = 15 Or ActiveDocument.SaveFormat = 16 Then MsgBox "This document is a Word 2007." End If End Sub Thanks Tag: Error &H80004005 Tag: 112208
  - 13
    - macro to toggle Autotext Menu on & off Seems like it should go something like this - but it doesn't work: Sub ViewAutotextMenu() IF CommandBars("AutoText").Visible = True Then CommandBars("AutoText").Visible = False End If if CommandBars("AutoText").Visible = False Then CommandBars("AutoText").Visible = True End If End Sub Tag: Error &H80004005 Tag: 112207
  - 14
    - There is the control (RichTextBox) for VBA? Hello. I want to insert into form (Word VBA) textbox but it have not context menu. There is any other controls (e.g. RichTextBox) for VBA? Or not? Thank you. Tag: Error &H80004005 Tag: 112202
  - 15
    - Macro attached to checkbox in online form Word 2003 online form checkbox has macro - when you click it, upon exit, the background turns red Macro security is medium assigned to 'All active templates and documents' does not work when I email the form to another user ?? thanks! Tag: Error &H80004005 Tag: 112199
  - 16
    - Load function Hello everyone, I am trying to run this function on word 2004 on Mac. It works perfectly fine on pc but creates errors when running it on mac. Can someone let me know how to fix this? thanks Public Sub LoadXML(ByRef xmlObject As Object, ByVal xmlPath As String) On Error GoTo Error_Handler xmlObject.async = False xmlObject.preserveWhiteSpace = True xmlObject.Load (xmlPath) xmlObject.Load (xmlPath) Error_Handler: If Err.Number <> 0 Then Err.Raise Err.Number, Description:=Err.Description End If End Sub Tag: Error &H80004005 Tag: 112197
  - 17
    - Random Number Question I am trying to generate a random number by seeding randomizer with the date and time. I need to be able to verify that the seed and random number generated are correctly matched. But even with the same seed value typed in, I'm still getting random numbers. Is there a way to do this in VBA? My understanding of seeding is that given the same seed value, the pattern should hold true. Am I missing something here? Public Sub AutoExec() Dim seed As Date seed = Now Randomize (39543) 'I have changed this number to seed when running off time. 'Generate a random number. 'Rand is a function that works like: Rand (lowest number, highest number) ActiveDocument.FormFields("txtSeed").Result = seed ActiveDocument.FormFields("txtCode").Result = Rand(1, 1000000) End Sub Tag: Error &H80004005 Tag: 112196
  - 18
    - Date Control We recently had to migrate a good portion of our machines to Office 2003 Standard, the rest have Office 2003 Pro. As everyone probably knows, the VBA code that we utilized for Professional in regards to calendar controls does not work on Standard machines. We have tried coding on a Standard machine with date picker and then Professional get an error that object could not be found. When you look in references on their machine, nothing is showing as missing. Does anyone have a calendar control that can utilized on both platforms, or is something wrong. We need help ASAP. Thanks in advance. Tag: Error &H80004005 Tag: 112193
  - 19
    - How do I convert automatic simple list numbering to actual text? I have a batch of RTF files in which the author used automatic numbering (simple list style, not SEQ fields). I need to import these RTF files into a program that will choke on the automatic numbering, so I need to convert it to plain characters. How can I do this? If these were fields, I could just unlink them. But I don't know how to handle this kind of numbering. Thanks! Ben Tag: Error &H80004005 Tag: 112189
  - 20
    - Problem with PasteSpecial using LINK=True Hello, I'm trying to find the code as to verify the source file of a PasteSpecial Link. To paste, I used the following line : Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False What happens is that when I copy the file to another folder, sometimes the source PATH does not follow. So I want to make sure that all the PasteSpecial Link have the same PATH and FILENAME. I looking for a FOR EACH ... LOOP that scans all the PasteSpecials. Thanks ------------------- S. Hewes Tag: Error &H80004005 Tag: 112186
  - 21
    - background process to monitor cursor location This is a followup question from a previously answered thread: "clicking in protected forms: MS knowledge base article ID: 839950" from March 26, 2008 The problem is: In summary, the user must click or tab from one form field into another form field on a protected document or Word does not run the form field's 'on entry' and 'on exit' macros. My solution: Inside the Document_Open() subroutine, I am using the Timer and DoEvents functions in a While Loop to 'wait and watch' what the user is doing. When the cursor is 'properly' placed or 'improperly' found on one of the text form fields used for data entry, then a pointer to that field is stored. If the focus is moved 'properly' to another form field, the pointer is set to the new field. However, if/when the cursor is 'improperly' found in some other location, the validation routine is run and the pointer is reset (or set to the new data entry field). Finally, I am using the Document_Close() subroutine to set a flag that allows Word to kick out of the While Loop and exit the Document_Open() subroutine. My concern/question: Practically this appears to be working, although it makes the response sluggish (especially if focus is moved to a different Word Document). However, there is so much in this Windows world that I don't know and I am concerned that I have opened a 'pandora's box'. Does anyone see any danger in using this methodology or have any other advice? Thank you! -- James III, Sincere VBA Newbie! Tag: Error &H80004005 Tag: 112183
  - 22
    - Content Controls and Comments I have a content control in my document that I want to be removed if the content is edited (Properties: checkbox â??Remove content control when content is edited.â?? is checked). The content control works fine. But if the I select the content control and then click â??Reviewâ?? ->â??New commentâ?? the control is getting removed even the content is not edited. It does not happen if I am trying to insert bookmark or track changes. What is different about comments? Is there any way to disable â??Commentâ?? buttons on the Ribbon in VB? Tag: Error &H80004005 Tag: 112177
  - 23
    - windows how to unlock my document so i could write on windows Tag: Error &H80004005 Tag: 112176
  - 24
    - =?Utf-8?Q?How_Does_One_Determine_if_a_Styl?= The following code hides the text using the styles â??Even # Answerâ?? and â??Even # Answer Headerâ??: Sub FEN2Word_SE_Toggle() ActiveDocument.Styles("Even # Answer").Font.Hidden = True ActiveDocument.Styles("Even # Answer Header").Font.Hidden = True End Sub But what I would really like this macro to do is something like: Sub FEN2Word_SE_Toggle() If Text_Hidden then 'unhide text ActiveDocument.Styles("Even # Answer").Font.Hidden = False ActiveDocument.Styles("Even # Answer Header").Font.Hidden = False Else 'hide text ActiveDocument.Styles("Even # Answer").Font.Hidden = True ActiveDocument.Styles("Even # Answer Header").Font.Hidden = True End If End Sub I want this macro to hide and unhide text. How does one determine if a styleâ??s font is hidden? Any help will be greatly appreciated. Steven Craig Miller New Lenox, IL (USA) Tag: Error &H80004005 Tag: 112173
  - 25
    - CommandBars and dropdowns? Hi All Query about CommandBars, basically I a migrating a solution from VBA to VSTO 2005SE. I have cross posted as I am looking for an answer from either end VBA or VSTO. In Microsoft Word 2003 SP3 the Undo icon has a drop down arrow next to it on the right hand side. When you click the undo command, it activates its event and when you click the drop down arrow it activates the menu. How could I do this? Any examples or ideas..... Tag: Error &H80004005 Tag: 112172

Using Windows XP, EXCEL Office 2003.
Each time I open an EXCEL workbook, I get the MICROSOFT VISUAL BASIC system
error '&H80004005 (-2147467259) unspecified error' message. I click on OK
about 17 times and then get another error message 'Compile error in hidden
module: This Workbook'. This happens each time I open an EXCEL file whether
it is a new one or not. Can anyone help me get rid of this, please?
Thanks
Yendorian

Re: Error &H80004005 by Doug

Doug
Wed Apr 09 04:56:16 PDT 2008

It would be better to post to an Excel newsgroup - probably
microsoft.public.excel.programming. This one is for the use of Visual Basic
in Word.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Yendorian" <Yendorian@discussions.microsoft.com> wrote in message
news:9E6C68A9-E28C-4F09-9668-F1E289A586A6@microsoft.com...
> Using Windows XP, EXCEL Office 2003.
> Each time I open an EXCEL workbook, I get the MICROSOFT VISUAL BASIC
> system
> error '&H80004005 (-2147467259) unspecified error' message. I click on OK
> about 17 times and then get another error message 'Compile error in hidden
> module: This Workbook'. This happens each time I open an EXCEL file
> whether
> it is a new one or not. Can anyone help me get rid of this, please?
> Thanks
> Yendorian

Re: Error &H80004005 by e

e
Thu May 29 23:52:52 PDT 2008

On 9 apr, 11:46, Yendorian <Yendor...@discussions.microsoft.com>
wrote:
> Using Windows XP, EXCEL Office 2003.
> Each time I open an EXCEL workbook, I get the MICROSOFT VISUAL BASIC system
> error '&H80004005 (-2147467259) unspecified error' message. I click on OK
> about 17 times and then get another error message 'Compile error in hidden
> module: This Workbook'. This happens each time I open an EXCEL file whether
> it is a new one or not. Can anyone help me get rid of this, please?
> Thanks
> Yendorian

Try disabling add-in's. I had the same problem. This disappeared when
I disabled the euro conversion add-in.