Passing Values to a Module

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Passing Values to a Module Tag: 112256
  - 2
    - 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: Passing Values to a Module Tag: 112253
  - 3
    - 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: Passing Values to a Module Tag: 112251
  - 4
    - 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: Passing Values to a Module Tag: 112250
  - 5
    - 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: Passing Values to a Module Tag: 112249
  - 6
    - 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: Passing Values to a Module Tag: 112240
  - 7
    - 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: Passing Values to a Module Tag: 112237
  - 8
    - 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: Passing Values to a Module Tag: 112236
  - 9
    - 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: Passing Values to a Module Tag: 112234
  - 10
    - 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: Passing Values to a Module Tag: 112231
  - 11
    - 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: Passing Values to a Module Tag: 112228
  - 12
    - 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: Passing Values to a Module Tag: 112222
  - 13
    - 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: Passing Values to a Module Tag: 112220
  - 14
    - 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: Passing Values to a Module Tag: 112217
  - 15
    - 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: Passing Values to a Module Tag: 112214
  - 16
    - 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: Passing Values to a Module Tag: 112209
  - 17
    - 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: Passing Values to a Module Tag: 112208
  - 18
    - 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: Passing Values to a Module Tag: 112207
  - 19
    - 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: Passing Values to a Module Tag: 112202
  - 20
    - 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: Passing Values to a Module Tag: 112199
  - 21
    - 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: Passing Values to a Module Tag: 112197
  - 22
    - 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: Passing Values to a Module Tag: 112196
  - 23
    - 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: Passing Values to a Module Tag: 112193
  - 24
    - 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: Passing Values to a Module Tag: 112189
  - 25
    - 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: Passing Values to a Module Tag: 112186
