How do I permanently retain autotext entries?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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 permanently retain autotext entries? Tag: 66423
  - 2
    - 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 permanently retain autotext entries? Tag: 66421
  - 3
    - 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 permanently retain autotext entries? Tag: 66417
  - 4
    - 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 permanently retain autotext entries? Tag: 66410
  - 5
    - 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 permanently retain autotext entries? Tag: 66407
  - 6
    - 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 permanently retain autotext entries? Tag: 66396
  - 7
    - 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 permanently retain autotext entries? Tag: 66393
  - 8
    - 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 permanently retain autotext entries? Tag: 66392
  - 9
    - 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 permanently retain autotext entries? Tag: 66384
  - 10
    - 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 permanently retain autotext entries? Tag: 66382
  - 11
    - how can i sort a 241 page document in word 2003 please help me out Tag: How do I permanently retain autotext entries? Tag: 66377
  - 12
    - 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 permanently retain autotext entries? Tag: 66376
  - 13
    - 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 permanently retain autotext entries? Tag: 66375
  - 14
    - 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 permanently retain autotext entries? Tag: 66373
  - 15
    - 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 permanently retain autotext entries? Tag: 66371
  - 16
    - 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 permanently retain autotext entries? Tag: 66370
  - 17
    - 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 permanently retain autotext entries? Tag: 66369
  - 18
    - 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 permanently retain autotext entries? Tag: 66366
  - 19
    - 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 permanently retain autotext entries? Tag: 66363
  - 20
    - 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 permanently retain autotext entries? Tag: 66360
  - 21
    - 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 permanently retain autotext entries? Tag: 66352
  - 22
    - 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 permanently retain autotext entries? Tag: 66340
  - 23
    - 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 permanently retain autotext entries? Tag: 66338
  - 24
    - 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 permanently retain autotext entries? Tag: 66333
  - 25
    - word pagination I don't know if I am posting this to the best place, so if I not please suggest a better one. We currently have word and excel templates that are used to generate documents that are pasted into scientific notebooks. The auditors put page numbers on these pages by using a manual stamp. We have to do this to insure that noone can come along and create another page 12. I would like a way to automate this somehow. Can I create a template that when printed can pull a page number from a db then print that word doc and never print that same number again. I know there are always ways someone can beat the system but what's my best approach?? Thanks for reading and thanks for any susggestions. Mike Tag: How do I permanently retain autotext entries? Tag: 66328
