VBA Reading a Word Document's Form Field into a User Form Text Box

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89225
  - 2
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89216
  - 3
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89212
  - 4
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89210
  - 5
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89202
  - 6
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89193
  - 7
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89192
  - 8
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89190
  - 9
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89187
  - 10
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89185
  - 11
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89181
  - 12
    - Word 2003 page numbers Is it possible to read the page number of a word document at the cursor location from VBA? Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89176
  - 13
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89171
  - 14
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89170
  - 15
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89166
  - 16
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89165
  - 17
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89162
  - 18
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89158
  - 19
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89153
  - 20
    - 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: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89152
  - 21
    - Bug with cross-references in VBA? Hallo, I'd like to insert a cross-reference (reference to: only label and number) to a self defined caption (Insert->reference->caption) using a macro. Normally this wouldn't be a problem: Selection.InsertCaption Label:="Test", TitleAutoText:="InsertCaption1", _ Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0 Selection.InsertCrossReference ReferenceType:="Test", ReferenceKind:= _ wdOnlyLabelAndNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _ IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " But I need a caption with the option "Exclude label from caption". Now - if I'm using this type of caption (ExcludeLabel:=1) and insert a cross reference manually, everything is still fine, but if I'm executing the same command as a macro Word 2003 is inserting nothing (don't know about other Word versions) ! I even recorded the successful manual insertion with the recorder (which is creating the same code lines as above). When I'm executing the macro nothing is inserted. Does anybody have any idea? thanks Dom Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89146
  - 22
    - How do I insert 1 of 35 possible paragraphs into 1 form field? I am trying to create a field where I can pull a dropdown box and choose anywhere from 35 possible entries. When I select the item I need, it will fill the field with 1 paragraph of predefined text for that field, so 35 possible paragraphs of text can be selected. In summary I am a probation officer and I want to automate my violations I write, so I can choose "Positive Drug Test" or "Moving w/o Notifying" and then it will fill the field with the corresponding legal verbage. Is this possible? Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89139
  - 23
    - Autosize excel sheet to fit correctly with in word I have a quote spread sheet that is some times 5 rows, some tims 20 rows or some where in between. Is there a way of making Word display only the required amound of the sheet to cover from Row 1 to the last row that has my totals column? Timmy D Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89137
  - 24
    - Why it is impossible? It is strange, why nobody except Ed was not involved in the problem of FileSearch object in Word 2003 macro. Look on the piece of a macro and imagine that you want to find all the files in the directory "x" which contain at least two keyword, keyword 1 AND keyword 2. I could not to create string "z1" which would do this job, in spite it is possible in the Word 2003 itself (Look File -> FileSearch -> Advanced). With Application.FileSearch .NewSearch .FileType = y .SearchSubFolders = True .FileName = "" .MatchTextExactly = True .TextOrProperty = z1 .LookIn = x .Execute TotalFiles = .FoundFiles.Count If TotalFiles = 0 Then MsgBox ("There are no files in the folder!" & _ "Please type another folder to list.") GoTo Folder End If For i = 1 To TotalFiles MN1(i) = .FoundFiles(i) Next i End With I did it with "brute force", creating the arrays of filenames with different keywords (like MN1 in the code) and then taking only members of arrays which present in every array, modelling in this way logical "AND". But I suspect that more elegant solution may be found. That is your opnion? Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89129
  - 25
    - How to format whole paragraph if it contains a keyword? Hi All, I've been trying to figure out there is a way to select an entire paragraphs based on a keyword within the paragraphs (e.g., I'd like to change the entire paragraphs containing the keyword "^pCHAPTER" [paragraph mark + uppercase-word chapter]. Is there a way to do this via Find&Replace or another way. Thanks so much, rgds, JS Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89124
