Word Form

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How to apply XSL automatically I need to open an XML data file in word2003, then apply an XSL to the XML, then save as a .Doc , How can this be done automatically using VBA? Where should I keep the code, in a template maybe? Thanks! CD Tag: Word Form Tag: 40696
  - 2
    - preview autotext entry in RTF-Control Hello everybody, I guess, you know Word's build-in autotext dialog that lets the user add, delete and insert text modules. This dialog has a preview of the selected autotext that can show the format of the text, too. In a user form, I would like to make this feature available as well. I put a rich text box (RICHTX32.OCX) on my form in that I would like to load the selected autotext into. Unfortunately this does not work: RTB_Preview.TextRTF = _ ActiveDocument.AttachedTemplate.AutoTextEntries( _ "myAutotext").Value The .Value-Property just returns the autotext without any formating informations. Any suggestions how to get the RTF data stream would be very appreciated. Regards Daniel -- daniel@bolege.de http://www.bolege.de Tag: Word Form Tag: 40694
  - 3
    - Word automation/VB.NET VB.NET and automation of Word XP. I am doing Find/Replace on a large document. Because of the nature of how this document is built, I want to limit the Find/Replace to the last two pages of a document. Someone kindly gave me this code: 'Dim iP As Integer 'Dim sP As String 'Dim rR As Range 'rR = Selection.Range 'iP = ActiveDocument.ComputeStatistics(wdStatisticPages) 'sP = Trim(Str(iP - 1)) 'Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=sP 'rR.Start = Selection.Start 'rR.End = ActiveDocument.Content.End 'rR.Select() 'With rR.Find ' .Text = "i" ' .Replacement.Text = "#" ' .Wrap = wdFindStop ' rR.Find.Execute(Replace:=wdReplaceAll) 'End With The problem I am having is that this is written to run in VBA behind a Word doc ("Active Document", "Selection", etc). So I thought I could just tweak it to run in VB.NET using a Word document object. The Selection object is where I am having problems. I think I need to create a Selection object (dim oSelection as selection) and then set that object variable equal something. I dont want the whole document, do I? Or do I? And if so, how do I do that? oDoc is my Word doc object. It has no .Selection property. So I am confused on how to get this code to run in VB.NET. Can anyone advise? Tag: Word Form Tag: 40692
  - 4
    - Word 2002 >> Method oDocument.close >> crash I posted this yesterday to microsoft.public.word, but this seems to be the better place ( sorry for cross posting ) ------------------------------------------------------------------------------- Hi I wrote some VBA script for Word templates. It works on W97 and W2000 without any problems but W2002 seems to have a real bug. I traced down the problem and found that closing a previous opened Document crashes Word 2002. You can try the following script in Normal.dot: Sub AutoNew() set oTemplate = Documents.Open("C:/test.doc", ReadOnly:=True, Revert:=False) MsgBox "try to close document test.doc..." oTemplate.Close SaveChanges:=wdDoNotDaveChanges End and here how to produce the crash: - create an empty word document under c:\ and name it "test.doc" - open Word 2002 - File >> New >> general templates >> blank document - you will see the message box "try to close document test.doc..." - click ok and Word 2002 will crash things to mention: - if I choose "Recover my work and restart Microsoft Word" Word starts by itself and now creating new Documents works perfectly - create a new Document with <ctrl> - n doesn't crash at all (strange..) - I'm not sure, if there could be some problems caused by McAffe. I did turn off all scannings first and after that I removed the Antivirus Package. But I still have the same crashes. It might be possible, that McAffe has altered some dll's or important registry entries I'm very happy to get some feedback. Somebody faces the same problem? Thanx Rolf Schöpfer Tag: Word Form Tag: 40691
  - 5
    - office 2003 What happens to VBA in the latest version of Office? Is it supported/backward compatable? Tag: Word Form Tag: 40689
  - 6
    - Moving code from ThisDocument (template) to ThisDocument (ActiveDocument) How can I programmatically move the content from the code embedded within ThisDocument from the template to the ActiveDocument ? Using OrganizerDelete I can delete "ThisDocument" from the ActiveDocument, but when I use OrganizerCopy, I get an error... Tag: Word Form Tag: 40671
  - 7
    - ChangeFileOpenDirectory help Hi, Using Word2002, I have the following script which works OK. My problem is that I have used the ChangeFileOpenDirectory command. I would like the users directory to remain at whatever it was before they run this macro. So for instance if the user were to press Ctrl-O and the directory was Y:\MyFiles then I would like them to be able to run the following macro and for Y:\MyFiles to remain as the default directory when they press Ctrl-O. What is the command/procedure for that (please)? Sub proInputText() Dim strAns As String strAns = InputBox("Type the number of the" & Chr(13) & _ "paragraph you wish to insert", "Will Retrieval") If strAns = "" Then Exit Sub Else ChangeFileOpenDirectory "Y:\Masters\WILLS\" Selection.InsertFile FileName:=strAns, Range:="", ConfirmConversions:= _ True, Link:=False, Attachment:=False End If End Sub Tag: Word Form Tag: 40669
  - 8
    - Open Outlook if Not Open A newbie to VBA. I have a user supplied Word Template that "has" to have Outlook running. It opens in ready to mail form. How can I upon opening of the document check to see if Outlook is running (we are running either XP or O2K3) and if not, open it up as the template is opening. Thanks, Ivan Grozney Tag: Word Form Tag: 40666
  - 9
    - Re-size specific images in a doc I'm trying to write a macro that would search through all the images in a document, check if they have a specific width (> than 6", let's say), and re-size them to a width of 6", while the height changes proportionally. In other words, fix the figures that spill over the page margins. I also have other figures in the document (that have a size<6") that I don't want to touch. Can this be made? Thanks for any help. Tag: Word Form Tag: 40664
  - 10
    - Mail Merge formating zip code This is a multi-part message in MIME format. ------=_NextPart_000_0034_01C3A3A7.7E733050 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I am working on a Mail Merge where the data source originates from a = different data base. and is imported into excel. If I do the Mail Merge = from word. I believe it looks for the original formatting from the data = that was shipped and therefore defaults to 7754 rather than 07754 taken = from the cell format in excel. Is there an easy fix for what I am trying to due, or should I Alt+F9 and = format it for a Zip code. I will also need to know what that is. Thanks Matt ------=_NextPart_000_0034_01C3A3A7.7E733050 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1264" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV>I am working on a Mail Merge where the data source originates from = a=20 different data base. and is imported into excel. If I do the = Mail=20 Merge from word. I believe it looks for the original formatting from the = data=20 that was shipped and therefore defaults  to 7754 rather than 07754 = taken=20 from  the cell format in excel.</DIV> <DIV> </DIV> <DIV>Is there an easy fix for what I am trying to due, or should I = Alt+F9 and=20 format it for a Zip code. I will also need to know what that is.</DIV> <DIV> </DIV> <DIV>Thanks</DIV> <DIV><BR>Matt </DIV></BODY></HTML> ------=_NextPart_000_0034_01C3A3A7.7E733050-- Tag: Word Form Tag: 40662
  - 11
    - MSWord 2000 menu bar I need to modify the Word menus that were created by another staff person who is not available for assistance. I have searched for the code and have not been successful. Tag: Word Form Tag: 40660
  - 12
    - Macro breaks but works when breakpoint used I'm pulling my hair out on this one. I've got a document w/ several protected sections. In the event that the text in one of the unprotected sections is accidently deleted, I've written a macro to replace the text and tag it with some required character and paragraph styles. Here's the catch: when I execute the macro, I get a Runtime error 4605 - "This method or property is not available because the object refers to a protected area of the document." Yet, when I set a breakpoint on and step through the "Selection.Style = ActiveDocument.Styles" line, it all works as expected. Here's all i'm trying to do: Selection.MoveRight unit:=wdCharacter, Count:=17, Extend:=wdExtend Selection.Style = ActiveDocument.Styles ("IntelinkSummaryTitle") Selection.MoveRight unit:=wdCharacter, Count:=7 Tag: Word Form Tag: 40657
  - 13
    - Word VBA Problem Hello I've been maintaining a set of Word VBA macros for a few years at the office, and have a routine which prints the current document to a pre-set printer and tray(s). The pre-sets have been saved in the Registry, so the routine pulls these out and uses them to reset the ActivePrinter, print the document and then reset the ActivePrinter from saved data. This works fine for Word 97 (on Win 98 & 2000) and Word 2000 (Win2000 & XP). Word 2002 (Win XP) crashes completely (not just a VBA error, but Word itself) when it reaches the line which alters the DefaultTray to the saved setting. I have pasted the essential elements of the routine below. I'm hoping someone will be able to tell me why this is happening with the "new and improved" Word, when the old versions work quite happily with it. Any help is greatly appreciated. Best wishes Peter Kessler Kessler Associates E: digital@kessler-web.co.uk W: http://www.digital.kessler-web.co.uk Public PrintDocument() Dim SelectedComboBox As String 'Get the saved printer and tray settings from the Registry cboCInvPrint1 = System.PrivateProfileString("", lsection, "CInvPrint1") cboCInvPrint2 = System.PrivateProfileString("", lsection, "CInvPrint2") cboCInvTray1 = System.PrivateProfileString("", lsection, "CInvTray1") cboCInvTray2 = System.PrivateProfileString("", lsection, "CInvTray2") SelectedComboBox = cboInvPrint1 ComboBoxChange ' Set Tray 1 for Page 1 If cboInvTray1 <> "" Then With Options .DefaultTray = cboInvTray1 '******************** Word crashes here End With 'Routine then prints page 1... End Sub Public ComboBoxChange() With Dialogs(wdDialogFilePrintSetup) .Printer = SelectedComboBox .DoNotSetAsSysDefault = True .Execute End With End Sub Tag: Word Form Tag: 40652
  - 14
    - Can VBA in Office v.x do interprocess communication? I am in the process of designing a solution for the following requirement: We need to allow users to create a "template" in word (not necessary a word template, but a word document that will be used to create other word documents via parsing). The template will be dynamically populated with data from the active document in our application which is running in another process. The solution must work on PC and Mac. On Windows, the obvious route is to use COM to pull data from our app into VBA and then push it into the template. My question is this: is there any equivalent to that using VBA in Mac Office v.x? Does Apple Script provide the same capability as COM does on windows? I'm pretty new to Mac development, so pardon my ignorance. Other solutions we are considering are using RTF and writing our own parser/template engine...not sure which would be easier. Any feedback would be extrement appreciated. Greg Tag: Word Form Tag: 40650
  - 15
    - styling references using wildcards/find-replace I am trying to style references with macros/wildcards, using the find/replace function, like 140 Vogler BK, Pittler MH, Ernst E. Feverfew as a preventive treatment for migraine: a systematic review. -Cephalagia- 1998; *18:* 704?08. I managed to bold the volume numbers, since nowhere else in references there are digits followed by a colon. However, I don't know how to specify the place where the publications sit: they are followed by the publication date, and the semi-colon, but the space before is not specific enough (there are many other occurrences of a full stop followed by a space), so that any find/replace function I created selected more text than I wanted. Any solutions? ------------------------------------------------ ~~ Message posted from http://www.WordForums.com/ ~~ View and post usenet messages directly from http://www.WordForums.com/ Tag: Word Form Tag: 40649
  - 16
    - Problem with VBA runtime efficiency I have a VB standard exe program as following: Dim app as new Word.Application app.Visible = False Dim doc as Word.Document Set doc = app.Documents.Open("some word document") Dim str As Word.Range StartTime = Time For i = 1 To 10000 Set str = doc.Range Next i EndTime = Time MsgBox DatedDiff("s",StartTime,EndTime) doc.Close Set doc = nothing app.Quit Set app = Nothing It takes 25 senconds to execute this program,o my god,I don't know why,because if i use macro to run this program in word document,it takes less than 1 sencond.why the execution efficiency is so slow?Could anybody tell me how can i improve the efficiency or what's wrong with my program.thank you very much Tag: Word Form Tag: 40647
  - 17
    - Find and Replace macro Hi everyone, I have a very simple macro that all it does is search and replace for text in the document. The problem is that it doesn´t find nor replace the text inside footers and headers. However, if I use Find and Replace from the Edit menu... works ok. It's weird, since I irecorded the macro using that menu. Any ideas? Thanks, from Spain. Juan Tag: Word Form Tag: 40646
  - 18
    - escape codes can anyone help me with an example code of how to sent an Escape code to the printer in VBA. For instance I want to sent the code <esc>&I3G to an OCE printer. regards, mario Tag: Word Form Tag: 40641
  - 19
    - DocumentOpen event does not run We use a DocumentOpen event procedure to carry out a set of checks/actions whenever a document is opened. This works fine, as a rule. But if in a Word session any other procedure is stopped for whatever reason (this seems to be one of the reasons we 'lose' it but there may be others), after that the event procedure does not kick in until Word is restarted, unless the application object is re-initialised. But no error/message is displayed to hint that anything gone wrong. Can duplicate the 'error' by stepping through and stopping any procedure. After doing so the event procedure doesn't run. Is there a way to stop this happening, or to automatically re-initialise the application object if it does? Any help appreciated. Caroline Tag: Word Form Tag: 40639
  - 20
    - Tooltips in listbox? Hi Folks, Does anyone know how I can get tooltips for Listbox items in VBA? I know how to do this in VB (Have code) but the same process does not work in VBA! Are the activeX controls different? If anyone knows how to do this I'd be mighty grateful! Cheers J Tag: Word Form Tag: 40638
  - 21
    - Moving macro's from Template to Document I have a template from which users can create a document. When they then send the document to someone else (that does not have the template), the macro's have disappeared. Is there a possibility to copy the macro's and modules from the template to the document, each time a new document is created from the template ? Tag: Word Form Tag: 40637
  - 22
    - programatically setting the footer of a word document Hi, I am new to VBA, so would appretiate some help. I am trying to programatically create many word documents from VB. I have a word template with a few form fields in it, which I open and substitute whatever I want to into the form fields and save the doc. (all this i do in a loop) 1. I am not being able to put a form field in the footer. 2. Alternatively, I would also like to set the footer of the word document. But I am not being able to do that too. Can anyone pls. tell me how to set the footer of a word document from a VB code ? I tried doing some recording which gave me the foll. code 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.TypeText Text:="Header that I want to set" Selection.MoveDown Unit:=wdScreen, Count:=3 Selection.TypeText Text:="Footer Left text" & vbTab & "Footer center" & vbTab NormalTemplate.AutoTextEntries("Page X of Y").Insert Where:=Selection. _ Range, RichText:=True ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument On putting this code in the VB form, I am getting an error saying that Command not available since no word document is open ! (in the vb code, the word application instance is set to NOT visible) Thanks in advance Darshan Tag: Word Form Tag: 40634
  - 23
    - ! Referencing Bookmarks from Code ! Hi, I have set up bookmarks and other merged fields in a word DOT file and want to use code to perform some calculations to populate certain bookmarked fields. I was wondering if it was possible to reference a bookmark from a Word doc, and if so, how it is written? E.g. The GrossAmount is the bookmark in Word. And the Datafields "Dollar1/2/3" are referencing "Documents ("filename.DOT").mailmerge.datasource" GrossAmount = .DataFields("Dollar1").Value _ + .DataFields("Dollar2").Value _ + .DataFields("Dollar3").Value If there is a way to reference bookmarks, which event do I put this in so that Word knows when to sum it after the fields have been merged (because prior to merge, there is no data there for it to sum). Thanks Wembly. Tag: Word Form Tag: 40630
  - 24
    - Opening Excel Workbook from Word using VBA - Always Read Only Hi All, I wasn't sure whether this should be a Word or Excel query so I have cross-posted. Apologies if anyone objects! I am using the following code in a module in Word to open an existing Excel document: Sub Open_Plan() Dim xls As Object Dim wrk As Object Dim xlfilename As String xlfilename = "F:\Alan\Plan.xls" Set xls = CreateObject("Excel.Application") xls.Visible = True Set wrk = xls.workbooks.Open(FileName:=xlfilename, Updatelinks:=0, ReadOnly:=False, Password:="password") End Sub This works fine, except that it seems to skip or ignore the 'ReadOnly = FALSE' argument, and the file still opens as Read Only every time. I am stumped as to how to get around this. Thanks in advance for any help you can provide. Alan. Tag: Word Form Tag: 40627
  - 25
    - fonts Is there a way when choosing a font [in Word 97] to return to the previously used font? It always goes back to the default font. Thanks, Eileen Tag: Word Form Tag: 40625