- Next
  - 1
    - DB connectivity in word How can I make database connectivity (Access and Excel) in Microsoft Word VBE. If possible please give me one sample code. Tag: How do I permanently retain autotext entries? Tag: 66323
  - 2
    - Tables--Reading them Quickly I have a pretty fast machine (everything else I do goes at 'lightning speed'). Yet it takes almost 20 seconds for my computer to read the 300 row/2 column table. Am I doing something inefficient with this formula? -------snip------------- Set otable = Selection.Tables(1) NumRows=otable.Rows.count ' this ranges from 300 to 350 redim Name1(NumRows) redim Name2(NumRows) With otable For nRow = 1 To NumRows Name1(nRow) = .Cell(nRow, 1) Name2(nRow) = .Cell(nRow, 2) Next End With ------snip-------------- What improvements are possible? Are reads from tables just inherently slow? Thanks. -- Ed Tag: How do I permanently retain autotext entries? Tag: 66322
  - 3
    - Making an available printer Active Hello all, I'm not quite a novice but... I've seen the article on word.mvps.org about getting a list of all the available printers and can get it into a ListBox without any problem. But how do I get one of the printers from the list to be the ActivePrinter ? I want a basic form without offering any chance to change print parameters - just the a.m. ListBox and a button that says "Print" and will hide the form when finished. Tag: How do I permanently retain autotext entries? Tag: 66320
  - 4
    - Run a macro automatically when opening a document - how? I'm a novice with macros and want to be able to run a macro automatically when opening a document to execute a bunch of ASK and REF fields to capture setup info e.g. customer name, address etc, store them in bookmarks and then paste the data into various parts of the doc. Is a macro the best way to do this or is there a better way? Tag: How do I permanently retain autotext entries? Tag: 66319
  - 5
    - Attached template : orginal name Hi, I use vba to change the "attached template" value of copied documents to a new value. However, Word changes the value to "normal.dot" if it doesn't find the template, but it stores the original value somewhere, cause you can see it in the document, how can I find this original value through vba ? thanks in advance Xavier Tag: How do I permanently retain autotext entries? Tag: 66313
  - 6
    - word doc with fillin fields opens with no toolbars Hi, I'm using vba to open word documents using templates. I've got a problem where if I open a document using a template that contains fillin fields, the document opens (after the user has entered values into the fillin fields), but with no toolbars - not even the Menu toolbar. However, if I open a document using a template that doesn't have the fillin fields, the document opens and the toolbars are there. If I manually open a document using the template containing fillin fields, I don't get the missing toolbars problem. The vba code I have to open the document is: ------- Dim WordObj As Word.Application Set WordObj = CreateObject("Word.Application") Dim objWord As Word.Document Dim strFile As String strFile = "C:\Program Files\Microsoft Office\Templates\NotificationTemplate.dot" Set objWord = WordObj.Documents.Add(strFile) WordObj.Visible = True WordObj.Activate -------- Can anyone help? Thanks, t. Tag: How do I permanently retain autotext entries? Tag: 66310
  - 7
    - money do you have to pay for it ? Tag: How do I permanently retain autotext entries? Tag: 66307
  - 8
    - syntactical help I'm trying to use the following method to insert a textbox into a document and format it as I go, but I'm up against some sort of vba compiler/syntactical problem I don't understand yet: With ActiveDocument.Shapes.AddTextBox([orientation, position size etc]) ...[various textbox class members here, e.g....] .TextAlign = fmTextAlignCenter .BorderStyle = fmBorderStyleNone [etc] End Width But Option Explicit doesn't like that, presumeably becuase 'AddTextBox' is returning a Shape, not a Textbox. My first instict is to want to do something like... With Ctype(ActiveDocument.Shapes.AddTextBox(...), TextBox) ...[compiler-friendly textbox member references] End With But that's vb.net, not vba. How do I get vba to let me play with what .AddTextBox is returning as if it were a textbox while keeping Option Explicit happy? I don't want to cheat and turn it off. Is there a Ctype-like keyword, a different add-a-textbox method I'm not aware of? Tag: How do I permanently retain autotext entries? Tag: 66306
  - 9
    - insert multiple documents into document retaining headers and foot question: I know how to insert multiple documents and an example is also in the list below. Only problem is that when using this method headers and footers are not retained. this is caused by the sameasprevious when inserting a sectionbreaknextpage at the end of of each document. This means that when I insert for example the second document the header and footer of the first are being used for the second document. This is the code from steve lang, only thing adapted is the pagebreak that is now a sectionbreak, this is needed to keep pagesettings correct: Sub Foo() Dim i As Long Application.ScreenUpdating = False Documents.Add With Application.FileSearch 'Search in foldername .LookIn = "C:\test" .SearchSubFolders = False .FileName = "*.doc" .Execute For i = 1 To .FoundFiles.Count If InStr(.FoundFiles(i), "~") = 0 Then Selection.InsertFile FileName:=(.FoundFiles(i)), _ ConfirmConversions:=False, Link:=False, Attachment:=False Selection.InsertBreak Type:=wdsectionBreaknextpage End If Next i End With End Sub turning off sameasprevious after inserting the doesn't help very much because at that point the header and footer of the first document are already used. Maybe there is a way, that I don't know to bring them back into the previous state If been trying all kinds of stuff to get this to work, nothing seems to work only thing that did work was using a maindocuments and add subdocuments to it but this was way to slow when you need to append for example 1000 documents. Please help me on this issue, -- Rocco Tag: How do I permanently retain autotext entries? Tag: 66302
  - 10
    - Find routine in VBA I want to use VBA to find all the bold text in a document. When found and still selected, copy the formatting, apply a character style called WHATEVER, then paste the copy formatting back on top of the same text. Once that is done, Find the next occurance. I need to do this for Italic, and Underline, and Plain Text. I can't use wdReplaceALL because I need the text still selected so I can apply the character style. I can't seem to get this to work. The macro runs forever. When I break, all the bolded text is exactly what I want (the character style + bold) but nothing else. One time I got all but the italics. Dim doc As Document Dim strFilename As String Dim styFilename As Style Dim rngToSearch As Range Dim rngResult As Range Dim f As Font Set doc = ActiveDocument 'Capture the document name into a variable strFilename = Left(doc.Name, Len(doc.Name) - 4) On Error GoTo ErrorHandler 'Define a character style with no font attributes Set styFilename = doc.Styles.Add(Name:=strFilename, Type:=wdStyleTypeCharacter) With styFilename With .Font .Bold = False .Italic = False .Underline = wdUnderlineNone End With End With BeginHere: Set rngToSearch = doc.Range Set rngResult = rngToSearch.Duplicate 'Make sure there isn't any text currently selected If Selection.Type <> wdSelectionIP Then Selection.Collapse _ Direction:=wdCollapseStart End If 'Look for Bold text Do With rngResult.Find .ClearFormatting .Format = True .Font.Bold = True .Forward = True .Wrap = wdFindStop .Execute End With If Not rngResult.Find.Found Then Exit Do Set f = rngResult.Font.Duplicate With rngResult .Font.Reset .Style = styFilename .Font = f .MoveStart wdParagraph .End = rngToSearch.End End With Set f = Nothing Loop Until Not rngResult.Find.Found 'Look for Italic text Do With rngResult.Find .ClearFormatting .Format = True .Font.Italic = True .Forward = True .Wrap = wdFindStop .Execute End With If Not rngResult.Find.Found Then Exit Do Set f = rngResult.Font.Duplicate With rngResult .Font.Reset .Style = styFilename .Font = f .MoveStart wdParagraph .End = rngToSearch.End End With Set f = Nothing Loop Until Not rngResult.Find.Found 'Look for underline text Do With rngResult.Find .ClearFormatting .Format = True .Font.Underline = wdUnderlineSingle .Forward = True .Wrap = wdFindStop .Execute End With If Not rngResult.Find.Found Then Exit Do Set f = rngResult.Font.Duplicate With rngResult .Font.Reset .Style = styFilename .Font = f .MoveStart wdWord .End = rngToSearch.End End With Set f = Nothing Loop Until Not rngResult.Find.Found 'Look for plain text Do With rngResult.Find .ClearFormatting .Format = True .Font.Italic = False .Font.Bold = False .Font.Underline = wdUnderlineNone .Forward = True .Wrap = wdFindStop .Execute End With If Not rngResult.Find.Found Then Exit Do Set f = rngResult.Font.Duplicate With rngResult .Font.Reset .Style = styFilename .Font = f .MoveStart wdWord .End = rngToSearch.End End With Set f = Nothing Loop Until Not rngResult.Find.Found Else 'If Response = vbNo MsgBox ("Document will not be changed") Exit Sub End If Application.StatusBar = "" ErrorHandler: Select Case Err.Number 'Style name already exists Case 5173 Set styFilename = doc.Styles(strFilename) GoTo BeginHere End Select End Sub Thanks! Caren Tag: How do I permanently retain autotext entries? Tag: 66301
  - 11
    - Function DayLightSavingsTime Any suggestions regarding a way to determine if day light savings time is in effect. Thanks in Advance. -- Tim Shaffer Tag: How do I permanently retain autotext entries? Tag: 66299
  - 12
    - Date format in Message lastMod = ActiveDocument.CustomDocumentProperties("ModificationDate").Value If MsgBox("The document modification date is " & lastMod & _ ". Do you want to change" & " the document modification date to today's date?", vbYesNo) = vbYes Then ActiveDocument.CustomDocumentProperties("ModificationDate").Value = Date ... The date is shown with both Date/Time, but I want it to be displayed as a date only. What do I need to do to get the desired format? ModificationDate is a Custom Property of the document and is in DATE format. Thanks in advance Barb Reinhardt Tag: How do I permanently retain autotext entries? Tag: 66295
  - 13
    - How can I remove my com addin from the Words? I have created an Word com addin .dll with a commandBar and registered with the Words. The problem is that every time I modified my codes, more buttons are created on the Words commandBar list. How can I remove my com addin from the Words? Thanks. -- Message posted via http://www.officekb.com Tag: How do I permanently retain autotext entries? Tag: 66293
  - 14
    - How do I change the path of the Word.WdWordDialog.wdDialogFileOpen? I want to be able to change the file path from the default "My documuent" path to something like "e:\test\doc\", see the codes below: private void WordDialog() { object m = Type.Missing; Word.Dialog dlg = thisApplication.Dialogs [Word.WdWordDialog.wdDialogFileOpen]; Type dlgType = typeof(Word.Dialog); string path = selectedServerPath; // Set name property of dialog box. dlgType.InvokeMember("Name", System.Reflection.BindingFlags.SetProperty | System.Reflection.BindingFlags.Public | System.Reflection.BindingFlags.Instance, null, dlg, new object[] {"e:\\test\\doc\\*.doc"}); // Display dialog box. dlg.Show(ref m); Close(); } The code still gives me the "My documuent" path, when this method is called. How can I fix it? Thanks. -- Message posted via http://www.officekb.com Tag: How do I permanently retain autotext entries? Tag: 66292
  - 15
    - AttachedTemplate In Word VBA help is an example how to change the AttachedTemplate of a document: ActiveDocument.AttachedTemplate = "C:\Templates\Letter.dot" But when I use this example with my template, there is always error 5947: document template cannot be changed. I want to change the template of a lot of Normal based documents, so how can I do this without getting this error? Tag: How do I permanently retain autotext entries? Tag: 66288
  - 16
    - What's the use rand() function in Microsoft Word? Dear Developers, .At present I am using Microsoft Office XP version .There is something amazing happens with me.......that if I typed =rand(200,99) in Microsoft Word and after Pressing an Enter key.....It displays "The quick brown fox jumps over the lazy dog" and fills 235 pages of the document with the above line..........I couldn't understand Why it happens?.....Can u help me in this matter. Plz reply me as soon as possible Waitng for ur positive reply Tag: How do I permanently retain autotext entries? Tag: 66286
  - 17
    - How to check the selection is empty after cut? Hi, I have the macro that use vba to select the whole text of the current document consider of a lot of pages and do cut and paste to a new document as separate pages. But the problem is if my current document is a blank document, how do i check that it is a blank and the macro will not select and do cut and paste as i have encountered run time error when the current document is blank. please advise. thanks. regards, ben Tag: How do I permanently retain autotext entries? Tag: 66280
  - 18
    - How to shift up lines in a Word template (.dot) when previous row. In a Word template created for users to enter row values, if a value is desired to be left blank, how can I shift up the following rows to fill the line left blank? Tag: How do I permanently retain autotext entries? Tag: 66276
  - 19
    - VB Help When I try to run a Word macro named UpdateTOC, I receive a "Run time error '5678': Word cannot find the requested bookmark." message. When I click the "debug" button, I'm taken to this line within the code: "Selection.GoTo What:=wdGoToBookmark, Name:="toc"" This is the rest of the code: ``````````````````` Sub UpdateTOC() Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToBookmark, Name:="toc" With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = False End With ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes With ActiveDocument .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _ True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _ LowerHeadingLevel:=4, IncludePageNumbers:=True, AddedStyles:="" .TablesOfContents(1).TabLeader = wdTabLeaderDots End With Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToBookmark, Name:="tocend" With ActiveDocument.Bookmarks .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeParagraph End Sub ````````````` Can anyone provide any insight in two what is going on or attempting to happen? I have no experience in VB coding, so laymans terms may be necessary to explain it. ;-) Thanks. Tag: How do I permanently retain autotext entries? Tag: 66274
  - 20
    - I give up... I am either too tired to think straight or I am overlooking something simple here... Here is the background: Word 2003. A document contains some characters that are formatted with the Symbol font and that were inserted with the Insert Symbol dialog. The same document also contains "(" that are meaningful. A macro is looking for those "(" but since AscW(Selection.Text) returns 40 for the "(" and for the Symbol font characters, we need to tell if the character is really a "(" or not. We do not care what symbol it is, as long as we can tell the symbol apart from the "(". So, I came up with this macro using some of the clever code I found from Klaus Linke: '_______________________________________ Sub MainMacro() Dim MyRange As Range Dim CheckCar As Range Set MyRange = Selection.Range For Each CheckCar In MyRange.Characters If AscW(CheckCar) = 40 Then If CheckIfSymbol(CheckCar) Then MsgBox "Ne pas traiter ce caractère." Else MsgBox "Traiter cette parenthèse." End If End If Next End Sub '_______________________________________ '_______________________________________ Function CheckIfSymbol(MyCar As Range) As Boolean CheckIfSymbol = False With Selection.Find .Text = "[" & ChrW(61472) & "-" & ChrW(61695) & "]" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute If .Found Then MsgBox "Ce n'est pas un parenthèse ouvrante" CheckIfSymbol = True End If End With End Function '_______________________________________ Basically, I check every character that are selected, if I find that one of them is a "(", I double check to make sure that it really is a "(" and not a symbol. Here is the problem: With .Wrap = wdFindStop in the function, the .Found property is always false, even if a symbol is currently selected. If I change .Wrap = wdFindStop to .Wrap = wdFindContinue Then the .Found property is always true because it always finds the symbol character in the document, even if it is not in the original selected range. Why is the Find actually working to tell symbols apart from "(" when doing a document wide search, but not when checking a specific character? I have done this before, but not with symbol characters. I remember doing this to tell if a selected character was a section break or a page break. I used basically the same kind of code and it worked without any problem. This isn't working and I cannot tell why! Something to do with wild cards? Arrrggghhh! I need a coffee! -- Salut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Tag: How do I permanently retain autotext entries? Tag: 66271
  - 21
    - Word Replace Function Hi I am using Word 2003 and am trying to figure out if there is a way to restrict the Replace functionality to only search/replace in the document header/footer. When the document opens up, the user is presented with a form. One of the fields they enter into the form will be used for the Search/Replace. Thanks in advance Tag: How do I permanently retain autotext entries? Tag: 66264
  - 22
    - Find, Cut, then Paste Methodology I have a number of documents that have questions in one part of a document and the corresponding answers in another part of the document. I need to modify the document to have the answer four lines after the associated question. I need to be able to: 1) loop through the document, 2) find "question 1", 3) go down 4 lines and mark that location as the place to paste "answer 1", 4) then find "answer 1", 5) cut "answer 1" and paste in the new location for "answer 1". 6) loop to the next question number. Can anyone help me get started? Thanks in advance, Raul Tag: How do I permanently retain autotext entries? Tag: 66253
  - 23
    - Styles that inherit Is it possible in Word to define styles that inherit margins from the paragraph that precedes? IOW, I would like to define, say "Bullet" to indent 0.2 in from the left of the margin, with "margin" being defined by the style of the previous paragraph. "Bullet" therefore is always indented 0.2" in from whatever is above it. TIA Tag: How do I permanently retain autotext entries? Tag: 66252
  - 24
    - Adding FormFields G'day there One & All, Please accept my apology if I've come to the wrong NG, although the name seems inclusive of pretty much everything related to Word VP Programming =). I'm currently trying to write a bit of a Word application. I'm not a trained, nor even a practised, macro writer but I have had a little success with Excel applications for my employer. I'm still trying to come to grips with Word's way of doing things and I've struck difficulties. I have a document with a table at the top of the page. It has only a single row with 4 cells. The first contains day & date fields which I have working the way I want. The next 3 cells are causing my problems. After the headings I'm trying to get FormFields for data entry as follows: Name: Shift: Number: [ ] [ ]-[ ] [ ] As you can probably guess, the "Shift" fields are for start & finish times. I'll write a macro to add 8 hours to the start time to automatically enter the end time. Name & Number need nothing fancy. I have 2 command buttons included which are labelled "+" & "-". What I'm trying to do is to have the first one add a row of fields under what's already there: Name: Shift: Number: [ ] [ ]-[ ] [ ] [ ] [ ]-[ ] [ ] ...and the latter one bring up a form to select a name and remove the fields associated with it. I can make & manipulate the userform without any problem, but I can't figure out how to make the fields appear where I want them (immediately below the others, in the same cells). I could probably get it to work by making a nested table of only one column width for each field - code for which I found on a forum somewhere - but although that was suitable for the forum member's situation, that seems to be just a workaround here. Surely there must be some way to position text entry formfields when you make them. Can anybody please shed some light on this for me? Thanks in advance, Ken McLennan Qld, Australia Tag: How do I permanently retain autotext entries? Tag: 66249
  - 25
    - Reading info from styles Hi Folks, I'm trying to find a quick and dirty way of reading the Tab information (Alignment & leader), Bullet information (whether bulleted, Numbered or Outline Numbered and all the customizations) and Border settings from a style. Any pointers, Especially on the Tab and Numbering, would be grately appreciated. Thanks J Tag: How do I permanently retain autotext entries? Tag: 66248

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?

Top

Re: How do I permanently retain autotext entries? by Charles

Charles
Thu Apr 07 15:04:10 CDT 2005

Do you have Acrobat 7 installed? If so that is the problem.

Otherwise, consider keeping your AutoText in a separate file. See
http://addbalance.com/word/movetotemplate.htm for step-by-step instructions
on moving / sharing / copying / backing-up customizations including
AutoText, AutoCorrect, keyboard assignments, toolbars, macros, etc.
--

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.

"claypeg@hotmail.com" <claypeg@hotmail.com@discussions.microsoft.com> wrote
in message news:26C0CCCB-4859-4BF8-9D46-39FEB0991FDF@microsoft.com...
> 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?

Top