Updating text fields from a Userform

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - identifying .wmf image Hi all Relisted as I previously accidently put this in the wrong forum. Is there any way in VBA to scan a document and indentify the various image file types in the doc. I am wanting to do this so that I can carry various tasks on various files types. For instance:- Resize all the .WMF images Move the inlineshape type images Etc etc Anyone reckon this is possible? As basic reply as possible please as I am not strong in programming Many thanks Tag: Updating text fields from a Userform Tag: 89322
  - 2
    - Control Toolbox Controls in Documents I am stumgling in the dark trying learn something to help a poster. I have a Word document with some controls entered in the document using the Control Toolbox. Specifically I have some options buttons named Pass1 through Pass4. I can run Sub Test1() to return the caption of Pass1. I can further specifically (and I don't know if it is right or not) declare the variable as a MSForms.OptionsButton and get the result using Sub Test2(). What I can't figure out is how to cycle through each control in the document and determine the caption. It seems that there is no: For each Ct in Me.Controls or Me.MSForms.OptionButtons or Me.Anything that will work. Can anyone help or confirm the quest is hopeless. Thanks. Sub Test1() Dim Ct Set Ct = Me.Pass1 MsgBox Ct.Caption End Sub Sub Test2() Dim Ct As MSForms.OptionButton Set Ct = Me.Pass1 MsgBox Ct.Caption End Sub Sub Test3() Dim Ct As MSForms.OptionButton For Each Ct In Me (what would go here to get name of each OptionButton in the form). MsgBox Ct.Caption Next End Sub Tag: Updating text fields from a Userform Tag: 89321
  - 3
    - Install project HI all, I have just spend 2 hours scanning the NG for info on this. A lot of people seem to praise InnoSetup. So I downloaded it and read the FAQ and some script examples. The main problem I see is that these software are designed to install executable files in (normally) the "Program Files" folder and also provide an uninstall mechanism, both of which are unnecessary when installing templates. I cannot figure out how to tell it to install my templates in the current user Workgroup Templates location (read from the registry?) and to make sure that some of the templates stay hidden once they are installed. (One template is used to invoke the other, and another one is not a template but a database, so they need to be hidden.). I need to make a deployment package for some very inept users who cannot be trusted to follow installation instructions. While I could create a Word file with autoexecuting code that would act as an installation mechanism (this would still require distributing 4 documents instead of one single installation package), it thought I might try to use a "real" install tool so as to look more professional. I also looked at VS 2003, it seemed way too complicated for such a simple install. I would really appreciate it if anybody can give some pointers on InnoSetup (Or any other installation software). -- Salut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Tag: Updating text fields from a Userform Tag: 89317
  - 4
    - Macro to convert Word to PDf and store in certain location I have a user looking to create a macro that would convert a word 2003 document to adobe 7 PDF document, save that document to a specific folder on the server. Plus and this is what I am struggling with, they want it done with out any pop ups for the user to have to answer. Any ideas. Thanks ahead of time Barbara Tag: Updating text fields from a Userform Tag: 89316
  - 5
    - Display status bar message from template in startup folder I have created a template in my Word Startup folder that allows me to remap the numpad decimal point to a comma (courtesy of the thread at http://tinyurl.com/ogwsp). I have also created toolbar buttons to assign and unassign on demand rather than on startup. There is a part of the code in this module to put a message on the status bar to notify the user that the numpad decimal has been remapped. This works when I have the template open, but does not seem to work when I have another document open. Also, I'm assuming i do not need the ThisDocument.Saved = True line in there for it to work, but I threw it in anyway since it was there. I'd like to get rid of it if I can. My code, as taken from the above noted thread, is as follows: Option Explicit Sub AssignNumpadPeriodToComma() CustomizationContext = NormalTemplate KeyBindings.Add KeyCategory:=wdKeyCategoryMacro, _ KeyCode:=BuildKeyCode(wdKeyNumericDecimal), _ Command:="TypeAComma" ThisDocument.Saved = True StatusBar = "Custom key assignment loaded by MyKeys.dot " & _ "in the Word Startup folder." End Sub Sub TypeAComma() Selection.TypeText "," End Sub Sub UnassignNumpadPeriodToComma() FindKey(BuildKeyCode(wdKeyNumericDecimal)).Clear End Sub Thanks. Tag: Updating text fields from a Userform Tag: 89315
  - 6
    - count the value of Optionbox in a table I have a table with 5 columns Step Action Expected Results Pass Fail in the pass fail columns there are option boxes. I want to count the number of passes and the number of fails to total them with out counted every cell. Hopefully there is a loop i can use. Tag: Updating text fields from a Userform Tag: 89312
  - 7
    - Import data from access into a table Ok i would like to import data from an access database table into a table in a microsoft word file. The table is already created and i would to just insert the data into that table. Here is the tricky part: each record should have a new table. The table created is a template for how all the tables should look. Is there a way to to have it so that a new table is copied from the template and the data is inserted into it. Or will i have to create a table for each record on my own. I was given some sample code to use with it and would like to know if it is correct, and also some tips to go about using it. The source of my code was not sure if the code for the table was correct, and also i would assume that cell(#,#) is (row,column). Sub GetDataFromDataBase() 'allocate memory for the database object as a whole and for the active record Dim myDataBase As Database Dim myActiveRecord As Recordset 'Open a database Set myDataBase = OpenDatabase("C:\DataBaseFolder\Database.mdb") 'Access the first record from a particular table Set myActiveRecord = myDataBase.OpenRecordset("Table_1", dbOpenForwardOnly) 'Loop through all the records in the table until the end-of-file marker is reached Do While Not myActiveRecord.EOF 'If field #1 contains a non-zero value, 'insert the value of field #2 into the document 'after the current cursor or selection location If myActiveRecord.Fields("Field_1") <> 0 Then 'this will put the data after the cursor, you have to set it up so that it goes in the correct field in your table, if you want it in a table, i believe it's selection.tables(#).cell(#,#) selection.tables(#).cell(#,#) myActiveRecord.Fields("Field_2") End If 'access the next record myActiveRecord.MoveNext Loop 'Then close the database myActiveRecord.Close myDataBase.Close End Sub Thank you for any help that you can give. Tag: Updating text fields from a Userform Tag: 89311
  - 8
    - How do I enable 'Set' in Tab Leader I would like to set a tab leader but the set option is grayed. Tag: Updating text fields from a Userform Tag: 89309
  - 9
    - how can I make a doc. in word with option buttons Does anyone know how I can make option buttons in a word document and make it to where they have to be answered, I believe it may involve macros, but I know nothing about macros. Tag: Updating text fields from a Userform Tag: 89300
  - 10
    - Word to PDF without print driver Hello! It's great that new Word 2007 will have "Publish to PDF" add-in, which creates PDF files *without using printer driver*. Currently I use FinePrint pdfFactory to convert .doc files to PDF, but it is implemented as "virtual printer" driver. http://www.fineprint.com/ Similar solution is free PDFCreator http://en.wikipedia.org/wiki/PDFCreator Is there an add-in that enables to save Word files as PDF for older versions of Word (2000/XP/2003), that does not rely on printer driver? BTW, it seems that "Publish to PDF" functionality will be implemented as additional download&install http://msdn2.microsoft.com/en-us/library/ms406051.aspx Also I would like to know, since Open XML support ( and ODF support, that will base on Open XML awareness) will be added to older Word version ), http://www.microsoft.com/office/preview/beta/converter.mspx http://blogs.msdn.com/brian_jones/archive/2006/07/05/657510.aspx [quote] The Open XML formats that are going to be the default in Office 2007 are going to be the most important in my mind. It's the Open XML formats that allow us to build the ODF support (and will open doors to a number of other formats as well). The PDF and XPS functionality would be another example of new formats we're providing this release. [/quote] whether PDF support will be added to Word XP/2003 Thanks, Roman Tag: Updating text fields from a Userform Tag: 89291
  - 11
    - Word 2003 - Automating Letter Template I have a letter template, complete with fillin fields for name/address, subject, salutation etc which all works fine. When it comes to completing the body of the letter, I'd prefer NOT to use a fillin field, but to perhaps automatically move the cursor to the correct point once all fillin fields have been completed. Is there another field I could use, perhaps witha bookmark? Any suggestion gratefully accepted. TIA Amanda Tag: Updating text fields from a Userform Tag: 89285
  - 12
    - Changing font for unicode characters Hi, I had a problem in MS Word that started off from the Equation Editor. Somehow some of my definitions for font styles seemed to be reset and I (apparently) mistakenly thought that I had set Palatino Linotype as the font for _everything_, but actually I discovered that I only get correct rendering if "Symbol" is set to the Symbol font. Otherwise minus sign (or "en dash"), "identical to" and other characters come out 'wrong'. You can play around with this if you're interested, but it's more by way of background to my actual question. I wondered why the "identical to" character (Unicode 2261 [HEX]) wasn't rendering correctly in Equation Editor with "Symbol" is set to the Palatino Linotype font. I decided to investigate the rendering of the font in the body of the document in a variety of fonts ...in fact, _every_ installed font. Therefore I created and ran the following macro: Sub macro2() For Each afont In FontNames Selection.Font.Name = afont Selection.InsertAfter "2261" Selection.ToggleCharacterCode Selection.InsertAfter " " & afont & vbCr Selection.EndKey Unit:=wdStory Next afont End Sub This should run fine for you provided your security settings are apropriately configured. It is not convenient to reproduce the output, as it spans several pages, but I found that the results were not as expected. For example, for what should have been Palatino Linotype, the "identical to" character was rendered in Arial Unicode MS. As I watched the Selection.Font as the code was stepped through, I noticed that discrepancies arose between Selection.Font.Name Selection.Font.NameAscii Selection.Font.NameBi Selection.Font.NameFarEast and Selection.Font.Name.Other Is this an application 'feature', a known MS bug, an unknown MS bug, or is _my_ code buggy? Thanks for your comments, DIV Versions: Equation Editor: 3.1 Word: 11.8026.8028 SP2 XP: 5.1.2600 SP2 Tag: Updating text fields from a Userform Tag: 89275
  - 13
    - transparencia como devo proceder para fazer uma transparencia? e cartao de visitas Tag: Updating text fields from a Userform Tag: 89272
  - 14
    - How can I tell if my file has been saved already? I have a template, with fill-in form fields. I have a working macro to 'SaveAs' the document as it exits a particular form field. But I want to execute the SaveAs macro only if it's a new document and has not been saved before. Is there a way to set up an if statement to tell if the file is new or has been saved already? Thanks, Ruth Tag: Updating text fields from a Userform Tag: 89269
  - 15
    - How about a Moderator to get rid of the non-computer "junk" posts How about a moderator to get rid of the non-computer related posts (i.e. Dogs in China, A Good Sexy Hotline, etc.)? Brendan ---------------- 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=8a1b9656-8ae0-4855-bb38-1549b3174558&dg=microsoft.public.word.vba.general Tag: Updating text fields from a Userform Tag: 89266
  - 16
    - =?Utf-8?Q?How_to_change_security_settings_?= I have to deploy a template to over 30 computers with some of the computers having different users (Running Windows 2000). The problem is that each user has to change their security setting from High to Medium to run the template. Is there a way to simplify this (ie. modify one normal.dot file and deploy it to all the computers via the network so each user does not have to manually change their setting)? Or is this security setting housed somewhere else? Tag: Updating text fields from a Userform Tag: 89265
  - 17
    - Approval VBA Macro We have documents that need to go through a formal approval process. Without getting into workflow, etc..., I just need a simple macro that will grab the currently logged on userid along with the date/time stamp. I'm a novice vba user and have done some vba stuff in Excel. Actually, I was able to do this in Excel by creating a control box and when the user clicked either Yes or No, their username and the date/time stamp appeared next to the check box. Oh, in Excel I have two checkboxes, one for yes and one for no. If they change their mind and uncheck the box then their username and date/time disappear. I need this same functionality in Word as well as to have these "approval" fields locked after it is accepted or rejected (for auditing purposes). I have found some Word code but it makes no sense to me because unlike Excel there are no cell, sheet, etc... references. I would appreciate any help I can get on this. Thanks! Randy Tag: Updating text fields from a Userform Tag: 89264
  - 18
    - Trying to copy formatted text _without_ Style? I get documents with a mish-mash of styles and formatting applied directly to the text. I am wondering if there is some way I could copy all of the text and any direct formatting over into a new doc based on my own template, but not any styles. I tried FormattedText in VBA, but the style came into the new document with the text - so did Edit>>Paste Special>>RTF. I'm beginning to think I would need to crawl through every word of every paragraph, capture any formatting applied in an array, paste the text over as unformatted, then read the paragraph word by word and apply any formatting in the array. Is there an easier way? Ed Tag: Updating text fields from a Userform Tag: 89263
  - 19
    - security - read-only recommended Hello, Through VB and the Word object model is it possible to un-select the tools > options > security > Read-only recommended check box? thanks Tag: Updating text fields from a Userform Tag: 89262
  - 20
    - OCX Form Field Collection Form fields inserted into a document from the Forms toolbar can be accessed by ActiveDocument.FormFields("formfieldname"). This does not work for fields inserted into the same document from the Control Toolbox. In a Userform, you can use the Controls collection but I can't figure out how to access the fields inserted from the Controls Toolbox. I want to write a construct like: For each ctl in Controls... Is there a way to do this? Thanks, Peter Tag: Updating text fields from a Userform Tag: 89261
  - 21
    - Problem with FormattedText Doing a mailmerge from Excel with Word automation. I am altering a document and then doing SaveAs. This runs in a loop and after doing SaveAs I need the original document to do the same again. Rather than closing and reopening this document I prefer to keep the text + formatting in a range variable and putting that back. Only reason for this is that is quicker. This is the simplified code I have: Dim wd As Object 'need to add Word here as there also is a DAO Document! Dim Doc As Word.Document Dim rngAllText As Word.Range Set wd = CreateObject("Word.Application") Set Doc = wd.Documents.Open(strLetterDoc) Set rngAllText = Doc.Content.FormattedText.Duplicate 'alter the document here 'do SaveAs here Doc.Content.FormattedText = rngAllText At this line line I get error 5937: Cannot copy content between these 2 ranges. Thanks for any advice in this. RBS Tag: Updating text fields from a Userform Tag: 89259
  - 22
    - How to write a smart document How to create a Smart Document How to use XML in it How to certify XML file Tag: Updating text fields from a Userform Tag: 89258
  - 23
    - *.dot won't run a "Document_Open" Macro when opened from Netwrk Se I have a *.dot file that is setup on our network server for users to access. The document opens fine but I need to force open a User Form (UserForm1) as soon as the template opens. Additionally, if I run the template from my local machine I can get the User Form to open via the below code. Private Sub Document_Open() Application.Run MacroName:="goPCDFiller" End Sub (1) What code to I need to execute to get the template to open the User form when it is deployed on a network server? (2) Also, is there a code available that forces open WORD to view/run the template because many of our users have â??Quick View Plusâ?? installed (which is fine) but it takes over the *.doc and *.dot files when the user tries to open one of them. Tag: Updating text fields from a Userform Tag: 89257
  - 24
    - Word 2007: Binding customXML to Content Control Hi I have been trying to get my own XML file working with Content Controls. But I can not find a way to define the x-path binding to my xml. I will be very happy if any of you can give me a hint on how to define the mapping (from within word 2007 - beta 2). Best Regards, Kaj Bromose Tag: Updating text fields from a Userform Tag: 89256
  - 25
    - Printing Forms from Macros I have created some protected forms for users but I also have a customized printing menu. This enables the users to print to different paper trays (we have several) easily without having to go CTRl P change the paper type and remember which tray is which each time. My printing menu lists the paper trays by type. How can I get the Printing macros to print the protected forms. If I try at the moment I get Run-time Error 4605. Any help would be greatly appreciated. JayM Tag: Updating text fields from a Userform Tag: 89249
- Next
  - 1
    - Interacting with oracle DB from VBA without Oracle Client on PC? Hi all, I noticed that their are some solutions for VB.NET to connect to an Oracle Database without having an Oracle client on your PC (for eample Core Lab's OraDirect .Net Dataprovider). Installing and maintainig Oracle clients is considered to be a pain (various Database versions require different clients) and is avoided by using more and more web based applications from Oracle. Only for Word VBA stuff I need an oracle client to be present on all machines. I was wondering if anyone has ever tried this from VBA as I would love to get rid of the Oracle client. Kind regards, rVo Tag: Updating text fields from a Userform Tag: 89245
  - 2
    - problems with the word-exel comand Hi, I have a file that first save each one of the words of a document, after that, it paste the words in an excel file and then counts and deletes the repeated words, my problem is in the exl.sort command, the program breaks when it arrives to the sort procedure of excel, I attached the code, please help Sub Macro1() Dim arr1() cntr1 = 0 a = ActiveDocument.Characters.Count For n = 1 To a If ActiveDocument.Characters(n).Text = " " Then cntr1 = cntr1 + 1 ReDim Preserve arr1(cntr1) arr1(cntr1) = word1 letter1 = Empty word1 = Empty Else letter1 = ActiveDocument.Characters(n).Text word1 = word1 + letter1 End If Next Set exl = CreateObject("excel.Application") exl.workbooks.Add exl.Visible = True exl.Cells(1, 1).Select cntr3 = 1 For cntr3 = 1 To UBound(arr1) exl.Cells(cntr3 + 1, 1) = arr1(cntr3) Next exl.Columns("A:A").Select â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??The program breaks here exl.Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??The program breaks here For b = 2 To UBound(arr1) cntr12 = 1 For C = 2 To UBound(arr1) If exl.activesheet.Cells(b, 1) = exl.activesheet.Cells(C, 1) And b <> C Then exl.Rows(C).Delete C = C - 1 cntr12 = cntr12 + 1 If exl.Cells(C, 1) = Empty Then GoTo endsub End If End If Next exl.Cells(b, 2) = cntr12 Next exl.Range("A1") = "Word" exl.Range("B1") = "Counter" exl.Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal endsub: End Sub thanks Tag: Updating text fields from a Userform Tag: 89244
  - 3
    - reformating a string... Hello, I have a word document that looks as follows: {"word1 / word1a"}, {"word2 / word2a"}, {"word3 / word3a"}, ..... {"word1000 / word1000a"} What I need to do is remove the '/ wordxa' from the document so it looks like this: {"word1"}, {"word2"}, {"word3"}, ..... {"word1000"} Any help would be appreciated. Thanks, RABMissouri2006 Tag: Updating text fields from a Userform Tag: 89239
  - 4
    - Adding watermark to every page Hi all, I have a bit of a panic on the go here and would like to ask for assistance. Can anyone suggest how I could programmatically (using VBA) add a watermark to every page in every section in a 10 to 20 page word doc? I want to add the word "COPY". I thought maybe I could add a specific sized textbox with hidden borders, containing COPY in large pale grey font colour (maybe running vertically in the textbox). Then set the textbox to appear behind the normal text. How on earth I would go about that, I dont have the faintest idea. Anyone prepared to offer help or suggest an alternative method? Unfortunately I dont have enough time to try and fubble around for days on end like I isually do. Any help or suggested code would be greatly appreciated. Many thanks Gem_man Tag: Updating text fields from a Userform Tag: 89236
  - 5
    - VBA Reading a Word Document's Form Field into a User Form Text Box How do I grab the value from an Form Field in an active document and then place that value into a User Form that has a corresponding text box. I thought it would be something like this but I canâ??t seem to get it to work. Private Sub UserForm1_Initialize() Me.tbLastFirstMiddle.Value = ActiveDocument.FormFields("docLastFirstMiddle") End Sub Tag: Updating text fields from a Userform Tag: 89232
  - 6
    - Header/Footer not protected in form Hello, I have a document template protected for forms. When the user creates a new document based on the template, they can click on the header. This switches them from page layout view to normal view and creates a header pane at the bottom of the document to allow the user to edit the header. This is not what I want. I don't want the users to be able to touch the header in any way. The reason I need a header is that the form fields are in table rows and can expand, causing the document to end up with more pages than the template it was based on. Any help would be appreciated. Thanks! Tag: Updating text fields from a Userform Tag: 89225
  - 7
    - printing to multiple printers with macro? Is there a macro that I could write that could print a MS word file to one printer, and then also print it to another printer . Both printers are remote / network printers Tag: Updating text fields from a Userform Tag: 89216
  - 8
    - Hiding text based on custom document property Good afternoon, all, I am trying to show/hide text based on a custom document property, Audience. When my document opens, a form appears with three options, All, Agency, and Program Office. Here is the code behind the form button's onClick event: Private Sub cmdOpen_Click() Dim st As style If Me.Controls("optAll").Value Then ActiveDocument.CustomDocumentProperties("Audience").Value = "All" ElseIf Me.Controls("optAgency").Value Then ActiveDocument.CustomDocumentProperties("Audience").Value = "Agency" Else ActiveDocument.CustomDocumentProperties("Audience").Value = "ProgramOffice" End If If Me.Controls("optAll").Value Then For Each st In ActiveDocument.Styles If InStr(st.NameLocal, "Agency") > 0 Then st.Font.Color = wdColorBrightGreen st.Font.Hidden = False ElseIf InStr(st.NameLocal, "ProgramOffice") > 0 Then st.Font.Color = wdColorRed st.Font.Hidden = False End If Next Else For Each st In ActiveDocument.Styles st.Font.Color = wdColorAutomatic If InStr(st.NameLocal, "Agency") > 0 Then st.Font.Hidden = Not Me.Controls("optAgency").Value ElseIf InStr(st.NameLocal, "ProgramOffice") > 0 Then st.Font.Hidden = Not Me.Controls("optProgramOffice").Value End If Next st End If ActiveWindow.View.ShowHiddenText = False frmAudience.hide End Sub So...first I set the custom document property. If the user chooses the option labelled All (which I would do when I am creating this manual) I want to show all styles, with any style containing the word 'Agency' in its name showing as bright green text and any style with ProgramOffice showing as red. If the user choosed the option labelled "Agency" I want only the styles containing 'Agency' to show, and have all styles containing 'ProgramOffice' to be hidden. So, I set the Hidden property of all the styles containing Agency to the opposite of the option control. In other words, if Agency was selected, then Me.Controls("optAgency").Value will be true, and I want the font for the styles containing 'Agency' to have a hidden property of false. The problem is that after running the lines that assign the value to st.Font.hidden, st.Font.hidden equals -1. I found one posting that I didn't really understand, but it seemed to say that this was because the style was a paragraph style. So, can I do what I want? If so, what am I missing? Any ideas, resources, references would be greatly appreciated. Thanks, Kathryn Tag: Updating text fields from a Userform Tag: 89212
  - 9
    - VBA into already created table(s) in a Header or Footer MS Word - VBA into Header or Footer (and into a table in the same) Is there a way to allow gain access to a header or footer in Word via VBA? I have a one page form full of tables (Page 1) and the narrative begins on Page 2. There is a header and footer on page 2 and subsequent pages (but not on page 1). The header and footer have tables and I need to be able to bookmark the tables somehow and copy certain data from page 1 to this header and footer. As I see it, there are two ways to do it: #1 Use a VBA â??prompt boxâ?? (UserForm) for the data to be captured and force the data into the header for footer as well as certain fields on Page 1. OR #2 Have a macro run on a Text Form Field "EXIT" which automatically COPIES and PASTES data from Page 1 to the header & footer on Page 2 I have tried where â??tblLastFirstMiddleâ?? is the Form Text Field / Bookmark and vLastFirstMiddle is the text box control on VBA UserForm. ActiveDocument.FormFields("tblLastFirstMiddle").Result = vLastFirstMiddle.Value This works fine for Page 1 but I have yet to be able to (1) manually place a bookmark / text form field in an already created header or footer and (2) call that bookmark in the header or footer and (3) Copy and Paste the data into it. Any suggestions? Tag: Updating text fields from a Userform Tag: 89210
  - 10
    - lost my office disk i con't open work downloads. what to do lost my office disk i con't open work downloads. what to do Tag: Updating text fields from a Userform Tag: 89202
  - 11
    - Form Field Entry & Exit Macro drop-down list Does anyone know where the list of macros is taken from for the entry and exit macro for form fields? I am building a form and have added a textbox. I want to execute a macro on exit. When I click on the drop-down list associated with the exit macro on the Text Form Field Options dialog box, the only macros I see are ones in my Normal.dot file. I want to select a macro I have written in the form which has been saved as a .dot file. Thanks! Peter Tag: Updating text fields from a Userform Tag: 89193
  - 12
    - HOWTO Keep original document name after a forced SaveAs. HOWTO Keep original document name after a forced SaveAs. Please help, I have script to force the current document to be saved using the ThisDocument.SaveAs method. After I invoke the SaveAs, the "Name" of the document changes from whatever it was to the path name I give in the "SaveAs" call. I want the name to go back to the original name, but the ThisDocument.Name property is read only, and won't let me change it back. How can one do this? Is there a way to change the name back? Is there perhaps a way the "ThisDocument" can be copied to a dummy document, then the dummy saved via SaveAs and then destroyed without any GUI? Tag: Updating text fields from a Userform Tag: 89192
  - 13
    - RegEx Range.Text object corrupting embedded footnotes I have a macro which processes text using Regular Expressions (to find run-in heads in paragraphs). It seems that regular expressions will only work on the Range.Text object and not Range.FormattedText. I thought I had most of the kinks worked out of this but found a new wrinkle yesterday. It seems that, if the text of a paragraph is altered by a RegEx, then the embedded footnotes in that paragraph are broken. I have a sense that this is because the proper information isn't be passed back to the document by the Range.Text object when a replacement is made (duh). Before I sit down and write a macro that cuts out the embedded footnotes and replaces them with a marker before the RegEx is run and then reverses the replacement after the RegEx is run, I thought I would check with the experts and see if there are any better (and easier) approaches out there. I have tried replacing the RegEx searches with S/R using Word's wildcard search options but can't achieve the desired search complexity with them. I always run into the "expression is to complex" error. As a side question, are the limitations of Word's Wildcard Search listed anywhere. The one major one I've encountered is the limitation to 7 groups instead of the regular 9. There seem to be others but I can't recall them right now. Anyway, any suggestions would be appreciated. Thanks, Jeff Tag: Updating text fields from a Userform Tag: 89190
  - 14
    - cehck for page numbers in footer word doc hi i need to check with visual basic macro if a page number is define in a word file. i need to know if any kind of page number is exist by the code and how to remove it thanks Tag: Updating text fields from a Userform Tag: 89187
  - 15
    - custom dictionaries seem to get corrupted Dear all, My custom dictionaries (for spelling checks) often don't accept newly added terms, or I have to klick 'Add' twice before a new entry is added, and then, Word stops again at newly added term as if they weren't already in the dic file. Now when I open the dic file, some entries seem to be displayed vertically (ech letter is a new entry). Other entries are in the file twice (AV-button). Can anyone explain/solve this behavior? Shirley Nomey Word XP 2002 on Windows XP SP2. AMD AV-button C o n f i g F r e e H T M L - c o d e H T M L - AV-button AV-features AV-solution AV-PC BDJ Blu Blue-ray Bluetooth Centrino Tag: Updating text fields from a Userform Tag: 89185
  - 16
    - How do I code VBA to hit button on a different worksheet? I have a protected worksheet that has a button that I want to execute using VBA. The worksheet in question is protected with the exception of certain cells where I can paste values. I am creating a VBA to do all the pasting but I can't figure out how to execute the button. Run or Call don't work. Help. TIA. Tag: Updating text fields from a Userform Tag: 89181
  - 17
    - Word 2003 page numbers Is it possible to read the page number of a word document at the cursor location from VBA? Tag: Updating text fields from a Userform Tag: 89176
  - 18
    - Saving documents from templates with form field information I have a template with multiple text and number form fields, including 'project number', 'project manager', and 'site name'. I want to set up a standard naming convention for the documents from this template with a combination of the form fields. I then want to set up a macro to save the document with that name. For example: I want to save and name the document "project number-project manager-site name.doc", where each of those variables are the actual data that the user has filled in the form. I have bookmark-named all of the fields on the template. I have also selected the "calculate on exit" checkbox on all of the fields. I see how to set up a calculated field on the form, but it won't work with text fields. I also see how to set up a cross-reference, but that's only to one bookmark at a time. Any ideas? Thanks, Ruth Tag: Updating text fields from a Userform Tag: 89171
  - 19
    - Find Blank lines between paragraph I am very new in vb. I need to find blank lines between paragraphs and get the particular paragraph. For example: alksdjf alkdjf alkdjf alskdjf aldfj a;dfljkaldfj.da flkd;sa jflkdsa jf;ldkj f;lakjd fkasdj f;ajd fadsf df aldfjakldf. sdlfkj aslkdf jalksd fjlakdj faldsk fald [SDF SDFK SDF]. adklf ajdkl;fj alksdjf alskdjf .adj.fka jdfk.adf.adfa. So, basically i want to get second paragraph since the tag([SDF SDFK SDF]) is in second one so with the index of "[", I am trying to get text after the blank line and before the blank line at the end of the paragraph.. Any idea if somebody can help that would be great. thanks Tag: Updating text fields from a Userform Tag: 89170
  - 20
    - AutoText Global Template Hi Is there a way that a group of workers can all share the same autotext entries and, importantly, all add entries for the others to use? To be successful, the facility would need to allow any of them to add their own entries for the benefit of the others in the group, just as simply as if they were adding an entry to their own Normal.dot. Thanks Dave Tag: Updating text fields from a Userform Tag: 89166
  - 21
    - FAQ - Frequently Asked Questions - vba - please read before posting - unofficial August Posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted every ten days or so. Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2003 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THESE --- http://www.mvps.org/word/FindHelp/Posting.htm http://www.dts-l.org/goodpost.htm http://users.tpg.com.au/bzyhjr/liszt.html Reading these articles will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. (5) Do not use your real email address unless you want spam. (See bottom for sample.) The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at http://addbalance.com/word/index.htm Newsgroup Archives: http://groups.google.com/advanced_group_search MVPs FAQ site: http://word.mvps.org/FAQs/MacrosVBA.htm and http://word.mvps.org/FAQs/Userforms.htm To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? http://addbalance.com/word/macrosfromnewsgroup.htm or http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm http://www.gmayor.com/installing_macro.htm 2. What are some good books for me to read about Word? http://addbalance.com/word/wordbooks.htm and http://www.mvps.org/word/Tutorials/BookRecommendations.htm 3. How can I run a macro automatically when a document opens, closes, is created? http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm 4. How can I distribute or backup macros / customizations? http://word.mvps.org/FAQs/MacrosVBA/DistributeMacros.htm http://addbalance.com/word/movetotemplate.htm 5. What is an MVP? http://www.mvps.org/word/AboutMVPs/index.html and http://addbalance.com/word/mvp.htm 6. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: http://addbalance.com/word/wordwebresources.htm#Forms especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: http://www.mvps.org/word/FAQs/Userforms.htm 7. Where can I find more information on the Web? http://addbalance.com/word/wordwebresources.htm#webvba http://www.mvps.org/word/FAQs/MacrosVBA.htm http://www.mvps.org/word/FAQs/Userforms.htm http://www.mvps.org/word/FAQs/Customization.htm http://www.mvps.org/word/FAQs/OfficeInterdev.htm 8. Recorded macros... http://word.mvps.org/FAQs/MacrosVBA/UsingRecorder.htm How do I edit or change? http://word.mvps.org/FAQs/MacrosVBA/ModifyRecordedMacro.htm Recorded macros are usually inefficient and sometimes just plain don't work. Nevertheless, they often do work and can be a good place to start! 9. How can I enter something once in a document and have it repeat elsewhere? (Not really vba, but it keeps being asked.) http://gregmaxey.mvps.org/Repeating_Data.htm 10. I can't save my customizations - AutoText, menus, etc. Can't save normal.dot... If you have Adobe Acrobat 7 installed see the last section of http://www.gmayor.com/lose_that_adobe_acrobat_toolbar.htm. Otherwise, hold down the Shift key when selecting the File menu and select Save All. See also http://www.adobe.com/support/techdocs/331259.html. 11. How can I get a template to show up under a tab with File => New? What are templates? Global templates? Document templates? http://addbalance.com/usersguide/templates.htm Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. Posted 7 August 2006 Charles Kenyon (the editor) Tag: Updating text fields from a Userform Tag: 89165
  - 22
    - Modifing Word's HTML I'd like to modify the HTML Word generates. How is this done through VBA? An example of a change might be: From: <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse'> To: <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='behavior:url(MyHighlight.htc);border-collapse:collapse;' slcolor=#ffffcc hlcolor=#BEC5DE> Tag: Updating text fields from a Userform Tag: 89162
  - 23
    - Putting a custom toolbar just after the standard toolbar In a global add-in (.dot) file I have some code that adds a toolbar. I would like this toolbar to show on the same row as the standard toolbar and just behind it. So, it may have to squeeze between the standard toolbar and the formatting toolbar. Have tried several constructions, but I just can't manage to achieve this. It always ends up on it's own row, above or below the row with the standard toolbar. Is there any way to do this? This is my code, leaving out the code that deals with the button on this toolbar: Sub MakeToolBar() Dim cBar As CommandBar Dim bVisible As Boolean Dim cmdBarButton As CommandBarButton 'remove the old Menu Bar buttons '------------------------------- On Error Resume Next Application.CommandBars("Menu Bar").Controls("Patient Data Entry").Delete Application.CommandBars("Menu Bar").Controls("&PDE").Delete CustomizationContext = ThisDocument If ToolbarPresent("WordEntries", bVisible) = False Then Set cBar = CommandBars.Add("WordEntries", msoBarTop, False, True) Else Set cBar = CommandBars("WordEntries") End If With cBar .Visible = True .RowIndex = 1 'same level as standard toolbar End With End Sub Function ToolbarPresent(strToolbarName As String, bVisible As Boolean) As Boolean Dim cBar As CommandBar For Each cBar In CommandBars If cBar.Name = strToolbarName Then If cBar.Visible Then bVisible = True End If ToolbarPresent = True Exit Function End If Next End Function RBS Tag: Updating text fields from a Userform Tag: 89158
  - 24
    - problem in handling more than one button in a COM Addin for Word I have developed a COM addin in visual C++ for Office Word which creates a toolbar whit two buttons on it, but I don't know how to handle more than one button events. The problem is that my addin runs the same code for the click of any of the two buttons. The DISPID dispidMember (first input) of my class's Invoke function is 1 independent of which button has been clicked. Tag: Updating text fields from a Userform Tag: 89153
  - 25
    - problem in handling more than one button in a COM Addin for Word I have developed a COM addin in visual C++ for Office Word which creates a toolbar whit two buttons on it, but I don't know how to handle more than one button events. The problem is that my addin runs the same code for the click of any of the two buttons. The DISPID dispidMember (first input) of my class's Invoke function is 1 independent of which button has been clicked. Tag: Updating text fields from a Userform Tag: 89152

Pardon this, however its been several weeks since I posted my question and I
can't seem to find the original post...

How do I take the value from a user field and set the value of a text
field/bookmark in a document?

Top

Re: Updating text fields from a Userform by Jonathan

Jonathan
Fri Aug 11 08:43:42 CDT 2006

"dch3" <dch3@discussions.microsoft.com> wrote in message
news:2DD51250-E07F-45DF-8825-89D8567D0F86@microsoft.com...
> Pardon this, however its been several weeks since I posted my question and
> I
> can't seem to find the original post...

search here for past messages
http://groups.google.com/

>
> How do I take the value from a user field and set the value of a text
> field/bookmark in a document?

How to create a Userform
http://www.word.mvps.org/FAQs/Userforms/CreateAUserForm.htm

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top