- Next
  - 1
    - Repeated consecutive words This is a multi-part message in MIME format. ------=_NextPart_000_000B_01C3A32A.AFA81CD0 Content-Type: multipart/alternative; boundary="----=_NextPart_001_000C_01C3A32A.AFA81CD0" ------=_NextPart_001_000C_01C3A32A.AFA81CD0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blanco HI: I need a macro that find any repeated consecutive word in a Word = document. I'm working with large document and sometimes it have (wrong) = consecutive repeated words, and sometimes it pass the manual revision = and the final document goes with that repeated words. I don't need that the macro eliminates the word, just mark it and we = decide if eliminate it or not. Any help will be so much apreciated. Thanks in advance, Omar ------=_NextPart_001_000C_01C3A32A.AFA81CD0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE id=3DridTitle>En blanco</TITLE><BASE=20 href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft = Shared\Stationery\"> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <STYLE>BODY { MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 25px; COLOR: #000000; = FONT-FAMILY: Arial, Helvetica } P.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } LI.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY id=3DridBody bgColor=3D#ffffff=20 background=3Dcid:000601c3a343$d4f2e3d0$7ef82bc8@mipcxt400> <DIV><FONT face=3DTahoma color=3D#008080 size=3D4></FONT> </DIV> <P><FONT face=3D"Californian FB"></FONT></P> <P> </P> <P>HI:</P> <P> </P> <P>I need a macro that find any repeated consecutive word in a Word = document.=20 I'm working with large document and sometimes it have (wrong) = consecutive=20 repeated words, and sometimes it pass the manual revision and the final = document=20 goes with that repeated words.</P> <P>I don't need that the macro eliminates the word, just mark it = and we=20 decide if eliminate it or not.</P> <P>Any help will be so much apreciated.</P> <P> </P> <P>Thanks in advance,</P> <P> </P> <P> </P> <P>Omar</P> <P> </P></BODY></HTML> ------=_NextPart_001_000C_01C3A32A.AFA81CD0-- ------=_NextPart_000_000B_01C3A32A.AFA81CD0 Content-Type: application/octet-stream; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <000601c3a343$d4f2e3d0$7ef82bc8@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_000B_01C3A32A.AFA81CD0-- Tag: Word Form Tag: 40624
  - 2
    - format problems when cut/paste on letterhead doc I have a "letterhead" document (not a template) which I use to create letters by copying and pasting the body of the letter onto it. With the exception of the letterhead portion, it is blank until I copy/paste the body or substance of the letter onto it. But when I do so, the part that I copied requires alot of cleaning up: incorrect font, messed up paragraphs, spacing, bold, margins, etc. Can anyone help me so that when I copy onto my letterhead, it will not require all this cleaning up? Thank you very much for your assistance. (I tried to create a template, but copying and pasting created the same problem.) attymusic Tag: Word Form Tag: 40621
  - 3
    - Bring Word to the front (ZOrder 0) Hi, I have an application which outputs RTF files to Word, which in turn runs a macro on the open document. The problem is sometimes Word does not open in the foreground, I need to manually select it in the task bar to bring it to the front. How can I bring the active window in Word to the foreground (using VBA). I've tried using the Activate method on the document's window but it only makes it the active window in Word, it does not bring it to the foreground. I've looked at the SetWindowPos API call but I need to pass it the hwnd of the active window, something which to my knowledge VBA does not provide for. I am using Word 2000/2002 on Windows 2000. Cheers, John Tag: Word Form Tag: 40620
  - 4
    - Macros on a protected document I have a global template that is loaded when Word starts up. It contains some macros that used to work for some protected documents that have form fields. On exiting one of the form fields, I used to run a macro, but today that all stopped?!? I don't understand what happened. Now when I open the template I can no longer access the macros let alone even run one. Any ideas what I may have done? Thanks in advance, Chris Tag: Word Form Tag: 40619
  - 5
    - Form Fields I am using the following code to protect a form. Is it possible that protecting a form can set a checkbox to true? ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True, Password:=FORM_PASSWORD Mark Baird Tag: Word Form Tag: 40615
  - 6
    - Merging documents I am trying to open a series of Word documents and then merge them into one larger document. Allis going well until I get to a document that as a Header....this does not get merged into the one larger document. The process I am using is: objDoc = Documents.Open(FileName:=strDocumentName, _ ReadOnly:=False, _ PasswordDocument:="xxx", _ WritePasswordDocument:="xxx") objWordApp.Selection.WholeStory ' *** this is not getting the Header objWordApp.Selection.Copy objWordDoc.ActiveWindow.Activate ' activate new document objWordApp.Selection.MoveDown Unit:=wdScreen, Count:=2 objWordApp.Selection.InsertBreak Type:=wdPageBreak objWordApp.Selection.Paste Can anyone please help me? Thanks, Barry Tag: Word Form Tag: 40612
  - 7
    - Word Form-Field Capitalization Is it possible to set up a Word 2002 form field such that sentences beyond the first one entered into the field begin with a capital letter? I use fields that contain multiple sentences not infrquently and the first letter issue is easily tackled with the "First Capital" setting for the first sentence only. The setting appears not to be carried through to subsequent settings, however. Any help or pointers appreciated. Tag: Word Form Tag: 40604
  - 8
    - Invoke a macro using the last-typed word as a macro name? I've previously asked about using an AutoCorrect entry to open a UserForm or invoke some code. I have a feeling that this may not be possible, but have an idea that would simulate it. Could someone please sketch out the code for: As I'm typing a document, instead of typing the next word in the sentence, I type the name of a macro. After the last character of the macro name I just typed, I press a function key, or an Alt+SomeLetter combination. At that time, Word deletes the previously-typed macro name from the document and invokes a macro having the same name as the previously-typed-but-now-erased word. (This would either insert text at the cursor, or open a userform. The fields in the userform would then be put into a string that would insert some canned text at the cursor.) If you can make any sense out of what I just wrote, please head me in the right direction ... TIA Tag: Word Form Tag: 40598
  - 9
    - Can I "Get *this* table and put *here*"? I hope I can word this intelligently. I get a range from an Excel spreadsheet and paste it as a table into Word. The Word table is then broken into several smaller tables, based on a code group in the last column - this is saved as its own document. Could be anywhere from 20-40 smaller tables, each of which needs to go in its corresponding place in a report. There are actually about a hundred possible code groups. Is there any way I can write some code for the report that will: (A) find the code group mentioned in the paragraph preceeding the table's place, (B) open the document with the tables, find the right one, and paste it in, and (C) automatically update the report upon opening with the latest saved tables? Ed Tag: Word Form Tag: 40597
  - 10
    - Can an Autocorrect entry open a Userform or run VB code? I have a situation in which the use of AutoCorrect entries are a great advantage in typing reports. It would be even more useful if an AutoCorrect entry could open a UserForm and data entered in that form could be inserted into the document. Is that possible? Could anyone supply, or tell me where to find some code to do that? TIA Tag: Word Form Tag: 40591
  - 11
    - Word Save Document Macro Hi, i have create a Word Makro with has Events for SaveAs, SaveAll, DocumentClose. I don't want that the user saves the Document. That works fine. But my question is the following: How can i call a Makro with Events like onClose, onSave from another Word Document? That means i have Doc1.doc and MacroDoc.doc. Now i want to run Doc1.doc and on Startup or CommandLine i want to call the Macros of MacroDoc.doc. Or otherwise: How can i add a Macro to a Word Document wich is stored in a .bas File via CommandLine???? Thank you Yavuz Bogazci Tag: Word Form Tag: 40590
  - 12
    - Mail Merge I have a HP9000 with a saddle stich option which allows me to make booklets. The limitation for a booklet is 40 pages. Currently I have a 36 page booklet that I wish to use in a mail merge for 20 unique people. When the mail merge is complete I end up with a document of 720 pages (36 x 20). Now my printer will not make the booklets because it thinks there are too many pages. How can I do a mail merge like this and instruct the printer to start a booklet after each 36th page?? Help. Tag: Word Form Tag: 40588
  - 13
    - Filesearch... How can'I search the files what are including a string? (+ Filesearch) Tank Juan Carlos Biancotti jcbiancotti@QUITAESTOiespana.es Tag: Word Form Tag: 40587
  - 14
    - Merging two cells into one I have a short macro that selects the current cell of a table, and the one below it, and merges them both into one cell: Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Cells.Merge However this macro does not work when the current cell contains text of more than one line (because of the 'Unit:=wdLine' bit, presumably). Is there a parameter I can use instead of wdLine? It does not seem to accept wdParagraph or wdTableCell or anything like that... Steve Wylie Tag: Word Form Tag: 40586
  - 15
    - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Word Form Tag: 40577
  - 16
    - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Word Form Tag: 40576
  - 17
    - Searching a string till eof I want to search (through VBA) a string "ABC N.N", where n may be any number, one by one till end of Document & simoultaneously add a unique value to it, can this be possible? Regards, G Bahri Tag: Word Form Tag: 40575
  - 18
    - Make e-mail window open without DOS window This code opens an e-mail window, but before the e-mail window opens, a DOS window opens and then goes away. Is there any way to have the e-mail window open without having the DOS window open at all? Dim RetVal RetVal = Shell("start mailto:", vbNormalNoFocus) Thanks, Larry Tag: Word Form Tag: 40571
  - 19
    - Saving doc as MHTML Hi , I am generating a Word 2003 document using VBScript similar to the following: ' Create an instance of Word Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True ' Add a new document Set wrdDoc = wrdApp.Documents.Add wrdDoc.PageSetup.Orientation = wdOrientPortrait wrdDoc.Select Set wrdSelection = wrdApp.Selection wrdDoc.Select ' Create a string and insert it into the document StrToAdd = "Release Note" wrdSelection.Font.Name = "Arial" wrdSelection.Font.Size = 12 wrdSelection.Font.Bold = True StrToAdd = "Build Information" wrdSelection.ParagraphFormat.Alignment = 0 'wdAlignParagraphLeft wrdSelection.TypeText StrToAdd 'now save it as MHTML wrdDoc.SaveAs "C:\Temp\Dev\BuildReleaseNotes.mhtml",10 ' I have also tried wrdDoc.SaveAs "C:\Temp\Dev\BuildReleaseNotes.mhtml",8 But the resulting mhtml file is not in the correct MHTML format, I would like to know how to emulate the Word -> File -> Save As -> Web Archive (*.mht, *.mhtml) function in VBScript. Any help much appreciated.. thanks in advance Regards David E Tag: Word Form Tag: 40566
  - 20
    - How do I use a custom function? This should be a simple but I cannot find the answer anywhere in the help index. I've created my own VB function in Word 2000 that converts a number to text. For example, if a cell in a table holds the number 1,234.56 it will return One thousand two hundred and thrty four pounds 56 pence. It's called F_AmountInWords. But I can work out how to use it in a cell. I've tried inserting a field with the field code = AmountInWords (RIGHT) \* MERGEFORMAT But it just returns "!Syntax Error,(." I gather this is because the = function only uses built in function, but how do I call one from Module1. Many thanks, Mark Tag: Word Form Tag: 40561
  - 21
    - AutoText retrieval. I want to create a VBA routine to attach to a Word XP toolbar button which when selected will display the AutoText entries relating only to the template attached to the new active document. At present I am using SendKeys in the following way to achieve the desired result but am thinking that there must be a better method of doing this: SendKeys "%iax" & "%l" & "LTSB Tender" & "{Enter}" & "{Tab}" & "{Enter}", True This simulates the reader selecting Insert|AutoText|AutoText, going to the "Look in" field and then typing "LTSB etc" to select the appropriate template and then completing the operation of tabbing to the OK button and selecting it. Crude, I know. But it works. Any new results I apply will also have to Work in Word 97 as some users are still on that version. Could anyone help with this challenge, please? Regards Rod Tag: Word Form Tag: 40560
  - 22
    - First Line Prints Twice Howdy, Where I work, we have a problem printing to envelope printers. So we use the code below to allow the user to select the address in the letter and with macro tell Word to just print to the envelope without first checking to see if there is an envelope printer present. Sub BobEnvelopePrinter() ' ' Written by Bob Application.ScreenUpdating = False With activedocument.Bookmarks .Add Range:=Selection.Range, Name:="EnvelopeAddress" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.HomeKey Unit:=wdStory activedocument.Envelope.Insert Size:="Size 10" activedocument.Envelope.FeedSource = wdPrinterEnvelopeFeed activedocument.Envelope.PrintOut ExtractAddress:=True, OmitReturnAddress _ :=False, PrintBarCode:=True, FeedSource:=True, Size:="Size 10", _ ReturnAddress:="", AddressFromLeft:=100, _ AddressFromTop:=100, ReturnAddressFromLeft:=wdAutoPosition, _ ReturnAddressFromTop:=wdAutoPosition, DefaultOrientation:=wdLeftLandscape _ , DefaultFaceUp:=True activedocument.Sections.First.Range.Delete Selection.MoveRight Unit:=wdCharacter, Count:=1 Application.ScreenUpdating = True Beep End Sub Now we are experiencing a new problem as we are testing a new image that is comprised of Windows 2000 running Office 2000. Now when we use that code above, it prints the first line of the address twice Once at the top of the address of the envelope and once at the bottom of the address of the envelope. I.E Ralph Cramden 1 Bonnie Meadow Road Portland ME 04112 Ralph Cramden I ran the code above and stopped it just before printing the envelope. The code properly creates a fresh section at the top of the document and formats the paper of that new section to be an envelope. However when the "PrintOut' command runs, the problem we see above appears on the printed envelope. The first line prints twice. We did not have this problem running Windows NT 4 with Office 97. When we run Windows 2000 with Office 2000 SP1 one of the testers always gets this lousey result. The other tester experiences the double printing sporatically and we are still looking for a pattern regarding when it occurs with the second tester. We use PCL 5 and tried printing to a HP8000 and an HP8150 and got the same result. So we are at a loss as to what would/could be the cause and how to fix it . Any insights on this would be appreciated. If you with to reach me directly, my address is at @juno.com with the username bobmeister2 Bob T. Tag: Word Form Tag: 40558
  - 23
    - Preventing a user to change header/footer I tried the VBA as found on http://www.mvps.org/word/FAQs/Customization/ProtectWord200 0PlusHeader.htm, but I get an error on the line ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument I'm using Windows 2002 SP 2. What should I change ? Tag: Word Form Tag: 40557
  - 24
    - Output all options Hi all, I need to be able to output all the settings that a user has under the Tools | Options menu. There has to be a looping mechanism that I can use to access all the settings. Ideas? TIA and have a great day! Steve Lang Tag: Word Form Tag: 40556
  - 25
    - How do I use VBA in Word 2000 or XP to calculate height & length of text strings... Hi All! How do I use VBA in Word 2000 or XP to calculate height & length of text strings (based on font type/size) so I can dynamically size per-page output from a database? Thanks! MG Tag: Word Form Tag: 40554

