Macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Black Bands in web page when edited with MS Word Hello all, Using Windows XP Professional SP2 with MS Office XP SP 3 (MS Word 2002--10.6802.6735) Does anyone know what is going on here? I created a Word doc by editing a web page (a show's episode guide) with Word to keep track of the episodes that I've seen and haven't seen (http://www.epguides.com/farscape/). When I first created this document, everything was fine. But the next time I opened it up, there were black bands throughout the document. I tried to recreate the document by once again editing the web page with Word. And once again, the bands showed up. I deleted all the text from the start of the first band to the end. They disappeared. I entered a bunch of blank lines and they reappeared. The seem to be at regular intervals, but I have not counted to find out what those intervals are. These black bands have nothing to do with "Shading" (Format>Borders and Shading...). The text is unreadable since it is the same color as these bands. In order to read text within these band, I have to change the color or apply some sort of shading. I would rather not do that, I would like to know what is causing these bands and remove them if possible. Has anyone experienced this before? Does anyone know how to remove these bands? The file can be found here: http://home.att.net/~ctbarbarin/files/farscape_epguide.doc for those of you that trust me. I have removed all code from this document (In Word/Normal.dot I have a keyboard shortcut set for Strikethrough Font Effect--In the original file still on my machine, the only code I have in this file is for a message box that pops up when the file opens reminding me of that keyboard shortcut--that code has been removed from the file that is online). I am curious to know if these black bands show up on anyone else's computers. Thanks for any help anyone can provide, Conan Kelly Tag: Macro Tag: 87974
  - 2
    - word 200 macro Greetings, I am attempting to write a macro to clear all headers in a document, then turn off line numbering for the whole document. The following macro clears the headers ok, but gets an "out of range" error at the line numbering part. I would greatly appreciate any assistance. Dim oSec As Section Dim oHead As HeaderFooter For Each oSec In ActiveDocument.Sections For Each oHead In oSec.Headers If oHead.Exists Then oHead.Range.Delete Next oHead Next oSec ActiveDocument.PageSetup.LineNumbering.Active = False End Sub Tag: Macro Tag: 87973
  - 3
    - J West: Using Word capabilities in Excel and vv? In a previous thread I posted here and to vbscript, I was explaining that I was trying to use a script to get some functionalities offerred by Word to work in Excel and vice versa. The instance I was working on was a wildcard text search in Excel; the only way I could find to make it work was to read each cell in Excel into a string, open a Word doc and write in the string, perform the search, then write the answers back into Excel. It worked, but was very kludgy. Jonathan West commented in that thread that there are better ways to cross-utilize functionalities across applications, and keeping everything within VBA is better than calling an external script and passing variables back and forth. (I was trying a script to use a RegExp text search. I have since let that slip down the list of things to work on.) I have the utmost confidence in Jonathan's wisdom and experience, and would like to see if we might be able to explore this further. Thinking about it, there seems to be no reason why I can't instance Word's Find object and use the built-in wildcard search capabilities from within an Excel macro. I'm not quite so sure about using Excel's AutoFilter or Data Validation on a Word table, though, but it would be very nice. What are the limits and boundaries here in trying to cross-utilize functionalities like this? Is it worth pursuing? Ed Tag: Macro Tag: 87972
  - 4
    - Word should have option for workbook tabs like Excel I use office 2004. If word had the ablilty to be used as workbook it would increase its user friendliness in the following ways: 1- make it easier to print only the page you wanted because you would list related information in a separate tab 2- Access to different "chapters", cover pages, indexes very quickly. Ex:if you are typing a book. 3-Storing related document information for quick access. Ex: Meeting agendas -as a manager you could store all previous meeting agendas in same workbook and easily tab back and forth without having to open different files or create new page breaks within the same file and then print only the page needed. 4- Copies of letters sent to clients- you could have a record of all correspondence with someone within the tabs of a workbook file. ---------------- 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=41ac6dbf-a2f3-4a79-868c-80d3ebd3389e&dg=microsoft.public.word.vba.general Tag: Macro Tag: 87969
  - 5
    - Modifying the right click menu Is there a way to add "Paste Special" to the right click menu in Word2003?? Being able to select "Paste Special" in Excel97 is such a handy functionality, that I was surprized that it had not become a standard functionality in Word2003. Is it available in more recent versions of Word?? Regards, JDDomine 20060710 Tag: Macro Tag: 87966
  - 6
    - Insert a selection at the end of a Word Document Hello, I am creating a userform that takes a string and adds it to the end of a different word file. For example, the current file has a text string inputted from the user via the form, and I need to take that string, then transfer it over to a existing file that already has text in it and paste it at the end. Any help would be appreciated. Rob Tag: Macro Tag: 87964
  - 7
    - Duplicate Office Word 2003 documents My Office Word 2003 keeps making unwanted duplicate copies of Word documents, in particular e-mails copied from Outlook Express to Word, which are work related -marine survey files. The duplicates seem to be made automatically after the e-mail files have been copied into Word folders. I have been making these copies for over 6 years, but the problem only started last January and I have not been able to correct / stop it. Does anyone have any ideas? Regards, David Moore Tag: Macro Tag: 87963
  - 8
    - Avoid "Open Worksheet" dialog I am opening an Excel spreadsheet in Word, and I want to avoid the "Open document in Workbook" dialog in which I have to select "Sheet 1." How can I avoid getting that dialog (and just open Sheet1 automatically)? (Do I modify the format (at Format:=wdOpenFormatAuto???)) (All my code is in Word, and I'm only using Excel as the repository so I can work with it in Word.) Here's the code I'm using to open the spreadsheet in Word: Application.DisplayAlerts = wdAlertsNone Documents.Open FileName:="c:\4raw.xls", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", Format:=wdOpenFormatAuto Application.DisplayAlerts = wdAlertsAll TIA Tag: Macro Tag: 87962
  - 9
    - Insert Excel graphs into the fields of a locked Word form. As part of our high school lab course, students collect data, graph it, and add it to their Word form labs. If the form is locked, students cannot insert the graph into the form field. This creates lots of confusion and is inconvenient for both us and our students. ---------------- 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=1441a4b8-bdd4-4b0d-8915-4930b5b73172&dg=microsoft.public.word.vba.general Tag: Macro Tag: 87959
  - 10
    - Access hyperlinks in a locked Word form. We use locked Word documents for labs we give to high school students. The labs frequently contain hyperlinks which cannot be accessed unless the form is unlocked. Locking and unlocking creates confusion. This seems like an easily fixable 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=4c730d4c-f140-44ef-b511-5f000136adfb&dg=microsoft.public.word.vba.general Tag: Macro Tag: 87958
  - 11
    - Take a sting and set it as text in a userform label Hello, I was wondering if there is a way in VBA to take a string set it as the text in a label for a userform rather than use the IDE to enter it through the properties window. To be more specific, I am reading cells from a Word Table and storing them as strings, then the user gets a list of the cells contents in the userform presented as labels next to checkboxes. Thanks in advance for any help you can send my way. Rob Tag: Macro Tag: 87952
  - 12
    - Field code to display numbers and text I want to display both number and text in a word document using an excel file as my database. The data is mostly numeric "0.041" but some are "<0.010", the latter displays as 0.00 when I apply a field code of ......\# "0.000" to round numbers to three decimal places. Tag: Macro Tag: 87948
  - 13
    - The Mysterious ^p and CR/LF I'm trying to unravel the mysteries of the ^p "character" and trying using search and replace. I have numerous ASCII text files. They unfortunately have solitary CR characters (Hex 0D) buried in the text, often in series, as well as the standard CR/LF. So, I thought I would use word to delete them. It's turned out to be a bigger task than I thought. These Hex 0D characters are shown in Word two ways using the Courier New font: 1. In the middle of a line, it appears as a box. 2. At the end of a line, it disappears next to the end of line marker even when the show formatting marks is turned on, so you can never really see them. A hex dump shows the characters to be Hex 0D0D0A. I have huge files I have to process, so I've made myself a macro to try to delete these evasive little characters. But it's been rather difficult. But here's one process I created that sort of works. It's a three pass routine: 1. Replace all LFs with a character string of "~~~%". This method exposes all the solitary CRs and Word internally coverts their display to paragraph marks. 2. Next step is to delete all the solitary CRs. 3. Finally, revert the true end-of-line markers "~~~%" back to "^p" and we are done. After that, the appearance of the text is correct and all the solitary CRs are gone. But there's a catch. All the CRs are now solitary CRs in the code and are no longer CR/LF even though it displays correctly. And I don't see a way to convert them back using a macro. I've tried replacing ^p with ^13^10, but that just adds an extra box character. Maybe it doesn't matter after the text file is saved. I'm stumped. I'm stumped. Is there a better way? -- .. jim .. (I was having connection problems, I hope this message didn't post twice.) Tag: Macro Tag: 87947
  - 14
    - VBA Code to Return To Form I am a novice -- using the following code for "vbYes", what code needs to be added to return to the form after clicking "yes" on the message box? Dim intMsgBoxResult As Integer If intMsgBoxResult = vbYes Then Selection.GoTo What:=wdGoToBookmark, Name:="lbl1" Selection.TypeText frmLabels.txtRecipientName & vbCrLf Selection.TypeText frmLabels.txtRecipientAddress Application.ScreenUpdating = True Else intMsgBoxResult = vbNo Selection.GoTo What:=wdGoToBookmark, Name:="lbl1" Selection.TypeText frmLabels.txtRecipientName & vbCrLf Selection.TypeText frmLabels.txtRecipientAddress Application.ScreenUpdating = True Application.Windows(curDocument).Activate ActiveWindow.SetFocus With ActiveDocument For Each mark In .Bookmarks .Bookmarks(mark).Delete Next mark End With Unload Me Tag: Macro Tag: 87946
  - 15
    - VBA Printing Problem Hello all, because we have multiple printers , we have created a macro which is assigned to a button in the toolbar to directly print to a printer. this is easy because we don't have to go to file, print and then select a printer. The only thing that happens is that MS Word is no longer responding. I will post the code here can anyone help me. code: Sub secprint() ActivePrinter = "pdf" Application.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1 End Sub Tag: Macro Tag: 87944
  - 16
    - Delete double-mouseclick on a symbolbar icon Hello, I have a macro assigned to a button in a word XP-symbolbar-icon. A lot of my users learned in windows to double-click so they always double-click on the button to execute the macro. Because of the double-click the macro runs twice. The user doesn't understand why not double-click. It's hopeless to explain it. I want to catch tis error in my macro: after the first click the macro is executed. At the end I want to clear the click/keyboard-buffer to get rid of the second click. How could this be done? Thanks Stefan Westner Tag: Macro Tag: 87937
  - 17
    - starting word from a macro with a Template other than Normal.dot Hello, Can anybody help me on how to start and open a new Word document using a newly defined template other than Normal.dot? I tried net start winword <xxxx.dot but did not work only a new word was opened using Normal.dot. -- Jeff B Paarsa Tag: Macro Tag: 87918
  - 18
    - it wasn't right i don't think it was right. Tag: Macro Tag: 87915
  - 19
    - Changing the default formatting for Word's standard buttons Can anyone help me figure out how to change the default formatting for the bullet and numbered list buttons on Word's formatting toolbars? I have created my own toolbar with both a bullet and numbered list button, but having both confuses all the end users. I removed the standard buttons, but the users then get confused as to why sometimes they are there (when they use normal.dot) and sometimes they aren't (when they use my template). A mutiny is pending... unless I can just change how things look when I use Word's standard buttons! Thanks in advance. -- cmbrown Tag: Macro Tag: 87907
  - 20
    - Doc property into another document I know this is the programming group, but I hope one of you generous people will know this. I have 2 documents, A and B. I am interested in putting a doc property of Doc A into Doc B. I think a field reference would be good, but I have only found references for bookmarks, not doc properties. Any recommendations? Thanks Tag: Macro Tag: 87905
  - 21
    - gross lines I need to know how to change a "gross line" into a "65 character line including spaces" for medical transcription. Any suggestions? Thanks Lori Tag: Macro Tag: 87901
  - 22
    - DocVariables - Copy / PasteSpecial I populate a word doc from an excel spreadsheet using doc variables. This document will enventually go to a client, so I would like the DocVariables "removed", while keeping the values themselves. similar to a copy / pastespecial / values works in excel. I can accomplish this manually in word by highlighting the variable, hitting copy / paste special / unformatted text. However, when I try to do so in VBA, it seems to simply copy back the DocVariable. Here is the code: set wrdApp = Word.Application Dim myField As Field For Each myField In ActiveDocument.Fields Debug.Print myField.Code myField.Result.Select wrdApp.Selection.Copy wrdApp.Selection.PasteAndFormat (wdFormatPlainText) Next Why would this work manually, but not via VBA? I've tried other (wdFormat...) options, but with the same result. Thanks for any help!!! Tag: Macro Tag: 87896
  - 23
    - Need to add .png or .ico icons to the .dll I created toolbar for my macros i need to put icons instead of text buttons. When I copy/paste icons quality will be lost ,look is not sharp enough.(bmp). I created icons in (png,ico) fromat with magenta(255,0,255) color with is used by windows as trasparent color. Q: how can I add icons to the .dll? Q:in which .dll Q:Can I add it to my own dll and then insert reference in my .dot on myown.dll. Ps: some tutorial would be useful thanks in advance acherony Tag: Macro Tag: 87892
  - 24
    - VBA count of mis-spelled words? How can I get a count of mis-spelled words in a document, using VBA? Basically, the number of words with the red squiggly underline, although related errors like mixed capitalization would also be of interest especially if I could keep that count separate from the basic count of mis-spelled words. Thanks! -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: Macro Tag: 87888
  - 25
    - Make a drop down field compulsory & create another I have a drop down field in a Word form that must be completed either Yes or No. If the answer is Yes the user must select from a further list of options before proceeding to fill in the rest of the form. If the answer is No the user can proceed to fill in the form. 1. How do I make the dropdown field compulsory (they can't move on until something is completed I have a blank field in the dropdown so they shouldn't just leave it blank)? 2. How do I generate another dropdown list if they answer Yes? I am presuming VBA is the way to go but I am a VERY novice user of VBA Tag: Macro Tag: 87885
- Next
  - 1
    - ChangeFileOpenDirectory reverts template??? Hi, I'm having this bizarre problem with some of my documents: I have two Word documents opened, Doc 1 and Doc2, both with attached templates. 1. I change the attached template to Doc2 (UI or AttachedTemplate property by code, the result is the same), setting the full path (not default), not just the name. 2. I save Doc2. 3. On Doc1 (based on a precise template one, this doesn't happen for all documents) I change de file open directory programatically (ChangeFileOpenDirectory method) --> Attached template to Doc2 doesn't change. 4. Close and re-open Doc2 --> Attached template to Doc2 reverts to what it was previously. If I attach several templates in a row it always "remembers" the one before the last one. Does anyone have an explanation for this? What could be happening? Why is this only happening whem issuing the ChangeFileOpenDirectory from documents (Doc1) based on this one exact template? What should I search for in the code of this template that can be done wrong? Although I have quite some experience with VBA, I did not write most of the code myself, so I really have no idea where to start searching. (I was asked to add a macro that would attach a template to all files in a folder, which I did looping all documents in the folder, opening, setting the AttachedTemplate to the full path of the template file, saving and closing, which should be pretty standard). Thanks for any help you can give Tiago Tag: Macro Tag: 87880
  - 2
    - prinitng selctions i need to print from page 1 to page n page n is te one in which i find text "Chapter 2" as my selection is located at chapter 2 (page 7 for example, but not always 7!)) how can i use ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:=n ?? how can i know in vba the current page number? i need to use this for printing from chpater 1 to last page of chapter 1 then same for chpater 2 and 3 tya Tag: Macro Tag: 87879
  - 3
    - Word 2000 - fade edges of photo inserted in document Word 2000 bulletin in progress: have a photo Dad wants to fade the edges on for cover (oval, square shape etc). He has done this previously years ago but can't remember how he did it, or which program. I've tried Picture Editor and see no such effect, same for Paint (all XP 2000 versions). Can anyone give tips on how one might do this? -- AJ Tag: Macro Tag: 87875
  - 4
    - Field Codes I am trying to add a field code in word to pull from our public folder contact list. ie, company names, numbers, addresses....so when the user goes to this document and clicks on the "to" it's pulls from outlook contacts. Does anyone know the best way to accomplish this task? thanks in advance. Tag: Macro Tag: 87870
  - 5
    - DocumentBeforeSave Event error Hi, everybody. I am trying to move file from one folder to another, back and forth depending on user's actions. However, when the move file procedure is triggered by the DocumentBeforeSave event, Word shuts down completely with the message "Microsoft Office Word has encountered a problem and needs to close. We are sorry for the inconvenience", and I am not able to trap this error. File is successfully moved if the sub is called by subs other than DocumentBeforeSave. Please help. I have spent close to 2 weeks on this problem. Tag: Macro Tag: 87869
  - 6
    - Font Substitution Hello OS: Windows XP App: Word XP I would like to obtain some VBA that will permanently convert all Substituted Fonts to "Times New Roman". The code below will permanently convert a single known substituted Font. I am looking for VBA that will loop through all Substituted Fonts. Application.SubstituteFont UnavailableFont:="Times New Roman Bold", SubstituteFont:="Times New Roman" PLease don't burn too much midnight oil on this one, however, a result would be outstanding. Regards Mike Tag: Macro Tag: 87867
  - 7
    - Can't Merge Cells in Word after Splitting and deleting Hi, I will try to explain my problem the best I can. I have a table and the first column's text went with 6 rows (in the 2nd column) so the first column was merged to show this. I split cells in the first column to go with the 6 adjacent rows, then I deleted some rows, and tried to remerge the first column and it won't give me the option to merge. I can merge some of the cells, but can't merge the ones that went above the rows I deleted. Any information on how to fix this problem would be greatly appreciated! Thanks! Tag: Macro Tag: 87864
  - 8
    - DAO OpenRecordset in Word 2000 VBA returns nothing I'm having an unusual problem with DAO and VBA in Word 2000. Here's the problem code: set myRecord = myDatabase.OpenRecordset(someQuery) "myDatabase" is an open database connection to an Access database file (mdb file), "myRecord" is a Recordset object, and "someQuery" is an SQL query string; e.g. "select * from thisTable where thisField=SomeValue" The problem is, if "someQuery" returns 0 (zero) rows, then myRecord isn't "set" - it remains uninitialized. Later on in the code, a test like this is used: do while myRecord.EOF = False ' do something loop This causes a problem in Word 2000 (but not later versions of Word) because "myRecord" is not set, so you get a "object variable or with block variable not set" error. My question is this: is the behavior of "OpenRecordset" different under Word 2000's VBA? Or have I been wrong all this time in assuming that if the query passed to OpenRecordset returned 0 (zero) rows, it would at least return an empty (i.e. EOF=True) recordset? Or is this maybe just a strange problem with a particular installation of Word/VBA/JET/DAO? Tag: Macro Tag: 87859
  - 9
    - CTRL+Tab Gives VB Error Word 2003 I have a user who has reported a strange problem in Word. I have my doubts as to whether or not this problem is caused by Word, but since the user is getting a VB error in Word, I thought that I would start my research by posting the problem in this group. When the user hits CTRL+Tab she gets the following VB error. Error 91: Object variable or With block variable not set The user also uses a program called CrossEyes, which is supposed to be like the WordPerfect Reveal Codes command for Word. The user has noticed that if she opens CrossEyes and then closes it, she can then go in to Word and use CTRL+Tab without getting the VB error. This leads me to believe that one of my least favorite programs--CrossEyes--is the real culprit. Has anyone seen this problem before, or have an idea of what might be causing the error? --Tom P.S. I detest CrossEyes because the information that it gives is of limited use, not always accurate, and the program has become a crutch for our old WordPerfect users by helping them to continue to think in terms of how WordPerfect does things, which just prevents them from ever truly understanding Word. But that's just my opinion. Tag: Macro Tag: 87854
  - 10
    - My Microsoft Word is askin me to convert? What do I do? I am tryin to use my Microsoft Word and a little box would pop up abnd say I need to convert. then it ask for a 16 digit number but i dont have a number and I dont have a program i bought my computer but the program was already on the computer. I need a 16 digit number. what do i do? Tag: Macro Tag: 87853
  - 11
    - Hidden rows appearing on open I'm using the following VBA to hide rows based on the selected checkboxes. However, if I close the document and then reopen it, the hidden rows appear, but sort of squashed. Any ideas? Sub AutoOpen() Dim myArray1() As Variant Dim myArray2() As Variant myArray1 = Array("Regular", "24 Hour Priority", "Same Day Urgent") With ComboBox1 .Clear .List() = myArray1 End With myArray2 = Array("Test1", "Test2", "Test3") With ComboBox2 .Clear .List() = myArray2 End With End Sub Private Sub CheckBox1_Click() CheckBox1.Font.Bold = CheckBox1.Value If CheckBox1.Value = False Then CheckBox1.Font.Size = 10 ActiveDocument.Tables(1).Rows(2).Range.Font.Hidden = False Else CheckBox1.Font.Size = 12 ActiveDocument.Tables(1).Rows(2).Range.Font.Hidden = True End If End Sub Private Sub CheckBox2_Click() CheckBox2.Font.Bold = CheckBox2.Value If CheckBox2.Value = False Then CheckBox2.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox2.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Private Sub CheckBox3_Click() CheckBox3.Font.Bold = CheckBox2.Value If CheckBox3.Value = False Then CheckBox3.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox3.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Private Sub CheckBox4_Click() CheckBox4.Font.Bold = CheckBox2.Value If CheckBox4.Value = False Then CheckBox4.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox4.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Private Sub CheckBox5_Click() CheckBox5.Font.Bold = CheckBox2.Value If CheckBox5.Value = False Then CheckBox5.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox5.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Tag: Macro Tag: 87851
  - 12
    - how do u change the text encoding default from Windows to ASCII In word how do i change text encoding from the Windows(default) to US-ASCII Tag: Macro Tag: 87849
  - 13
    - Override Regional settings within app Hi, I would like to override the regional settings (e.g. for the decimal char and the thousand separator) within an application. Is this possible and mor eimportant... how? Thx, Christian Tag: Macro Tag: 87843
  - 14
    - http interface from inisde VBA Hi: I want to send data using a cgi script via a http interface to the server from indide a VBA code. Is that possible? I know of something called "HTTP package" that Tcl provides. I was looking something similar to it. Any help is appreciated. Thanks. Tag: Macro Tag: 87839
  - 15
    - Failed SaveAs Makes Documents Invisible (Mystery with clues) I am using Word 2003 (11.8026.6360) Sp1 (VBA) When the execution of a "SaveAs" fails; as in the following statements; ActiveDocument.SaveAs _ FileName:="D:\Documents and Settings\henryhiggin\My Documents\Billminer\doppel.txt", _ FileFormat:=wdFormatText, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _ LineEnding:=wdCRLF ActiveDocument.Close The followinf statements ignore all open word docs; passgo: For Each docOpen In Documents docOpen.Close SaveChanges:=wdDoNotSaveChanges Next docOpen The clue is that; although the documents can be closed manually; one cannot select "SaveAs" from the "File" menu. Is there a way of closing these stubborn files programatically? Thanks Tag: Macro Tag: 87832
  - 16
    - trapping run-time error 4198 I am experiencing a run-time error 4198 when comparing certain Word documents using vba (from Access 2000 - automating Word 2000). In general, I think it is caused when trying to compare documents that have already been compared. My problem is that I cannot trap the error. I have an On Error goto statement right before the doc.Compare filename statement, but it does not go to the error handler when the error occurs, instead presenting the 'Command failed' message to the User and then showing the yellow highlight on the Compare command when the 'Debug' button is clicked. I have tried setting the DisplayAlerts to each of the 3 different choices right before the Compare, all to no avail. Behaviour remains the same. The same code works fine for many other documents, but I want to gracefully be able to handle this problem, even if it is only to log the error and move on to the next file to be processed. Any ideas on why I can't trap this error? Anything different I can do? Any way I can detect if the file has already been compared, and thus avoid comparing when it would cause this error? Any help much appreciated, Thanks Christine Tag: Macro Tag: 87831
  - 17
    - Enabling spellcheck for protected forms in Word 2003 I believe that I have followed the instructions in http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm to attempt to enable spellcheck for a protected form. Unfortunately, I can't get this to work and Tools/Spelling and Grammar remains greyed-out. The process I used was to Create a new macro and paste in the code from the referenced URL, having deleted what Word put inb automatically. I have also created a very simple .dot file and tried to enable spellcheck using the same macro, but still Tools/Spelling and Grammar is greyed-out I note, BTW, that if I delete this macro, I am still told when opening these files that they contain macros. I don't understand this. I have run the example on the referenced URL and this works fine. I am using Word 2003. Any help much appreciated .... this is my first attempt to use Word macros. Thank you Gordon Marwood Tag: Macro Tag: 87823
  - 18
    - Add macro to the doc and change reference. Hi! I created Template with some macros.I put in Trusted Location on Server. every user can select template and create new document. in my templates i created Menu&Toolbar&Styles and I need it to be inherit to the *doc file. It is working well in company, while the reference point to the location of template. My problem is : when doc file is sent via email to the other company then the reference will be unknow and Word select default reference Normal.dot which donÂ´t include my Menus&Macros&style... 1. I copied Macros to the doc file project while creating. 2. I add Menu also while creating but when I send it to the another company word set as Normal as reference and the Forms&Procedu&menu&toolbar will be ignored. I hope you guys undestood what my problem is and I really need some help. Q: How can I solve this problem? I tried to delete reference it is not working! Q:Maybe have can I attach whole Template to the .doc file (doc size donÂ´t matter). Q:any other solution. Here is some code I used to add Items & Styles sub autonew() . . . 'Update styles ActiveDocument.CopyStylesFromTemplate Template:=ActiveDocument.AttachedTemplate.FullName . . . . Application.OrganizerCopy Source:= _ ActiveDocument.AttachedTemplate.FullName, Destination:= _ ActiveDocument.FullName, _ Name:="UF_translation", Object:=wdOrganizerObjectProjectItems Application.OrganizerCopy Source:= _ ActiveDocument.AttachedTemplate.FullName, Destination:= _ ActiveDocument.FullName, _ Name:="UserForm_Frontpage", Object:=wdOrganizerObjectProjectItems . . end sub Thanks Tag: Macro Tag: 87817
  - 19
    - Collecting Footnote reference text I wish to collect the actual text displayed in the footnote references in my document. Of course, just using Footnote.Index only gives you a numeric index, and while you can query the FootnoteOptions to work out that the format is say, lowercase letter, this doesn't help if the document editor has chosen to restart the footnote numbering at some point. And Reference.Text just returns an ASCII char 2. The following code shows an example of collecting each footnote and its reference. How do I collect the Reference's displayed text? Dim doc As Document Dim sect As Section Dim note As Footnote Set doc = ActiveDocument For Each sect In doc.Sections For Each note In sect.Range.Footnotes If (note.Reference.Start >= sect.Range.Start And note.Reference.End <= sect.Range.End) Then Debug.Print note.Reference.Text & " " & note.Range.Text End If Next Next Using Word XP and Word 2003 Tag: Macro Tag: 87814
  - 20
    - Duplex Printing I have managed to get the duplex printing working from the code found on "Controlling the Printer from Word VBA Part 2: Using VBA to control Duplex, Color Mode and Print Quality" which is much better than using sendkeys as I was before. However the even pages are printing upside down. Have I done something wrong or it is a querk from my printers (HP Laserjer 8150 PCL 5e Thanks Tag: Macro Tag: 87811
  - 21
    - Pasting charts to Word from Excel as picture Hi, I want to transfer some charts (as picture) in excel to a particular word document (specific page and specific position). The word document already has some data and lots of pages in it and Im inserting charts in specific places. When I used to do the above task for Excel to Power- point then I could use the, Right click Format picture, of Size (Height, Width) and Position on Slide (Horizontal, Vertical) in order to place the charts in powerpoint in the exact position and dimension I want. But Im not able to see an analogous feature in word where I could specify the Position (Position on page - Horizontal and Vertical) of object/chart in Word. When I do right click on a picture in Word, then size tab has height and width (Good for me), but I dont have any tab for position. What we do have is a tab called Layout, in which the "Advanced" button has Absolute position ... to of the column and Absolute position .... below paragraph. Im not sure whether by using these 2 properties I will be able to position my chart in the place I want. Again, I have not been able to try the above because of 2 reasons:- a) If I copy paste a chart named as Chart1 in excel to Winword then what is the name of that object in word? For checking this I recorded a macro in word where I selected a newly pasted chart from excel and see that the code it produces is ActiveDocument.Shapes("Group 1570").Select Knowin the name of the chart in word seemed important to me, because as soon as im done pasting, the cursor in word moves to the new line or rather the chart object is no longer active in word. So, if it is not active then how do I apply positional and size properties to it? b) Secondly, Im not sure of the of the exact syntax for applying positional and size properties. When I record a macro in word where I change the Height/width/Abs Position Col/ Abs Position Para to 2 inches then I get lot of recorded code out of which following seemed relevant to me (I have snipped rest). Selection.ShapeRange.Height = 144# Selection.ShapeRange.Width = 144# Selection.ShapeRange.Left = 180# Selection.ShapeRange.Top = 126# Selection.ShapeRange.Left = InchesToPoints(2) Selection.ShapeRange.Top = InchesToPoints(2) Im not able to understand as to why the Left and Top (Probably the positonal parameters for object) is getting recorded twice and that too in different units (once as 180# and another time as InchesToPoints(2)). Also, I want to know one more thing. As I have already mentioned I have text data in word and I have left enough space so that when a new chart gets pasted the text data below the chart doesnt get shifted down. For example, in the below code Im first navigating to the page where I want to paste chart and then pasting it. In this whats happening is that, even my page title and rest text gets shifted. How to avoid this situation Sub StartTransferProcess(WkbookNam As String, ShtNam As String, ChtNam As String, _ Pageno As Byte, Height As Double, Width As Double, ColPos As Double, ParPos As Double) Set SWinword = GetObject(, "Word.application") Set Sdocument = SWinword.Documents(WordDocName) Workbooks(WkbookNam & ".xls").Activate Sheets(ShtNam).Select ActiveSheet.ChartObjects(ChtNam).Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy Sdocument.Activate Sdocument.ActiveWindow.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Pageno Sdocument.ActiveWindow.Selection.Paste ''' New code to be written for Positioning and sizing object End Sub Regards, HP India Tag: Macro Tag: 87808
  - 22
    - How do I insert an picture in Word which will automatically say print page .. Tag: Macro Tag: 87804
  - 23
    - Restrict Editing I have created a word document that has fields that can be filled in by the user. I also have other text in the document that I do not want the user to change/delete etc. Is there I way I can protect these areas of text? Thanks for any help Roger Tag: Macro Tag: 87802
  - 24
    - Create Word document from Access Query - Import image based on pat Hi, I need to create a Word document using data from an Access query. I can do this successfully using a mail merge. One of the fields is the UNC path to an image. I would like to insert the image into the document each time a new record is read. For example <<Field1>> <<Field2>> <<Field6 - Pathname>> <<Field3>> <<Field4>> <<Field5>> --------------------------------------------------------------- Field6 - Pathname is replaced by the actual image. Can the image also be resized? I do this in access using If IsNull(Me.Expr1) Or IsEmpty(Me.Expr1) Then Me.Image30.Picture = "\\server\path\noimage.jpg" Else Image30.Picture = Me.Expr1 End If Where Expr1 is the path. Can I do similar in Word VBA? My end user requires the output in Word so they can further format it before incorporating it into a book. Have I confused everyone yet? thanks Scott Tag: Macro Tag: 87801
  - 25
    - Code execution on footer change I am trying to get some code to run when a changes is made to the footer in a word document any ideas on how to do this. Tag: Macro Tag: 87795

