printing macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: printing macro Tag: 112222
  - 2
    - 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: printing macro Tag: 112220
  - 3
    - 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: printing macro Tag: 112217
  - 4
    - 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: printing macro Tag: 112214
  - 5
    - 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: printing macro Tag: 112209
  - 6
    - 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: printing macro Tag: 112208
  - 7
    - 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: printing macro Tag: 112207
  - 8
    - 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: printing macro Tag: 112202
  - 9
    - 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: printing macro Tag: 112199
  - 10
    - 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: printing macro Tag: 112197
  - 11
    - 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: printing macro Tag: 112196
  - 12
    - 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: printing macro Tag: 112193
  - 13
    - 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: printing macro Tag: 112189
  - 14
    - 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: printing macro Tag: 112186
  - 15
    - 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: printing macro Tag: 112183
  - 16
    - 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: printing macro Tag: 112177
  - 17
    - windows how to unlock my document so i could write on windows Tag: printing macro Tag: 112176
  - 18
    - =?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: printing macro Tag: 112173
  - 19
    - 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: printing macro Tag: 112172
  - 20
    - 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: printing macro Tag: 112171
  - 21
    - 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: printing macro Tag: 112165
  - 22
    - 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: printing macro Tag: 112162
  - 23
    - 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: printing macro Tag: 112150
  - 24
    - 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: printing macro Tag: 112148
  - 25
    - 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: printing macro Tag: 112143