Hi

Request some help in automating a form in word. I need to create form
which would be sent as an email to users. This form would accept
numerical data in combo boxes from the users. Then average result
needs to be calculated and stored in a hidden field in the form, which
could be viewed by me when the users update the form and send it to
me.

I am able to put the combo fields using the forms menu.

I am not able to calculate the average of the inputed fields and hide
the same.

Any advice, appreciated.

Thanking you.

PR.

Top

Re: Word Form by Doug

Doug
Fri Nov 07 03:27:50 CST 2003

Hi PR,

Assuming that you have n Dropdown fields with the bookmark names Dropdown1,
Dropdown2, ... Dropdownn-1, Dropdownn, then if you run the following macro
on exit from each of the Dropdown fields

Dim i as integer, vsum as long

vsum = 0
For i = 1 to n
vsum = vsum + ActiveDocument.Formfields("Dropdown" & i).Result
Next i
ActiveDocument.Variables("vAverage").Value = vsum/n

Then when you get the document back, run a macro containing the following
code and the average will be displayed in a message box.

MsgBox ActiveDocument.Variables("vAverage").Value

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
"PR" <getpras@yahoo.com> wrote in message
news:c2e96c1d.0311060809.1a72e8be@posting.google.com...
> Hi
>
> Request some help in automating a form in word. I need to create form
> which would be sent as an email to users. This form would accept
> numerical data in combo boxes from the users. Then average result
> needs to be calculated and stored in a hidden field in the form, which
> could be viewed by me when the users update the form and send it to
> me.
>
> I am able to put the combo fields using the forms menu.
>
> I am not able to calculate the average of the inputed fields and hide
> the same.
>
> Any advice, appreciated.
>
> Thanking you.
>
> PR.

Top