I am creating a template based on forms....

How do I create a macro to

within the active document
remove protection
produce a dialogue box getting the user to "hilight relevant information"
bold (emboldens selection)
re-add protection to the document
end the macro

thanks for your help

Re: Macro by Jezebel

Jezebel
Tue Jul 11 06:03:16 CDT 2006

>
> How do I create a macro to
>
> within the active document
> remove protection
> produce a dialogue box getting the user to "hilight relevant information"
> bold (emboldens selection)
> re-add protection to the document
> end the macro
>
> thanks for your help

Write it.

Re: Macro by SarahLecturer

SarahLecturer
Tue Jul 11 06:55:02 CDT 2006

Thanks Jezebel... I kind of gathered that and was hoping that someone may be
able to help me write it without the sarcasm?

"Jezebel" wrote:

>
> >
> > How do I create a macro to
> >
> > within the active document
> > remove protection
> > produce a dialogue box getting the user to "hilight relevant information"
> > bold (emboldens selection)
> > re-add protection to the document
> > end the macro
> >
> > thanks for your help
>
> Write it.
>
>
>

Re: Macro by Jezebel

Jezebel
Tue Jul 11 07:13:36 CDT 2006

You need to ask a question if you want an answer. What have you tried so far
and where did you run into problems?

"Sarah_Lecturer" <SarahLecturer@discussions.microsoft.com> wrote in message
news:586F7C5B-208A-4CF5-B77A-1A59A0709182@microsoft.com...
> Thanks Jezebel... I kind of gathered that and was hoping that someone may
> be
> able to help me write it without the sarcasm?
>
> "Jezebel" wrote:
>
>>
>> >
>> > How do I create a macro to
>> >
>> > within the active document
>> > remove protection
>> > produce a dialogue box getting the user to "hilight relevant
>> > information"
>> > bold (emboldens selection)
>> > re-add protection to the document
>> > end the macro
>> >
>> > thanks for your help
>>
>> Write it.
>>
>>
>>

Re: Macro by Helmut

Helmut
Tue Jul 11 07:13:35 CDT 2006

Hi Sarah,

this one seems to work for me:

Sub test9003()
ActiveDocument.Unprotect
UserForm1.Show vbModeless
End Sub

plus

Private Sub UserForm_Terminate()
ActiveDocument.Protect wdAllowOnlyFormFields
End Sub

HTH

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"