Textbox Changes

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Troubleshooting Auto Text Hi, I'm having a problem keeping my Auto Text attached to my form. Here is what I have done so far. 1. Created a document (doc.) Created the Auto Text and added the macro to insert the Auto Text. 2. Protected the .doc and saved it as a template (.dot). When I open the template and run the "insert Auto Text" macro (which also unprotects the form and re-protects it) I get an error message that the Auto Text cannot be located. I then: 3. Unprotect the template and transfer over the Auto Text (Tools, Templates & Add ins, Organizer, etc) 4. Re-protect the template. 5. When I go to save the template I can only select the "save as" option. And when I resave the template I lost the Auto Text and all my macros. Does anyone have any suggestions for what I am not doing properly? Warm Regards, SMOO Tag: Textbox Changes Tag: 98975
  - 2
    - Checkbox control change bypassing ThisDocument.Saved Hello, I have created a one page "checklist" consisting of a few tables for a user to enter information, as well as four checkboxes from the Control Toolbar. I have my own FileSave and FileSaveAs macros to force the user into entering some information prior to saving the document. I also used Document_Close to bypass the generic "Do you want to save changes..." prompt. If ThisDocument.Saved is false my Yes/No/Cancel box appears. Yes - call my FileSave macro No - set ThisDocument.Saved to True (to bypass the built-in "Do you want to save changes..." prompt and exit) Cancel - send Esc All of this worked well until I added the checkboxes. If the user makes a change to a table cell (e.g. they enter their name), and tries to close the document without saving, my prompt appears. If they click No, the document closes (no further questions asked). If they click one of the checkboxes and try to close the document, my prompt appears. After clicking No, the built-in "Do you want to save changes..." appears even if ThisDocument.Saved is set to True by the prior "No" click. How do I prevent a change to the checkbox from causing Word to prompt the user to save with its own dialog box? Private Sub CheckBox1_Click() ThisDocument.Saved = False End Sub Private Sub Document_Close() ... ' Present the user with custom options if an attempt is made to close the ' document without saving If Not ThisDocument.Saved Then intMsgBoxResult = MsgBox(strFileName & " has changed. Save the change(s)?", _ vbYesNoCancel + vbQuestion, "Checklist") If intMsgBoxResult = 6 Then 'Yes ' Ensure that if the user choses to save the document that the Name field is populated If strName = "" Then intMsgBoxResult = MsgBox("Please enter a Name prior" _ & " to saving the document.", vbCritical, _ "Checklist") SendKeys "{ESC}" ThisDocument.Bookmarks("YourName").Select Else Functions.FileSave End If ElseIf intMsgBoxResult = 7 Then 'No ' Prevent Word's default "save changes" prompt from activating ThisDocument.Saved = True ElseIf intMsgBoxResult = 2 Then 'Cancel ' Word's default "save changes" prompt will become activated, but ' close immediately SendKeys "{ESC}" End If End If End Sub Thanks, Mike Tag: Textbox Changes Tag: 98971
  - 3
    - quote marks in vba Hi all I am just having a bit of trouble adding a find and replace to my vba long story short I want to find and replace the word qoutemark with a " how can I add this " to vba without it throwing up an error or changing """ to """" thanks Craig Tag: Textbox Changes Tag: 98967
  - 4
    - Word automation Hi! I'm using word automation from HTML to open Word and various documents. The first time (when I open the application) Word and the document shows. The second time (when Word is already open) it dosn't always show Word, instead the minimized icon just flickers shortly in the task bar. I'd like the document to show/get focus every time. Any ideas? Thx! /e Tag: Textbox Changes Tag: 98965
  - 5
    - How do I validate whether a string is just a number or not? How do I validate whether a string is just a number or not? if val like... if val <> ... someone suggested an imaginary function called isnumber if isnumber(val) = true/false this didn't work, any suggestions -- Chris Hayes Still a beginner (only 12 years) Tag: Textbox Changes Tag: 98957
  - 6
    - Excel Macro Question Hi All, I'm dealing with an Excel issue that's driving me crazy and I was hoping someone could help me out with. I'm working on a spreadsheet for tracking projects. I would like to create a macro that would show the number of days a project has been opened for everytime the spreadsheet is opened or viewed. If anyone can offer any assistance, I would greatly appreciate it! -Tommy Tag: Textbox Changes Tag: 98955
  - 7
    - How to import data into a word document from sql server express 20 I have a lot of valueable test data (html actually) locked up in a sqlserver express 2005 database table. I want to access this in word. I was looking for a word macro, which will connect to the database, and do a sql select from a colum in a table and display the content in word. I've looked for a simple example, but found none. Can someone help with a bit of 'How To' sample code. Tag: Textbox Changes Tag: 98950
  - 8
    - Assigning a Macro to object, textbox, etc. Is there a way to assign a macro to an object or text box or even hyperlink text within the body of Word? I'm used to simply adding a command button on the sheet in Excel, but does not seem to be an equivalent in word. I was excited when I found the drop down on the floating textbox toolbar that led to the customize dialog, but that turned out to be just for the toolbars. I could not see any way to attach it to the textbox. My macro turns hidden text on and off. Distributing the solution with a button embedded in the text would be more obvious than a toolbar button. Any help appreciated TIA ed Tag: Textbox Changes Tag: 98949
  - 9
    - Prompt User for Text File In Excel I can use the following code to prompt a user to open a text file. With this code only text files are displayed in the file open window. FileOpenName = Application.GetOpenFilename("Text Files (*.txt),*.txt", 1, "Find Text File", , False) Is there a way to get the same result in a Word macro? TIA. -- Ken Hudson Tag: Textbox Changes Tag: 98933
  - 10
    - SaveAs error When a macro I have tries via ActiveDocument.SaveAs FileName:=DocName I am getting a run-time error 5152, This is not a valid filename. I have checked the variable DocName and it is a perfectly valid filename. Any ideas on what's going on here? Thanks, Gerry Pyle Columbus, Ohio Tag: Textbox Changes Tag: 98925
  - 11
    - Table Cell Targeting Hello, I'm new to creating userfroms in Word. I did fairly well when working with Excel-Userforms but now im having some trouble and would appreciate any help. My question is how do you link a textbox with a specific cell in a word Table? I need it so when the user pulls up the form in the textbox they see whatever text is in the cell, they can then edit or type and it will then a change event would change the cell's text to match. I figured out how to use bookmarks to refer to a specific location but I could not get it to load back in the textbox. I appreciate any help, I hope it is a simple line of code im missing. Ben Z. Tag: Textbox Changes Tag: 98923
  - 12
    - Macro Output to OE6 Change 'From' Field Hello, This macro works well. It formats/parses a document and merge exports it as and Outlook Express 6 email ( *.eml ) The only problem is that no matter what is in the very first line, which is the 'From' field, the finished email always reverts to the default email account in the 'From' field. So the first line reads: From: "John Doe" <john@domain.com> But since the default account in OE6 is otherdomain.com , the From field reads: From: "John B. Doe" <john@otherdomain.com> Any way to force text into that From field? Thank you. Tag: Textbox Changes Tag: 98920
  - 13
    - Word Addin Hi I want to create a button on my Word toolbar so when the user will press it, will perform a certain logic which I'm writing in c# .NET. For some reason that I don't know the button was created on every office application except in Word. At first I thought that maby the resaon is the button creation so I just tried to put a MessageBox in the OnStartupComplete and OnShutdownComplete and still no MessageBox appeared. Can somebody here help me? -- Go OT Tag: Textbox Changes Tag: 98918
  - 14
    - Find and reset particular styles [Word 2003]: I am trying to figure out a way to programatically apply the ".font.reset" method to all text of particular document style. Ideally I would like to do it using the Range method of Find, but the exact syntax is eluding me. More detail: I have set up a number of checkboxes to show/hide certain portions of a long document based on styles (by modifying the ".font.hidden" property of certain styles). However, I am finding that the document can get out of whack, where certain sections seem to have the "hidden" property applied even though it is not default for the style (probably because I am also using the bookmark method to show/hide certain contiguous portions of the document). I want an easy way to quickly reset text in particular styles to the style default. The non programatic way would be to use the Style pull-down and "Select all X instances", then click the style name and select "Reapply Style" from the dialog box that comes up. Thanks. Tag: Textbox Changes Tag: 98912
  - 15
    - Re: Word 2003 VB IDE & VB2005 As to experience or age or what other relevant capabilities you'd like to hear: Unix, PASCAL, TURBO PASCAL, C, COBOL, FORTRAN, CLIPPER That's my background. There was no OO programming in those days ... Guess I'm not *that* young after all, hey ... whatchasay? (can't believe that I'm getting so excited here ...) And considering the fact that I will support (and keep on supporting) my customers on legacy VB6 files, what's wrong with having a personal opinion that VB.NEt is a state-of-the-art development platform???? What's wrong with you ... :-) -- Krgrds, Perry System: Vista/Office Ultimate VS2005/VSTO2005 SE "Perry" <drumper@gmail.com> schreef in bericht news:... > And btw, I can't remember having responded to you. > Far all I know, I was politely responding to the OP, giving some > personal opinions without trying to ... hurt ... someone. > so it appears. > > Cool down, have a beer (or a dozen) and relax! > > -- > Krgrds, > Perry > > System: > Vista/Office Ultimate > VS2005/VSTO2005 SE > > > > "Perry" <drumper@gmail.com> schreef in bericht > news:37434F2B-9298-4A78-9878-930551D9F9D8@microsoft.com... >> Let's start with >>> You do them no favor, leading them on the blind path of betrayal for >>> your own personal comfort. >> >> Oops. What's yr problem? >> >>> What folly! Cliche as it may sound, "Just how old *are* you, anyway?" >> 43, I guess in yr eyes far too young or at least far younger than you >> are, I take it ... >> >> Well, then it's good that my customers do the judging on: >> - my experience >> - my apps (and they're taking it) >> >> What's yr problem Karl ?? >> You a grumpy old man? >> >> -- >> Krgrds, >> Perry >> >> System: >> Vista/Office Ultimate >> VS2005/VSTO2005 SE >> >> >> >> "Karl E. Peterson" <karl@mvps.org> schreef in bericht >> news:%23KUpqI7eHHA.3932@TK2MSFTNGP02.phx.gbl... >>> Perry <drumper@gmail.com> wrote: >>>> I hope VB.net IDE will ship with SR1 or SR2 of Office 2007. >>> >>> What would lead you to such a hope? I don't recall that sort of change >>> *ever* occuring in a service release. And, I'm fairly certain, at least >>> one more full version of Office will ship before it happens anyway. >>> >>>> I've noticed some apprehension among VBA expert colleagues here in >>>> Holland. >>> >>> Wise folks. Take heed. >>> >>>> I'm trying to convince them into investing in VB.net. My message is >>>> finally >>>> getting through to >>>> them but only after having showed them apps I developed and >>>> demonstrating >>>> the richness of the IDE. >>> >>> What folly! Cliche as it may sound, "Just how old *are* you, anyway?" >>> >>> What possible benefit do your *customers* derive from your rich and >>> presumably fulfilling experience? That's the same lame reasoning that >>> have led many paid-by-the-kloc coders and other nocturnal aviators to >>> recommend the platform -- selfishness. Nothing else can more >>> adequately describe this argument. Those who actually *own* the >>> applications you're writing would be well advised to take note of your >>> position. You do them no favor, leading them on the blind path of >>> betrayal for your own personal comfort. >>> -- >>> .NET: It's About Trust! >>> http://vfred.mvps.org >>> >> > Tag: Textbox Changes Tag: 98908
  - 16
    - Customize the filename field code We are using Hummingbird Document Management. On our templates I am using the "filename" field code but it is taking the verbiage from the "name" field in HummingBird where I only want the number. Is there a way to customize the "filename" field code to delete text I don't want? Tag: Textbox Changes Tag: 98905
  - 17
    - HOW DO I SET UP A "REMOVE ME FROM E-MAIL LIST" MESSAGE I would like to have saved message that says : "If you would like to be removed from this mailing list `click here." so I can put it on some of my e-mail messages. Tag: Textbox Changes Tag: 98899
  - 18
    - Finding a String in Word I can use VBA in Excel reasonably well. This is my first foray into word macros and I am having trouble. I am developing a macro that allows the user to select a text file to open. Then I format the file to fit the width of one page. No problems there. Next I want to insert page breaks. To do that I need to loop through each row of the file (that's what I would do in Excel anyway) until I find the phrase "REPORT ID:" without the quotes. When I find that phrase, I then want to find the next string of characters following that phrase and set it equal to a variable called "RptName." At that point I can end the loop. (In Excel I would use an Exit For line of code.) I then use that variable in a search and replace function to insert a page break. The RptName starts one blank space after the phrase "REPORT ID:" and can vary in length. If I were using Excel, I would use the InStr function to isolate the variable name but don't know how to get there in word. Feel free to amend the code below to make it more compact also, if you have a moment. ------------------------- Option Explicit Dim RptName As String Sub ImportRSDReports() Application.ScreenUpdating = False Dialogs(wdDialogFileOpen).Show Selection.WholeStory With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(1) .BottomMargin = InchesToPoints(1) .LeftMargin = InchesToPoints(0.2) .RightMargin = InchesToPoints(0.2) .PageWidth = InchesToPoints(8.5) .PageHeight = InchesToPoints(11) End With Selection.Font.Name = "Lucida Console" Selection.Font.Size = 7 Selection.HomeKey 'I need to find the report name here and set it = RptName. With WordApp.Selection.Find .Text = RptName .Replacement.Text = "^m" & RptName .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With Application.ScreenUpdating = True End Sub -- Ken Hudson Tag: Textbox Changes Tag: 98894
  - 19
    - VBA Duplexing won't reset I'm back again :( As previously suggested, I've used the code from http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=116 to control the duplex property of my printer. It will in fact turn on the duplex option as intended, but once it does so it won't turn it back off, even though it says it did (through message box responses). Here is the code from my Document_Open and _Close events: ======================================== Private lngOrigSetting As Long Private boolOptionChanged As Boolean Private Sub Document_Open() '* retrieve the original duplex setting lngOrigSetting = GetDuplex MsgBox "Retrieved: " & lngOrigSetting '* turn on duplex if it isn't already on If lngOrigSetting <> 2 Then SetDuplex 2 boolOptionChanged = True MsgBox "After setting, retrieved: " & GetDuplex Else boolOptionChanged = False MsgBox "Duplex already on" End If End Sub Private Sub Document_Close() Dim lngCurrSetting As Long If boolOptionChanged Then '* retrieve the current setting lngCurrSetting = GetDuplex MsgBox "Retrieved: " & lngCurrSetting '* if current setting <> original setting then reset it If lngCurrSetting <> lngOrigSetting Then MsgBox "Resetting to: " & lngOrigSetting SetDuplex lngOrigSetting MsgBox "After setting, retrieved: " & GetDuplex End If End If End Sub ======================================== So, when I open the document the message boxes tell me: Retrieved: 1 After setting, retrieved: 2 If I check the File/Print.../Properties the duplex option is on and it will print double sided. When I close the document the message boxes tell me: Retrieved: 2 Resetting to: 1 After setting, retrieved: 1 Now, if I reopen the document and close it I get the same messages, telling me it is turned on and back off, *BUT* if I open any other file (Word, Excel, whatever) it will still duplex print it. If I open the document it will give me the same series of messages...turned on...turned off. I tried it on all 3 of our networked printers (all 3 are RICOH Aficio 1075 PCL 6) and I get the same results on each printer. If I go to the printer window from the control panel and check the printer's properties it will say that duplex is off but when I reopen anything it will still print it duplexed. Any help would be greatly appreciated...I've been at this for a few days. Ultimately I'd like to use the above code for documents with more than 5 pages so that they automatically duplex print w/o any user interaction. Thanks in advance... Tag: Textbox Changes Tag: 98886
  - 20
    - Space between footnote reference and footnote text Hello, Is there a way to change Word's behaviour so that a non-breaking space is inserted after the footnote reference (between reference and footnote description/text) instead of an ordinary space? Since the footnote format we use is justified the space between footnote reference and text sometimes varies (since word spaces in general varies with justified text). We don't want that. We're ok with varied word spacing in general, but don't want the space between the reference and the text to vary. I suspect I need to rewrite Footnotes.Add somehow but I don't know how to do it. Thanks in advance, Joakim Andersson Sweden Tag: Textbox Changes Tag: 98881
  - 21
    - how do I autostart a word document on disc I'm trying to get a word document to load and run automatically from disc when the disc is inserted into the disck drive. can it be done? Tag: Textbox Changes Tag: 98880
  - 22
    - Resize images in a word document Hello, I have a word document with a number of .RLE files already inserted from an oscilloscope that I would like to resize. Can anybody please give me some code that I could use that would cycle round the images one by one and reduce them to 50% of their starting size? Many thanks in advance. Gary Tag: Textbox Changes Tag: 98878
  - 23
    - avoiding empty lines with bookmarks Hi, I'm new to office macroes, hence the perhaps unlogically workaround suggestion. I have an accounting program (Microsoft C5) that is able to print invoices to a word .dot template. The template has simple bookmarks where the invoice fields should go. But sometimes fields have empty values and the leave a blank line in the document. I would like to able to check for an empty value (or maybe the bookmark is not even created?), so that I can remove the empty line in the creation of the invoice document. How is this best done? I have tried to tie a macro to the .dot bookmark that checks the length of it, but it seems, it is not executed. Also when I look at the created document the bookmarks can't be found. So it seems I can only access the bookmarks in the .dot file? Any hints and help is very much appreciated. Best regards Simon K Tag: Textbox Changes Tag: 98877
  - 24
    - Word Fax to 1 address of Outlook I wonder how difficult is to get an very useful macro listing or addin for the every day duty in small offices. The routine (exactly as outlook have foreseen for E-mails) is: - prepare a comunication for someone using MSWord (fax or letter); - find out his fax number and/or address and insert it in the fax or letter; - save in a draft folder; - print and show it to the boss for his ok; - open the file, make changes, save it as document not to be modified; - print and send it. I have a macro (working with a MS Accessdata base) in this way and I am not able to find somewere the listing for doing the same using outlook address book. Some one has already done something like this? Thank you! -- dilettante Tag: Textbox Changes Tag: 98875
  - 25
    - Fax and letters MSWOrd-MSOutlook Dear Microsoft, I wonder how difficult is to get some useful macro listing or addin for the every day duty in small offices. The routine (exactly as outlook have foreseen for E-mails) is: - prepare a comunication for someone using MSWord (fax or letter); - find out his fax number and/or address and insert it in the fax or letter; - save in a draft folder; - print and show it to the boss for his ok; - open the file, make changes, save it as document not to be modified; - print and send it. I have a macro (working with a MS Accessdata base) in this way and I am not able to find somewere the listing for doing the same using outlook address book. Why not? -- dilettante ---------------- 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=a3a0432a-f65c-4243-8341-8310db86b008&dg=microsoft.public.word.vba.general Tag: Textbox Changes Tag: 98874
- Next
  - 1
    - "Select Encoding that makes your document readable...?????" Hiya I am trying to open a document that I complied for my MSc. I want to copy and paste it into a powerpoint presentation for a job interview I have. For some reason everytime I open it it coes up with the above message and then asks me to select the 'Text Encoding' I have no idea what this means and when I do actually open it all I can see are little square boxes and no text! I tried inserting my Office CD to install something that was missing??? but it didn't work. Please help! Tag: Textbox Changes Tag: 98873
  - 2
    - Form Initialization I want to populate my UserForm with the contents of a document. I would like to have something like what is below. Any ideas? TextBox1.Text = Bookmark "LastName" Tag: Textbox Changes Tag: 98865
  - 3
    - Range start and end in Word footnotes In a Word macrop, I am used to doing Selection.Find, and then doing various things to the found text. I keep track of where I am with Selection.Start and Selection.end, and also such things as ActiveDocument.range(Selection.Start + 5, Selection.End - 1), etc. I now need to do lots of work with very long Footnotes. I can find things by using the Footnotes Story, but Selection.Start and End seem to refer to the main Story, not my selection in the Footnote story. Does this make sense? How can I do the following, but in the footnotes section: Selection.find.execute .... "my text" ActiveDocument.Range(selection.start +2, selection.end -2).select selection.font.italic = true Tag: Textbox Changes Tag: 98850
  - 4
    - why am i getting "object required" error message I tried the following code to try to populate a listbox with spelling errors. I found the code on the web. I am getting an "object required" error at the " For n = 0 To UserForm1.ListBox1.ListCount - 1" line. using word 2003 Sub mySpelling() Dim mySpellingError Dim n As Long Dim myFlag As Boolean For Each mySpellingError In ActiveDocument.Range.SpellingErrors myFlag = False For n = 0 To UserForm1.ListBox1.ListCount - 1 If UserForm1.ListBox1.List(n) = mySpellingError.Text Then myFlag = True Next If myFlag = False Then UserForm1.ListBox1.AddItem mySpellingError.Text End If Next UserForm1.Show End Sub Thanks for any help Tag: Textbox Changes Tag: 98849
  - 5
    - MID function no longer working in Word 2003 macro We have a number of macros we've developed over the years and some of them have suddenly quit working on some machines. All our machines run Windows XP and Office 2003, but we've narrowed the problem down to only those machines which were 'built fresh' with Office 2003-the others started with Office 2000 & were upgraded to 2003. By comparing the machines on which it works to those on which it doesn't it appears the problem is a missing reference to the Microsoft Common Controls 2 but the problem appears with the Mid function. I find it hard to believe that the Mid function comes from the Common Controls 2-it's simply too basic a function. I can believe that it's part of the move to .Net, which replaces the Mid function with a .Substring method, but so far I haven't found a Substring method/function/whatever in Word VBA. Am I missing something? Tag: Textbox Changes Tag: 98844
  - 6
    - Writing automation clients for versions of Office including 2007 I have code that binds to the PIA for Word 2000 that I need to keep running. One of my clients wants to upgrade to 2007 and I would like to make the same code work for both. All of the kb articles I have read imply this should be OK as long as I use the earlier references, but they only discuss the versions from 97 to 2003. When I try to use the code with 2007 I get IEHExceptions. Am I missing some documentation? or can anyone advise me whether what I want to do is possible (and give me a clues as to how to do it!) Thanks Tag: Textbox Changes Tag: 98843
  - 7
    - Change Word page numbers into foreign language numerals. I have a document in Word created with Ethiopian language fonts. I would like to change the page numbers into Ethiopian numerals. All the numbers in the manuscript are between 1-2000. I can build a look uo table. Is there a way to serach for page numbers and replace them with the character's in the look up table?? Tag: Textbox Changes Tag: 98842
  - 8
    - subtracting one month from current month to display month name w/ From this forum, I was able to find a script that will subtract one month from the current date for a "date field" in my document. Script: {QUOTE} {SET Delay 4} {SET m{ =mod({ DATE \@ MM } -Delay +11,12) +1}} {SET y{=INT({ DATE \@yyyy} + (Delay + { DATE \@ M } -1) /12 }} "{ m }-{ y}" \@ "MMMM yyyy"} The script works, but I do not understand what exactly line 3, the "SET M" is doing at the part of "11,12) +1. I understand it takes current month and subtracts 4 months in my example, but then what is the +11,12) +1 doing? My second problem is, as in this example, I am subtracting four months, which should give me, December 2006 - instead, I get December 2007. The year does not calculate based on the month. Although, when I test adding 23 months, versus subtracting 4 months, then my year adjusts correctly; it's somewhere in the subtracting that I'm having an issue with. All I need/want is to subtract one month from the current month, but if that month is January, the year needs to adjust as well. Any clarification on this script would be appreciated! Diane Tag: Textbox Changes Tag: 98840
  - 9
    - Word 2003 VB IDE & VB2005 I've noticed some syntax difference. What are the major differences between Visual Basic in VB2005 and VB in Office 2003? -- Chris Hayes Still a beginner (only 12 years) Tag: Textbox Changes Tag: 98839
  - 10
    - Word 2007 board? For the most part, Word 2007 questions seem not to be answered on this vba board. Is there a specialty board for such questions? I have tried to find one, but haven't been successful. Thanks. Ed (in Virginia) Tag: Textbox Changes Tag: 98836
  - 11
    - list box sorting I have a listbox in a user form that is populated by records from and ACCESS table How can I get that lisbox to display the records alphabetically? I want to be able to select an entry. What is the way to get the listbox to respond similarly to the fill in bars you often see with many form fields that you fill in that will show you the matching choices (eg the address bar in IE) Thank you in advance Tag: Textbox Changes Tag: 98834
  - 12
    - Enter key doesn't work Hello All, I am unsure if this is the correct newsgroup for this question so I have cross-posted to vba.general and to application.errors. My apologies if that is inappropriate. I created a template in Word 2003 and when I type in the document, the Enter key doesn't do anything. At all. * I am using Word 2003 on a WinXP Pro SP2 system w/ 2 GB RAM. * I have not assigned any macros, AutoText, styles, or anything to the Enter key and I am not using KeyBinding in my VBA code. * I am intercepting some Word commands but I can't believe they have anything to do with it. I am intercepting: - FileSave - FileSaveAs - DecreaseIndent - IncreaseIndent - NextCell - PrevCell * I did use KeyBinding in a previous incarnation of the template before I remembered I could trap the ...Indent and ...Cell commands. That keybinding did play with the Enter key. But after I removed the Keybinding code, I took another precaution and started a new document and imported the "Word Command" code module, which was wholly separate from the "KeyBinding" module. * The Enter key works as expected in other documents. Does anyone have an idea of what might be wrong? This is really perplexing me and I am frustrated beyond measure. Any insight is most appreciated. Thanks, - Jeff Tag: Textbox Changes Tag: 98822
  - 13
    - Using Word 2003 template toolbars in Word 2007 I have a large number of Word 2003 templates with VBA dialog boxes and their own toolbars. The dialog boxes work perfectly in Word 2007, but how about the toolbars? Do I need to add the commands I had on the 2003 onto the Quick Access 2007 toolbar for each template? Thanks... -- CR Tag: Textbox Changes Tag: 98819
  - 14
    - Conditional Find / Replace Challenge Hi, I need to know how I can search a whole document to replace every \^p (backslash and paragraph return), EXCEPT if it is immediately followed by 5 numbers, 1 letter, and a pipe character (|). Is this possible? Thank you. Tag: Textbox Changes Tag: 98818
  - 15
    - How do you save autocorrect inputs? When you re-install office, all autocorrect inputs of previous installation hve been destroyed. If you have a lot of inputs, you will have a big problem. If you can save them in a file similiar to normal.dot(for example correct.dot), then you save it on a floppy before uninstall previous office. Tag: Textbox Changes Tag: 98814
  - 16
    - How do you save autocorrect inputs? When you re-install office, all autocorrect inputs of previous installation hve been destroyed. If you have a lot of inputs, you will have a big problem. If you can save them in a file similiar to normal.dot(for example correct.dot), then you save it on a floppy before uninstall previous office. Tag: Textbox Changes Tag: 98813
  - 17
    - How can I run a macro on a protected Word document Hi Experts, I am writing a TCL application using tcom which opens up a number of word documents, unlinks some fields in them and then zips them up. These documents are protected before they reach me, so when I try to call the Run Macro method from TCL, i get the error that says "Macro cannot run on protected document" I am new to Word and VB and tcom. Any ideas on how to unprotect the document first using tcl? Or is there a way to use a password to unprotect the document before running the macro? Any help appreciated Newbie :) Tag: Textbox Changes Tag: 98808
  - 18
    - Copy whole document Hi, Thanks Perry the API now works. When I now use the following after the document has opened, objword.selection.homekey unit:-wdstory selection.extend 'copy to clipbpoard selection.copy 'can close document now as copied set objword=nothing I am getting the message Object doesn't support this property or method Any reason as to the possible cause? What i'm trying to do is open a document, copy the contents, open a second document and paste the contents to it. Thanks -- Best Regards Bill Tag: Textbox Changes Tag: 98807
  - 19
    - Shape size I have the following macro that draws a horizontal line in my document relative to where the cursor is in the document. I need to go back into all the documents and make my line shorter. Is there a way to write a macro to go through my document and find each line and make it shorter? I need to change the 499 to 524. Sub hLine1() Dim oFFline As Shape Dim i On Error GoTo Endthis i = Selection.Information(wdVerticalPositionRelativeToPage) Set oFFline = ActiveDocument.Shapes.AddLine(554, i + 12, 499, i + 12) oFFline.Name = "hline" & idx idx = idx + 1 Endthis: End Sub Tag: Textbox Changes Tag: 98806
  - 20
    - Word doc with XML & WML loosing formatting Hi all, I'm working with a team that is taking information from a document, by getting the contents of the XML element that represents part of the document, and putting it in to a text dialog box for the user to edit. The doc is protected. Problem is when they go to put the information back into the word doc by pushing it through a WML transofrm all formatting, fonts, carriage returns etc are lost. How can we persist the formatting from the doc, to the control and back into the doc? Any help would be greatly appreciated!! Thanks! Jeff Tag: Textbox Changes Tag: 98798
  - 21
    - Search via Windows API via VBA to add a file to a macro to open Hi, I've used a program (copied and pasted it from a Microsoft recommended site) with the use of the windows API to sellect an excel spreadsheet, get is path, with success, when I use the same, to open a word document it gives me a 'Bad file name error. Is there a way to use the explorer to find a word document so that it can be used in and expression like, Set objDocs = objWord.Documents.Add(strwordTemplate) where strwordTemplate is the path to the document. -- Regards Bill Tag: Textbox Changes Tag: 98790
  - 22
    - Font Change in Word Macro I tried the information already listed bu kept getting debut errors -- I am self taught sorry. I need to force documents to merge but keep getting stray Times Roman font intermittently and want to include line in my merge macro, to find any isntances of TRmn and force it to change over to Arial. ( The Normal.dot is in Arial) If someone could help me with acrtual macro string for this please? Thanks.. Tag: Textbox Changes Tag: 98789
  - 23
    - make a word and following period bold Hi, I am formatting a glossary that has over 500 entries. I have to select the first word and period in each entry and make it bold. (the word and period is followed by the definition in sentence form). Is there a way to do a find/replace for this? Or a macro I could use? I could do a find/replace from each paragraph mark to the next period and make that bold, but I couldn't get it to work. Thanks! Tag: Textbox Changes Tag: 98784
  - 24
    - Theme Colors/Long values Does anyone know how to covert the Word2007 theme color values to corresponding long values? Here is a simplified example of the problem. If you set the shading of a table cell or row using a theme color, a standard color, or a custom color (the choices available in the shading dialog) you set a color value (I think it is 24 bit) to the cell range. Using a the following line of code if the value was set to a Theme Color the number is always a negative value. If set to a standard color or custom color the return is a long value. Msgbox Selection.Cells(1).Shading.BackgroundColorPattern I created a blank user form and with this code: Private Sub UserForm_Click() Unload Me End Sub Private Sub UserForm_Initialize() Dim oRow As Row Set oRow = ActiveDocument.Tables(1).Rows(1) Me.BackColor = oRow.Shading.BackgroundPatternColor End Sub The intent is to set a UserForm control back color to match the shading in a table row. This code works perfectly in Word2003 and in 2007 provided I don't apply a theme color as the shading. As soon as I do, the Userform initialize code fails. I know why it fails but I am looking for a way to convert a theme color value to a corresponding long value. Any ideas? Tag: Textbox Changes Tag: 98776
  - 25
    - search and replace need assistance hello I am a novice so please bear with me...in a nutshell i am trying to auto launch the search/replace dialog box in Word with the find text already filled in. I think i am close but when i click replace all (without filling in the replace with text box) and then close i receive runtime error 5524. Any help would be greatly appreciated. I have included the code which may or may not be helpful. thanks in advance. Sub autoopen() MsgBox "When prompted please type the application name into the find/replace window" Call jenmacrolaunch End Sub Sub jenmacrolaunch() ' ' Macro1 Macro ' Macro recorded 4/5/2007 by Jennifer ' Dialogs(wdDialogEditReplace).Show Call jenmacro End Sub Sub jenmacro() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "appname" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Tag: Textbox Changes Tag: 98775

Hello,

This is only my second time posting here and I'm pretty new with this so
bare with me.

I have a userform which a user opens that contains different text boxes
linked back to bookmarked - cells in a table. It works fine except when I
track changes it highlights the whole entire bookmarked area and says it was
deleted. When I "accept all changes" only deletes the words/characters I
originaly deleted. The problems is when other users go in to review it looks
like very thing is going to be deleted. The code im using for the textboxes
is below and I've tried the that turns track changes on or off but it still
does the same thing.

Private Sub Summary1()
Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range
ROBP_Sum.Text = BMRange.Text
End Sub

Private Sub ROBP_Sum_Change()
Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range
BMRange.Text = ROBP_Sum.Text
ActiveDocument.Bookmarks.Add "SummaryOfBP", BMRange
ActiveDocument.TrackRevisions = True
End Sub

Thank you for your help,

Ben Z.

Top

RE: Textbox Changes by oldman

oldman
Thu Apr 12 18:14:07 CDT 2007

If you want to accept all revisions through VBA try this (after moving text
from bookmarks to textbox or back:)

activedocument.Revisions.AcceptAll

old man

"Benz" wrote:

> Hello,
>
> This is only my second time posting here and I'm pretty new with this so
> bare with me.
>
> I have a userform which a user opens that contains different text boxes
> linked back to bookmarked - cells in a table. It works fine except when I
> track changes it highlights the whole entire bookmarked area and says it was
> deleted. When I "accept all changes" only deletes the words/characters I
> originaly deleted. The problems is when other users go in to review it looks
> like very thing is going to be deleted. The code im using for the textboxes
> is below and I've tried the that turns track changes on or off but it still
> does the same thing.
>
>
>
> Private Sub Summary1()
> Dim BMRange As Range
> Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range
> ROBP_Sum.Text = BMRange.Text
> End Sub
>
> Private Sub ROBP_Sum_Change()
> Dim BMRange As Range
> Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range
> BMRange.Text = ROBP_Sum.Text
> ActiveDocument.Bookmarks.Add "SummaryOfBP", BMRange
> ActiveDocument.TrackRevisions = True
> End Sub
>
>
> Thank you for your help,
>
> Ben Z.

Top