How do I create text that if you type within it it will be repaced

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - does anybody know optical character recognition? I am trying to find out how to scan a form into OCR. Do anybody know how? Tag: How do I create text that if you type within it it will be repaced Tag: 66518
  - 2
    - Fixed Size Table Hello I use C++ to automate Word. Here is the code to insert a table with 1 row and 1 column BOOL CAutoWordDlg::AddCoverPage( Selection WordSelection) { WordSelection.TypeParagraph(); Range WordRange = WordSelection.GetRange(); WordRange.Collapse( vtCollapseEnd); Tables WordTables = WordSelection.GetTables(); Table WordTable = WordTables.Add( WordRange, 1, 1, vtFalse, vtTrue); } The parameters of the Add function allows the AutoFit of the table ... OK but I would like to set a fixed size for this table, say 80% of the page with and 80 % of the page height. Is it possible to do this ? Thanks for your help Thierry Tag: How do I create text that if you type within it it will be repaced Tag: 66515
  - 3
    - Is their any way to automacically copy text in Word from one page. Is their any way to automacically copy text in Word from one page to another, or from one document to another Tag: How do I create text that if you type within it it will be repaced Tag: 66511
  - 4
    - new document counter: how to change? Hello, I want to change default name for new document (like "Doc1", "Doc2", ... in Polish and German version it is "Dokument1", "Dokument2"). Is it possible? I need it, because my VBA application creates one "hidden" document for each newly created document. So, user creates first document ("Dokument1") and one hidden, linked to first one, is created (not visible, but it uses name "Dokument2"). Then, user closes document ("Dokument1") - automatically hidden document ("Dokument2") is closed - and creates second one. He is suprised, that its name is "Dokument3" (should be "Dokument2"). Is there any property to set counter of documents? Regards, Tomasz Swedrowski Tag: How do I create text that if you type within it it will be repaced Tag: 66510
  - 5
    - Fax programming via Ole automation for sending faxes over a LAN enviroment I search lot of time for the best fax program with candy COM interface for send faxes from my APP, over the LAN... I would apreciate some confesions/comments via email about this... Thanks from Cordoba, Spain !! ........ Tag: How do I create text that if you type within it it will be repaced Tag: 66508
  - 6
    - Registry setting for Proof directory? Options.DefaultFilePath(wdProofingToolsPath) returns \program files\common files\microsoft shared\proof Is there a registry setting, or some other means, to get a pointer to \Documents and Settings\username\Application Data\Microsoft\Proof when there are no custom dictionaries? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: How do I create text that if you type within it it will be repaced Tag: 66507
  - 7
    - AutoText fields inserting as static text Program: Word 2003 Not sure how to describe this correctly, but when one of our users inserts an AutoText entry that contains a field code, such as Filename and Path or a date field, Word is inserting the *text* of the code, i.e. _ FILENAME \p _ (except there are boxes instead of "_"). I've made sure the user's language is set to English, but I'm not sure where else to begin with this problem. It's as though Word is not inserting the brackets enclosing the code, or it's automatically unlinking the field. Where the brackets should be enclosing the code, there are the boxes Word usually inserts for characters not included in a font set. So the code for pathnames and dates are inserted but not a working field code. Where the pathname should be, you just see the pathname code text in the document and that's how it prints (even when unchecking any options that cause the field code to print or be viewed in the document). I'm at a loss and am hoping for a resolution other than reinstallation. OTOH, the user *can* insert both the date field and pathname via Insert -> Field. Claudia Tag: How do I create text that if you type within it it will be repaced Tag: 66496
  - 8
    - Auto Fill Contracts In a contract I have the same name appearing over and over on the signature pages. How can I type it in once and have it copied throughout the document? Tag: How do I create text that if you type within it it will be repaced Tag: 66494
  - 9
    - delete section breaks Hi, for word xp, how could i delete all the section breaks in a document in vba? thank you, william. -- Tag: How do I create text that if you type within it it will be repaced Tag: 66493
  - 10
    - Strange Delineation of Sentences Consider the a document containing only: John Doe, Ph.D., is a scientist. As expected, "ActiveDocument.Words(1).Text" return "John". However, "ActiveDocument.Sentences(1).Text" returns "," and the second sentence is returned as "is a scientist". Is this a bug? Am I missing something here? Tag: How do I create text that if you type within it it will be repaced Tag: 66489
  - 11
    - How do I hide information in a Word document for different docume. Our team would like to create information once and use it throughout multiple versions of a document. Since we did not receive approval for a CMS, I am trying to optimize Word 2003 to gain us the same benefits. I guess you call it applying conditions to text. Thanks! Tag: How do I create text that if you type within it it will be repaced Tag: 66488
  - 12
    - Merging Two documents and have them print duplex as one document Here is what I need to do - I have a word document with several pages (grade reports), usually in the thousands. Each page is a separate grade report. I have a generic letter that I would like to print out on the back of each grade report (duplex printing). How can I add this generic letter to the back of each of the grade report? Is there a way to do this without using a macro...and if not how can I do it with a macro? Thanks. Tag: How do I create text that if you type within it it will be repaced Tag: 66483
  - 13
    - Specify Number of copies and individual footer for each copy. I have a document that I need to print exactly 3 copies of. On each copy I want a different footer, like "Customer Copy", "Our Copy", "File Copy". How can I do this programatically? Tag: How do I create text that if you type within it it will be repaced Tag: 66480
  - 14
    - Spelling suggetsions in Word should be in reverse order. In MS Word: When you right-click over an incorrectly spelt word, the spelling suggestions should list the most likely word closer to the mouse; the list should begin with the least likely suggestion and end with the most likely. Reversing the order that the words are currently listed in would make this feature more convenient. Tag: How do I create text that if you type within it it will be repaced Tag: 66473
  - 15
    - Spelling suggetsions in Word should be in reverse order. In MS Word: When you right-click over an incorrectly spelt word, the spelling suggestions should list the most likely word closer to the mouse; the list should begin with the least likely suggestion and end with the most likely. Reversing the order that the words are currently listed in would make this feature more convenient. Tag: How do I create text that if you type within it it will be repaced Tag: 66472
  - 16
    - Find/Replace of Phrases: How to Avoid Nesting? I need to run a series of find and replace operations on phrases. The idea is to standardize the wording of phrases but I am having trouble avoiding "nesting". Consider the following phrases that might be found in my document: Research Data Sharing Data Sharing I want to replace instances of "Data Sharing" with "Research Data Sharing". The desired result should be: Research Data Sharing Research Data Sharing However, if I do a search and replace, searching for "Data Sharing" and replacing with "Research Data Sharing" the text would become: Research Research Data Sharing Research Data Sharing How can I avoid this "nesting"? Thanks! Tag: How do I create text that if you type within it it will be repaced Tag: 66469
  - 17
    - Can I force a SAVE Hi I have designed some Word userform templates (based on Word 2000) and I am wondering if I can force people to Save a document as soon as it has been generated, and before they begin to add additional text to the document etc. I am very much a newbie, so if this is possible, I would appreciate lots of detail on how to please! Sample code would be even better! Thanks Dave Tag: How do I create text that if you type within it it will be repaced Tag: 66466
  - 18
    - Delete tables in the page footer I have two tables in the page footer and want to delete one of these, depending on what optionbox in the form is selected This code is not working so I need something similar.? ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.GoTo What:=wdGoToBookmark, Name:="bSidfStrategic" With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.Tables(2).Select Selection.Tables(2).Select Selection.Tables(2).Delete Selection.Delete Unit:=wdCharacter, Count:=1 Tag: How do I create text that if you type within it it will be repaced Tag: 66451
  - 19
    - adressing cells in table Dear experts, how can I select a cell in a table, some cells of which are 'connected' in the column next to it? The error message reads that an addressing of any cell is not feasible in a table whose cells are connected in any of its columns. But my selection confines itself to only one column, where the number of rows and cells should always be well-defined. Thank you Martin Tag: How do I create text that if you type within it it will be repaced Tag: 66449
  - 20
    - Need help in Find and Replace function I have a large Word document and I need to Find certain text and Replace it with a pre-defined bookmark. How? Thanks. Tag: How do I create text that if you type within it it will be repaced Tag: 66444
  - 21
    - Create User form I'd like to create a form to e-mail to users so that when they type in the spaces provided, the text behind their input does not move. Tag: How do I create text that if you type within it it will be repaced Tag: 66440
  - 22
    - Can't believe they did this? Easy way to fix? This table looked rather odd. On closer inspection, it was not a table, but totally created from individual drawing objects!! Each cell is its own text box, and each border is a separate line! Anyone got a rabbit in their hat for fixing this and making it a real table? Ed Tag: How do I create text that if you type within it it will be repaced Tag: 66439
  - 23
    - Macro to format pictures Hi, I find that I often need to copy pictures (for example screen prints) to Word and then format them. Often I use the same formatting over and over. I'd like to write a macro to do this for me. Unfortunately I'm not very familiar with the Word object model. I found the "crop" functions in the PictureFormat object. I haven't yet found the "Size" (I'd often like 100%) or the "in front of text" type options. Can anyone give me a hint as to where to look - or even if this is possible? Thanks, Art Tag: How do I create text that if you type within it it will be repaced Tag: 66436
  - 24
    - Delete 'filename and path' field from footer Hi There, I want to create a macro which deletes the field (File name and Path- FILENAME \p ) from footer and then insert my customized footer. I donâ??t know how to delete this fields I tried many different ways but none work properly please help. thanks! ---------- If WordBasic.ViewFooter() = 0 Then 'Go to footer area WordBasic.ViewFooter End If 'This will clear the contents of the previous Footer WordBasic.EditSelectAll WordBasic.EditCut ------------- ' this doesnt work ?????? FooterAField = NormalTemplate.AutoTextEntries("Filename and path") If FooterAField = 1 Then 'Marker exists, Delete it NormalTemplate.AutoTextEntries("Filename and path").Delete End If Tag: How do I create text that if you type within it it will be repaced Tag: 66435
  - 25
    - How do I calculate a duration of time in Word using form fields? I have three form fields that are bookmarked ... [start_date], [stop_date] and [duration_months]. Both dates are text form fields of "Date" type and formatted "mm/yy". [Duration_months] is a text form field of "Calculation" type with the expression "= datedif [stop] [start],m", length "Unlimited" and number format "0". The [Duration_months] field is returning the character "t". Example: [start_date] = 02/05 [stop_date] = 10/05 [duration_months] should come up with 8 Any help would be greatly appreciated!! Tag: How do I create text that if you type within it it will be repaced Tag: 66426