- Next
  - 1
    - 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: printing macro Tag: 112141
  - 2
    - 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: printing macro Tag: 112136
  - 3
    - Unlinking footnotes/endnotes from text Can this be done with a macro? Can this be done at all without third-party software? Tag: printing macro Tag: 112135
  - 4
    - 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: printing macro Tag: 112130
  - 5
    - 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: printing macro Tag: 112127
  - 6
    - 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: printing macro Tag: 112121
  - 7
    - 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: printing macro Tag: 112117
  - 8
    - 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: printing macro Tag: 112113
  - 9
    - Creating a helpful hint pop-up Is there a way to create a helpful hint pop-up when someone opens a document? Tag: printing macro Tag: 112106
  - 10
    - 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: printing macro Tag: 112104
  - 11
    - 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: printing macro Tag: 112100
  - 12
    - 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: printing macro Tag: 112097
  - 13
    - 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: printing macro Tag: 112096
  - 14
    - 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: printing macro Tag: 112094
  - 15
    - loop validation I have a form that accepts AutoText entries. If the AutoText entry doesn't exist I prompt the user with an Inputbox function to enter the entry again. But there is a line that deletes the previous entry: Selection.Delete. If the user keeps entering the wrong AutoText entry more is deleted than is required. Here is sample code that runs when user clicks OK on form: On Error Resume Next Dim x As String Dim y As String Selection.GoTo What:=wdGoToBookmark, Name:="MyTest" Selection.Text = frmAutoTextTest.txtFirstAutoText Selection.Range.InsertAutoText Do While Err.Number <> 0 Err.Number = 0 Selection.Delete frmAutoTextTest.txtFirstAutoText.SetFocus frmAutoTextTest.txtFirstAutoText = "" x = InputBox("Enter First AutoText again", "Re-enter AutoText") Selection.Text = x If x = vbCancel Then Exit Sub End If Selection.Range.InsertAutoText Loop frmAutoTextTest.txtSecondAutoText.SetFocus Selection.GoTo What:=wdGoToBookmark, Name:="AnotherTest" Selection.Text = frmAutoTextTest.txtSecondAutoText Selection.Range.InsertAutoText Do While Err.Number <> 0 Err.Number = 0 Selection.Delete frmAutoTextTest.txtSecondAutoText.SetFocus frmAutoTextTest.txtSecondAutoText = "" y = InputBox("Enter Second AutoText again", "Re-enter AutoText") Selection.Text = x If x = vbCancel Then Exit Sub End If Selection.Range.InsertAutoText Loop Unload Me Thanks for any help, Jake Tag: printing macro Tag: 112091
  - 16
    - Shifting the screen up after tabbing from a form field Hi, I have a form that only permits fill in text into form fields scattered over 10 pages...yet when I tab to a new form field, it bings me to the field at the bottom of the screen so I then manually have to scroll down to move the screen up to make it easier to see the text that I am typing. Is there a way to program the screen to scroll up when I tab to certain fields so the field will automatically appear at the top or top middle area of the screen? Thank you ! Craig Brody Tag: printing macro Tag: 112088
  - 17
    - Table Macro I'm fairly new to VBA. I'm working on a template that should insert a pre-designed table from a toolbar. My question is wether I have to design the table through the macro since it's quite an involved table or wether there is a way to just select the appropriate table (designed before running the macro) to be able to be pasted wherever in the document? Hope this makes sense Thanks Tag: printing macro Tag: 112085
  - 18
    - Create custom error handling outside of VBA Hi again, Is there any way to create error handling that doesn't live inside your original module? What I'd like to do is be able to add error handling that lives outside my module, and can be easily updated. For example, let's say that a new error is given to me by my users. I work out what the error handling needs to be (e.g. ErrorMsg = MsgBox("Error number: " & Err.Number & " - Document is locked by password." & vbCrLf & "Please unprotect manually.", vbCritical, "Error!")) and then I can add this to my error handling without updating the module itself. I update the external file (which isn't in use) I've got another thread open on PrivateProfileString, but I don't think it's appropriate in this case. While I could use it to get custom error messages (e.g. ErrorMsg = System.PrivateProfileString("H:\Errorlist.ini",Err.Number,"Message") I couldn't actually assign specific handling to the error. (That is, I couldn't do like a Case statement, whereby it checks Err.Number against the case, and when a case is found, runs specific code) Any thoughts? Thanks again, Bob Tag: printing macro Tag: 112078
  - 19
    - System.PrivateProfileString to populate array? Hi everybody, I've got a module I wrote a while ago, and I had an idea to rewrite a portion of my code to make it more portable. Trouble is, now that I sit down to actually do it, I realise that it may be a bit trickier than I first thought. My original code is called by another portion of my code, which has run a lot of initialisation settings for the module. This is run just before calling a form, so that I can assign values to the form buttons. (Eg Button1.Label = TrayLabels(1)) Sub AssignTrays() 'Add new printers here Select Case Printername Case "PSA075" TrayLabels = Array("Blank", "Blank", "Blank", "A3") Case "PSA073" TrayLabels = Array("Blank", "A3", "SG", "CG") Case "PSA032" TrayLabels = Array("Blank", "SG", "CG", "A3") Case "PSA071" TrayLabels = Array("Blank", "SG", "CG", "NR") End Select End Sub The code works fine and I've had no issues. However, a drawback to this style was noted yesterday when we got a new printer, with new tray assignments. Instead of being able to quickly change the labels, I had to wait until everybody had gone home and deploy a new version, just to change 1 label. That's when the idea of using an Ini file to get printer names and tray names occurred to me. What I'd like to do is create an Ini file which contains A) Get a list of available printers for a site. B) A list of what trays are available for these printers. E.g. [AvailPrinters] PSA071 PSA073 PSA075 PSA032 [PSA071] Blank SG CG NR The main problem is, I don't know how to read multiple values with System.PrivateProfileStrings, only a single value. Does anybody have any idea how I might set about trying to code this? Thanks in advance, Bob Tag: printing macro Tag: 112076
  - 20
    - Pulling apart text on a clipboard Anyone interested in answering this question - I have a lot of background info below, but the meat of the question is the last paragraph if you're interested in jumping ahead. Our company has a "Corporate Resume" system that is antiquated, but I need to make the best of it. After running a macro, we have a Word document that is composed of paragraphs that describe what an engineer did on a certain projects. There are as many paragraphs as projects. The trouble is that a satellite office of ours decided they needed to fine-tune this system and further categorize the paragraphs. They do so by putting numbers in front of each paragraph; frequently, there is more than one number in front of a paragraph. I need to be able to check each paragraph and figure out which category(ies) it is. Then, if it has more than 1 category, pick off each category number and capture the remainder of the paragraph (sans other numbers), then do that for the remaining numbers (if I have three categories, I end up repeating the paragraph three times). It's easy enuf to copy the paragraph to the clipboard and convert it to string, then examine it for categories. I also need to keep the paragraph formatting (specifically, keep certain parts of it bold). What I'd like to do is look at each characters (or group) of the paragraph and find out if it's formatted, and how so. My question boils down to, is it possible to look at a chunk of text on the clipboard and figure out how it's formatted on a character level, then remember the formatting and paste the text? Thank you for any thoughts. Tag: printing macro Tag: 112072
  - 21
    - Use a Symbol such as "TM" in a Toolbar Name Hi, Is this possible? I want to either superscript the letters "TM" or use the Trademark symbol in a toolbar name. I'm not able to make it happen at this point, does anybody know if this can be done? Thanks for your time. Tag: printing macro Tag: 112070
  - 22
    - How to change the font for specific words? I'm trying to write a macro to find and change the formatting (e.g. italic) of particular words. Recording my Replace procedure (which itself functions properly) only saves ".Format = True" (see below); it doesn't seem to indicate anywhere WHAT format choices I had made (e.g. Italics). Any ideas? Many thanks in advance! Tom Kreutz With Selection.Find .Text = "(SUBTOTAL)(*)^13" .Replacement.Text = "\1\2^p" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Tag: printing macro Tag: 112063
  - 23
    - Multiple Word Sessions - Word 2007 We have an application that uses javascript code to open a new instance of Word, even if there is already an instance running. This worked fine with Word 2003, even if there was already a Word sesion open. I could have multiple Word sessions open and the javascript code would not complain. I am in the process of converting things for Word 2007 and this code still works with 2007 except that if Word is already opened when I run the javascript code, I get an error because there are some templates in the startup folder that are already loaded. The error tells me that "templatename".dotm is locked for editing. I don't want to kill the prior Word session; I simply want to keep the session that javascript opens separate. The javascript code uses the following code: new ActiveXObject("Word.Application") This establishes the new instance of Word. I know there is a startup switch /a that will not load any templates, including normal.dot but I'm not sure how to do that with javascript with this existing code and I don't know if that's the correct approach anyway. Does anyone have any ideas on how I can get this to work? Is there some setup option in Word that specifies how to handle multiple Word sessions? Any help is greatly appreciated. Thanks. Tag: printing macro Tag: 112061
  - 24
    - how do I have location bullets overlayed on a map I want to overlay the names of our various locations on a .gif file map and then be able to click on the names to go to the location pages. When the map shows on the screen it would have bulets at the various locations. Then when we add a location we could put a new bullet on the map of Ontario and if it was clicked on the customer could go to the page of that location. Tag: printing macro Tag: 112050
  - 25
    - Word Template I created a template that prompts the user using Ask field codes as well as Fill In field codes. The problem I am having now is I need to ask a Yes or No question. If yes, I need to include a paragraph of verbiage as well as adding another page to the end of the document. I researched the If statements, Include Text field code and Cross References. I do not know VB too well. The user did not want a user form. I am on the right track or does anyone have a better idea. Thanks! Tag: printing macro Tag: 112049

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.

Re: printing macro by Doug

Doug
Sun Apr 06 00:58:33 PDT 2008

It is not really clear what you mean by "stop at a location". How would
that location be defined?

Suggesting a modification to your exisiting code would be easier if you
showed us what it was.

--
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

<cagreer@att.net> wrote in message
news:e7f0eeba-eb0c-4d48-b2ee-640b81cfd560@s37g2000prg.googlegroups.com...
> 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.

RE: printing macro by SHewes

SHewes
Tue Apr 08 11:54:00 PDT 2008

Something like this might help

Stop = 0
For Each varRow In myXL.Worksheets("File").Cells(1,1).CurrentRegion.Rows
...
stop = stop + 1
if Stop = 100 then
exit for
end if

Next varRow

This stops after processing the first 100 rows ins the sheet.
-------------------
S. Hewes

"cagreer@att.net" wrote:

> 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.
>