Word VBA Help

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - word colors How do I add the below??? I opened a new word doc, went to tools - visuall basic editor. Then added the following to module1: ThisDocument.Colors(1) = RGB(100, 200, 200) ThisDocument.Colors(2) = RGB(100, 200, 200) ThisDocument.Colors(55) = RGB(100, 200, 200) ThisDocument.Colors(56) = RGB(100, 200, 200) basically, what I am trying to do is change collors to custom collors every time the document opens. To eliminate the document reverting to standard colors or custom set on that machine. Thanks, Sam Tag: Word VBA Help Tag: 84775
  - 2
    - table of contents How can you regenerate a complete table of content using code? I have a form in the first page of my document and I dont want the entire doc to be updated. In the second page, I have a table of contents and I want to create a button who will regenerate the table with all the new points add in the document. I've try something like that: Me.Protect (wdNoProtection) Selection.WholeStory Selection.Fields.UpdateSource Me.Protect (wdAllowOnlyFormFields) but first, the first line doesnt work because of the current protection and doesnt want to remove it. And second point, I select the whole document and I just want to select all but the first page. Can you help me please!!!! Thanks Tag: Word VBA Help Tag: 84774
  - 3
    - Drop down formfield limitation of 25 items in the list Running WORD 2002. I want to use a dropdown list for a date, but the days field would need to have 31 items. Can I increase the limitation on the number of items in a dropdown list? Thanks, Phil Tag: Word VBA Help Tag: 84773
  - 4
    - Drop-Down list I have a program that pulls up the cross-references for any existing figures in a dropdown box. This program has not problem showing the figures if there are 1 to 8 figures; however, if there are more than eight figures in the document, you don't see them listed. Please let me know why you think this is happening. Thanks, Here is the code: Private Sub UserForm_Initialize() Dim varXRefs As Variant Dim Index As Integer Selection.Fields.Update ' Clear out any previous contents Me.cboFigureNumber.Clear ' Load just the figures into varXRefs varXRefs = ActiveDocument.GetCrossReferenceItems _ (ReferenceType:="Figure") ' Load the ListBox from varXRefs as an array For Index = 1 To UBound(varXRefs) Me.cboFigureNumber.AddItem varXRefs(Index) Next Index ' Test whether the list has any entries and ' set command buttons accordingly If Me.cboFigureNumber.ListCount > 0 Then Me.cboFigureNumber.ListIndex = 0 Me.cmdInsert.Enabled = True Else MsgBox ("There are no figures to cross-reference.") ReferenceFigure.Hide End If End Sub -- Debra Ann Tag: Word VBA Help Tag: 84771
  - 5
    - How to see macros in Word document without opening this document? How to see a macro code in specific Word document without opening this document? Tag: Word VBA Help Tag: 84762
  - 6
    - Inserting and sizing a photo with code. win2k, word 2k I am working on a template for a report. In the report we include a different photo in each report. I would like to be able to run a routine that would display the "insertpicture" dialog, and size the user's selection and insert it at a specific place in the document. I am assuming i could use a bookmark to specify where to insert. I am wondering if I should use some kind of place holder in the template to make certain that inserting the pic doesn't disturb the formating in other sections of the report. I have found several discussions about inserting pics but not how to set the size at time of insertion. thanks for any direction on this. BRC Tag: Word VBA Help Tag: 84760
  - 7
    - Checking upon saving fo text highlighting I need to check upon saving for the presence of any highlighting in the document. Any help would be welcome. Thanks -- John Doue Tag: Word VBA Help Tag: 84758
  - 8
    - Closing Excel XP SR2 / Word (Office) 2003 I have created a form in Word that calls Excel, retrieves some data, and closes Excel. Well, actually, I guess I don't close Excel and that is my problem. The code I am using to open Excel is Set filename = GetObject(, "Excel.Application") Set filename = ("C:\Microsoft Office\Templates") Closing Excel is attempted with filename.Quit SaveChanges:=DoNotSaveChanges Works OK, I get no errors and Excel disappears from the list of Applications/Processes in Task Manager. However, when I shut down my PC, I get a popup asking if I want to close filename.exe. How do I close Excel so I no longer get the popup? Tag: Word VBA Help Tag: 84757
  - 9
    - Opening recorded macro's on a different pc Hello, I'm making some kind of a template where a user can add certain text files into the word document. It's the first time that I work with macros and I managed to get the list of recorded macros in the word taskbar. When somebody downloads the template from the server on another computer and tries to run one of the macros the system can't find the text files, although I've grouped them in the same folder as the 'template'... Sometimes it works and sometimes it doesn't... Can somebody help me with this please? (When I run a test I always set security to 'medium' on the other pc so that's not the problem...) thx! Tag: Word VBA Help Tag: 84744
  - 10
    - Extending Word Model Object I'm writing quite a complex application in Word. I've a lot of code that I would like to keep clear. I thougth several time of using custom classes, but I don't know if I can achieve what I have in mind. For instance in a Word Document based on MyTemplate.dot I have a Table "ActiveDocument.Tables(1)" and each Row in the table is not just a row but has a lot of special data and code for manipulate it (for instance in the first cell of each row there is some hidden text to identify the row, etc.). I would like to extend the standard Word Model Object and create my own objects wrapping the existing one in Word. For instance, having a new table or new row object that acts as the standard one + same new properties and methods. If I'll create a new object MyRow, how I can tell Word to use MyRow in the normal Table object instead of the normal Row? Do you have any suggestions? All the example I found is about new control object none on extension of build-in Word objects. Thanks, Lauro Tag: Word VBA Help Tag: 84737
  - 11
    - How to display a form Using Win2k, Word 2k I have a form i am try to display at a certain point in a document. I thought a simple macro with Sub show_frm () Myform.show end sub would cause the form to open, however i am getting an "object required" object required error message. this same method works in other templates i have. can anyone help Thanks BRC Tag: Word VBA Help Tag: 84733
  - 12
    - Bypassing Document_Open code Hi, I have a document that when opened presents a userform and then runs code on pressing the 'OKAY' button. What I would like is to amend my code so that the the 2nd time (and subsequent times) the document is opened, the Document_Open code does not run? Is this possible? Thanks. Tag: Word VBA Help Tag: 84727
  - 13
    - Spell check Can I print out a list of words in my spell check? Tag: Word VBA Help Tag: 84725
  - 14
    - I don't like the new "Open" menu that was updated in Word. I have recently received a number of updates, one of which has affect my "open" menu screen in Word. There is no longer the selection of choices of ways to handle the folders and documents in Word on the left sidebar of the menu. I found the old menu page very helpful, the new menu page is a hindrance. I would appreciate it if the old setup of the "Open" menu page could be restored. In addition, it would be very nice if, when you log off the computer and are told there are updates waiting, that a list of updates and a brief description of each be made available to the user first, with the option to accept or decline, before the update is installed. If this had been the case, I may not have the problem that I am currently presenting here. Automatically installing these updates, as the system currently does, leaves me frustrated with unknown changes nearly every time I log back onto my computer - this is not much appreciated. I really like the product in general, but I would like to be the one to control what I use and how I use it. Thank you in advance for your consideration and correction of this problem. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=fd0d6d2d-496b-4181-a25d-6e4e3bdc5578&dg=microsoft.public.word.vba.general Tag: Word VBA Help Tag: 84723
  - 15
    - giving user list of items then insert selected item as bullet points Using office 2k and win2k I have a situation where we write several reports on premises. Often, many to the bullet point items we list reoccur. I would like to present the report writer with a list of items from which he/she could select (checkbox type selection.). When finished the items would be inserted in the form of bullet points. Has anyone done anything like this in past? I have done a fair amount of vb programing in the past but not for awhile. Tag: Word VBA Help Tag: 84716
  - 16
    - Show filename part without extension Good'ay I am working with an organisation that names their word docs something like... Fred Bloggs.Q10 I can use the field FILENAME to show the filename in the document but I want to show just the filename part (Fred Bloggs) in one place and the extenstion (10) in another. Eg In the document ... Name: Fred Bloggs {extracted from the filename} Question: 10 (extracted from the extension} Thanks for your interest ... Neil Tag: Word VBA Help Tag: 84714
  - 17
    - Any way to have a messagebox pop up whenever a new page is started? Thanks in advance if anyone knows how to do it. Tag: Word VBA Help Tag: 84707
  - 18
    - How to add a bookmark to an existing formfield using a macro/proce I'd like to run a macro to check for formfields that do not have a bookmark defined and insert a bookmark. When I run the following code, I get an error -2147467259, description = "automation error unspecified". Can someone show me how to fix the code? TIA, Phil i = 1 ActiveDocument.FormFields(i).Select Do Until i > ActiveDocument.FormFields.Count If Selection.FormFields(1).Name = "" Then Selection.FormFields(1).Name = ffxname <==== ERROR here ... If i < ActiveDocument.FormFields.Count Then ActiveDocument.FormFields(i).Next.Select End If i = i + 1 Loop Tag: Word VBA Help Tag: 84704
  - 19
    - I'd like to make a macro that replaces the current header and foot Good Day, I'd like to make a macro that deletes the current header and footer on a word document (if there is one) and then pastes in the header and footer that I already have created. Could someone show me an example of code that would do this and then i can plug in what i want to be pasted into the header and footer? Many Thanks, RP Tag: Word VBA Help Tag: 84690
  - 20
    - How to Print a Page of Label with info from a Textbox? Can anyone suggest how I could print a page of labels with data entered from a single textbox? I am trying to print a page of labels with a date but I didn't know how I could do that programmatically. I created a form with a textbox and command button but I'm stuck as to how to get the date entered in the textbox to print on a page of labels. Help... Amytdev Tag: Word VBA Help Tag: 84687
  - 21
    - Form Can anyone suggest how I could create a page of labels with whatever is entered from a text box at the click of a button? I have created a form that has a text box and a command button but I don't know how to get the textbox data to a page of labels. Help... Amytdev Tag: Word VBA Help Tag: 84686
  - 22
    - search and replace style - 1st line correct style, but wrong font I have a macro that searches and replace one style for another. This worked fine until we upgraded to Word 2003. Now, the first line gets the style applied, but the font doesn't change. The find must be working, but why doesn't the font change? Tag: Word VBA Help Tag: 84681
  - 23
    - Tab Key on User Forms Word 2004 on Mac OS 10.4.4 is not allowing me to create dialog boxes in such a way that the user can use the Tab key to move from one text box to the other. I have done this many times in Windows and earlier versions of Word for Macintosh. Furthermore, when I set a textbox as tabstop=0, the expected behavior of having the focus on that textbox when the dialog box displays does not work. The user has to first click in the textbox before it will accept typing. I have been over this dozens of time to ensure that tabStop=true and the textboxes have TabIndex vlaues that are consecutive, beginning with zero. What happens when running the dialog box is that: - The user must first click a textbox to enter text - Pressing the Tab key selects the text entered in the textbox, rather than advancing focus to the textbox with the next higher TabIndex number, as is expected. - Continuing to press the Tab key does nothing. The selected text simply remain selected. Please help: Is there something I am overlooking, or is this a problem with Word 2004? -- John Morley Tag: Word VBA Help Tag: 84678
  - 24
    - Creating db log from Word Macro Hi, I am trying to write to a MSAccess97 from a MSWord 2000 macro usin VBA. The macro does many things such as save, print, and sent to imag via another pc of software. I wanted to have the code write out to a d everytime someone processes a letter... creating a log. I copied th follwoing code from another web application, but I am getting a ru time error: Microsoft[odbc MSAccess Driver] syntax error in INSER INTO statement. Here is the code: Public Sub TestAdlib() Dim user Dim clm Dim today Dim conn, rs, strsql user = SaveFileName clm = SaveFileNumb today = Format(Now, "m/d/yy") strsql = "INSERT INTO ADLTRS (USERID, CLMNO, DATE) VALUES ('" & user "', '" & clm & "', '" & today & "')" Set conn = CreateObject("adodb.connection") conn.Open "DRIVER={Microsoft Access Drive (*.mdb)};DBQ=\\server1\flder1\SHARED\WORD\AD DB\ADLTRS.mdb" Set rs = CreateObject("adodb.recordset") rs.Open strsql, conn conn.Close MsgBox ("Your letter has been sent to Image") End Sub I've condensed some of the sript (variables and other process) but th remaining code was used successully in the web page. In debug mode Word points to the line: rs.Open strsql, conn as the problem. Are different connections used for different situations... ie, we page, external application, msAccess(internal)? Any suggestions would be greatly appreciated. Thanks -- Mojeau Posted from - http://www.officehelp.i Tag: Word VBA Help Tag: 84677
  - 25
    - Envelope Template (Delivery Address Field, Address Book) I am a Mac user, and have some questions on the Word Envelope template from Project Gallery. Is there a way to have one line bolded on the delivery Address (Ex. company name) each time I insert a different contact information from the adress book? I would also like to know if I could insert a title, and a job title on a document using the address book. Currently, the Address book allows me to insert name, company name, and the address on a page. I am not sure it has do with my setting. Lastly, on Entourage, typing in few letters on the adress field automatically directs you to find the correct email adress. Could Word possibly do the same on the devliery address field? Tag: Word VBA Help Tag: 84667
- Next
  - 1
    - Converting Word to html with track changes Any suggestions on how we can get a clean copy of an .html file displaying track changes through Word? I know, I know. Converting Word to web is not the ideal solution, but let me explain the problem. We have some policies that need to go on the intranet site and we would like to display the 'Track Changes', so that the 'ees can see where the changes were made, rather than the legal-eze hoj-poj that usually goes something like: 'Adendum: Paragraph 1 to be altered, blah blah blah.' Aside from manually adding strike-throughs, underlines, font color changes and highlighting text, the best way to do this is through 'Track Changes'. It appears that the 'Track Changes' will convert into html and looks great, but when we try to bring it up in the browser window, there are highlights where there should be underlines, bold text appears where it shouldn't, and some of everything looks as it should while other parts look like we stuffed it in the blender. Even our programmer has never seen code like this. Any suggestions? Thanks. Tag: Word VBA Help Tag: 84665
  - 2
    - Open Access Database from Word Macro I want to open an MS Access 2003 database from Word 2003 using a macro which I'll eventually put on a toolbar. My code is as follows: Public Sub OpenAccess() AA = GetObject("C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb", "Access.Application") End Sub Unfortunately, I get a MS Visual Basic Run-time error '438': Object doesn't support this property or method. Everything else I've tried doesn't work either. Does anyone have a suggestion. Thanks! Tag: Word VBA Help Tag: 84657
  - 3
    - Detect shapes anchored in paragraph Hi Is there any way to detect whether a paragraph (or range) contains an object anchor? Thanks -- James Tag: Word VBA Help Tag: 84654
  - 4
    - help with automating letter i want to create a letter which when opened asks several questions and then inserts relevant paragraphs dependent on answers eg dialog box asks was sale advised if yes paragrahed blahblah 1 inserted else blahblah 2 inserted any ideas how i can do this it can't be from database Tag: Word VBA Help Tag: 84653
  - 5
    - Open document at url Hi, Is it possible to have code included in a word document that resides on a webserver, that opens another document with an URL? Yes, which object element attribute should i use? Thanks, Frenk Tag: Word VBA Help Tag: 84652
  - 6
    - Word as Email Editor General Question: What characteristics of Word or the particular document are they that display as an email editor, rather than a normal document? How can one tell from VBA which mode a document represents? Specific: Word always seems to start up with the window mode in which it was last used ie Full Screen or smaller window. I would like to start all normal documents up full-screen but the email editor as a smaller window eg by code in the document open event. How would I do this, please? Are there any settings that would help, without involving VBA? David Tag: Word VBA Help Tag: 84651
  - 7
    - How do I store an autotext entry without storing the formatting? I want to store the DateSave field as an autotext entry. (Why? I can drag it from there onto a custom toolbar - It's the only way I can find to get it there!) The problem is, when I insert the DateSave field into a document then make a new autotext entry from it, when I insert it into a different document, it appears in the font used in the source document. This does not happen with the fields that come standard in the autotext list (such as Filename) - those entries adopt the destination format. There is no option for removing formatting in the autotext dialog box. (I'm using Word 2002.) How can I store the field in the autotext and/or direct to my toolbar without the formatting? Tag: Word VBA Help Tag: 84643
  - 8
    - Delete section breaks without using replace I have a merged document in a table format. So, once merged, there is a section break in between between each row of the table. There are over 500 records being merged, so it is not possible to create a table with all possible <next record> fields. For some reason, using the replace feature will not touch the section breaks. If I search for each one, and then use selection.delete, that works fine. However, this process is excrutiatingly slow in large documents. Does anyone know of a way to programmically iterate each section break as an object? Something like: For Each sec In ActiveDocument.Sections sec.Delete Next sec I don't want to delete the section range - just the section break itself. Thanks so much. Tag: Word VBA Help Tag: 84641
  - 9
    - How to trap ENTER key in WORD table I have a protected document with form fields and tables in WORD 2002. When a users hits the ENTER key inside a table, WORD simply adds a row's worth of space to the cell. (Not sure why this happens when the table is protected.) I'd like to change this behavior so that the ENTER key simply moves the cursor to the next cell. I've seen examples of trapping the TAB key and substituting the NextCell command for that. I suppose I can do that with the ENTER key; but the main problem may be that I only want to alter this behavior while inside the table, not within other sections of the form. So, my questions are: a. Can I substitute NextCell for the ENTER key? b. Can I limit that behavior to the table, and let the ENTER key do its own thing when outside the table? c. Is there a way to tell inside my code whether the cursor is current inside the table, if the table is in its own section? Can I utilize bookmarks to identify the start and end of the table and somehow make use of this? TIA, Phil Tag: Word VBA Help Tag: 84638
  - 10
    - Bolding in a text file to be read into Word Hi All, I have gotten a lot of great help from this group, so thank you all. My current problem is: I would like to structure a text file in such a way that when it it read into Word, areas in the file that I want to be bolded will be bolded in the Word document. I want to do this the same way that printer control characters are embedded in a text file to turn on and off bolding. Is this doable, and if so, how? Rich Tag: Word VBA Help Tag: 84636
  - 11
    - Strategy for Testing a Series of Words Office 2003, Windows XP I'm working on a macro that my users can use to select a headline that is all uppercase, and convert it to a caps/lowercase headline. Title case gets me part of the way there, but some words, like "and" and "for" and "to," etc., need to be lowercase. I have some code that seems workable -- at least it works with *one* word, but I want to have it check a list of common words (It can never be perfect, but it can be pretty helpful, eliminated a lot of manual editing). Seems like making a long list of if statements would be clumsy. So I'm looking for a way to test a list of words, and ideally, a way to make the list fairly easy to update. I can use the LCASE or UCASE functions to get accurate tests -- be sure the state of capitalization of the document won't goof the comparisons. So here's the general approach I'm taking. Pointers in good directions are appreciated. ******* Public Sub HeadlineWordChecker() 'a procedure to inspect each word in a block of text ' that is all uppercase, and make it caps/lowercase ' in newspaper headline fashion Dim MyRange As Range Dim oDoc As Document Dim wrd As Object Dim strWrd As String Set oDoc = ActiveDocument ' user will be prompted to select range manually Set MyRange = Selection.Range Selection.Collapse wdCollapseStart ' ready to edit the headline further, if necessary Set wrd = MyRange.Words(1) For Each wrd In MyRange.Words strWrd = Trim(wrd.Text) ' trim the extra space following a word If strWrd = "IS" Then wrd.Font.Bold = True ' making it bold for test purposes ' code goes here to ' to say if it's not the first word, and it is on my list of words, ' make it all lower case Next End Sub Any assistance appreciated. Sincerely, Ridge in New Joisey [Exit 145] Tag: Word VBA Help Tag: 84631
  - 12
    - Delete styles not in template Hi I have a template with several styles defined, and I'm trying to write some code that will remove any styles from the current document that aren't from the template. Currently I have this: Dim wrdStyle As Word.Style Dim templateDoc As Word.Document Dim templateStyle As Word.Style Dim StyleFound As Boolean Set templateDoc = Documents.Open(FileName:="U:\Settings\templates\styles.xml", Visible:=False) For Each wrdStyle In ActiveDocument.Styles StyleFound = False For Each templateStyle In templateDoc.Styles If wrdStyle.NameLocal = templateStyle.NameLocal Then StyleFound = True Exit For End If Next If StyleFound = False Then ActiveDocument.Styles(wrdStyle.NameLocal).Delete Next templateDoc.Close That works, but it's very slow (several seconds). Is there a better way to accomplish the same thing? Thanks Chris Tag: Word VBA Help Tag: 84627
  - 13
    - Opening text file in word? Can there be underlining? I am creating a text file which I will later open as a Word document. I want to underline some words. Is there an escape code available to signal to Word to turn on and off underlining? Thanks in advance. Tag: Word VBA Help Tag: 84621
  - 14
    - Word Macro to count number of lines in selected text Can anyone help with a small macro to return a line count for a block of selected text (could be a table cell, text box or just blocked text. I have some ideas but am not experienced enough to know tha actual macro statements required. I guess the macro could put the number of lines in a Message Box. Thank in advance Al Tag: Word VBA Help Tag: 84616
  - 15
    - Trying to open and excel file - error 91 I'm trying to open and excel file from word to put text from word into the excel file. I cannot even get the excel file to open using the code from http://word.mvps.org/faqs/interdev/ControlXLFromWord.htm I have my code practically exact. At this point, I'm just trying to open the file and then close it, so the code is stripped down and does nothing with the file. I can't even open the file and get the error 91. I couldn't find what I'm doing wrong on the site. Initially, I want to count the number of rows in the excel file and in the past have been using ActiveCell.CurrentRegion.Select rcount = selection.rows.count Here is the stripped down code. sub get_excel_file() Dim oXL As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet Dim ExcelWasNotRunning As Boolean Dim excel_file As String Dim excel_file_path As String excel_file_path = "C:\Documents and Settings\" excel_file = excel_file_path & "test.xls" On Error Resume Next Set oXL = GetObject(, "Excel.Application") If Err Then ExcelWasNotRunning = True Set oXL = New Excel.Application oXL.Visible = True End If On Error GoTo Err_Handler oWB = oXL.Workbooks.Open(FileName:=excel_file) If ExcelWasNotRunning Then oXL.Quit End If Set oSheet = Nothing Set oWB = Nothing Set oXL = Nothing Err_Handler: MsgBox excel_file & " caused a problem. " & Err.Description, vbCritical, "Error:" & Err.Number If ExcelWasNotRunning Then oXL.Quit End If End Sub Tag: Word VBA Help Tag: 84607
  - 16
    - OCR Hi I have an OCR-product, and it works all the way through till I'm asked which kind of code I should use. It seems it really can't recognise the characters in theTiff-document. Does anyone have an idea what's wrong? Or will anyone briefly tell me from start to end how I import a Tiff to Word with OCR? Thanks a lot. -- Therese -- Therese Tag: Word VBA Help Tag: 84603
  - 17
    - mergefield programming Word Hi. Can anyone share with me a switch or method to trim a character out of a mergefield from the output if it exists in the source. To illustrate. I have a sentence "...thanks to the attendees {MERGEFIELD attendees_name_combined}." Unfortunately if attendees_name_combined is "Mr. and Mrs. Smith, Jr.", the output becomes "...thanks to the attendees Mr. and Mrs. Smith, Jr.." I want to trim the extra period (.) from the output if it exists in this instance (or suppress the final period. I was hoping for a switch or an if .. then statement just for the final period, but so far I have not been able to figure out a solution. Tag: Word VBA Help Tag: 84587
  - 18
    - how can i pull data field by field from Excel to a word table? trying to pull XLS cells into a word file - either into text or into a table. like a mail merge but really only one page with many different fields - would appreciate any thoughts or ideas - thx Tag: Word VBA Help Tag: 84586
  - 19
    - How to get data from txt file into table of word template through HI, If I want to load data info from pure txt file into specific cell of one table in Word document, what kind of method should I use? Could you give me some simple code sample? For example, I have a 'txt' file, with some contact info(Incluing name,telephone number, address,Email...) I want to use those contact info to fill one table(which have two columns, name and email) in word document. In the table, it only give the name info, we should fill the email column by ourself. How can we collect info from the 'txt' file? it is possible to use VBA to fill the telephone info automatively? Could you give me some hints? Regards Sam Tag: Word VBA Help Tag: 84580
  - 20
    - Word Locked Form Field Focus In a locked Word document with several form fields, is there a simple way to make whichever form field the user tabs into center on the screen? Sometimes after tabbing in my form the cursor goes to the correct field, but the only way to see it on the screen is to scroll the pages up or down. Thanks, Chris Tag: Word VBA Help Tag: 84576
  - 21
    - At my wit's end with macro Hello, Hopefully someone can rescue me before I jump off the bridge. I am attempting to create a macro that finds all occurences of a specific style ("Business Rule") in a table and highlights them. Once they are highlighted, I would like the macro to then shade the cells. Here is what I have but when I run it, absolutely nothing is changed so I don't even know if the macro runs. Is there anyone who can save me before it's too late? Dim oCell As Cell Dim sTextToFind As String If Selection.Information(wdWithInTable) = False Then MsgBox "Cursor is not currently in a table" Else Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Business Rule") Selection.Find.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True Do While Selection.Find.Execute = True Selection.EndKey With Selection.Cells.Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorGray25 End With Loop End With End If End Sub Tag: Word VBA Help Tag: 84573
  - 22
    - Bookmark check Hi, I have created a form as a word template, when the user wants to print the form i would like to check if he filled in the mandatory Formfields. Is there code available to do this in a loop? all Formfields are bookmarked, the ones that i like to check if they are filled out, end with "_man" Further i would like to point the user to the formfield that he hasn't filled out with a Msgbox "MyFormfieldname - _man". I am fairly new at this, so if anyone can point me in the right direction that would by great. Thanks Frenk Tag: Word VBA Help Tag: 84568
  - 23
    - attached .doc file in word macro, but attachment is not received I wrote a macro to send a email with attachment using outlook object but when the outlook object is displayed, it displays the attachment with broken icon and when sent, the attachment is not received. Tag: Word VBA Help Tag: 84567
  - 24
    - How do I run a DOS program (with arguments) inside the Word? I am running a DOS program in Word by using shell("D:\calc<D:\xx.rrr",1), where xx.rrr is a input file required by the DOS program calc.exe. It worked under Windows 2000. It doesn't work under Windows XP Microsoft Word 2003. Tag: Word VBA Help Tag: 84564
  - 25
    - [msword/vba] Problem with showing/hiding shapes Got a strange problem: A document has a corporate logo, which doesn't need to be printed on the clients pc (as he has preprinted paper). The logo does need to be printed other computers (when client for example mails a document). My solution is as follows: intercept the print commands on clients pc, hide the logo before printing, show it again when ready. Code is on bottom of page. The strange problem is: When I open the document and try to print, it doesn't work the first time, but it does work the second. Both times the sub is called and processed with no errors, as both times I get the messageBoxes(!). Also, it does work directly when the VBA window is open. Any ideas? Code: Sub FilePrint() 'To intercept File > Print and CTRL-P toggleLogos End Sub Sub FilePrintDefault() 'To intercept the Standard toolbar button toggleLogos True End Sub Sub toggleLogos(Optional toolbar As Boolean = False) Dim logo As Shape, headerLogo As Shape ' fetch prenamed shapes Set logo = Application.ActiveDocument.Shapes("Logo") Set headerLogo = Application.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Shapes("LogoHeader") ' Just to check if this sub is called properly MsgBox logo.Name MsgBox headerLogo.Name ' hide shapes logo.Visible = msoFalse headerLogo.Visible = msoFalse ' show print dialog or just spit it out If toolbar Then ActiveDocument.PrintOut Else Dialogs(wdDialogFilePrint).Show End If ' show shapes logo.Visible = msoTrue headerLogo.Visible = msoTrue End Sub Tag: Word VBA Help Tag: 84559

I need to write a utility (in .net) that will iterate though a word document
and extract words with bold formatting. These will go into a database. No
problem except I'm not sure about writing the VBA to find bold words in a
document.

Has anyone done this before? Could you post some sample code?

Thanks in advance.

Re: Word VBA Help by Dave

Dave
Mon Apr 24 14:47:31 CDT 2006

Hi,

This will get you started:

Dim sBold As String
With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = ""
.Font.Bold = True
Do While .Execute
sBold = sBold & Replace(Trim(Selection.Text), Chr(13), "") &
vbCrLf
Loop
End With
End With
Debug.Print sBold

I use the Replace function to remove any boldface hard returns.

HTH,
Dave

"Dana King" <bushido101@hotmail.com> wrote in message
news:eyipqa9ZGHA.4144@TK2MSFTNGP04.phx.gbl...
>I need to write a utility (in .net) that will iterate though a word
>document and extract words with bold formatting. These will go into a
>database. No problem except I'm not sure about writing the VBA to find bold
>words in a document.
>
> Has anyone done this before? Could you post some sample code?
>
> Thanks in advance.
>
>
>

Re: Word VBA Help by Dana

Dana
Mon Apr 24 17:09:42 CDT 2006

Hey Dave, thanks so much, that's just what I needed.

cheers!

"Dave Lett" <davelett@NOaolSPAM.com> wrote in message
news:%23rGVuf9ZGHA.508@TK2MSFTNGP02.phx.gbl...
> Hi,
>
> This will get you started:
>
> Dim sBold As String
> With Selection
> .HomeKey Unit:=wdStory
> With .Find
> .ClearFormatting
> .Text = ""
> .Font.Bold = True
> Do While .Execute
> sBold = sBold & Replace(Trim(Selection.Text), Chr(13), "") &
> vbCrLf
> Loop
> End With
> End With
> Debug.Print sBold
>
> I use the Replace function to remove any boldface hard returns.
>
> HTH,
> Dave
>
> "Dana King" <bushido101@hotmail.com> wrote in message
> news:eyipqa9ZGHA.4144@TK2MSFTNGP04.phx.gbl...
>>I need to write a utility (in .net) that will iterate though a word
>>document and extract words with bold formatting. These will go into a
>>database. No problem except I'm not sure about writing the VBA to find
>>bold words in a document.
>>
>> Has anyone done this before? Could you post some sample code?
>>
>> Thanks in advance.
>>
>>
>>
>
>