- Next
  - 1
    - 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: Passing Values to a Module Tag: 112183
  - 2
    - 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: Passing Values to a Module Tag: 112177
  - 3
    - windows how to unlock my document so i could write on windows Tag: Passing Values to a Module Tag: 112176
  - 4
    - =?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: Passing Values to a Module Tag: 112173
  - 5
    - 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: Passing Values to a Module Tag: 112172
  - 6
    - how to change the embedded Excelsheet's view range? In my word doc, there is an embedded excel sheet. When I insert it, it only include 4X2 cells; but I want can control it's visiable cells counts in my program. for example: change to can display 8x2 cells; how can i do it by using VBA or other language(C++,C#...)? thanks a lot. Tag: Passing Values to a Module Tag: 112171
  - 7
    - access the tabstop character next to the footnote number (using VBA) Dear Experts: I tried to access (using VBA) the tabstop characters that are located next to the footnote numbers of my document, but did not succeed. I am using a hanging indent. I would like to access (select) all the tabstop characters in my footnotes and do the following action: range.font.reset. Help is much appreciated. Thank you very much in advance. Kind regards, Andreas Tag: Passing Values to a Module Tag: 112165
  - 8
    - Problem with VBA an network printers Hallo NG, if i work with the Code (i know it is for Excel ;-) below (from http://www.xlam.ch/vbacode/index.htm), i have the problem, that it only works with local printers. But if i connect my networkprinters with the microsoft tool "con2prt", the printername is for example: \\printservername\ADOBE-PDF When i write Const strPrinter As String = "\\printservername\ADOBE-PDF" i get the failure: "Printer '\\printservername\ADOBE-PDF' - The Port Name was not found" What is the problem with networkprinters ?? Kind regards Hassan Sub GetPrinterPortName() Const strPrinter As String = "HP LaserJet 4M Plus" Dim strSetting As String Dim strPort As String Dim intChar As Integer On Error Resume Next strSetting = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices\" & strPrinter) If Err.Number = -2147024894 Then MsgBox "Es existiert kein Drucker '" & strPrinter & "'.", vbInformation Exit Sub End If For intChar = Len(strSetting) To 1 Step -1 If Mid$(strSetting, intChar, 1) = "," Then strPort = Mid$(strSetting, intChar + 1) Exit For End If Next intChar If strPort = "" Then MsgBox "Drucker '" & strPrinter & "'" & vbCrLf & vbCrLf & _ "Der Port-Name wurde nicht gefunden!", vbExclamation Else MsgBox "Drucker '" & strPrinter & "'" & vbCrLf & vbCrLf & "Name des Ports: " & strPort & vbCrLf & _ "Excel-Druckerbezeichnung: " & strPrinter & " auf " & strPort, vbInformation End If End Sub Tag: Passing Values to a Module Tag: 112162
  - 9
    - Error checking I'm currently at the beginning of the learning curve for VBA. I have taken a VB Basic course - the neat thing about it, was the "Try/Catch" error catching commands. I haven't found much in VBA for error catching. Are there any similar tools in VBA as VB.Basic? Does anyone know of any good web pages on error catching? Thanks for any thoughts . . . Tag: Passing Values to a Module Tag: 112150
  - 10
    - FileSearch with Office 2007 Hi, Iâ??ve a code that work fine with Word in Office 2003, but it returns an error code with Office 2007: â??This command is not available on this platformâ??. The code breaks in the following line: Set fs = Applicaton.FileSearch Do you know why? Tag: Passing Values to a Module Tag: 112148
  - 11
    - Can't Spellcheck individual form fields in a protected form Is it possible to spellcheck only certain form fields in a protected Word form? Below is the Macro I have so far but it runs through all the form fields including the check boxes and I have a 40 page doc which takes almost 5 mins for the spellchecker to run. I have tried to use the macro in the 'on exit' properties but that still doesn't seem to work. Any ideas would be greatly appreciated. ~Thanks, Roxy Sub SpellCheckForm() Dim i As Integer Dim bProtected As Boolean 'Unprotect the file If ActiveDocument.ProtectionType <> wdNoProtection Then bProtected = True ActiveDocument.Unprotect Password:="colleen" End If 'check formfield for spelling For i = 1 To ActiveDocument.FormFields.Count ActiveDocument.FormFields(i).Select #If VBA6 Then Selection.NoProofing = False #End If Selection.LanguageID = wdEnglishUS Selection.Range.CheckSpelling Next 'Reprotect the document. If bProtected = True Then ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="colleen" End If End Sub Tag: Passing Values to a Module Tag: 112143
  - 12
    - how about product ID 89388-861-1060037-65764 ? how about product ID 89388-861-1060037-65764 ? or product ID 89388-861-1060037-65764 is trial? Tag: Passing Values to a Module Tag: 112141
  - 13
    - Selecting a Field I am creating a macro which inserts a Filename field into a document. I want to then resize the font of ONLY the inserted field to 7pt. Presently my macro reads as follows: Selection.EndKey Unit:=wdStory Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "FILENAME ", PreserveFormatting:=True Selection.HomeKey Unit:=wdLine, Extend:=wdExtend With Selection.Font .Name = "Times New Roman" .Size = 7 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone End With Selection.MoveRight Unit:=wdCharacter, Count:=1 This result was fine, as long as there was nothing else on the line ahead of the Filename field insertion, which tends to USUALLY be the case. But, because the macro indicates to return to the beginning of the line to apply the font size, it also modifies any other text on the same line ahead of the inserted field. I have tried various combinations of Shift, Ctrl and Alt along with arrow keys for selecting the field with my keyboard while recording the macro, but no luck. So I need to modify the macro somehow so that it only selects the inserted field instead of returning to the beginning of the line before it sizes the font of the inserted field. Any help would be greatly appreciated! Thanks! -- Elizabeth A. BaÃ±uelos MOS Master Microsoft Office Specialist - XP (Word, Excel, Powerpoint and Access) Hamilton, Ontario, Canada Tag: Passing Values to a Module Tag: 112136
  - 14
    - Unlinking footnotes/endnotes from text Can this be done with a macro? Can this be done at all without third-party software? Tag: Passing Values to a Module Tag: 112135
  - 15
    - Spellchecking template - receiving error message We are using a Word template to prepare formatted memos that are then emailed to our users. I found an article at http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm, which contained the code to unlock, spellcheck, and relock the template. It works very well but only on workstations that are set up to allow the user Admin access. Unfortunately, the vast majority of the workstations in our company are set up to only grant User level access and the spellcheck function doesn't work on those, even when we lowered the macro security level to Low. The security policy cannot be changed to allow everyone Admin access. Any suggestions to work around this problem and allow the spellcheck to run? Any help will be appreciated. Thanks, John Tag: Passing Values to a Module Tag: 112130
  - 16
    - Doing translation with VBA Hi, My work needs me to translate some objects into Chinese at times. I come across, for example, a card, a screwdriver and a saw and their quantity may vary. Since they appear frequently and the translation is repetitive, I would like to use a VBA programme to do the simple translation. They appear as lists such as "a card, a screwdriver, a saw and a stool". Does anyone have idea of how to do it or could anyone point me to the right direction? Thank you. Mike Tag: Passing Values to a Module Tag: 112127
  - 17
    - FirstLineIndent read only in table cell I am using Microsoft Word 2003 and trying to write a macro which corrects some indenting problems in the cells of a document. I have a problem in that I do not seem to be able to set the value of FirstLineIndent, the indentation. Here is a macro I've written to try to demonstrate the problem I'm encountering: Sub DoAllIndents() Dim NowIndent As Long For Each Tbl In ActiveDocument.Tables For Each Row In Tbl.Rows For Each cellLoop In Row.Cells With cellLoop.Range MsgBox (.Text) NowIndent = .Paragraphs(1).FirstLineIndent MsgBox (NowIndent) .Paragraphs(1).FirstLineIndent = 0 MsgBox (.Paragraphs(1).FirstLineIndent) End With Next cellLoop Next Row Next Tbl End Sub The problem is that setting "FirstLineIndent" does nothing: the second MsgBox gives the same value as the first one. Apart from using Range.Paragraphs(1), I've also used .ParagraphFormat.FirstLineIndent with exactly the same results. The document itself is not read-only, but "FirstLineIndent" seems to be. I've googled for some hints but have not been able to make the above work properly. Thank you very much indeed for any help with this problem. Tag: Passing Values to a Module Tag: 112121
  - 18
    - Iterate cells in a table Hi, this code creates a table in a blank document. I want to fill the middle-most 5 columns with the numbers 1-5 (in the for-next loop). Dim rng As Range Dim intCount As Integer Set rng = ActiveDocument.Range ActiveDocument.Tables.Add rng, 2, 1 Set rng = rng.Tables(1).Rows(1).Range rng.Cells(1).Split 1, 3 Set rng = rng.Tables(1).Rows(2).Range rng.Cells(1).Split 1, 2 Set rng = rng.Tables(1).Rows(2).Cells(2).Range rng.Cells.Split 5, 2 For intCount = 1 To 5 ' Fill central column Next Any hints would be appreciated, Graeme. Tag: Passing Values to a Module Tag: 112117
  - 19
    - Code Hanging - Part II Recently I posted a question about code hanging after displaying a built-in dialog that got no response. I now have some more information that might help. It seems that the code only hangs if the built-in dialog allows the entry of text for insertion into the document and only if text is actually entered manually. The dialog in question in my previous post was the 'Caption' dialog. I've been working with the 'Envelopes and Labels' dialog recently and ran into the same problem - but only intermittently. So I had a look at when the code hung and when it didn't and discovered that if I fed the address information to the 'Envelopes and Labels' dialog programmatically (e.g. populated it with values from a UserForm), everything was fine. However, if I added or modified the address information manually - even after populating it originally from the UserForm - the code hung. I reckon this is some sort of bug in Word, and I don't for a minute imagine it's anything under my control. If I manually enter text into a dialog that's displayed through code, the code is going to hang. I'm just wondering: has anyone encounterd this problem previously and if you have, have you been able to find a workaround - or at least a way to 'unhang' the code? The problem is easy enough to recreate. Just create a UserForm with a single TextBox and a CommandButton, then add the following code to the click event for the button: Private Sub CommandButton1_Click() UserForm1.Hide Dialogs(wdDialogToolsCreateEnvelope).AddrText = TextBox1.Value Unload UserForm1 End Sub This should display the built-in 'Envelopes and Labels' dialog box with the value from the TextBox on the UserForm displayed in the 'Delivery address' field. If you just add the envelope to the document, the code should continue to run, but if you change the address info manually, it will hang. The code can't be reset or even modified until you close and restart Word. -- Cheers! The Kiwi Koder Please note: Uninvited email contact will be marked as SPAM and ignored - unless you want to hire me. ;-) Tag: Passing Values to a Module Tag: 112113
  - 20
    - Creating a helpful hint pop-up Is there a way to create a helpful hint pop-up when someone opens a document? Tag: Passing Values to a Module Tag: 112106
  - 21
    - Word 2007 - Error 4198 when open hyperlink is cancelled Using Word 2007, I have created a macro to a hyperlink. If I click Cancel when the window opens that asks "Would you like to open this file?", I get the Run-time Error '4198.' This is a macro-enabled document that many employees use for a template so it must be corrected within the VBA programming if possible. Here is a sample of the macro: Sub Acronyms() On Error GoTo errorHandler ActiveDocument.FollowHyperlink _ Address:=" http://www.acronymfinder.com/", _ NewWindow:=True, AddHistory:=True Exit Sub errorHandler: Resume Next End Sub How do I "trap" the error so that employees won't get the debug error message? Tag: Passing Values to a Module Tag: 112104
  - 22
    - Search Word doc and record page number Hi all, I've tried a few ways to do this (which are gone now, otherwise I'd post them...sorry), but I'm not having much luck, if any. What I'd like to do is search a Word doc for terms that are contained in a text file (each term on a new line), then record the term and the page number it appeared on to another text file - creating an index, essentially. Reading the text file is no big deal, I don't think. I've done that with VBS before, so it can't be /that/ different in VBA. What I need to figure out how to do is search the Word doc and return the page number. I think I have to use a range for this in order to get the correct page number, but this is all pretty new to me. So, if anyone can help, I'd appreciate it. Thanks! Gabe Tag: Passing Values to a Module Tag: 112100
  - 23
    - Funky Macro? I am trying to create a macro that will insert a .jpg saved on the server into a Word document. I am recording the macro, naming it Signature, and storing it in Normal. I am using the menu bar for my selections (not using toolbar buttons). I am selecting menu bar item "DM" (firm created menu bar item), then Insert, Picture, and Cancel (as jpg's are not stored in DM but rather on the server), then selecting OK when prompted whether I want Word to open a document. Then I find the jpg on the server drive, select it, and click on OK. When I do this outside of recording a Macro, it works absolutely fine. The result of these steps taken while recording a macro, simply reads (when viewing the macro in VBA) as follows: Sub Signature() ' ' Signature Macro ' Macro recorded 4/2/2008 by ebanuelos ' End Sub I have even attempted it without using a mouse whatsoever, using the keyboard for selecting menu bar items and the tab key for selecting "cancel" when required, etc. and I still get the same result. Anyone have any suggestions for me? I've never had blank macros happen before and I'm stuck. Thanks in advance! -- Elizabeth A. BaÃ±uelos MOS Master Microsoft Office Specialist - XP (Word, Excel, Powerpoint and Access) Hamilton, Ontario, Canada Tag: Passing Values to a Module Tag: 112097
  - 24
    - Create a future & past date in Word If today's date is 20080401 (4/1/08), I would like to have a date automatically inserted that is 10 years in the future, but 1 day prior: 20180331. The following field codes work just great for almost every instance: {={createdate \@ "yyyy"}+10 \# "0000"}{createdate \@ "MM"}{={createdate \@ "dd"}-01 \# "00"} Problem is, yesterday (4/1/08), those fields yielded: 20180400 -- not a real date. I know it will require combining the month & day portions of my fields into a contiguous field to get the subtraction of 1 day correct. Problem is, even when I try that I still end up with April 00th: {={createdate \@ "MMdd"}-1 \# "0000"} --> 0400 {={createdate \@ "MMdd"}-1 \@ "MMdd"} --> 400 I would like to try and accomplish this without any programming or add-ins to my system ... problems with network administrators. Any help would be greatly appreciated. Thanks--JT Tag: Passing Values to a Module Tag: 112096
  - 25
    - Different tables I have two tables in the same document with the same information, which is a row of values. The information in Row A below is entered as fields in file/properties/custom. I want the same values to be entered in each table so the person doesn't have to enter them twice(once for each table) therefore the field names for each column value is the same in each table. Is there a way to designate in two different macros (one for each table) that it is a seperate table so that when Row B is calculated for the second table it doesn't revert back to the first table. For example RowA 3.5 3.7 3.8 9.5 9.8 however each table uses a different value to multiple to get row B. For example 1st table Row A 3.5 3.7 3.8 9.5 9.8 each value is multiplied by 10 to get row B 1st table Row B 350 370 380 950 980 Seperate Macro same document 2nd table Row A 3.5 3.7 3.8 9.5 9.8 each value is multiplied by 100 to get Row B 2nd table Row B 3500 3700 3800 9500 9800 Tag: Passing Values to a Module Tag: 112094

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

Top

Re: Passing Values to a Module by Jonathan

Jonathan
Mon Apr 07 14:14:28 PDT 2008

Hi Tom

You might find this article helpful

"How to cut out repetition and write much less code, by using subroutines
and functions that take arguments"
http://www.word.mvps.org/FAQs/MacrosVBA/ProcArguments.htm

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

"TomP" <TomP@discussions.microsoft.com> wrote in message
news:DC0C642F-F330-4490-9A96-11C52A9907A6@microsoft.com...
>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
>

Top