- Next
  - 1
    - Setting Page Width, Height, and Orientation I created an Access report and saved it as a word document. I then set the Page Width, Page Height and Orientation. When I checked the document under page set up all of the set parameters were there but they don't seem to take effect until I click OK. Is there some command that can simulate OK in the commands listed below ? Set docSource = wdApp.Documents.Open(strReportRtf) With wdApp.ActiveDocument.PageSetup .PageWidth = InchesToPoints(dRptWidth) .PageHeight = InchesToPoints(dRptHeight) If strRptOrient = "P" Then .Orientation = wdOrientPortrait Else .Orientation = wdOrientLandscape End If End With docSource.SaveAs FileName:=strReportDoc, FileFormat:=wdFormatDocument docSource.Close Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89110
  - 2
    - pages not in footer Is it possible to write inside the text "This the page number ..." & put the number of current page? When i do it with the reference fields, it ask me always to update it... Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89099
  - 3
    - excel copy cells to word template I have a large workbook and I want to copy cells from one sheet called Menu to a specific word template called PDC_MCC_IR.dot and save the word template as a word document. I have a bit of code that can open a word document and past information from cells in the word document but I need help for the rest. Can anyone help me. Here is the code that I already have. Sub Excel_to_Word() Dim appWord As Word.Application Set appWord = New Word.Application appWord.Visible = True Range("b4:c10").Copy appWord.Documents.Add.Content.Paste Application.CutCopyMode = False End Sub Thanks Garry gtpighin@shaw.ca Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89094
  - 4
    - Error: AppName: winword.exe AppVer: 11.0.8026.0 Can anyone help with Error message? Is it Access Tools Reference related to those few users? Details: Using Word and Access 2003; the template is housed on a network but is not directly accessed by users. They run a macro I created that opens a document based on it. The template has been revised a few times, and the code in the template has been tweaked. Would that have anything to do with it? What other details should I give? I've got a problem with a few users (out of 55) whose Word sessions crash *every* time they open a document based on a certain automated template I created. I've Googled the following error report generated by Word when it crashes, but am not finding any solutions specific to this problem, enough to safely correct it: Error signature AppName: winword.exe AppVer: 11.0.8026.0 AppStamp: 4468c5b1 ModName: vbe6.dll ModVer: 6.4.99.72 ModStamp: 40b29ba6 fDebug: 0 Offset: 001c3fac The template has two sections that are protected. The protected sections have text fields that are bookmarked, and one macrobutton that allows the user to add extra lines. There are a few macros built into the template that run when the user enters and exits certain fields. There is also code built into the template that allows the user to click a button and send the information to a database into Access. For 90% of the users, there are no problems working with the documents based on this template. However, I've got a few users whose Word sessions crash every time they open a document based on this template. I have tried renaming their Normal templates and updating Office 2003 with the latest patches. The problem is I don't know where to begin to diagnose the problem. Why can most users open the documents based on the template but those few can't? Can someone please tell me where I should begin looking? I've tried recreating the problem on my computer, but I can open the documents just fine - no crashing. I don't know if I should be looking at a setting, if I should attempt to recreate the template, remove the code from it, check out libraries, or what. Maybe if I understood a little better what happens when you open a document that is based on a template that has fields and macros, I'd understand where to begin diagnosing the problem. Desperately, Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89086
  - 5
    - Parsing lines of text I have a Word document that contains hundreds of similarly-formatted reports (about 30-40 lines of text with carriage returns), with lines that flag the start of each report and lines that are specifically flagged that I need to copy and paste at the bottom of the document. What I need to do is activate a macro that looks for the first start flag ("START REPORT"), copies the line of text underneath it, then looks for rows flagged as "LAUNCH DATE" and "DETAILS", copies those, and then dumps all four rows of text at the bottom of the document. Then, finds the next report (within the document) and repeats the process until it hits the end of the document. Any thoughts would be greatly appreciated. Thanks! Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89085
  - 6
    - How to set up macro that copies text to another place in same docu I'm trying to set up a form in Word 2002. I want to set up the form such that when a user enters a number in one place in the document, the same number is automatically entered in a second location. I've tried running a macro on exit from the first text form field that copies then pastes the number to the other form field below, but I get an error message (Microsoft Visual Basic. Run-time error 4605: This method or property is not available because the obfect refers to a protected area of the document). I tried it again, by taking out the second form field, and just trying to paste the number to a specific spot, but I get the same error message. What am I doing wrong?? Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89078
  - 7
    - Requesting VBA Code to Copy from Word as Bmp Hi. I have a Word doc which consists of of some paragraphs of text, tables, and a few inserted pictures. The contents of this Word doc are constantly changing. My aim is to copy all of its contents as a single bmp file, and then paste this bmp file into an Excel xls file. The steps I've used to try to do this manually are: (1) Ctrl & A (select all) (2) Ctrl & C (copy) (3) place my cursor at the desired location on the Excel file and use Edit > Paste Special - Picture (Enhanced Metafile). The resulting paste into Excel does include all the text and table info but not any of the pictures. I am hoping for the means to get a "complete" copy and paste (that includes any inserted pictures from the Word doc), and the proper Word VBA code to do this. I know the Word VBA for steps 1 and 2 are: Selection.WholeStory Selection.Copy Since the second line of code above does not perform a "complete" copy, I'm sure that line will have to be changed. Could you please tell me what the proper code would be to achieve this? I would be most appreciative for your help. (By the way. To me it is "odd" that this can be easily done from Excel into Word. In Excel, if you paint in an area while holding down the Shift key, you will be able to copy any of its contents (including bitmaps) and then paste this as a single bitmap into Word. I say "odd", because I would have thought this to be a simple matter going from Word into Excel.) I look forward to your answers and you have my sincere thanks. God bless you. Ken Wilson Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89069
  - 8
    - Apply a Template to all documents in folder and subfolders Hi: I have created a template that I would like to apply to all documents in a specific folder and its subfolders. Is there any way to do so programatically? Any help would be appreciated. Thanks, Dave Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89063
  - 9
    - Writing a macro for word in c# Hi, i want to write a macro in .NET and add that macro to the word programmatically. how do i do this. any help will be great help. -- ravib Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89057
  - 10
    - add 28 days from present date I need to add 28 days from todays date to a field. ex: Todays date is 8/4/2006, in the next box (or field) I need to show 28 days from now which equals 9/1/2006. Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89056
  - 11
    - Autonew macro doesn't fire on new document I have a quite annoying problem with the autonew macro. I am using Word 2003. In a template, i made the autonew macro, i tested it, and it does exactly what it is supposed to do, as long as i am working directly in the .dot file. When i doubleclick the .dot file Word opens with a new document filled with everything from the template, even the macro, but it's not firing up, and when i go to Extra --> Macro --> Macro's... it is not showing the macro anymore. If i then open Visual basic, all the code is there. Then if i add a bit of extra code (another sub that just puts up a MsgBox with some crap) suddenly all the macro's are usable again. This kinda nullifies the use of the autonew macro as i still have to manually add code and start it up. Does anyone have any clue why my macro code is copied to the new document, but is not available for use until i edit the code? Regards, M. Vlaardingerbroek Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89053
  - 12
    - Saving an embedded image from word to local disk using VBA. How can I save an image to a specific directory which is embedded in a word document using VBA. Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89049
  - 13
    - Auto macros I am trying to do Auto Macros in a different template than the normal.dot. I create a module called AutoClose or AutoExec or AutoNew and within those modules I have a sub Main(). None of these macros will run unless I place them in the normal.dot. I can't have them in the normal.dot as I cannot replace the clients normal.dot. I created a different add in called adn.dot and place them in there as a module but it won't run unless I move them back to normal.dot. Any suggestions? Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89044
  - 14
    - Error handling in VBA code Hi, I've developed the following function to test if some style does exist in a document: Function xstyle(aStyle As String) As Boolean Dim sty As style On Error GoTo notexist Set sty = ActiveDocument.Styles(aStyle) Set sty = Nothing xstyle = True Exit Function notexist: xstyle = False End Function For some time this has worked, but now when the style does not exist the statement "Set sty = ActiveDocument.Styles(aStyle)" generates an error "the asked member of the collection does not exist" and stops execution in stead of jumping to the label Notexist:. What can be at hand? Why the error handling doesn't work? Thanks for suggestions Henk Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89041
  - 15
    - put wordcount for each page on page header automatically hello everyone I write news scripts in MS Word and I need my wordcount of every page somewhere, preferrably on teh header. Is there a way I could achieve this. If the info could be updated everytime I save would be great. Hope some one could help. thanx ahmed Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89039
  - 16
    - Advice on how to access and update Word .docs located on a central web server Hey Folks, I've been handed a potential design and I have no experience with such a scenario: We are looking at putting Word .docs on a central web server. Barring security and / or other limitations, how would one access Word documents to retrieve and insert material? I am particularly interested in solutions that would be platform-transparent (e.g. the web server might be a UNIX server where Microsoft solutions are not available)? I'm mainly looking for a good starting point utilizing VBA to access and update these .docs programmatically. Thanks & Regards, TC Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89037
  - 17
    - Word 2003 cannot open Word 2000 Document I have word documents created using Word 2000 SP3 which works fine on all office 2000 PC.s but i am having a problem opening the document on office 2003. the following error appears: Word experienced an error while trying to open this file * The file may be corrupt try File/Open and Repair option *check the file permissions of the documents or drive *make sure there is sufficient free memory and disk space *open the fiel with the text recovery converter I have copied the file to memory stick and onto my desktop and there are no permissions set. There is over 120mb free memory so this should not be the problem. We do not use Norton Antivirus, instead CA Antivirus. To test on different environments I have removed the antivirus and firewalls from two pcs running Word 2000 and Word 2003 and still get the same results as listed above. MSFT Knowledgebase is worthless for this issue. PLEASE CAN SOMEONE HELP!!!!! Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89035
  - 18
    - Auto fill and macros in a protected form I have read through all similar postings, but none quite fit. I'm trying to set up an order form with a "bill-to" and "ship-to" that may or may not be the same. I have a few questions: 1) How do I use a check box labeled "Same" and have all the bill-to fields (name, address, city, state, etc) auto fill in the ship-to fields. Sometimes the bill-to and ship-to are not the same so I need to be able to track both sets of data. 2) How do I track all data (whether the fields are changed or not)? Does the solution to question 1 "overwrite" the fields if the data is the same? 3) I have set up my own macro, but in order for the form to work, it need to be protected, and then if the form is protected, my macro errors, telling me to unprotect the document. How do I get that to function properly? Thanks in advance Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89027
  - 19
    - Auto Split/Save document into multiple documents - Is this possibl E.g. 100 page document that I want to save into 10 separate files of 10 pages each. File 1 - pages 1 thru 10, File 2 - pages 11 thru 20, etc. Is there an easy way to do this kind of thing? Any help would be appreciated greatly Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89023
  - 20
    - Hyerlink Modification help needed Hello I have a several hundres pages with content in the following format: <text as hyperlink><1 empty space><any text any size> I want to have it converted to somehting like the following: <Text from oringal hyperlink astext> <hyperlink as URL from original hyperlink> <any text any size> Can someone please help on this? Thanks for any feedback, Frank Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89016
  - 21
    - Attn. Doug Robbins--Conditional Header/Footer I hope this message reaches Doug Robbins, Word MVP, but any help from anyone else is welcome. Some time ago I queried this NG about conditional headers/footers and the need to have Word display "For Official Use Only" in the footer when there was for official use only material (marked as (FOUO)) in the text. The following is what Doug Robbins wrote, but I'm having difficulties with this. When I follow these directions, the field in the footer simply displays "STYLEREF". Also, when I have the AutoCorrect option enabled and type (FOUO)--(which automatically converts the style of the target paragraph to "Official")--Word inserts a line break, which I am hoping to eliminate. Here is what Doug wrote and if you can answer the questions above, I'd be grateful, REALLY grateful! ---Create a new character style. I called the one I used "Official". Now type (FOUO) and select it and apply that style to it. Then with that selected, from the Tools menu, select Autocorrect options and on the AutoCorrect tab you should see (FOUO) in the "With::" section of the "Replace as you type area". Click with the mouse on the "Formatted text" radio button and in the "Replace:" section type fouo then click on add. Now in your document, whenever you type fouo and press the space bar, it will be replaced the (FOUO) formatted with the "Official" style. Now, in the footer, insert the following field construction--{ IF {STYLEREF Official } = "(FOUO)" "FOR OFFICIAL USE ONLY" "" } Now on any page on which you do not want the "FOR OFFICIAL USE ONLY" to appear, just select something and apply the Official style to it. Hope this helps--- Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89015
  - 22
    - Rename Option Button I'm trying to create a form that makes a user select a sepcific item and fill in the details. eg the button would be Detail and the text field would contain 1/S201. or Spec Section: 099900 or Sheet: A405. Right now all I get is the "O" radio button with Option Button 1 right after it then the text Detail and then the text box. -- M_Roberts Research causes cancer in rats. Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89014
  - 23
    - Search & Delete Notes Pages I posted this as a vague question some time back, and was asked for more detail... so, I'll try and clarify: I write training documentation, and in this documentation we occasionally insert an 'instructor notes page'... which is basically a page (always even-numbered) containing notes for the teacher regarding the content on the next page. A document may have any number of these notes pages, and we currently are using an autotext entry to insert the page based on a heading style that breaks the page (so, no formal page-break is used when inserting). However, this approach could be changed. After creating a document with n numbers of notes pages, I need to be able to run a script or macro to programmatically loop through and delete all of these notes pages. One of my co-workers recommended attaching a bookmark to the notes page autotext, and then creating code to loop through and delete the bookmarks (we don't use bookmarks currently), resulting in a notes page free document. However, I found out that I'd need a new bookmark name for each notes page I insert! This becomes a problem for deletion because, even if I manually bookmark every notes page, I don't have any code/script/macro that would delete ALL sections defined by bookmarks within a document. If there was a way to just say, "Delete all sections that are bookmarked within this document." we may have a solution. Otherwise, let's not think about bookmarks. Is there a way I could use find/replace on the style used for the heading text on the notes page? Or, perhaps use a specific font for notes and find/delete that font style? Or could I somehow customize the page/section breaks for notes pages? The possibilities are wide-open. I look forward to your feedback, and feel free to ask questions if anything needs clarification. Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89007
  - 24
    - Password protect all sections in a document I've had a macro to password protect documents for a while and it works fine - except for one issue I just found. When the macro is run on a document that was once protected for certain sections, only those sections are protected. The only way I can protect all the sections is to manually protect the form and individually check all of the sections in the options. My current code is as follows: If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Password:="mypassword", NoReset:=False, Type:=wdAllowOnlyFormFields End If So I was playing around to see how a macro would record if I did only want to protect certain sections. By doing so, I noticed it has a new line for each section. So if a document had 5 sections, and I wanted to ensure all of the sections were protected, I would need the following code: On Error Resume Next ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Sections(2).ProtectedForForms = True ActiveDocument.Sections(3).ProtectedForForms = True ActiveDocument.Sections(4).ProtectedForForms = True ActiveDocument.Sections(5).ProtectedForForms = True ActiveDocument.Protect Password:="mypassword", NoReset:=False, Type:=wdAllowOnlyFormFields The "On Error Resume Next" command, btw, is needed to make sure I don't get an error if the document has less than 5 sections. I've done plenty of searching, but I can't find any code that is simpler. I wanted to do something like ActiveDocument.AllSections.ProtectedForForms = True or ActiveDocument.Sections(1 - 5).ProtectedForForms = True but nothing seems to work. Is there a simpler way to write this macro? Thanks in advance, - Mike Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 89006
  - 25
    - multiple copies in different printer trays I need help........ I have a word template and want to print 3 copies, where the first copy goes to tray 1 and the remaining copies to tray 2 of a printer. Can someone help me. Tag: VBA Reading a Word Document's Form Field into a User Form Text Box Tag: 88997

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

Top

RE: VBA Reading a Word Document's Form Field into a User Form Text Box by Brendan

Brendan
Tue Aug 08 18:38:01 CDT 2006

Found my own solution: Had to actually call the form [UserForm1] and forgot
the [Result] tag. Works fine.

UserForm1.tbLastFirstMiddle =
ActiveDocument.FormFields("docLastFirstMiddle").Result

"Brendan" wrote:

> 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
>

Top

Re: VBA Reading a Word Document's Form Field into a User Form Text Box by Jean-Guy

Jean-Guy
Tue Aug 08 23:44:01 CDT 2006

Brendan was telling us:
Brendan nous racontait que :

> Found my own solution: Had to actually call the form [UserForm1] and
> forgot the [Result] tag. Works fine.

Actually, you could have use the Me keyword inside the Userform Initialize
event.
You were right about the Result property though.

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Top