MsgBox Colour

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Input box and bar code field Hello, I'm trying to create a macro that will prompt a user for a zip code (5 or 9 character) and then insert a bar code. Here's what I have so far: Sub MyBarCode() Dim MyZipCode As String MyZipCode = InputBox("Enter Zip Code") Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "BARCODE \u MyZipCode ", PreserveFormatting:=True End Sub The macro runs and I enter a valid zip code but here's what I get at the cursor instead of a bar code: 'Zip Code Not Valid! I think the "\u MyZipCode" is the problem but I don't know how to fix it. Any help is appreciated. Thank you. Tag: MsgBox Colour Tag: 105307
  - 2
    - Macro to Repeat a table Hi all, i'm not sure what i'm doing wrong here and need some help please. I wrote a macro (AddTable) to repeat (copy and paste) the table located above the control button. Users can repeat the table as many times as they like. I also wrote another macro (DelTable) to delete any of the above tables. However, i don't want users to delete the very first table (I need at least one table to be in the form). In order to identify the first table (so that it doesn't get deleted), i gave a name ("Client1") to the first Text Form Field in that table. The macro that repeats the table, contains a line that changes that name for all the new added tables. This way, when users want to delete any of the tables, the 'Delete Macro' will first check the name of the first Text Field, if it is "Client1" then the table won't be deleted. When i run the 'AddTable' macro, I get an error message: Compile Error, Method or data member not found. This error seems to refer to the line that renames the form field. Here are both my codes AddTable and DelTable. Any ideas would be much appreciated. I'm using word 2003. Cheers, Tendresse Sub AddTable() ' Select the table above the control button Do Selection.MoveUp wdLine, 1 Loop While Selection.Tables.Count = 0 ' Copy and Paste Table Selection.Tables(1).Select Selection.Copy Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeParagraph Selection.Paste ' Rename the first text field in the new table Do Selection.MoveUp wdLine, 1 Loop While Selection.Tables.Count = 0 Dim myFields As FormFields Set myFields = Selection.Tables(1).Range.FormFields myFields(1).Select ' the next line is where the error happens Selection.myFields(1).Name = "CanDelete" ' clear field contents in the new table Dim i As Integer For i = 1 To myFields.Count Select Case myFields(i).Type Case wdFieldFormTextInput myFields(i).Result = myFields(i).TextInput.Default Case wdFieldFormCheckBox myFields(i).CheckBox.Value = myFields(i).CheckBox.Default Case wdFieldFormDropDown myFields(i).DropDown.Value = myFields(i).DropDown.Default End Select Next i End Sub ________________________________________ Sub DelTable() ' Select table above control button Do Selection.MoveUp wdLine, 1 Loop While Selection.Tables.Count = 0 Dim myFields As FormFields Set myFields = Selection.Tables(1).Range.FormFields myFields(1).Select If myFields(1).Name = "Client1" Then MsgBox ("Sorry, you cannot delete this table") Exit Sub Else Selection.Tables(1).Delete Selection.TypeBackspace End If End Sub Tag: MsgBox Colour Tag: 105299
  - 3
    - Web File Properties - integration issue with sharepoint Not sure whether to post here or in sharepoint forum but it seems mainly to be a Word issue I want to programmatically open the file properties when a word document is created in sharepoint. I use a the following code from the document: CommandBars.FindControl(ID:=750).Execute and this works file except that it opens the standard file properties sometimes and web file properties sometimes. I think I get the Web version if sharepoint list metadata is included in the document (eg on subsequent saves) but when the document is new (from content types in the doclib) the metadata is not yet associated with the document Anyway - is there a way to force the Web File Properties dialog to be displayed? Cheers Ian B Tag: MsgBox Colour Tag: 105298
  - 4
    - help finishing "save as" macro I'm a (retarded) novice, need to finish the macro below (2003), to have it auto enter a filepath, to wit: G:\Children Probation\programs\CONSUMER ACTIVITY\ at File Name: in the Save As dialog box, and leave the insertion point for user to complete the file name manually. Sub templatesopen() ' templatesopen Macro Documents.Add Template:= _ "G:\Children Probation\programs\CONSUMER ACTIVITY\Consumer Activity.dot", _ NewTemplate:=False, DocumentType:=0 Dialogs(wdDialogFileSaveAs).Show End Sub Very VERY grateful!!!! Tag: MsgBox Colour Tag: 105296
  - 5
    - Using Word VBA how do I print Back-to-front. Using Word VBA, how do I get a document to print from Back to Front and conversely, from front to back. Tag: MsgBox Colour Tag: 105294
  - 6
    - Save multilple .rtf files to a single .doc filew Is there a way to save multiple .rtf files in a directory into a single .doc file using VBA code? Tag: MsgBox Colour Tag: 105290
  - 7
    - How do I open a document in Lotus Notes from a Word document ? I'm to develop a solution where a user should be able to transfer data from a Word document to a notes document, read som data from an XML file, and save the word document in a specific folder on the user's temp-dir. I guess this is to be programmed in VS, but I have no experience with this language or Word-Notes integration. Can anyone help i.e. with a reference to some documentation or with som personal experience ? Tag: MsgBox Colour Tag: 105286
  - 8
    - Macro Code Differences between applications I use macros to extract file information from an .ini file and populate fields in a Word document using the system.privateprofilestring("data.ini","document","data") format. This works fine in Word (up to 2003). I do not seem able to do the same thing in PowerPoint or Excel as the "system.privateprofilestring" does not seem to be recognised. Is there any way round this? ANY help would be gratefully appreciated. -- Bill Bowes Quality and Training Manager -- Bill Bowes Quality and Training Manager Tag: MsgBox Colour Tag: 105284
  - 9
    - Disable Command Button Hi all, I would like to add a line to my VBA code to disable a command button called "Delete Person". I'm not sure how to refer to the button though. The following attempt didn't work: ActiveDocument.Range.CommandButton("Delete Person").Enabled = False I'm using Word 2003. Many thanks Tendresse Tag: MsgBox Colour Tag: 105275
  - 10
    - How to dismiass Microsoft Office Word "Do you want to save the cha Hi: This is the third place I post the same question. In the previous two, the mediators all said posted in the wrong location. Hopefully the third time is a charm and get helps. My application will generate a word document as report. The application created Word Application and Document objects. When users click on Close or the "X" icon on the up right corner. The application will intercept word DocumentBeforeCloseEvent, to ask users Save, No or Cancel to the document changes. Everything works fine except when users click on "Cancel", Word still displays it's own Dialog for users to select Yes, No or Cancel for saving the document changes. Is there anyway to prevent this Word dialog because my application already process uses decision? Here is part of the code: Word_DocumentBeforeClose is used to process users decision. The last part of If in else is to process when Cancel is clicked. namespace HandleWordEvnts { public partial class Form1 : Form { #region properties Word.ApplicationClass wordApp; Word.Document wordDoc; string docName; #endregion properties public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { //===== Create a new document in Word ============== // Create an instance of Word and make it visible. wordApp = new Word.ApplicationClass(); wordApp.Visible = true; // Local declarations. Object oMissing = System.Reflection.Missing.Value; // Add a new document. wordDoc = wordApp.Documents.Add(ref oMissing, ref oMissing, ref oMissing, ref oMissing); // Clean document // Add text to the new document. wordDoc.Content.Text = "Handle Events for Microsoft Word Using C#."; docName = wordDoc.Name; //============ Set up the event handlers =============== wordApp.DocumentBeforeClose += new Word.ApplicationEvents2_DocumentBeforeCloseEventHandler( Word_DocumentBeforeClose); } // The event handlers. private DialogResult showSaveFileDlg(ref string fileName, ref string filePath) { DialogResult dlgRes = DialogResult.None; object locker = new object(); Thread.Sleep(1000); //time needed for dialog to display lock (locker) { saveFileDialog1.Title = "App Save As"; saveFileDialog1.FileName = filePath != "" ? (filePath + "\\" + fileName) : fileName; //init full name saveFileDialog1.InitialDirectory = filePath; saveFileDialog1.Filter = "Word Document (*.doc)|*.doc| Plain Text (*.txt)|*.txt|All files (*.*)|*.*"; saveFileDialog1.FilterIndex = 1; saveFileDialog1.RestoreDirectory = true; dlgRes = saveFileDialog1.ShowDialog(); if (dlgRes == DialogResult.Cancel) return dlgRes; fileName = saveFileDialog1.FileName.Substring(saveFileDialog1.FileName.LastIndexOf("\\") + 1); filePath = saveFileDialog1.FileName.Substring(0, saveFileDialog1.FileName.LastIndexOf("\\")); return dlgRes; } } private void Word_DocumentBeforeClose(Word.Document doc, ref bool Cancel) { docName = doc.Name; string fileName = doc.Name; string filePath = doc.Path; // ask user to save or not DialogResult dlgRes = DialogResult.None; AskSaveCnanges askSave = new AskSaveCnanges(); askSave.setTxtBox1 = filePath != "" ? (filePath + "\\" + fileName) : fileName; askSave.setTxtBox1Readonly = true; askSave.ShowDialog(); if (askSave.DlgRes == DialogResult.Yes) //user agrees to save { Thread showWordDlg = new Thread(delegate() { dlgRes = showSaveFileDlg(ref fileName, ref filePath); }); showWordDlg.SetApartmentState(ApartmentState.STA); showWordDlg.Name = "DocClose"; showWordDlg.Start(); showWordDlg.Join(); if (dlgRes == DialogResult.OK) //user agrees to save { MessageBox.Show("DocumentBeforeClose ( Saved " + doc.Name + " )","APP"); //Save the file, use default values except for filename object ofileName = filePath + "\\" + fileName; object optional = Missing.Value; try { doc.SaveAs(ref ofileName, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional); doc.Saved = true; object saveChanges = true; object originalFormat = Missing.Value; object routeDocument = Missing.Value; wordApp.Quit(ref saveChanges, ref originalFormat, ref routeDocument); } catch (COMException e) { MessageBox.Show(e.Message,"ApP.DocumentBeforeClose"); } } } else if (askSave.DlgRes == DialogResult.No) { MessageBox.Show("DocumentBeforeClose ( Not Saved " + doc.Name + " )","APP"); Cancel = true; object saveChanges = false; object originalFormat = Missing.Value; object routeDocument = Missing.Value; doc.Close(ref saveChanges, ref originalFormat, ref routeDocument); wordApp.Quit(ref saveChanges, ref originalFormat, ref routeDocument); } else { MessageBox.Show("DocumentBeforeClose ( Canceled " + doc.Name + " )","APP"); //When users cilck on Cancel button. // Cancel is set to true but Word still displays it's own dialog. Cancel = true; doc.Saved = false; wordApp.Activate(); Thread.Sleep(5000); //send key does not work either SendKeys.SendWait("{RIGHT}{RIGHT}{ENTER}"); } } } Tag: MsgBox Colour Tag: 105269
  - 11
    - Why Does Word Disable My Template File/Macro? We have a number of very simple DOT files that contain a one-line macro and a toolbar that are used to automate access to a product. The one-line macro is an ActiveDocument.Shapes.AddOLEObject command that is only invoked when the toolbar button is pushed. The full line is ActiveDocument.Shapes.AddOLEObject Anchor:=Selection.Range, ClassType:= "FXDraw3.Document", FileName:="", LinkToFile:=False, DisplayAsIcon:=False Our problem is that Word (particularly, but not exclusively Word 2003) seems to disable this template file on irregular occasions. Users need to go to the Templates and Add-Ins screen to re-enable them which is annoying for everyone. Sometimes Word complains that the "last time this template file was run, it caused a serious problem" when the template file is enabled. Interestingly, another template file that still uses a WordBasic.InsertObject command does not seem to be susceptible to the problem - but that may be because that particular product is much less popular. So the question is... Does anyone know of anything that could be triggering this behaviour in Word? Thanks in anticipation. Paul Hooper Tag: MsgBox Colour Tag: 105267
  - 12
    - Runtime Error 6028: The Range Cannot be Deleted? HELP! Don't know if anyone can help me with this or not. I have a Userform on my spreadsheet for inputting "comments" into. This form also has a variety of function buttons on it which work just fine, with the exception of 2 of those buttons (Post Comments-Button 3, and Update Comments-Button 4). Whenever I attempt to "click" on either Post or Update Comments, I receive the following popup: "Run Time Error 6028: The Range Cannot Be Deleted". I'm not exactly sure what this message means, or how to rectify the problem. This code exists in my "Word" VB editor. The line of code (for each command button) that highlights in "yellow" (where I suspect is the problem) is: mytable.Cell(nrows + 1, 1) = TextBox1.Text If someone could give me an idea of what I need to look for in order to attack this problem I would appreciate it. I'm a "noobie" to all of this so I'm sure that doesn't help. Below is the full code information. Dan -------------------------------------------------------------------------------------------------------- Public nrows As Integer Public nr As Integer Public incr As Integer Public mytable As Object Private Sub cmbNext_Click() nr = nr + 1 cmbNext.Visible = True cmbPrevious.Visible = True If nr >= nrows Then cmbNext.Visible = False End If With mytable TextBox2.Text = Left(.Cell(nr + 1, 2), Len(.Cell(nr + 1, 2)) - 2) TextBox1.Text = Left(.Cell(nr + 1, 1), Len(.Cell(nr + 1, 1)) - 2) End With End Sub Private Sub cmbPrevious_Click() nr = nr - 1 cmbNext.Visible = True cmbPrevious.Visible = True If nr = 1 Then cmbPrevious.Visible = False End If With mytable TextBox2.Text = Left(.Cell(nr + 1, 2), Len(.Cell(nr + 1, 2)) - 2) TextBox1.Text = Left(.Cell(nr + 1, 1), Len(.Cell(nr + 1, 1)) - 2) End With End Sub Private Sub cmbPrintComment_Click() Documents.Add DocumentType:=wdNewBlankDocument Selection.TypeText Text:="Client Name: " & TextBox3.Text Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Date of Progress Note: " & TextBox2.Text Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:=TextBox1.Text Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub Private Sub cmbPrintAll_Click() Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub Private Sub CommandButton11_Click() TextBox1.Text = "" End Sub Private Sub UserForm_Initialize() Set mytable = ActiveDocument.Tables(1) With mytable TextBox3.Text = Left(.Cell(1, 1), Len(.Cell(1, 1)) - 2) TextBox2.Text = Left(.Cell(2, 2), Len(.Cell(2, 2)) - 2) TextBox1.Text = Left(.Cell(2, 1), Len(.Cell(2, 1)) - 2) nr = 1 nrows = 0 incr = 1 For n = 2 To .Rows.Count If Len(.Cell(n, 1)) <> 2 Then nrows = nrows + 1 End If Next n cmbPrevious.Visible = False End With End Sub Private Sub CommandButton3_Click() nrows = nrows + 1 mytable.Cell(nrows + 1, 1) = TextBox1.Text mytable.Cell(nrows + 1, 2) = Now() incr = 1 nr = nrows End Sub Private Sub CommandButton4_Click() nrows = nr mytable.Cell(nrows + 1, 1) = TextBox1.Text mytable.Cell(nrows + 1, 2) = Now() End Sub Private Sub CommandButton5_Click() mytable.Cell(nr + 1, 1).Row.Delete TextBox1.Text = "" TextBox2.Text = "" nrows = nrows - 1 End Sub Private Sub CommandButton8_Click() UserForm1.hide End Sub Tag: MsgBox Colour Tag: 105262
  - 13
    - Ansi to Unicode Saveas I Have a Ansi txt File I need to save it as a Unicode File into a Script using and Ole Object I Can open it, modify it and save it but i don't know how to change the encoding Thanks Tag: MsgBox Colour Tag: 105244
  - 14
    - Message Boxes do not work properly in search and replace macro. Dear Experts: I would like to insert a nonbreaking space between all occurrences of the abbreviated Page (p.) and the page number. Below macro works fine! BUT the my message boxes do not work correctly: 1. Although there are these "p." abbreviations in my test document, the Message box says there are no occurrences of this abbreviation found, and to make things worse, this message box pops up 7 times (the number of range stories, I suppose). 2. BUT strangely the macro then correctly inserts the nonbreaking spaces between the abbreviated page number (p.) and the page number! Hence I need somebody to re-write this code so that the message boxes appear correctly. Thank you very much in advance for your help. Regards, Andreas Sub InsertNonBreakingSpaceP() 'Inserting NonBreakingSpaces between the abbreviated page character (p.) and the page number Dim rngStory As Range Dim iNumberOfReplacements As Integer If MsgBox("Would you like to insert a nonbreaking space between p." & vbCrLf & _ "and the page number?", vbYesNo, "Insertion of nonbreaking spaces") = vbYes Then For Each rngStory In ActiveDocument.StoryRanges With rngStory.Find .Text = "<p. {1;}([0-9])" .MatchWildcards = True .Wrap = wdFindContinue .Execute End With If Not rngStory.Find.Found Then MsgBox "There are no abbreviations (p.) in the document", vbOKOnly, _ "Nothing found" Else rngStory.Find.Execute Replace:=wdReplaceAll, replaceWith:="p.^s\1" End If Next rngStory End If End Sub Tag: MsgBox Colour Tag: 105235
  - 15
    - replace paragraph marks Hi, I know how to use Replace to remove paragraph markers at the end of each line. But I have many pages of text like this below. Every line has a paragraph marker at the end of it, including the number line. I want to remove the paragraph markers ONLY from the lines with text, not the line with a number. So I probably need some code to do this. Is there some simple code that would accomplish this? Thanks, Harold 1 Tub muaj coob leej yooj xeeb sau tej xwm txheej kws muaj tshwm lug tav taag rua huv peb lawm, 2 lawv le cov tuabneeg kws qhov muag pum txwj thaus chiv lub keeb lug hab yog cov kws qha txuj xuv zoo tau muab cob rua peb lawm. 3 Kuv tub ua tuab zoo tshawb nrhav txhua yaam nuav txwj thaus chiv lub keeb lug lawm, kuv txhad pum zoo muab sau ua ib qeb zuj zug qha rua koj The-au_la kws saib hlub, 4 sub koj txhad paub qhov tseeb txug zaaj nuav kws tub txeev muaj tuabneeg qha rua koj paub lawd. Qha txug yuav yug Yauhaa 5 Tag: MsgBox Colour Tag: 105232
  - 16
    - Store and Retrieve Network Path for Word Add-in Hello, I developed an add-in I plan to sell. The add-in loads stored images from the program files directory on the host computer. The program works fine with a local install. However, I would like to be able to offer the program for network installations. I can't figure out the best way for the installer to provide the path so the add-in knows where to retrieve the files. My first thought was to have a bookmarked place in the add-in file itself where the network path could be stored but I can't figure out how to retrieve the contents from that bookmark. Any input is appreciated. Microsmith Tag: MsgBox Colour Tag: 105231
  - 17
    - VBA equivalent of StyleRef Is there a VBA equivalent of StyleRef? I am searching through a document for a specific style and once found I am adding the text in that style and page number to a table. I would also like to add the content of the previous heading1 to the table. The current method is to use StylRef in the header and then once the specific style is found, open the header and then "read" the value placed by the Styleref. John... Visio MVP Tag: MsgBox Colour Tag: 105224
  - 18
    - empty paragraph Hi everyone, I want to change font name,font size , space before and after each paragraph in each document in a folder with hundreds of documents( now they have different fonts and sizes so i want them to look the same). Because in some documents there are extra empty paragraphs first i need to remove them then apply formatting and here is where i have a problem I used two method for removing empty paragraphs first find /replace ^p^p with ^p and also the following macro Dim parag As Paragraph For Each parag In ActiveDocument.Paragraphs With parag.Range If .Words.Count = 1 Then parag.Range.Delete End If End With Next parag For some reason ^P^P method is not able to remove all the empty paragraphs ( move most) anythoughts? -- Best regards, Harvey Tag: MsgBox Colour Tag: 105221
  - 19
    - open word 2007 template like memo hi all i want to open word 2007 template like memo, and then write some text into it using ATL C++, how to do that any help is welcomed. Tag: MsgBox Colour Tag: 105219
  - 20
    - opening word template like memo hi all, i want to open word doc template like memo and then write into it, i want to do that with word 2007. Tag: MsgBox Colour Tag: 105218
  - 21
    - Runtime 91 error for ActiveDocument in AutoExec macro I am trying to invoke MS word in the following manner: start winword.exe /lc:\glb\myglobal.dot /tc:\tmp\doctemplate.dot / myglobal.dot - My global template - contains the following logic Public Sub AutoExec() If ActiveDocument.Bookmarks.Exists("CSWB") Then If (InStr(1, ActiveDocument.FullName, ".rtf") < 1) Then ActiveDocument.RunAutoMacro (wdAutoNew) End if End If doctemplate.dot - A document template that contains the AutoNew macro defined. Problem scenario: When I run - "start winword.exe /lc:\glb\myglobal.dot /tc:\tmp\doctemplate.dot /" from command prompt it works fine. I install Adobe Acrobat writer on my machine, and run the same command, It fails with a Runtime 91 error - Object variable not set Looks like ActiveDocument object is not initialized and fails when I try to access ActiveDocument.Bookmarks collection. When I uninstall Adobe acrobat writer, the problem goes away. This is happening in production as well (that actually triggered this analysis) but I don't necessarily see Adobe writer installed in production. Is there anything else that when installed would change the behaviour of AutoExec as I have mentioned ? If you have any ideas as to how can I avoid this, that would be great. Tag: MsgBox Colour Tag: 105217
  - 22
    - Delete line containing a form field Hello, I have a template that is used to create recipes for upload to a website. The person typing in the recipes is not very computer literate, so I made a form with fields for him to fill in with ingredients. The fields' default text is "Ingredient". I put in 15 lines for ingredients. Obviously, not all recipes have that many ingredients. I'd like to write a macro to delete the lines that don't have ingredients in them, i.e., they say "Ingredient" in the form field. To make it more complicated, I'd like to delete the entire line, not just the form field. Is there a way to do this? I've tried a find and replace, but that doesn't seem to work with form fields. Anyone have any guidance? Thanks! Melinda Tag: MsgBox Colour Tag: 105213
  - 23
    - change colour in title of userform Is it possible to change the background colour of the title in a vba user form (the one that defaults to UserForm1 when you create a new userform)? I know how to change the colours of the form itself and of any text boxes etc. placed on the form but not the title. thanks, Tag: MsgBox Colour Tag: 105205
  - 24
    - How can I delete accent mark form select character and whole text? I want to back of subject about set mark of accent (emphasis mark or acunt accent). How can I delete accent mark form select character and whole text? I have next code: Sub accent() Dim selChar As Long selChar = AscW(Selection.Range.Characters(1)) If Selection.Type = wdSelectionIP Then MsgBox prompt:="Nothing selection", Title:="Select a character" Else ' How delete accent mark? With Selection .Collapse direction:=wdCollapseEnd .InsertSymbol CharacterNumber:=769, Unicode:=True End With End If End Sub Now I need delete Character (769) from selection text (if it exist). How I can find it and delete it? Tag: MsgBox Colour Tag: 105201
  - 25
    - Passing Word documents with macros as Sharepoint content types Hi I have been trying to nut this problem out for awhile now but not making alot of progress. I am trying to integrate Word 2003 with Sharepoint 2007 as follows: I have a site with a template library. I have developed a content type in another site and use it in a library. I want the user to be able to select a content type in a library and have an auto open event fire to open the sharepoint properties dialog. The user populates the field presented and these cascade though fields in the document. The fields are also available (as metadata) at the library list for filtering grouping and sorting Everything works fine except one thing. The problem is that when the content type is chosen from the library the macro doesn't fire and on inspection the macro is no longer available in the document. It does however fire and works fine in the template library. Does anyone know what is happening and how I can resolve this Thanks IanB Tag: MsgBox Colour Tag: 105200
