Automatically transfer word form data to access table

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - selecting specific area in cell How can i select a area between my firstword and my second word. I also dont know how many lines to copy(blah words) between first word and second word as its a merge field eg First Word blah blah blah Second word Tag: Automatically transfer word form data to access table Tag: 72052
  - 2
    - Sending Document as Email (using Visual Basic 6) Hello, I am automating some Word functionality (invisibly) in VB 6 and the Microsoft Word 9.0 Object Library. I need to send the active document as email exactly as it happens in the Word application GUI when you click the "File/Send To/Mail Recipient" menu item and then click the "Send Copy" button (after filling in the email address, subect, etc.). I do not want to send the file as an attachment as I've seen happen with the Word.Document.SendMail() function. Maybe I'm not using that function properly, but does anyone know the way to do this? Perhaps by somehow accessing the menu items collection in Word? Thanks! John Tag: Automatically transfer word form data to access table Tag: 72046
  - 3
    - "activate" Active Document with code After I run my code, when I try to use the toolbar, nothing happens. It acts as if it's frozen. If I click on the window in the toolbar (which shuts the active document) and then re-click on the window in the task bar, my toolbar now is functional again. How can I programmatically get around this (having to mouse-click off and then on the active window) after running my code? (Neither Activedocument.Activate nor Activedocument.Select does it.) TIA Tag: Automatically transfer word form data to access table Tag: 72045
  - 4
    - Forms I'm still haven't been able to solve my problem with my form. The form was created using the form toolbar. It has many yes or no checkboxes. If a person marks the no checkbox, there is no need for them to go through the rest of the question but should be able to jump down to the next question. I wrote macros for each "no" checkbox that if it were marked, then to skip to the next question. This works perfect on my machine but when I e-mail this form to another person, only the first macro works. I did each macro as an individual "sub". Should these instead be a function? As this form will be e-mailed out to participants, they can't go in and tell each macro to run. How do I get each macro to be "active" each time this form is opened? What am I missing here? Help!!! Tag: Automatically transfer word form data to access table Tag: 72040
  - 5
    - Hide or delete text in header (word 2000) Anyone have a pointer as to how I can delete all text in a word 2000 header? I tried this within a for each and while it works, it also seems to make the doc always open in Normal mode. The docs usually open in preview mode. Keep normal mode no matter what. Strange. hdrHeader.Range.Select hdrHeader.Range.Text = "" Then I've tried setting the text to white so that it doesn't show: hdrHeader.Range.Font.Color = wdColorWhite But that only works on some machines. thanks Tag: Automatically transfer word form data to access table Tag: 72039
  - 6
    - Using one doc for several products I have a doc that needs to be interchangeable so we can use it for 3 products...for example... The doc is called source cap and it needs to be used for branch cap and batch cap. Is there a way to use a variable where these names are concerned so I don't have to create 3 separate docs? Tag: Automatically transfer word form data to access table Tag: 72037
  - 7
    - Macros run in Word 2002 but not 2003 I have a pretty extensive collection of macros that create, modify and store word documents. These include macros imbedded in templates. This collection of macros runs fine on all my machines that run Word 2002, but I recently purchased a machine with Word 2003. Macro security settings are on low, and my virus scanning software is off. Does Word 2003 have some inherent security that 2002 didn't, and can I disable it? Thanks Robert Tag: Automatically transfer word form data to access table Tag: 72036
  - 8
    - Macro gives wrong table count? I often do reports with lots of tables that get added, deleted and shuffled. Tiring of going back through the document after each change to manually renumber the tables, I created a macro to help me. (Unfortunately, due to other considerations, the use of specific styles and fields aren't possible.) The macro finds the selection point, sets a range to the beginning of the document, and counts all the tables within the range. It then adds one, puts it in the proper place, and we move on. They made me use Track Changes on this round of reports, and I think it may be messing with my macro. After successfully counting 35 tables, the next one suddenly numbered 49!! I turned off Tracking and tried again, with the same results. The macro is below. Any suggestions? Ed Sub CntTables() Dim doc As Document Dim rng1 As Range Dim rng2 As Range Set doc = ActiveDocument ' The table number placeholder is double-clicked Set rng1 = Selection.Range ' Removing any trailing spaces from the range Do While Right(rng1.Text, 1) = " " rng1.MoveEnd wdCharacter, -1 Loop Set rng2 = doc.Range(doc.Characters(1), rng1.End) rng1.Text = rng2.Tables.Count + 1 End Sub Tag: Automatically transfer word form data to access table Tag: 72033
  - 9
    - vba code for going into Word header I'm writing a macro that uses the following code, but at this point I get an error, and my macro does not allow going into the header. It works perfectly on a PC at my home, but not on the PC at my office. The error I get is: Object variable or WithBlock variable not set (Run time error 91) Any ideas? If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.MoveDown Unit:=wdLine, Count:=2 Selection.PasteAndFormat (wdPasteDefault) ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument THANKS! kurt Tag: Automatically transfer word form data to access table Tag: 72030
  - 10
    - FAQ - Frequently Asked Questions - vba - please read before posting - unofficial August posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less 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 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://www.mvps.org/word/ 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 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. 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 Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. (This is a "proofed" email address, I hope.) Posted 1 Aug 2005 Charles Kenyon (the editor) Tag: Automatically transfer word form data to access table Tag: 72029
  - 11
    - Assigning RegExp backreferences to variables Is there a way to keep backreferences from a regular expression after a replacement operation is finished? I want to assign part of a match to a variable. I'm using VBScript Regular Expressions 5.5 and Word 2000. This page makes it look like you can access them with RegExp.$1, RegExp.$2, etc., but the $ gives me an invalid character error. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/reconintroductiontoregularexpressions.asp Also, if there is a way to keep the backreferences, is it possible to keep them using the Execute method rather than Replace? I can think of workarounds for this, but I'm hoping for something more direct. Andy Tag: Automatically transfer word form data to access table Tag: 72028
  - 12
    - reward posters done as a birthday party invatations Tag: Automatically transfer word form data to access table Tag: 72018
  - 13
    - Word variables - public? static? Hi I'm sure there is a simple answer to this but I can't find it. I have a word document that asks a question in the Private Sub Document_open() and puts it in to a Variable. The same sub creates a Submit Button that calls Public Sub cmdSubmit_Click(). The problem is the cmdSubmit coding does not get the value given to the variable in the Document_open. I have tried declaring the variables Public and Static and all that kind of stuff (I think) but without success. Thanks in advance Gaz Tag: Automatically transfer word form data to access table Tag: 72017
  - 14
    - run macro from another project Hi, I want to run a macro from normal.dot. The macro is located in another project. Have tried with application.run and call, but the public macro can not be found. When looking in the VBA - the project is called: TemplateProject(FIH-kodebibliotek). Under Modules the macro i located in the module 'Blandet'. Tag: Automatically transfer word form data to access table Tag: 71920
  - 15
    - running macro in background Hi, I have a fairly complicated macro that does a lot of text editting. I don't want to see what is happening as the macro runs (it takes a few seconds). I would just like to see the end result. So I would like to have the macro run in the background during execution of the commands and then at the end to display the entire file as modified. Is this possible? Would anyone know how to do this? Thanks in advance for any help. Tag: Automatically transfer word form data to access table Tag: 71912
  - 16
    - internal code for index or table of contents Hello, Here is my problem: I have an Access table with 2 columns: a keyword and a memo. From this table I want to create a Word document - this is no brainer, I know how to do it. Now the difficult part - I want to create an index table from the keyword columns (or table of containts). My question: what are the internal values of code that mark a word an the index? I know how to do it manualy, but because the table have over thousand entries, I want to do it automaticly. Thanks, Zalek Tag: Automatically transfer word form data to access table Tag: 71908
  - 17
    - KeyBinding with AutoOpen These Keybinding statements are to be executed whenever a document is opened: Public Sub AutoOpen() CustomizationContext = ActiveDocument KeyBindings.Add _ KeyCategory:=wdKeyCategoryMacro, _ Command:="Quote", _ KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyShift, wdKeyQ) KeyBindings.Add _ KeyCategory:=wdKeyCategoryMacro, _ Command:="Comment", _ KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyShift, wdKeyC) KeyBindings.Add _ KeyCategory:=wdKeyCategoryMacro, _ Command:="TrackChanges", _ KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyShift, wdKeyT) End Sub I installed this procedure in the "This Document" module of the document. Unfortunately, the keys are not assigned when the document is opened. What's wrong? John Wirt - - - - - - - - - - - - - - - - - - The called procedures are: Sub Quote() Selection.Style = ActiveDocument.Styles("Quote") End Sub Sub Comment() Selection.TypeText Text:=vbTab & "JW: " End Sub Sub TrackChanges() If ActiveDocument.TrackRevisions = False Then With ActiveDocument .TrackRevisions = True .ShowRevisions = True End With Else With ActiveDocument .TrackRevisions = False .ShowRevisions = True End With End If End Sub Tag: Automatically transfer word form data to access table Tag: 71905
  - 18
    - VBA - Help defining for a "For Each....Next" command I am advanced in Word, but new to using VBA, having watched Steph Krieger's Webcast and read a few of your MVP articles on editing macros in VBA. I am using Word 2003 and am having trouble with the Dim "MyText" As _____ command in order to do the For Each.....Next command. I don't know what to define the MyText as. The macro finds the text "Matt.", then a Hyperlink to a spcific Bookmark in the active document is inserted. There are several hundred instances of "Matt." in my document. If I could get help with this step, then I will be able to create macros for the 27 other Bookmarks in my document! Here is my initial macro (edited) and it does work: Option Explicit Sub MattB() ' ' MattB Macro ' Bookmark to Matthew in TOC ' With Selection.Find .ClearFormatting .Style = ActiveDocument.Styles( _ "Style Body TextBT + Bold Char") .Text = "Matt." .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = True .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _ SubAddress:="Matthew", ScreenTip:="", TextToDisplay:="Matt." End Sub -- Thanks, Danke sehr, Merci! Alice Tag: Automatically transfer word form data to access table Tag: 71903
  - 19
    - Checking for RangeShapes in a header Can anyone nudge me in the right direction with the following problem, please? I have a document with odd and even pages. Every page has a header graphic. I need to insert a landscape page anywhere after page 1 - this I can manage OK. Now I need to go into both the odd and even headers of the landscape section. I insert a page break command to display both odd and even pages of the new section. Then I go to each of the headers and unlink them from the previous. Next I need to check if there is a shape range in both the odd and even headers and delete it. I think I might be able to use the following commands: With Selection .Sections(1).Headers(wdHeaderFooterPrimary).Range.ShapeRange.Select .Delete .Sections(1).Headers(wdHeaderFooterEvenPages).Range.ShapeRange.Select .Delete End With And here is the problem: If, for some reason there isn't a ShapeRange in one of the headers then one of the commands show above causes Word to crash and therefore I don't think an On Error statement is appropriate as it's not a runtime error. What I am trying to compose is a statement which says "If there is a ShapeRange in the Primary Header of this section then delete it. Otherwise, go to the Even Pages of the section header, check if there is a shape range there and delete it" Easy to write in pseudo code but I'm baffled on how to write it in VBA! Any help on this, please? Regards Roderick Tag: Automatically transfer word form data to access table Tag: 71898
  - 20
    - Table formatting code extremely slow I have some code that develops tables in excel and then pastes them into a Word document. There may be as many as 150 tables, all identical but for the data values. After pasting them into Word, I execute a Word macro that loops through the tables in the document and for each of those I have just pasted in, executes numerous formatting commands. As each subsequent table is processed, the code gets slower and slower. Why is this and is there anything I can do? I have turned off screen updating, but to no avail. Tag: Automatically transfer word form data to access table Tag: 71895
  - 21
    - Search for grouped clipart and text I am looking for assistance on searching on shape objects. I have grouped clipart and a textbox that I am trying to search on. The code below works when I manually search, but I would like to automate this process. I have the grouped images anchored to text. I want to align all of these "icons". Can someone steer me in the right direction? Once The search is complete I want to align with the following: Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionColumn Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph Selection.ShapeRange.Left = InchesToPoints(0.5) Selection.ShapeRange.Top = InchesToPoints(0.1) Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.WrapFormat.AllowOverlap = False Then cycle through to the end. Any help would be great. TIA Geoff Tag: Automatically transfer word form data to access table Tag: 71891
  - 22
    - Merge Documents in Memory I have a project that involves opening several Word documents in memory, making changes to the text, merging them into one master document, and printing it to one file. The problem I'm facing is that I can't figure out how to merge the document objects without saving them first. Word appears to have no problem merging documents from file, but I would rather avoid this. Writing the changed document to file first would cause unnecessary overhead. I considered programmatically using cut and paste operations to accomplish the merge, but this seems like a hack. Can anyone suggest a better way? Many thanks in advance, -Tim Tag: Automatically transfer word form data to access table Tag: 71885
  - 23
    - Custom App Ok, so I'm building this form that will cycle through a range of documents. The range may vary depending on user selection. That is, the module that processes the information may cycle through as little as 5 documents (sets values from the text fields into the fields on the documents) to as many as maybe 20 documents. What is the fastest way to get this done? Some documents do not have any fields in them so they don't require any information to be added to them but they do need to be copied over to another folder for the user to browse. I have attached the code that I have used for this below. My problem I believe that this code can run faster I just don't know how. Is there any way to tell if a document has bookmarks without opening it? That would definitely cut down on the processing time I think. Any suggestions are welcome!!!! Code: (startList & endList are defined in a separate module: current range is 5-16) For i = startList To endList ' Opens, saves, and closes each document Set oDoc = Documents.Open(templateDir + Template$(i) + ".dot", Visible:=False) oDoc.ActiveWindow.SetFocus oDoc.ActiveWindow.View.Type = wdPrintView If oDoc.Bookmarks.Count >= 1 Then Application.Run MacroName:="SetFormFieldInfo" oDocSaveName = Template$(i) + ".doc" oDoc.SaveAs FileName:=saveDir + oDocSaveName, AddToRecentFiles:=False Else: WordBasic.CopyFileA templateDir + rifTemplate$(i) + ".dot", saveDir + Template$(i) + ".doc" End If oDoc.Close Next i Tag: Automatically transfer word form data to access table Tag: 71884
  - 24
    - wdDialogFileOpen folder problem We've just upgraded our system to W2k3 terminal server with Word 2k3 SP1. Macros which worked fine in Word97 are now a little flaky! In a couple of places we have code as follows: ChangeFileOpenDirectory UserDir Dialogs(wdDialogFileOpen).Show The Open dialog always appears but sometimes the "look in" folder is "My Documents" not the directory set in UserDir. The directory in UserDir does exist - we get an error if it doesn't. There is no pattern to when the right directory appears, it can work correctly fifteen times or more and then fail, alternatively it can fail fifteen times and then work once. Tag: Automatically transfer word form data to access table Tag: 71882
  - 25
    - English-Danish and German-Danish translation I am very satisfied with the English-Norwegian automatical translation and would like to have English-Danish translation. Would it be possible or have you any plans for establishing this feature. ---------------- 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=45b1dbb1-35c7-4bbb-a5bf-d2de09900c13&dg=microsoft.public.word.vba.general Tag: Automatically transfer word form data to access table Tag: 71876