- Next
  - 1
    - How do I permanently retain autotext entries? An autotext entry entered and supposedly saved has disappeared from my autotext twice now. After the second "disappearance" I deleted many outdated and unused entries, thinking I had reached the storage capacity for Autotext. Lost the entry once again today, and discovered that at least two of the entries deleted yesterday appeared once again. Does anyone have an explanation? And how can I correct this? Tag: How do I create text that if you type within it it will be repaced Tag: 66425
  - 2
    - 5149: the measurement must be between 1584 and -1584 Hi All, The error message is coming up when a macro is run on word 2003 on XP Professional.Works fine on some machines and failes on others with the same configuration. the macro is: Any ideas? I have marked the error with : the error is here!!!!!!!!!!!!!!!!! Thanks mskinnerNOSPAM@intellisoftgroup.com //////////////////////////////////// Sub SaveFiles() 'Defsgn A - Z Dim li_top_margin As Single Dim li_left_margin As Single Dim li_right_margin As Single Dim li_bottom_margin As Single Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FolderExists("c:\intellicred\fax\") Then MsgBox ("The folder c:\intellicred\fax\ does not exist. This must be created") Exit Sub End If ChangeFileOpenDirectory "C:\intellicred\fax\" ActiveDocument.SaveAs FileName:="main.doc" li_top_margin = ActiveDocument.PageSetup.TopMargin li_bottom_margin = ActiveDocument.PageSetup.BottomMargin li_left_margin = ActiveDocument.PageSetup.LeftMargin li_right_margin = ActiveDocument.PageSetup.RightMargin With ActiveDocument.MailMerge .DataSource.FirstRecord = 1 .DataSource.LastRecord = 100000 .Destination = wdSendToNewDocument .SuppressBlankLines = True .Execute End With Documents(1).Activate ActiveDocument.SaveAs FileName:="mergeddoc.doc" Documents("main.doc").Activate ActiveDocument.Repaginate li_main_doc_page_cnt = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Documents("mergeddoc.doc").Activate 'Used to set criteria for moving through the document by page Application.Browser.Target = wdBrowsePage ActiveDocument.Repaginate 'get the number of pages in the mergedoc li_merge_doc_pages = ActiveDocument.BuiltInDocumentProperties("Number of Pages") p = 0 For i = 1 To li_merge_doc_pages p = p + 1 'For p = 1 To li_main_doc_page_cnt 'go to the MERGE TO document 'Select and copy the text to the clipboard ActiveDocument.Bookmarks("\page").Range.Copy If p = 1 Then DocNum = DocNum + 1 ls_new_doc_name = "fax_" & DocNum & ".doc" Documents.Add ActiveDocument.SaveAs FileName:="fax_" & DocNum & ".doc" ActiveDocument.PageSetup.TopMargin = li_top_margin /// the error is here!!!!!!!!!!!!!!!!!!!! ActiveDocument.PageSetup.BottomMargin = li_bottom_margin ActiveDocument.PageSetup.LeftMargin = li_left_margin ActiveDocument.PageSetup.RightMargin = li_right_margin 'set margins 'With Documents("fax_" & DocNum & ".doc").PageSetup ' .LeftMargin = InchesToPoints(li_left_margin) ' .RightMargin = InchesToPoints(li_right_margin) ' .TopMargin = InchesToPoints(li_top_margin) '.BottomMargin = InchesToPoints(li_bottom_margin) 'End With End If 'Open new document to paste the content of the clipboard into. Documents(ls_new_doc_name).Activate Selection.Paste If p = li_main_doc_page_cnt Then 'Removes the break that is copied at the end of the page, if any. Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Repaginate If ActiveDocument.BuiltInDocumentProperties("Number of Pages") > p Then Selection.TypeBackspace End If End If If p = li_main_doc_page_cnt Then Documents(ls_new_doc_name).Activate ActiveDocument.Save ActiveDocument.Close 'Move the selection to the next page in the document Documents("mergeddoc.doc").Activate p = 0 End If Documents("mergeddoc.doc").Activate Application.Browser.Next 'Next p Next i Documents("mergeddoc.doc").Activate ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges Documents("main.doc").Activate ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'Application.Quit _ End Sub /////////////////////////////////// Tag: How do I create text that if you type within it it will be repaced Tag: 66423
  - 3
    - Missing reference - Word Template - but it's there I have fixed this problem but I'd like to know why it happened. Here goes: I created a document that contains a macro that basically merges the document with a .TXT file. I transferred (if that's the right word) into a new template called "projectabstract.dot". I sent the document to other users along with instructions to save projectabstract.dot into the subdirectory where their other templates were (found by Tools, Options, File Locations). Most of the users did everything right and the macro ran fine. Then I needed to edit the document and the macro and send it out again. This time, some users (all Word97 users) got the message "Compile error: Can't find project or library". When I got them to stop the macro and go to Tools, References, it showed that the projectabstract.dot template file was MISSING. BUT it wasn't. It was in the same place that it had been (I got them to check). They unchecked the missing reference, saved the document and now the macro runs fine. BUT why did it say that the template itself was missing, which was wrong? I'm pretty sure that I sent them another copy of the template and told them to save it again, overwriting the one that was already there. The users I was working with are pretty savvy and usually follow the directions they are given. But if they hadn't replaced projectabstract.dot, could that have made the difference? We will probably be doing other things like this (i.e. one person creates a document/macro and sends it to other users) so I'd like to know which pitfall I fell into. Many thanks. Carol. Tag: How do I create text that if you type within it it will be repaced Tag: 66421
  - 4
    - How to Access Container from within an ActiveX Control! hi! i have an activex control for Word. i want to send Printing command to my Container(Word) to print itself at specific location from within my ActiveX (My be on clicking some context menu item.) is it possible to do that. if so then plz help me. A sample code will help a lot. Thanks in advance. Ahmad Jalil Qarshi Tag: How do I create text that if you type within it it will be repaced Tag: 66417
  - 5
    - If Staement question I have a macro Sub Save2() Dim vRefferingPhysician, vDate As String If vRefferingPhysician = "Swain" Then Save Else SaveR End If End Sub when I run the code it will always run the saveR macro, even if the field is swain am I asking the right if question? Thanks Tag: How do I create text that if you type within it it will be repaced Tag: 66410
  - 6
    - How to detect if autotext entry is showing? Hi, I have defined some autotext entries: when I type some text, the autotext entry is showing, and when I hit Enter the entry is inserted in the document. Now I have created a KeyBinding for the Enter key: when the Enter key is hit, a specific macro is executed. My question is: how can I detect in that macro if the autotext entry is showing? Thanks for help Henk Tag: How do I create text that if you type within it it will be repaced Tag: 66407
  - 7
    - Custom Document Properties - Writing Too Hi How can i write to a custom document property called TimesPrinted. This document property already exists. Many thanks DMc Tag: How do I create text that if you type within it it will be repaced Tag: 66396
  - 8
    - How can I reference another project as Normal? i can call normal function, Sub Foo() normalfunc ' normal.normalfunc End Sub But If I reference a project, I only call that like below: Sub Foo() RefProject.testfunc ' Why i must writer RefProject? End Sub Tag: How do I create text that if you type within it it will be repaced Tag: 66393
  - 9
    - Selecting columns in table gives 5992 error I have used the VB editor in Word 2000 to create a class that adds columns to existing tables and sets text in the new column cells based on the contents of the existing cells in the neighbouring column. To Insert Column: Create column object Select it Insert new column Set oColX = TableX.Columns(lngCol) oColX.Select Selection.InsertColumnsRight All went well till the program encountered a table split over multiple pages. I then got run time error 5992 ..... cannot select.... column has mixed cell widths! So a) how do I con Word into letting me select a column to insert a column after it or b) how do I insert a column where the table is split over a page split? Anybody solved this problem before. Thanks Tag: How do I create text that if you type within it it will be repaced Tag: 66392
  - 10
    - Documents referencing a ~tmp file ? I have several hundred documents that were created using a VBA template. Occasionally when closing of the documents based on the template, I get the error "This document cannot be closed because it is referenced by an open VBA project. You should close the project that references this document before closing this document." The documents that seem to do this have a weird reference to ~wrc004.tmp etc. How can I remove the references for ALL documents and replace them with the correct one programatically? Why would this be happening? Thanks! Ben Tag: How do I create text that if you type within it it will be repaced Tag: 66384
  - 11
    - If there's an error then Exit the Sub! Hi, This is simple for all of you but I can't get it to work. Instead of the user seeing a VBA error message, I'd like for the sub to end or for it to skip down a few lines of code. How do I do this? Thanks! Tag: How do I create text that if you type within it it will be repaced Tag: 66382
  - 12
    - how can i sort a 241 page document in word 2003 please help me out Tag: How do I create text that if you type within it it will be repaced Tag: 66377
  - 13
    - Table in Word XP Hi all I am looking for some help to fix the following problem. When I create a table in Word, it it possible to add a row by pressing the Tab key when the cursor is in the last cell of the table. I wish to be able to lock up the number of row so that it become impossible to add another row. It would be pactical when many independant table are created in the same document. (I do not want create a form; it is not always the right solution. I never found a solution by using Word "normal" features. Is there a way to do that by using some VBA code? Thank you very much in advance for any advice, help or code. Alain Kadlec Ottawa Tag: How do I create text that if you type within it it will be repaced Tag: 66376
  - 14
    - FileName on Last Page of Word Doc Hi, Can anyone help me with the code for the following: Open the footer Insert FileName (including path) preferably without the file extension in the footer of the LAST PAGE ONLY left aligned TNR size 8 font Gray color Close the footer I could record a Macro in Word, but it's bulky and I didn't know how to record the "last page only" thing. Thanks very much, Karen VB novice Tag: How do I create text that if you type within it it will be repaced Tag: 66375
  - 15
    - Need to find the web wizzard in office I have save a document to web and then try to go to web wizzard but can't find it in the list of wizzards in my office 03. Can anyone help Tag: How do I create text that if you type within it it will be repaced Tag: 66373
  - 16
    - Problem creating Attribute on XMLNode Hi, I'm trying to write some C# code that automates Word to do the following: - Open a document - Attach my custom schema - Search the document for some specific text - When I find the text, create an XML Node that includes an attribute - Save the document in XML format First off, I'm a total rookie at this. But here's a bit of the code I wrote: private void button1_Click(object sender, System.EventArgs e) { object sTokenPattern = "\\<%[A-Za-z.0-9]@%\\>"; object sReplace = ""; object wrap = Word.WdFindWrap.wdFindStop; Word.WdSeekView[] locations = { Word.WdSeekView.wdSeekCurrentPageHeader, Word.WdSeekView.wdSeekCurrentPageFooter, Word.WdSeekView.wdSeekMainDocument }; wordApp.ActiveWindow.View.Type = Word.WdViewType.wdPrintView; for (int x=0; x < locations.Length; x++) { wordApp.ActiveWindow.ActivePane.View.SeekView = locations[x]; bool bFound = true; while (bFound) { bFound = wordApp.Selection.Find.Execute( ref sTokenPattern, // FindText ref bFalse, // MatchCase ref bFalse, // MatchWholeWord ref bTrue, // MatchWildcards ref bFalse, // MatchSoundsLike ref bFalse, // MatchAllWordForms ref bTrue, // Forward ref wrap, // Wrap ref bFalse, // Format ref sReplace, // ReplaceWith ref none, // Replace ref bFalse, // MatchKashida ref bFalse, // MatchDiacritics ref bFalse, // MatchAlefHamza ref bTrue); // MatchControl if (bFound) { String sValue = wordApp.Selection.Text; object ch = Word.WdUnits.wdCharacter; object one = 1; object range = wordApp.Selection.Range; Word.XMLNode tokenNode = wordApp.ActiveDocument.XMLNodes.Add("Token", (string)FCINS, ref range); Word.XMLNode nameAttr = tokenNode.Attributes.Add("tokenName", "", ref missing); nameAttr.NodeValue = sValue; wordApp.Selection.MoveRight(ref ch, ref one, ref bFalse); } } } Now here's my problem. When the location is the main document, everything works fine. But when the location is either the header or the footer, I end up losing my attribute. That is, the code seems to execute just fine, but after saving the document and inspecting the XML, only the nodes that were created in the main document have their attributes. Here's some sample... main doc - <ns0:Token name="<%Common.DisplayName%>"> <w:r> <w:t><%Common.DisplayName%></w:t> </w:r> </ns0:Token> header - <ns0:Token> <== NOTICE MY NAME ATTRIBUTE IS MISSING <w:r> <w:t><%CurrentUser.Name%></w:t> </w:r> </ns0:Token> Am I way off base here? Any advice would be greatly appreciated. -Rob Tag: How do I create text that if you type within it it will be repaced Tag: 66371
  - 17
    - Insert shape at x, y on page n I want to insert the shape on the last page of a document (whatever page # that may be, it's variable). It's a textbox with some text in it, and it's background is filled with a bitmap of someone's signature - it goes on the last page in the bottom-right corner to "sign" a document. Our users "apply a signature to the document" by clicking a little macro button that does [essentially] this: Dim objYouWereHere as Range Set objYouWereHere = Selection.Range Application.ScreenUpdating = False 'Physically move to the "last page" Selection.EndKey Unit:=wdStory 'Position the signature textbox With ActiveDocument.Shapes("SignatureBox") .Top = 536 .Left = 231 End With 'Return my user to wherever they were prior to running the macro objYouWereHere.Select Application.ScreenUpdating = True I'm not well versed enough in word/vba to know the answer to this; but is it possible to programatically define the last page (maybe as a range?) in such a way that I could insert a shape onto it at an x, y coordinate relative to that page **without** having to move the selection? With the above methodology, the user does end up at wherever they were prior to running the macro, but the objYouWereHere.Select call can sometimes leave them at a new vertical scroll position and it's a little disorienting for them. So, before I go hunting down how to store & retreive the vertical scroll position (similar to how I store and retrieve the selection pre & post textbox adjustment)... is there a more "elegant" way to do this that doesn't require I move the selection at all? Insert shape at x, y on page n, without involving the Selection? Tag: How do I create text that if you type within it it will be repaced Tag: 66370
  - 18
    - Command Button and Lock I need information on how to add a CommandButton to Word2000 and have it be able to email that form back to the client with a set email address. I would also need to lock that form also. It does not allow me to lock the word document if I put in a CommandButton. -- Message posted via http://www.officekb.com Tag: How do I create text that if you type within it it will be repaced Tag: 66369
  - 19
    - Copy formfield value from one file to another I have two template files. The first one uses userforms to fill out fields in the template. Once this form is filled out, another template is opened (depending on user input). This second template also has userforms. The two documents have four fields in common. How can I get the values of these fields on the second form without the user having to enter them again? Tag: How do I create text that if you type within it it will be repaced Tag: 66366
  - 20
    - Picture opening as a doc?????????????? I don't even know how to search on this one! I'm quite confused. Following is a code snippit. It has opened a template and updated some doc variables and name then saves it. The template contains a picture. When I insert the "oDoc.SaveAs strDocName"... word opens up to a window for editing the picture (on top), and a window for the new doc. Prior to adding the save, only one window would open and it was for the new doc. HELP!! Thanks! With oApp .Options.DefaultFilePath(wdDocumentsPath) = ROOT_PATH & strSavDir .Selection.Goto wdGoToBookmark, Name:="WrittenBy" .Selection.Text = Author .Selection.Goto wdGoToBookmark, Name:="StartHere" oDoc.SaveAs strDocName .Visible = True End With Tag: How do I create text that if you type within it it will be repaced Tag: 66363
  - 21
    - form fields show up in RTF format I hope someone has a clue on this one! I created a form with a VBA macro that automatically does a SaveAs action to ensure the file is stored using field content to ensure the right file naming convention. I made it save in RTF format because that way the new document no longer contains my homemade macro which is needed to be able to e-mail the documents created this way since firewalls do not like homemade macros. Now, to my surprise the RTF files created this way still contain the drop down option lists from the original form ( I had expected only flat text to come through when saving as RTF) Does anyone have a clue why this happens or even better, how to prevent it? TX Saskia Tag: How do I create text that if you type within it it will be repaced Tag: 66360
  - 22
    - Column Break Help I am trying to create a word document using VB6 and need to use columns breaks but cant seem to find out why my code doesnt work the way it should. It creates a column break but when i trying to go back to one column to finish off the document it takes the second column and puts it on the next page. Any ideas on what i may be doing wrong with the code below? With surveyApp.Selection surveyApp.ActiveDocument.Range=AD=AD=AD=AD(Start:=3D.Start, End:=3D.Start).InsertBreak Type:=3DwdSectionBreakContinuous .Start =3D .Start + 1 With surveyApp.ActiveDocument.Range=AD=AD=AD=AD(Start:=3D.Start, End:=3DsurveyApp.ActiveDocument.=AD=AD=AD=ADContent.End).PageSetup.Text=ADC= =ADo=ADl=ADumns .SetCount numcolumns:=3D2 .EvenlySpaced =3D True .LineBetween =3D False .Width =3D InchesToPoints(2.75) .Spacing =3D InchesToPoints(0.5) End With Dim rs3 As New ADODB.Recordset Dim rs4 As New ADODB.Recordset Dim cmd As New ADODB.Command cmd.ActiveConnection =3D conn rs3.Open "SELECT * FROM groupname", conn, adOpenDynamic, adLockOptimistic If rs3.EOF Then .TypeText Text:=3D"None indicated" .TypeParagraph .TypeParagraph rs3.Close Else 'Setup for mutliple columns Dim currentline As Integer Dim group(500) As Integer 'this is the line that the group starts on Dim currentgroup As Integer Dim lines(500) As Integer 'this is the current group for a given line currentline =3D 0 currentgroup =3D 0 While Not rs3.EOF currentgroup =3D currentgroup + 1 group(currentgroup) =3D currentline lines(currentline) =3D currentgroup .TypeText Text:=3Drs3("groupname") .TypeText vbTab .TypeText Text:=3Drs3("problem") .TypeParagraph currentline =3D currentline + 1 rs4.Open "SELECT * From problemoccurred WHERE groupname =3D '" & rs3!GroupName & "' order by problemoccurred desc", conn, adOpenDynamic, adLockOptimistic While Not rs4.EOF .TypeText Text:=3Drs4("problemdesc") lines(currentline) =3D currentgroup .TypeText vbTab .TypeText Text:=3Drs4("problemoccurred") .TypeParagraph currentline =3D currentline + 1 ' .MoveRight unit:=3DwdCell ' .MoveRight unit:=3DwdCell rs4.MoveNext Wend rs4.Close rs3.MoveNext Wend rs3.Close If currentgroup > 1 Then Dim gobackto As Integer If lines(currentline / 2) =3D 1 Then gobackto =3D group(2) Else gobackto =3D group(lines(currentline / 2)) End If .MoveUp unit:=3DwdLine, Count:=3D(currentline - gobackto) .InsertBreak wdColumnBreak End If .EndKey wdStory With surveyApp.ActiveDocument.Range=AD=AD=AD=AD(Start:=3D.Start, End:=3D.End).PageSetup.TextColum=AD=AD=AD=ADns .SetCount numcolumns:=3D1 .EvenlySpaced =3D True .LineBetween =3D False=20 End With=20 End If=20 End With Tag: How do I create text that if you type within it it will be repaced Tag: 66352
  - 23
    - Find and replace font specs with macro First, my apologies on two counts: one, that I'm sure this is really basic, and two, that I think I may have asked this before but can't find and/or recall the answer. All I'm trying to do is to create a macro that will find a given string of text and change it to bold and underline (single). Thanks in advance! Tag: How do I create text that if you type within it it will be repaced Tag: 66340
  - 24
    - Adding a button to Automaticaly E-mail a Word Document? Hi there, im want to make a word document with fields for users to fill out, then press a button at the bottom, and the document will email to a specified email address' (within the programming) and then close the document. - the document will be opened from an email. if anyone can tell me how to achieve this, that would be great, thanks, Neil Tag: How do I create text that if you type within it it will be repaced Tag: 66338
  - 25
    - Problem with GoToNext(what:=wdGoToSpellingError) I am using Word 2003 for this problem. I have not tried with earlier versions. Using the code below, where rngError is of type Word.Range, strError is of type string and lngLastStart is of type Long, I find that the GoToNext fails when there is punctuation (e.g., comma, period, or slash) immediately after the spelling error. In that case, one of two things happens: 1. If the spelling error is the first word in the document, that spelling error is found, but no others are found. 2. If the spelling error is not the first word in the document, then all spelling errors up to, but not including that error, are found, and no errors after that spelling error are found. I did not find anything in the MSFT KB on this issue. The same problem occurs if I use GoToNext with the Range object, instead of the Selection object. The problem does not occur using the ProofReadingErrors collection, only when navigating with GoToNext(what:=wdGoToSpellingError). Any ideas on a workaround, without using the ProofReadingErrors collection? lngLastStart = -1 Do Set rngError = Selection.GoToNext(what:=wdGoToSpellingError) With rngError If .Start = lngLastStart Then Exit Do End If strError = .Text lngLastStart = .Start .Collapse direction:=wdCollapseEnd .Select End With Loop Tag: How do I create text that if you type within it it will be repaced Tag: 66333

Hi guys,

I'm trying to create a word docment with a series of "blank" areas in it. At
present they just have pink writing within them. I am looking now at being
able to label these blank areas. I.E what powerpoint does with its faded text
when you insert a text box. So that it will say for example "Insert Date
here" then when a user puts the date in it will remove the string of text and
replace it with what ever has been typed. Anythoughts would be greatly
appriciated.

cheers,

steve

Top

Re: How do I create text that if you type within it it will be repaced by Charles

Charles
Sun Apr 10 23:37:17 CDT 2005

Look into macrobutton fields. You can see samples of these in many of the
built-in templates. See
http://addbalance.com/usersguide/fields.htm#MacroButton and
http://www.mvps.org/word/FAQs/TblsFldsFms/UsingMacroButton.htm.
--
Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"Stevo" <Stevo@discussions.microsoft.com> wrote in message
news:4E6889D8-0BE1-446D-ABBA-0880DB0491F1@microsoft.com...
> Hi guys,
>
> I'm trying to create a word docment with a series of "blank" areas in it.
> At
> present they just have pink writing within them. I am looking now at being
> able to label these blank areas. I.E what powerpoint does with its faded
> text
> when you insert a text box. So that it will say for example "Insert Date
> here" then when a user puts the date in it will remove the string of text
> and
> replace it with what ever has been typed. Anythoughts would be greatly
> appriciated.
>
> cheers,
>
> steve

Top