- Next
  - 1
    - Loop I have a macro that I have been working on. It works exactly as I want to as long as I run it once. Basically I have a document that contains many notices. Each notice is 3 to 5 sections long based on criteria that I can identify. The macro correctly identifies the number of sections for each notice, prints it and deletes it so that the second notice is now the first. I can start the macro and print the first notice. Then start the macro again and print the second notice and so on until it reaches the end. So I know the macro is working. The problem is, I want to be able to run the macro with no user interaction. So a simple loop should work. But no matter how I try to make it loop, it does not run properly. (It prints part of them correctly, and part of them not correctly) I have tried: Start: (at the beginning of the macro) goto Start: Doesn't work I have tried do while selection.find.execute ("refer to:") = true macro Loop Doesn't work I have tried Do Macro Loop Doesn't work I have tried do until selection.find.execute ("refer to:") = false macro loop That doesn't work. I have stepped through the macro repeatedly. Everytime I step through it, it works perfectly. Then I can add a loop to it and it does not work correctly. Tag: MsgBox Colour Tag: 105196
  - 2
    - Automate the saving of rtf files to doc files Hello everyone: There are hundreds of Word rtf files saved on a shared drive that are taking up an enormous amount of disk space. These files are just copies of letters containing only text (from mail merges) that have been sent out to clients. If I save an rtf file as a doc file, the size of the file decreases considerably (from serveral thousand kb to several hundred kb). To conserve disk space, I would like to save all these files as doc files. If I were to do this manually, I would have to open each rtf file, save it as a doc file and then delete the rtf file. Assuming that all these files are in one folder, is there an easier way to do this? The name of the new file would be the same as the old file except for the extension. For example Filename.rtf to Filename.doc. Just renaming the filename does not appear to decrease the file size. Thank you for any help. Amy Tag: MsgBox Colour Tag: 105195
  - 3
    - Creating Word 2007 Forms and calcluated fields. I want to create a Word 2007 form, where I use a DatePicker for the user to select a date (let's call it WeekEndingDate). Then I want 7 cells in a table to be updated with WeekEndingDate - 6, WeekEndingDate - 5, etc... Is that possible to do without having to use VBA, and if so, how would one go about doing that? I've exhausted my limited Word Form Development knowledge. :-) Thanks, Sergi Tag: MsgBox Colour Tag: 105190
  - 4
    - Disable AutoCorrect Options dialog box Hello, I try to limit user access using Word template. One of the issue is limiting access to AutoCorrect Options dialog box. Currently, our users can right click on misspelled words and choose AutoCorrect- >AutoCorrect Options... from a shortcut menu. I did not see this menu listed in Customize->Toolbars->ShortCut Menus either. Is there a way to suppress the AutoCorrect Options dialog box using VBA? Thank you, Tag: MsgBox Colour Tag: 105187
  - 5
    - How do you create a .dot file with Toolbar and Macro, but not from the Normal.dot? All, I would like to create a .dot file containing a toolbar and associated macro. Currently, I am adding the macro and toolbar manually to the Normal.dot file. Then I save and rename a copy of the normal.dot file. Is there a way to create this file without the extra baggage of my normal.dot file? Thanks Tag: MsgBox Colour Tag: 105183
  - 6
    - need help with AutoOpen print macro on mail merge document We use an application which allows us to generate and print mail merge documents via Word. As near as I can tell, trying to print a mail merge document via this application opens Word, populates the merge fields with the appropriate data, then prints the document to the system default printer. One such document we use is a label document, and we use the following AutoOpen macro to divert the print job to their label printer without making them change their default printer each time: Sub AutoOpen() Application.WordBasic.FilePrintSetup Printer:="Dymo LabelWriter 330 Turbo-USB", _ DoNotSetAsSysDefault:=1 End Sub With this macro in place, the document is opened, the data is merged, and it's printed to the label printer. In most situations, this is adequate. However, we've been getting requests from people who want to be able to specify how many copies to print, and I've been having a lot of trouble figuring out how to make that happen. I've tried various methods of showing the print dialog box, so they could specify how many copies to print and be happy. Unfortunately, any time I've been able to get the print dialog box to pop up with AutoOpen, it will print the mail merge document before the data is merged in (it prints the merge field names rather than the data). If I tell the print dialog to print 3 copies, it will print 3 copies of the pre-merged document, then print one copy of the merged document. I'm pretty new to WordBasic and macros, and basically gave myself a crash course yesterday. I had also tried using an inputbox to prompt for the number of copies, then try to pass that to FilePrint (I think... I tried so many different things it's hard to keep track now) using the NumCopies argument, but that just resulted in errors. I'm open to suggestions at this point. Unfortunately, I have no control over the program that actually invokes Word to open and print the mail merge document, so I'm basically limited to what I can do with macros during the brief period the document is opened. Tag: MsgBox Colour Tag: 105181
  - 7
    - Problems with opening TextStream files I run a macro which selects sections of a Word document, then opens a TextStream file object and pastes in the text. The code I'm using is: Set docNew = fs.CreateTextFile(strNewDoc) docNew.Write (strNewFile & vbCr & vbCr & _ "This doc created on " & _ Format(Now, "dd mmm yyyy")) docNew.Close (fs is FileStreamObject). I have another macro in Excel that opens a selected doc created this way using: WD.Documents.Open doc (all variables are set good and the code works). Occasionally, the File Conversion dialog opens. I know these are not "real" Word docs, but simply text files with a .doc extension, but saving each of hundreds of files as Word docs adds an enormous amount of time to the loop. Is there anything I might be able to do to these files to prevent the Conversion dialog from opening? Or is there something I can add to the Excel code to assist these files in opening without the user having to mess with this? Ed Tag: MsgBox Colour Tag: 105178
  - 8
    - Running Word Macro from iSeries I've created a Document Template that contains a Macro. This Macro reads a file from the iSeries and populates bookmarks within the Template and prints the Document. Currently, the user has to open the document, click Tools, Macro's, Marco's, Run to produce the report; very messy. I want to fire off the document from the iSeries so the user doesn't have to mess with Word. I'm able to bring the document up from the iSeries, but it's not running the macro. I've tried everything I can think of, including things on this board and others. My code is running in an ILE program. I'm loading the command line from an array. My array looks like: STRPCCMD PCCMD('C: \Progra~1\Micros~3\OFFICE11\winword O:\COMMON\TEMPLATES\MQE*.* /mMQE()') . Everything works fine up to the /m. My document is MQE Letters.dot, and the Macro is MQE. In addition to the /m, I've also tried Call MQE, Call "MQE", Application.Run MacroName:="MQE", Run MacroName:="MQE", Call MacroName:="MQE"....the list goes on. Any help would be GREATLY appreciated. Tag: MsgBox Colour Tag: 105176
  - 9
    - How do I customize a toolbar for an addin template I've just created a few macros and now I'd like to create a toolbar to go along with it. This seemed very simple in 2003, but I'm having trouble creating one in 2007. Tag: MsgBox Colour Tag: 105169
  - 10
    - Copy Paste (special-unformatted) from Excel to Word Hi I'm trying to copy-paste (unformatted), a series of cells from excel into Word. I've got the below macro which does some of this but it keeps pasting the whole table either as a picture or a normal table (if you use the disabled line instead of the enabled paste line). However, if I manually copy-paste special and select unformatted text I get a load of text and no tables or borders which is what I want. Any ideas how to achieve this with the below macro? Sub OpenAWordFile() Dim wordApp As Object Dim fNameAndPath As String ActiveSheet.Range("I5:I51").Copy fNameAndPath = "C:\Documents and Settings\tom.jordan\My Documents\Projects\FFEC Headed Paper.doc" Set wordApp = CreateObject("Word.Application") With wordApp .Documents.Open (fNameAndPath) .Visible = True .Selection.PasteSpecial DataType:=wdPasteText '.Selection.PasteAndFormat (wdPasteDefault) .Selection.WholeStory .Selection.Font.Name = "Arial" .Selection.Font.Size = 11 End With Set wordApp = Nothing Application.CutCopyMode = False End Sub Tag: MsgBox Colour Tag: 105165
  - 11
    - Word 2002 TOC format does not update correctly I have a big document and I inserted a table of contents. I selected specific formatting for each TOC level, but my formatting is not applied. Instead the formatting of the TOC (fonts type, font size, Bold, Italic, ...) is all wrong. Can you please tell me how can I modify those styles? Thank you P.S. If there is already a response to this question please help me find it. thanks Tag: MsgBox Colour Tag: 105161
  - 12
    - Extracing scetions of a document Hi I am after some advice on how to proceed. I would like to write some code to extract certain sections out of a document and copy them into a new document. Is it better to use sections or bookmarks? These sections may span multiple pages. Any advice would be very gratefully received. Cheers Dan Tag: MsgBox Colour Tag: 105159
  - 13
    - changing a certain word in many files. Hi everyone , I have a folder with hundreds of one page word documents. I want to use VBA to search through all these files and change a certain name (e.g. New York) to something else (e.g. los angeles) and save the file and go to the next file. Any thoughts? Any help greatly appreciated. -- Best regards, Harvey Tag: MsgBox Colour Tag: 105146
  - 14
    - EXE that invokes Word won't run macros I have a Windows 2003 scheduled task parsing process that calls Word 2003 and runs a specified Word macro, however, the macro will not run unless the user is logged in. I know you can configure the Word Document Properties, via the identity tab, to use a specific user to run the application, however, I want to use the launching user and not require a user to be logged into windows. I've tried security settings in macros with no luck. Any ideas?? Tag: MsgBox Colour Tag: 105143
  - 15
    - Spawned document from Template (Dot) loses macros Here is a screenshot I am working on: http://www.jkfweb.com/files/Example.JPG The file is a .Dot template file. It works great normally when a user opens from the Template and fills in the appropriate information. I have a few users who want to open the file, fill in there name and the Company Name and other appropriate fields and then save that as a .dot file. This would allow them to not have to re-type and look up the information everytime. The problem is the macros are apparently not being copied when word spawns document1 from the template. I'm assuming this is normal word behavior, but haven't been able to find a solution on word.mvps.org and a quick search in newsgroups didn't find the solution either. Any ideas how to get the macros to go into the newly spawned document as they are used to create new rows, do some error correction, and formatting of fields. Thanks in advance for any help. Tag: MsgBox Colour Tag: 105140
  - 16
    - Toggle symbols with VBA I'm trying to set up a roster where I can click on a symbol in front of a person's name and it will change from an "X" to a "O". I'm an expert at Excel VBA, but not familiar with Word VBA. Can someone give me some ideas on how I could set up a macro to allow the user to check on a symbol (or character) in front of a person's name in a list and it would toggle between 2 or 3 symbols? The list will be dynamic, so I need to write some generic code that can identify which symbol is clicked on and toggle it to the next symbol. Thanks. John Tag: MsgBox Colour Tag: 105134
  - 17
    - Remove character style with direct formatting I have text styled with a custom character style. Some of that text also has direct formatting applied (bold, ital, etc.). I need to remove the character style, but retain the direct formatting. Possibly I also need to retain any font formatting provided by the style as. I can do this: For Each c In Selection.Characters Set f = c.Font.Duplicate c.Font.Reset c.Font = f Next c but this is slow and I keep thinking I'm missing a simpler, faster way to do this. Any suggestions? Tag: MsgBox Colour Tag: 105132
  - 18
    - Adding in an XML Schema I am using Office 2003 Professional. I am trying to follow an example for adding an XML schema to a Word document and I get the following error: "The XML expansion pack or schema file could not be installed". I can't see anything wrong. Here is the xsd code: <?xml version="1.0" encoding="UTF-8" ?> <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com.office11demos.WordProductsSD" targetNamespace="urn:schemas-microsoft-com.office11demos.WordProductsSD" elementFormDefault="qualified" attributeFormDefault="unqualified" id="Contract"> <xsd:complexType name="contract"> <xsd:complexContent> <xsd:restriction base="xsd:anyType"> <xsd:sequence> <xsd:element name="CaseCode" type="xsd:string" /> <xsd:element name="Casediscription" type="xsd:string" /> <xsd:element name="element1" type="xsd:string" /> <xsd:element name="Nextdateofhearin" type="xsd:string" /> <xsd:element name="summary" type="xsd:string" /> </xsd:sequence> </xsd:restriction> </xsd:complexContent> </xsd:complexType> </xsd:schema> Tag: MsgBox Colour Tag: 105130
  - 19
    - DSO file fails with word 2007 docx files of size zero byte. Hi I am using dsofile.dll(latest, which supports office 2007 formats) to set attributes of office files. The dsofile fails with .docx files if the file size is 0 bytes(Such a file can be created by rightclicking on desktop and selecting New ->Microsoft Office Word Document. If you right click on the created file and select Properties, It shows Seze as 0 bytes). Is there any fix/workaround available for this bug? Thanks in advance, Tag: MsgBox Colour Tag: 105127
  - 20
    - Conditional macro to change font Macro programmers - I need a macro that changes fonts in a document from: Goudy Old Style to Garamond -and- Avenir 45 to Gill Sans MT If there are other fonts in the document I want to leave them as is. I am only concerned with the above 2 fonts. Thanks in advance for your help. Tag: MsgBox Colour Tag: 105126
  - 21
    - User to Specify Starting Number for Sequential Numbering I am using this macro (courtesy of Doug Robbins with help from Jay Freedman) to sequentially number certificates where data other than the serial numbers is in ask fields. The macro is in a template and runs automatically on Document_new. My problem is that I need the user to specify the starting serial number every time, without opening the settings.txt. Can this be done with a user form? Grateful for some help with this, thanks. Sub SEQserialnumber() ' ' SEQserialnumber Macro ' Macro created 11/09/2007 by Sharon ' Dim Message As String, Title As String, Default As String, NumCopies As Long Dim Rng1 As Range ' Set prompt. Message = "Enter the number of copies that you want to print" ' Set title. Title = "Print" ' Set default. Default = "1" ' Display message, title, and default value. NumCopies = Val(InputBox(Message, Title, Default)) SerialNumber = System.PrivateProfileString("C:\Settings.Txt", _ "MacroSettings", "SerialNumber") If SerialNumber = "" Then SerialNumber = 1 End If Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range Counter = 0 While Counter < NumCopies Rng1.Delete Rng1.Text = SerialNumber ActiveDocument.PrintOut SerialNumber = SerialNumber + 1 Counter = Counter + 1 Wend 'Save the next number back to the Settings.txt file ready for the next use. System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _ "SerialNumber") = SerialNumber 'Recreate the bookmark ready for the next use. With ActiveDocument.Bookmarks .Add Name:="SerialNumber", Range:=Rng1 End With 'Next line added to update { REF SerialNumber } ActiveDocument.Fields.Update ActiveDocument.Save End Sub Tag: MsgBox Colour Tag: 105125
  - 22
    - Macro/Code to Delete Current Section Anybody know the code to delete the current section in a Word 2000 document. I know the code for deleting section 1, 2, 3, etc. but I need the code for the current section. Thanks in advance. Mickey Tag: MsgBox Colour Tag: 105123
  - 23
    - Word file with 6 links to one excelfile with vba code, run that code 6 times on update Hi, I have a word file with six links to a excel sheet. That excel sheet run vba code on workbook_open event. When opening the word file, it seem like the excel code run for each link. Any workarounds? Kind regards Tskogstrom Tag: MsgBox Colour Tag: 105118
  - 24
    - How do I compare dates in Word 2007? Is there some esoteric programming practice within Word 2007 that allows the comparison of dates? I.E., {Date1} <= {Date2} {Date1} is merged field and {Date2} is today's date {DATE}. So far, I have found nothing that works. I am attempting to create a Mergeformat renewal document when today's date has passed a merge field date. Tag: MsgBox Colour Tag: 105110
  - 25
    - select all rows of a table except the first row Hi I have a macro that does a bit of formatting to any table that the cursor is placed in. I can select the whole table easily: Selection.Tables(1).Select and can select individual rows too: Selection.Rows(1).Select but I now need to select every row except the first one (2-x) where x could be any number, depending on how big the table is. Maybe some way of counting the rows in the table first (x) and then using that number to select rows 2-x? Or maybe select row 2, perform the action, and move to next row and repeat until there are no more rows in table 1? Any other suggestions? What would the syntax be? thanks. Mike Bourke Sales Information Designer IBM New Zealand Limited Internet email : mbourke@nz1.ibm.com +64 4 462 3534 DDI +64 4 576 5615 fax +64 21 679 746 mob -- MB. Tag: MsgBox Colour Tag: 105108

Is it possible to change the background colour of a msgbox using VBA without
changing your overall windows appearance. The message box would be contained
in a macro in Word 2000 and would appear when a certain thing was done in the
macro.

Thanks,

Top

Re: MsgBox Colour by Graham

Graham
Tue Sep 18 03:31:24 CDT 2007

If you want to change the appearance of message boxes you will need to use a
UserForm instead of the MsgBox function.
Word MVP FAQ - Userforms http://word.mvps.org/FAQs/Userforms.htm

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

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

Jules wrote:
> Is it possible to change the background colour of a msgbox using VBA
> without changing your overall windows appearance. The message box
> would be contained in a macro in Word 2000 and would appear when a
> certain thing was done in the macro.
>
> Thanks,

Top

Re: MsgBox Colour by Greg

Greg
Tue Sep 18 04:35:20 CDT 2007

See:

http://gregmaxey.mvps.org/Custom_MsgBox.htm

Note while the example shows a userform with a pale yellow background, the
steps don't explain how it got that way. In the properties pane, select
background color and pick your color.

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.

Jules wrote:
> Is it possible to change the background colour of a msgbox using VBA
> without changing your overall windows appearance. The message box
> would be contained in a macro in Word 2000 and would appear when a
> certain thing was done in the macro.
>
> Thanks,

Top