- Next
  - 1
    - Word2003 stops responding My users have a problem with word2003, it stops responding with no apparent reason. They will be working fine opening and editing word documents and after a while the cursor in the word document would freeze and they no longer able to edit the document. The only way thus far to correct this is to shut down and restart the application. Has anybody ever seen this. Thanks for any help. Tag: Automatically transfer word form data to access table Tag: 71875
  - 2
    - Datei automat. als pdf speichern Hallo Newsgroup, ich mÃ¶chte aus Word die Datei mit einem Makro automatisch als pdf-drucken. Normaler Drucker funktioniert einwandfrei. Gebe ich Adobe als Drucker ein funkrtioniert es bis zu dem Punkt, dass Word Dateinamen und Speicherort des pdf-Dokuments wissen mÃ¶chte. Wie kann ich diese MenÃ¼abfrage ebenfalls in das Makro einbinden, so dass ich dieses nicht jedesmal noch manuell machen muss? Danke und viele GrÃ¼Ã?e, Nuray Kalis Tag: Automatically transfer word form data to access table Tag: 71872
  - 3
    - Attached Template Issue I have a master template which contains quite a bit of VBA code. We send this master template to department adminstrators who tweak and create sub templates from the master. These sub templates are then distributed to the staff who create their end documents. In the save event I programmatically detach the "attached template" and re-attach the master template so at any stage of the process the template and/or end docuement uses the VBA code from the master. This has worked great (about two years) untill recently. Although, the master is still attached to the end document (which I have verfied by stepping through the code) it can not seem to find it. After some research, I found MSDN article 823372 which describes mt issue perfectly. This article provides a work around and a hotfix (hotfix not avaible to general public until full regression testing has been completed but can get it by calling microsoft) but neither one works as well as I hoped. After days of testing I have come to beleive that an Office Security patch is the culprit (KB887979). My question is: Has anyone else had this issue? And does anyone know if this Office Patch is in fact the culprit. I would perfer to leave it out of any new ghost images we send to the field if it is infact the problem. I know with several tests I would be able to answer my own question but I thought I would ask to save some time. Thanks Jim F Tag: Automatically transfer word form data to access table Tag: 71865
  - 4
    - how to select text in active cell? how to select text in active cell? sometimes the cell has more than one line so it needs to be able to select that aswell thanks Tag: Automatically transfer word form data to access table Tag: 71863
  - 5
    - compile error - named arguement already specified - Selection.EndK I keep getting this error and i dont know why. It comes from this line of code and its because of be when i change the unit to wdstory (previously i left it out) ps i want it to select everything within a cell , will wdstory do this? Selection.EndKey , unit:=wdStory, Extend:=wdExtend 'code which is causing problem If Selection.Find.Found = True Then Selection.Move unit:=wdCell, Count:=12 Selection.EndKey unit:=wdColumn, Extend:=wdExtend Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend ' Selection.Copy Selection.Move unit:=wdCell, Count:=-13 Selection.Paste Selection.EndKey unit:=wdColumn Selection.HomeKey 'Selection.ClearFormatting Selection.EndKey , unit:=wdStory, Extend:=wdExtend ' error line Tag: Automatically transfer word form data to access table Tag: 71861
  - 6
    - How do I make only periods on my screen appear bigger? For ease of reading on my screen, I want only the periods a lot larger and bolder, i.e., Lucinda Console, etc. We use Times New Roman 12 at work, and the periods colons are so faint I can barely see them. I do not want to enlarge everything. I'm trying to find an autocorrect option to do this. I created a macro to do after the fact, but I'm not thrilled with this option. There has to be an autocorrect option that when a period is typed it is changed to another bolder font. Thank you for your help! Tag: Automatically transfer word form data to access table Tag: 71855
  - 7
    - Searching multiple, though similar documents, for specific text. I am attempting to create an Access database that will populate table fields based on the search results of current and potential employee resumes. For example, capturing X # of characters either side of words like "Master's Degree", or "Military." I already have a similar question out to the Access group, but started thinking that this would probably need to be a two step process, starting with seaching a Word or RTF document, somehow saving the results as *.txt and then importing that into Access. Tag: Automatically transfer word form data to access table Tag: 71846
  - 8
    - Change text color I have a blue that I have to change throughout several documents to a specific blue with RGB colors values. Is there a way to do this through VBA? Tag: Automatically transfer word form data to access table Tag: 71844
  - 9
    - HELP - Why is my whole menu disabled???? I am programmatically opening a mailmerge document and bringing it up in PREVIEW mode. When I look at the document, I would like to close the document but leave WORD open. But the entire menu seems to be disabled as well as the box to just close the current document. The only thing that is enabled is the upper right corner box to close WORD altogether. Is there a command that I need in order to have the menu enabled? Thanks. Here is most of my code to preview the document: *************************** oDoc.MailMerge.MainDocumentType = 0 oDoc.MailMerge.OpenDataSource; (dsname,wformat,wconfirmconv,wreadonly,wlinktosource,; waddtofilelist,wpassworddoc,wpasswordtemp,wrevert,; wprotectdoc,wprotecttemp,wconn,wsqlstatement) oDoc.MailMerge.Destination = 0 oDoc.MailMerge.Execute oWord.Documents(1).Activate oWord.WindowState = 1 oWord.Visible = .T. Tag: Automatically transfer word form data to access table Tag: 71843
  - 10
    - Range of a field [Word 2000 on Windows XP] This is about creating page number prefixes of the form C.9, where C is the SEQ nubmer of the chapter. I can do it all manually through the UI, but I'm trying to do it programatically. I can iterate through the fields collection in each header and footer and find any PAGE fields, BUT I can't figure out how to establish a range object that lets me insert stuff just before this field. objRange = objField.Result just doesn't work reliably -- things get inserted in the middle of the field code, when they get inserted at all. It works when you use selections in the active document, but not when you use range objects. Any clues? Bear Tag: Automatically transfer word form data to access table Tag: 71841
  - 11
    - VBA references Hi everyone! Is there a way to tick or untick the references from the tools menu not manually but with a command? I found in VBA help a command like this: VBE.ActiveVBProject.References.Count and tried to display in a msgbox the references of my project but I got no result although I ckecked that when I opened the references from the tools menu there where 5 references ticked. Tag: Automatically transfer word form data to access table Tag: 71840
  - 12
    - Range Character Count is off....can't figure this out. Hi All, Below is a macro followed by a document that I am running through looking for instances of a Test. The Tests are marked by [~Test ID=xxxx~], (xxxx is a variable number). I need to select the range from [~Test ID=xxxx~] to the beginning of the next Test tag. When I use the macro below, I do not get the results I'm looking for and I can't figure it out. I think it has something to do with the hyperlinks I have in the document. When I delete them or make them non hyperlinks, I get the range selection that I need. Can you offer any help? Sub SelectIt() Dim rng As Range Dim SearchRange As Range Dim iTestCharCount As Integer Set rng = ActiveDocument.Range With rng iTestCharCount = rng.Characters.Count .Start = InStr(rng.Text, "[~Test ID=" & 9463 & "~]") - 1 iCurrentTestTag = .Start .End = InStr(.Start + 1, rng.Text, "[~Test ID=") iNextTestTag = .End If iNextTestTag = 0 Then .Start = iCurrentTestTag .MoveEnd Word.WdUnits.wdCharacter, iTestCharCount Else .Start = iCurrentTestTag .End = (iNextTestTag + iCurrentTestTag) - 1 End If .Select '.Delete End With End Sub -----------------DOCUMENT----------------------- [~Exam ID=856~]97-TUT -[~ExamName~] Practice Import [~Vendor~]Microsoft [~ExamVersion~]Internal Version: 1.0.3 [~ExamDescription~]test [~ExamInstructions~] [~ExamResources~]test 'RANGE SHOULD START HERE [~Test ID=9463~] Test for Import [~TestType~]Practice Test [~ItemCount~]Item Count: 0 [~Objective ID=66428~]Here is the house [~ObjSeq~]Objective Sequence: 1 [~SubObjective ID=274124~]Where it all happened [~SubObjSeq~]1 [~SubShow~]False [~Item~] [~ItemType~]Single Answer Multiple Choice [~ItemATID~]70-057.1.1.1 [~ItemText~]You are developing a Web site infrastructure for your Web site, and you must meet the following requirements: The required result is to be able to add VBScript functionality to the Web pages. The first optional result is to have the ability to run scripts on the server for purposes of retrieving database information. The second optional result is to be able to output this information in HTML format so the majority of Web browsers can view this information. The proposed solution is to implement Active Server Pages on a Windows NT Server 4.0 computer that is running Site Server 3.0. What does the proposed solution provide? [~Item~] [~ItemType~]Single Answer Multiple Choice [~ItemATID~]70-057.1.1.2 [~ItemText~] You are developing a Web site infrastructure for your Web site, and you must meet the following requirements: The required result is to be able to add VBScript functionality to the Web pages. The first optional result is to have the ability to run scripts on the server for purposes of retrieving database information. The second optional result is to be able to output this information in HTML format so the majority of Web browsers can view this information. The proposed solution is to implement a COM component. What does the proposed solution provide? [~RemediationText~] COM components allow software to be written in components that perform separate functions. This allows several procedures to call the same components. None of the results are met by implementing a COM component. To meet the results, you should use Active Server Pages. www.yahoo.com www.cnn.com [~ReferenceText~] 1. General Knowledge and Experience - <none> Here is more '<-- THE RANGE IS ENDING RIGHT AROUND HERE www.kaplanit.com www.erert.com www.yahoo.com www.cnn.com 'THIS IS WHERE I NEED TO RANGE TO END [~Test ID=9466~] Flash Card Test import [~TestType~]Flash Card [~ItemCount~]Item Count: 0 ---------------------DOCUMENT END--------------------- Thanks for any help. David Tag: Automatically transfer word form data to access table Tag: 71837
  - 13
    - macros disabled in protected form I have created a word-2002 form that captures student name, operating system, email address, etc. I want to create a macro that saves the completed form as 'form data' only and saves the file as a normal word document. I will then have the student email both files back to me. I have created a macro using 'recorder' to change tools/option/save to save the file as form data only. To create the macro, I had to disable form protection. When I re-enable form protection, I can not run the macro. How do I avoid this conflict? Thanks, Tag: Automatically transfer word form data to access table Tag: 71826
  - 14
    - Insert Symbol into table cell How do I insert symbols into a table cell? The follwoing code fails because its not a simple selection. Thanks hals_left With ActiveDocument.Tables(2).Rows(1) .Cells(j).Select Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3842, Unicode:=True End With Tag: Automatically transfer word form data to access table Tag: 71825
  - 15
    - global variables - shared subroutines I have the following problem, I have two modules, that means two macros, in my application and there are some subroutines which are common and I was trying to have them in only one module and to call them by module1.sub_name. These subs change the value of a global variable which has purposely the same name in both modules but I noticed that when I call them by that way the value of the global variables do not change. Does anyone know if I am doing something wrong or why is this happening? It should be another way except of copying the subroutines in both modules, right? Tag: Automatically transfer word form data to access table Tag: 71824
  - 16
    - How to create a shortcut on my desktop to print a Word document? I would like to create a link on my Mom's desktop that she can click to print her schedule. I'd like to be able to set the path and filename, and all she has to do is click the link and put in how many copies she wants of the Word document, and it will automatically open up word (if needed) and print the document. I'm not sure if its best to do this with a script, a program, or if it can just be done with options in a shortcut link? Tag: Automatically transfer word form data to access table Tag: 71816
  - 17
    - Merge fields in footers I have a template with a footer with merge fields in it i.e. property address. When other users select this template the merge field populates on the first page only, on any other pages it only brings up the merge field, not the populated field like the first page. In my template under view header/footer the "same as previous" icon is not highlighted. How do i get this footer field to populate on more than the first page? Tag: Automatically transfer word form data to access table Tag: 71813
  - 18
    - record a macro to open a folder, not a file Dear folks: Is it possible to record, or create, a macro that opens a folder only (Word 2003)? I tried to record all the necessary steps but it didn't allow me to stop recording unless I chose a specific file within the folder. Can anyone please teach me on this? Thank you! Tag: Automatically transfer word form data to access table Tag: 71810
  - 19
    - Paste Special Macro -- how to place cursor at end of paste? In my paste special macro, I wish that the cursor would appear at the end of the paste rather than at the beginning. The "placement" variant in the PasteSpecial method doesn't seem to do the trick. So, for now, I'm inserting dummy text ("&&") as a work around. I suspect there is a much better way than what I'm doing. Any thoughts? Here's my work-around. Sub paste_special() ' ' paste_special Macro ' Macro recorded 7/27/2005 by Todd E. Marlette ' ' INSERT DUMMY TEXT ("&&") Selection.TypeText Text:="&&" Selection.MoveLeft Unit:=wdCharacter, Count:=2 ' PASTE SPECIAL Selection.Range.PasteSpecial DataType:=wdPasteText ' SEARCH FOR DUMMY TEXT AND THEN DELETE ' TO PLACE CURSOR AT END OF PASTED TEXT Selection.Find.ClearFormatting With Selection.Find .Text = "&&" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdCharacter, Count:=1 End Sub -- Message posted via http://www.officekb.com Tag: Automatically transfer word form data to access table Tag: 71809
  - 20
    - Can VBA count how many macros I have? I have collected quite an assortment of macros over the last 2 years. Is there a VBA method for counting how macros there are, with several modules holding five or more macros? Ed Tag: Automatically transfer word form data to access table Tag: 71805
  - 21
    - reference to the rigth instance of Access I need to get a reference to an already open instance of Access if it is running or open it if not. I'm using GetObject. If no other instances of Access are open I have no problem. But I have no guarantee to point to the rigth one if the user has already opened one. I found an half solution with a strange behavior: Set oAccApp = GetObject(MyFileName, "Access.Application") oAccApp.Visible = True works fine (it open a new instance if it is not open or open and "magically" merge it with the old one if already exists) if I don't have a StartUp Form. if I have a StartUp form, I tried to use: Set oAccApp = GetObject(MyFileName, "Access.Application") oAccApp.Visible = True oAccApp.DoCmd.Close acForm, "Welcome Form" But I get a run time error 2455 . If I delete oAccApp.Visible = True I get multiple instances of my database. Why? Any Suggestions? Thanks Lauro Tag: Automatically transfer word form data to access table Tag: 71804
  - 22
    - error handler with error line number Hi, I have a function in Word-VBA with error handler writing some info to log file. There are strange errors occuring from time to time which I can't trace. It would be very helpful for me to have information about line in which error has occured. Is this possible? For example: sub foo() on error goto ErrorHandler 'some code here exit sub ErrorHandler: ErrNumber = Err.Number ErrDesc = Err.Description LineNumber = ??? AddToLog "ERROR:foo:" & LineNumber & ":" & ErrNumber & " " & ErrDesc 'resume or resume next - doesn't matter now... end sub I don't want to examine my specific function, I just would like to now in general, if it is possible to read line number in which last error occured. Regards, Tomek Tag: Automatically transfer word form data to access table Tag: 71803
  - 23
    - accessing outlook contact information in word Hi, I'm using Word and Outlook 2003. In previous versions, I was able to use the code: WordBasic.GetAddress, in a Word user form to access the Outlook contacts to choose an address. This code is not recognized by Word/Outlook 2003. Does anyone know the equivalent of the code, WordBasic.GetAddress, for Office 2003? THANKS! -- kurt Tag: Automatically transfer word form data to access table Tag: 71802
  - 24
    - copy word form field contents into excel spreadsheet Can someone help me with the code to open a word document that is a survey form with 6 form fields. I want to open the document, copy the contents of the form fields (name_txt, email_txt, check1_checkbox, etc) to my excel spreadsheet. I am having my college math students complete a word-form document and want to capture all of the responses into a single worksheet with a row for each students information. Thanks, Dave Was this post helpful to you? Tag: Automatically transfer word form data to access table Tag: 71798
  - 25
    - problems with code in thisOutlookSession (error 438) Hallo! In Outlook 2002 I've got following code in ThisOutlookSession: Sub RufeBriefSchreibenAuf() AufrufAusWord = True Call BriefSchreiben End Sub In Word 2002 I wrote Sub Test() Dim oOutAppl As Outlook.Application Set oOutAppl = GetObject(, "Outlook.Application") oOutAppl.RufeBriefSchreibenAuf End Sub Error 438 apears. What's wrong? Thanks and regards Heike Pertzel / DATA 5 GmbH Tag: Automatically transfer word form data to access table Tag: 71785

My problem is that i need to automatically transfer data from word form to
access database when I click a button. I would be very grateful if someone
could give me the programming code to connect a simple text form to a
database table. I have search the entire web but could not find any vba or
other code to help me in this. Thanks for help in advance.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200508/1

Top

Re: Automatically transfer word form data to access table by Jezebel

Jezebel
Tue Aug 02 05:49:08 CDT 2005

do a Google on VBA +ADO -- the methods for this a fairly simple and well
documented in lots of places.

"Paul A via OfficeKB.com" <forum@OfficeKB.com> wrote in message
news:523B9B3402A31@OfficeKB.com...
> My problem is that i need to automatically transfer data from word form to
> access database when I click a button. I would be very grateful if
> someone
> could give me the programming code to connect a simple text form to a
> database table. I have search the entire web but could not find any vba
> or
> other code to help me in this. Thanks for help in advance.
>
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.aspx/word-programming/200508/1

Top