Programatically adding new autotext entries to a global template

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Amending the File Open dialog Since upgrading to Word2003 I notice that the "Look in" box in File/Open dialog always seems to point to the last directory I used. Whilst this is sometimes convenient, most of the time I want to open files in the specific directory, "DirName", which I have created to contain my most used files, with its own tree substructure. I therefore wish to ensure that "Look in" always defaults to that given directory. Could (or should) this be achieved by modifying the following module already installed which ensures that the "Files of type" box always shows "All Files":- Sub FileOpen() With Dialogs(wdDialogFileOpen) .Name = "*.*" .Show End With End Sub Or should a separate new module be used. Being not too familiar with the Visual Basic codes, can someone kindly advise how to do this. Thanks Jack Sadie Tag: Programatically adding new autotext entries to a global template Tag: 72643
  - 2
    - drag & drop to word Hi, how to enable drop function(have a drag icon displaying, like drag something from outlook to Word) when I drag files in my application(VB application) into MS word document. Please help. Thanks. Tag: Programatically adding new autotext entries to a global template Tag: 72638
  - 3
    - Creating documents with a serial number I'm trying to figure out how to serialize documents when printing. For example, if I want to print 30 copies, I'd like each copy to have a different serial number for each one from 01-30. This would ideally be placed in a document footer, and would reset (or not reset) each time the document is openedAny help would be greatly appreciated. Tag: Programatically adding new autotext entries to a global template Tag: 72637
  - 4
    - How to Add Hyperlink to Protected Word Form Not sure if this is possible but I have a protected Word form where I need the following to happen: I have a checkbox where if it is unchecked then TextBox1 should be "N/A". However if the checkbox is clicked, I need Textbox1 to populate with Null, and Textbox2 to populate with a hyperlink. Anyone have any ideas how to do this? BTW I'm a beginner when it comes to programming so layman's terms would be great! Tag: Programatically adding new autotext entries to a global template Tag: 72636
  - 5
    - Clean Up for Merge Code Dear All, I have a template that is creating a new document using data from an access query that is merged into a Word template. All Office 2003 apps on Win2K and XP pro workstations. The document is created -- but there is also an additional "Document 1" that is created every time that has to be deleted -- a copy of the template with no data in it. If anyone can point out how I can eliminate that extra clutter, I would appreciate it. Additionally, my code is messy, since a lot of it was generated by recording. I'd appreciate gentle recommendations for cleaning it up. Right now, it says" Sub autonew() ' Perform Merge using CatalogTextSource.txt ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:= _ "C:\TEMP\MtgNoticeSource.txt", ConfirmConversions:=False, _ ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _ WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With ' Save New Merge Document as NewMeetingNotice.doc ChangeFileOpenDirectory "C:\My Documents\" ActiveDocument.SaveAs FileName:="\\cpa_comp\chapters\_chapter Programs\-Chapter Notice E-Form\__Current\NewMeetingNotice.doc", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False Followed by code to clean up and format the document Thnak you in advance for any assistance. Sincerely, Ridge (in New Joisey) Tag: Programatically adding new autotext entries to a global template Tag: 72631
  - 6
    - Identifying Pictures and Drawing Objects I've done some work with a template that shows and hides graphic images -- allowing a user to fax a document (show image of logo) or print the document on letterhead (hiding image of logo). I found that the picures came in as "Picture 11" and "Picture 22" and so on. I was able to identify them by using the recorder and selecting them and then looking at the code. But I was wondering if there is any, more efficient way, to identify image and drawing objects? Ridge (in New Joisey) Tag: Programatically adding new autotext entries to a global template Tag: 72628
  - 7
    - PrivateProfileString I have been using this method to store user defaults for client templates. In probably 8 years I've never had a problem with it. Now, I've had two testers run into problems where the .ini file doesn't seem to be storing, or if it does, it's not where I expect it to be. Since the client is in another city, I can't just sit at their PCs and figure out what's going on, so wonder if anyone here might have experienced any problems with this method. Word 2003. System.PrivateProfileString _ ("c:\" + vUser, "CHRTemplates", Key) = Value sGetProfile = System.PrivateProfileString _ ("c:\" + vUser, "CHRTemplates", Key) vUser is Application.UserName -- Colleen Tag: Programatically adding new autotext entries to a global template Tag: 72627
  - 8
    - Previous bookmark I'm using code to check to make sure an entry was made in a bookmarked field. After the message box prompts the user that the field requires an entry, how do I get back to the original bookmark, so that the user cannot go any further until an entry is made? Thanks. Amy Tag: Programatically adding new autotext entries to a global template Tag: 72625
  - 9
    - Strange toolbar behavior I have several toolbars with macros assigned to them. Two macros, for no apparent reason I can figure, rearranges the toolbars when I run them. The macros themsleves don't appear to have anything in them that would affect toolbar positions. They are both used to convert fill-in form fields to plain text -- one does the whole document, the other just does whatever is selected. When either macro runs, it moves two of the custom toolbars from one location to another. One toolbar has these macro assigned to it, the other is a custom toolbar with other macros, but not these particular ones. None of the other macros move toolbars around. The macros appears below, for what it's worth. Anyone have any ideas what might be causing this? Macro 1 ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview Selection.WholeStory Selection.Fields.Unlink Selection.HomeKey Unit:=wdStory Macro 2 ActiveDocument.PrintPreview ActiveDocument.ClosePrintPreview Selection.Fields.Unlink Selection.MoveLeft Unit:=wdCharacter, Count:=1 Tag: Programatically adding new autotext entries to a global template Tag: 72623
  - 10
    - Incorrect page numbers after inserting files MS XP / Word 2000 â?? 2003 Page Numbering Woes â?? I am having a hard time getting my document to correctly number pages, any help greatly appreciated. I am working on a macro that allows users to apply formatting to a document, add table of contents and insert other documents (called boilerplates) to the beginning of the original (after TOC). I am able to insert the requested documents using the following code: Note: at the time of inserting the documents the table of contents has already been inserted. Sub _Boilerplates() 'add selected boilerplates to current document Dim iCnt As Integer For iCnt = 0 To frmSpecMain.lbBoilerplates.ListCount - 1 If frmSpecMain.lbBoilerplates.Selected(iCnt) Then Selection.HomeKey Unit:=wdStory ActiveWindow.ActivePane.View.Type = wdPageView ' Go to second section Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=2, Name:="" Selection.InsertFile FileName:=gstrDocFullPath & _ frmSpecMain.lbBoilerplates.List(iCnt), _ Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False Selection.InsertBreak Type:=wdSectionBreakContinuous End If Next ActiveDocument.Save End Sub After inserting the boilerplates I run the following code to number the pages: Sub _PageNumbers() ' ' Add page numbers to the final document ' Dim i As Integer i = Selection.Sections.Count ' go to top of document and clear find area Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.HomeKey Unit:=wdStory With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = wdPageNumberStyleLowercaseRoman .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = 1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True For i = 1 To Selection.Sections.Count + 1 ' Skip to Next Section and number those pages Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Count:=1, Name:="" Selection.Sections(1).Footers(1).LinkToPrevious = False ' Now number body With Selection.Sections(1).Headers(1).PageNumbers .NumberStyle = wdPageNumberStyleArabic .HeadingLevelForChapter = 0 .IncludeChapterNumber = False .ChapterPageSeparator = wdSeparatorHyphen .RestartNumberingAtSection = True .StartingNumber = i - 1 End With Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True Next End Sub What happens is that the newly inserted boilerplates all have the page number 1, as well as the beginning of the original document. Harrumph. Again any suggestions greatly appreciated, thank you all from Sunny Central Florida. Tag: Programatically adding new autotext entries to a global template Tag: 72622
  - 11
    - How to insert a field in a table cell I use "ActiveDocument.Fields.Add Range:=..." all over the document and it works fine. When the range is myTbl.Columns(1).Cells(1).Range I get "Runtime error '4605' This command is not available". What am I doing wrong please? Tag: Programatically adding new autotext entries to a global template Tag: 72619
  - 12
    - Replacing Bookmark Text - Userforms (FYI - I posted this on the beginners, general, and userforms boards.) I have created a template where I created a userform with 2 "fields" (ProjectName and TaskName). Each field corresponds w/a bookmark. I'm using REF commands to link/repeat the bookmarks in the footer of the report. It is all working well except that the data that is input through the userform is getting added to the (default) bookmark text instead of replacing it. I found a MVP document that gives me a general idea of what I need to do (set a bookmark range variable) {MVP Doc: Inserting text at a bookmark without deleting the bookmark}. It includes a subroutine when using a macros/userform, but I'm not sure where to put it. Can anyone help me with this??? THANK YOU! Wendy Now, template bookmarks look like: [ProjectName] and [TaskName]. If I input a 1 (for project name) and a 2 (for task name) in the userform when I open a new document, the bookmark data changes to: [1ProjectName] and [2TaskName]. I need it to change to [1] and [2] (but keep the bookmarks). My VBA code has: AUTONEW MODULE Sub AutoNew() ' ' AutoNew Macro ' Macro created 8/16/2005 by wdaniels ' UserForm1.Show End Sub USERFORM - Commandbutton1 Private Sub CommandButton1_Click() With ActiveDocument .Bookmarks("ProjectName").Range _ .InsertBefore TextBox1 .Bookmarks("TaskName").Range _ .InsertBefore TextBox2 End With UserForm1.Hide End Sub Tag: Programatically adding new autotext entries to a global template Tag: 72617
  - 13
    - How to open an embedded Word doc using VBA? I have an embedded Word document within an open Word document. I would like to create a macro that opens the desired embedded Word document and goes to a predefined bookmark within it. Does anyone know how to do this programmatically? I'm using Word 2000 but the doc will be used by Word 2000 & 2003 users. Thanks for your help! -- JoAnn Tag: Programatically adding new autotext entries to a global template Tag: 72616
  - 14
    - Duplex Printing In Word Greetings, I found a macro that is suppose to manually print duplex for printers that don't have the duplex option. The code is suppose to print the current page in the active document, open a messagebox so the user can manually flip the page, and then print the second (or even) page after the user presses ok. The macro does print, but only after the code finishes running. For some reason, it only spools the the first print current page command, and then prints it when the code finishes running. Any help would be great! Thank you! Here's the code: Sub PrintBothSides() ' ' PrintBothSides Macro ' Dim iTemp As Integer ActiveDocument.PrintOut (ManualDuplexPrint), Copies:=1, Range:=wdPrintCurrentPage iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides") If iTemp = vbOK Then ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly End If End Sub Tag: Programatically adding new autotext entries to a global template Tag: 72615
  - 15
    - Access Database Update I have an Access database which contains information for a form. I use the database for merging with a Word template which is then sent out to customers via email. I also have text form fields for the customer to fill out in response to the original information. These transactions happen 5 or 6 times a day and cutting and pasting just doesn't cut it since the returned information is lengthy. Everything is working beautifully, except I don't have an easy way to import the data from the text form field back into the database. I would like the returned form to be able to be attached to the Access database much the same way that it works the other way around. Is that possible? The users of this system need a button to be able to do this. If I got hit by a gasoline tanker tomorrow, they wouldn't have a clue as to what to do with the returned info from the Word form. Tag: Programatically adding new autotext entries to a global template Tag: 72614
  - 16
    - Outlook type Library not available as a reference I am using MIcrosoft Office Word 2003 SP1. I am trying to use code contributed by Astrid Zeelenberg in the article "How to send an email from Word using VBA." The article says I need to set a reference to the Outlook type library under Tools-References. I can not find a reference to Outlook type library. Is this something I need to install seperately? If so, could someone please tell me what I need to do to have access to this reference. Thanks Tag: Programatically adding new autotext entries to a global template Tag: 72613
  - 17
    - CreateButton - EraseButton Hi, I have created a new button in CommandBar: Sub CreateButton() Dim nBtn As Office.CommandBarButton Dim cBar As Office.CommandBar Dim BtnExists As Boolean Dim Pos As Integer Dim i As Integer On Error GoTo eh Set cBar = Application.CommandBars("File") Let BtnExists = False For i = 1 To cBar.Controls.Count If cBar.Controls(i).Caption = "MyButton" Then Let BtnExists = True End If If cBar.Controls(i).Caption = "Save &As..." Then Let Pos = i + 1 End If Next If BtnExists Then Set nBtn = cBar.Controls("MyButton") Else Set nBtn = cBar.Controls.Add(msoControlButton) Let nBtn.Caption = "MyButton" End If Call nBtn.Move(Before:=Pos) Let nBtn.OnAction = "RunAPI" Exit Sub eh: MsgBox ("Error " & CStr(Err.Number) & ": " & Error) End Sub Then I need to erase that button while closing document. I tried either to reset CommandBar (cBar.Reset) or call Delete method (Call nBtn.Delete(False)) on that button. Works fine, but only for current session. After that, when I open Word, button is still there. Any suggestion? I need to erase the button permanently. Thanks in advance. Jiri Tag: Programatically adding new autotext entries to a global template Tag: 72612
  - 18
    - Add a record to an Access table from Word I have a document database in Access. When I create a new document in Word I would like a new record added to Access. When the record is created, Access generates a simple sequential number for the document. Word then retrieves the number. How do I have Word instruct Access to make a new record? -- Stephenc Tag: Programatically adding new autotext entries to a global template Tag: 72600
  - 19
    - Undo event Hello All, 1/ Is it possible that we somehow restrict word to add entries in Undo stack. else 2/ Is it possible that we group some events as one Undo event. Please help as i am making a addin for office in vb.net GS Tag: Programatically adding new autotext entries to a global template Tag: 72589
  - 20
    - Wildcard Search and "OR" Hello, using wildcards can I search for one word OR another? For example I would like something like the following to work: "apple|pear", but I can't seem to find out what the Word wildcard equivalent of the regular expression symbol "|" is, to mean "OR". Thanks Tag: Programatically adding new autotext entries to a global template Tag: 72578
  - 21
    - DocumentBeforeClose problems Hello, The DocumentBeforeClose event gives me grief. The problem is that I have to perform a certain cleanup operation when a = document is closed. Unfortunately, DocumentBeforeClose is called before the user is = presented with the "Document changed, do you want to save?" dialog, = which can cancel the close. So, I do not know whether the document was actually closed. Is there a way around it? Thanks. Best wishes, Alex. --=20 Address email to user "response" at domain "alexoren" with suffix "com" Tag: Programatically adding new autotext entries to a global template Tag: 72573
  - 22
    - Remembering document-specific window position Certain of my editing tasks involve having multiple open docs in Word. Given limited screen real estate, I carefully size the windows before setting to work, which is a pain. I'd like to write up or find a macro that would, on a document-by-document basis (very important), save the window size/position for that particular document on closing, then, on reopening, have Word get the window properties from the individual doc template or information and restore to the saved position. Ideally, I'd load this in Normal.dot and invoke it with a keystroke combo as an alternative way to close docs. Is there a way to do this? I've searched high and low, but can't find anything on how to do it with VBA (I'm in Word 2002 on WinXP, with VB 6.3). I know it's possible because so many apps do it (including WordPerfect back in the day when I used it), but I don't know if it's doable in VBA. The only thing I find in online VBA resources is discussion of saving the /application/'s main window position and writing to the registry to do so -- but that's not what I'm seeking. Any ideas? TIA, Ed ed [at] coherenow.com Tag: Programatically adding new autotext entries to a global template Tag: 72564
  - 23
    - Conditional format a table cell (background colour) Hello all, Very little experience with Macros but I have created a project plan template containing various form fields and any number of macros (mainly via the recorder with a bit of code tweaking). One of the text fields in the table is a due date. Via VBA is there any way to highlight the date cell or even the entire row by changing the background colour red when the date is overdue? I guess this would be quite straight forward in Excel via Conditional formating but I would really like to do it in Word. Any help appreciated. Thanks. Paul. Tag: Programatically adding new autotext entries to a global template Tag: 72559
  - 24
    - maintaining the formatting of a string I used to know this but forget--If a text selection has character formatting such as underlining, and I'm turning the selection into a string and then inserting that string elsewhere, how do I maintain the formatting of the string? Tag: Programatically adding new autotext entries to a global template Tag: 72558
  - 25
    - Real and curious problems with vba office2000 et office2003 on a computer Since some days, I have some problems with VBA (with Access as well as Word). All these problems exist in Office 2000 as well as in 2003 Some VBA functions do not vork anymore. ========================================================== So the function 'Kill' is completly unefficient. I mean that 'Kill' doesn't kill files, but, worse, give no error message if I ask to 'Kill' a file which does not exists (for example with a bad path). So the line : ----------- Kill "c:\program files\internet explorer\iexplore.exe" ----------- does not give a message. Just the program quit the function where is the line without executing the lines after. There is no error treatment un function. If I put a Rem or a "'" at the begining of the line, the lines after are executed. If the path of the program to kill is bad (for example "c:\progr files\internet explorer\iexplore.exe" , there is no error message! ========================================================== The function 'Mkdir' does not work anymore. So the line : ----------- MkDir "c:\xxxxx" ----------- doen't create the dirextory 'xxxxx'. ========================================================== The procedure : ----------- Sub Test () Dim FileNumber as integer FileNumber = FreeFile Open "c:\TEST" For Output As #FileNumber Write #FileNumber, "Ceci est un exemple" Close #FileNumber End Sub ----------- does'nt create the file and the error message says that the file does not exist ! It do not accept to create it... ========================================================== The function 'Shell' does not work anymore. So the line ----------- Shell "c:\program files\internet explorer\iexplore.exe", vbMaximizedFocus ----------- does'nt launch Internet Explorer. If the path given in string is bad, there is no error message. ========================================================== I don't know if the following problem is bound to there others problems, but now I cannot use the function "Export in Word" or "Export in Excel" or "Export in 'presse-papier'" for exportations of preview of report. No problem if I export to Word a preview of a form or of a table or of a query. But it is now impossible to export a report preview towards Word. =========================================================== I have Windows XP PRO. I have Office 2000 developer, and Office 2003. All these problems can be observed VBA 2000 AND VBA 2003 (in Accesss 2003). ============================================================ I have uninstalled and reinstalled twice both Office 2003 and Office 2000. No results. ============================================================ On my second computer, all is good. To replace filesystem functions I use 'Scripting.FileSystemObject', which works PERFECTLY. ============================================================ The functions that does not work on my pricipal computer work on the second computer. Which can be ABOVE VBA in the first computer which can cause this kind of problems ? HOW CAN I REPLACE the 'Shell' function ? Thanks for responses. And excuses for my english. I am french... Tag: Programatically adding new autotext entries to a global template Tag: 72557
- Next
  - 1
    - Command Button in Word I want put a button on 15 pages this button the next commando must carry out, if I click on the button he the page where this button on state must remove. there is someone who can me give the complete code to let work to this button Tag: Programatically adding new autotext entries to a global template Tag: 72556
  - 2
    - Writing neat VBA I have a document with Odd and Even pages headers and footers. At this point I insert a new section and which I have to remove the header and footer linking to the previous section. I create a temporary bookmark, add a page break, unlink the primary and even headers and footers, remove the bookmark and then the page break. Everything works as it should and there is no problem. However, below is the code which does all the unlinking and I just wanted to say the same thing but with a little more elegance and finesse. Could somebody therefore, please show me how these few lines might be written in properly coded VBA? ====================== ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ======================== You might wonder why all the backwards and forwards between the headers, main document and back to the footers with the selection of the temp bookmark in between? Well, I found that Word "got lost"(i.e. didn't go to where I expected it to go) if I told it to unlink the odd and even headers and then do the same with the odd and even footers. It somehow got confused and went and did things either in the previous section or the one following the new section. I created some explicit actions and that did the trick!! Regards Roderick Tag: Programatically adding new autotext entries to a global template Tag: 72551
  - 3
    - Macro Style Replace Word2000. I record a macro to SearchAndReplace a custom style. During the recording, the SearchAndReplace works fine. When running the macro, it doesn't work. Calling up the SearchAndReplace dialog box shows why: instead of searching for the stylename, it search for a stylename plus border attributes plus other things. Can this be fixed? -- JohnTheTemp Tag: Programatically adding new autotext entries to a global template Tag: 72549
  - 4
    - VBA macro to create an index I wrote a macro that creates an index. Here is an explanation: I have a text and a file c:\boss_info_index.txt that have a keywords I want to index in the text file. Keywords in the file have no duplicates and are in descending orders - I am not sure if the order is relevant, but there should be no duplicates. Here is the macro: Sub CreateIndex() ' ' CreateIndex Macro With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.8) .BottomMargin = InchesToPoints(0.8) .LeftMargin = InchesToPoints(0.8) .RightMargin = InchesToPoints(0.8) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.5) .PageHeight = InchesToPoints(11) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With Selection.Sections(1).Headers(1).pageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True Dim quote As String Dim Keyword As String Dim j As Integer quote = """" Dim found_key As Boolean Dim startSearch As Long Dim endSearch As Long Close #1 Open "c:\boss_info_index.txt" For Input As #1 Set myRange = ActiveDocument.Content j = 0 Do While Not EOF(1) ' Loop until end of file. Set myRange = ActiveDocument.Content endSearch = myRange.End Input #1, Keyword j = 0 With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With While myRange.Find.Execute myRange.Collapse wdCollapseEnd Set myIndexEntry = myRange.Fields.Add(myRange, Type:=wdFieldIndexEntry, _ Text:=quote & Keyword & quote) startSearch = myRange.End startSearch = startSearch + 7 Set myRange = ActiveDocument.Content myRange.Start = startSearch If startSearch > endSearch - 1 Then GoTo skip_while End If With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With ' this code is because I had a loop here j = j + 1 If j > 300 Then myRange.Bold = True Exit Do End If Wend skip_while: Loop Close #1 ' Close file. myRange.Start = 0 myRange.End = 0 With ActiveDocument .Indexes.Add Range:=myRange, HeadingSeparator:= _ wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _ True, NumberOfColumns:=1, IndexLanguage:=wdEnglishUS .Indexes(1).TabLeader = wdTabLeaderDots End With End Sub Tag: Programatically adding new autotext entries to a global template Tag: 72547
  - 5
    - Few Question about Line Numbers Hi all, how can I find 1) current line numbers? 2) total line numers? Thanks Regards Tag: Programatically adding new autotext entries to a global template Tag: 72546
  - 6
    - Working with Stylized Quotes Hi Everyone, Does anyone know of a function that will convert Stylized Quotes to a normal quote? Here is the application; I am comparing one string to another. In some cases the strings do not match when they should. The issue is that use of Stylized Quotes. One string may use a slightly different version of a single quote causing the string comparison function to fail. I would like to convert all single quotes to a simple quote for comparing. Thanks, George Tag: Programatically adding new autotext entries to a global template Tag: 72545
  - 7
    - Add documents via listbox I need to insert documents, at either the front or end of the open document, from either a network drive or user hard drive. I would like to make these files available to users via a listbox on a form. I have been able to use file scripting object to browse to the files and add them to the list box using the following code: Sub GetFiles() Dim fs, f, f1, fc, fn, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("C:\Documents") Set fc = f.Files For Each f1 In fc ' fn = f1.FileName If InStr(1, f1.Name, "boilerplate", vbTextCompare) Then Set fn = fs.GetFile(f1) lbBoilerplates.AddItem (fn) End If Next Set fs = Nothing End Sub This is all good, however: The list box is populated with the entire path and file name. What I would like to do is list only the file name. When the user selects desired documents (could be 1 or many) I would then insert the files into the document. Question: How do I get only the filename without the path for populating the listbox? I have been unable to retrieve only the filename without performing string functions to strip out the file name. Any suggestions greatly appreciated. Thank you. Tag: Programatically adding new autotext entries to a global template Tag: 72542
  - 8
    - VBA - Insertion point Could you let me know what VBA to use to determine whether the insertion point is in a Field. Many thanks Mike Tag: Programatically adding new autotext entries to a global template Tag: 72538
  - 9
    - = (rand) - how does this function work Tag: Programatically adding new autotext entries to a global template Tag: 72530
  - 10
    - Error when changing Table I get the following error when trying to alter the value of a table:- "Cannot Access individual rows in this collection because the table has vertically merged cells" This is the code that causes the problem With oAppWD.ActiveDocument.Tables(1).rows(1).cells(2) = "V4.0" (oAppWD = CreateObject("Word.Application") ) How do I change the value of cells within a table where there are vertically merged cells? Ta Andi Tag: Programatically adding new autotext entries to a global template Tag: 72525
  - 11
    - Which menu item activated - how? Hi I'd like to be able to identify if a menu item (any menu item) has been activated both by click and by accelerator key. I found a message on google groups that kind of provides a solution but I'm having trouble figuring it out and I was wondering if anyone might be able to explain how to use it? The text of the post is below. I understand steps 1-3 but I get lost at step 4: How would I call the sub in step 4? Would I just put it in a regular module? What would be an example of an "Ctrl" argument for the sub in step 4? Also, I note that the sub is called "MyControl_Click". Would that work even if the user activated the menu item using an accelerator key, not the mouse? The post says that code needs to be written to instantiate the class object. Does that mean a Property Get statement? Lastly, in step 3 the SaveAs button ID is specified. How would that Set statement be written if I wanted to get the id number for whatever menu item was activated? Many thanks for any help! Here's the original post: "You can do it by trapping the click event for the control. 1. Add a class module to the VBA project. 2. Declare a variable to trap the events: Public WithEvents MyControl As Office.CommandBarButton 3. In the module's initialize event, find the control you want to monitor. Private Sub Class_Initialize() Set MyControl = Application.CommandBars.FindCoÂntrol(ID:=748) End Sub (748 is the ID of SaveAs option on the File menu). 4. Write an event procedure for when the control is clicked: Private Sub MyControl _Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) MsgBox "FileSave Clicked" End Sub The click event is fired before the built-in command is run. Set CancelDefault = TRUE to prevent the built-in command running. 5. Write some code (eg in AutoExec) to instantiate your class object. You'll need to re-run this code if you do anything that resets the VBA project, like editing any code." (The original post I'm quoting from is http://groups-beta.google.com/group/microsoft.public.word.vba.general/msg/5c81f19b8c21b4b5?hl=en&) Thanks again Mike Tag: Programatically adding new autotext entries to a global template Tag: 72524
  - 12
    - Control of dialog boxes Hello All, Is it possible that we get the control of any dialog box that is opened when we click any menu item. e.g. File->Page Setup opens a dialog box, format->Autocorrect options open a dialog box,etc. I am coding in vb.net and want to get handle of these windows. Please help. GS Tag: Programatically adding new autotext entries to a global template Tag: 72520
  - 13
    - General Question About Userforms and Properties Hi, I am using WORD 2000 and I have a general question about Userforms and Properties. Userform-1 displays a custom dialog, Userform-2. Userform-1 has to know which command button(s) were pressed in Userform-2. Arguments are "passed" between the forms by property statements. Userform-2 sets properties in Userform-1 by using the CallByName statement. Userform-1 object and property names set in Userform-2 via property statements. Has anybody had any problems using the above described scenario? That is, are there problems using property statements in Userforms and using the CallByName statement? It does seem to work but I would just like to know if there are any "gotchas". Thanks in advance for any help, advice and tips. Jerry Bodoff Tag: Programatically adding new autotext entries to a global template Tag: 72518
  - 14
    - Insert Row Beneath Last Row in Table Hi There, I have some code that I have to run from within Excel. I have worked out how to locate a table and then manipulate the contents, but I can't work-out how to insert a new row below the last row of the table? Thanks Andy Tag: Programatically adding new autotext entries to a global template Tag: 72512
  - 15
    - Help on Excel-Word project I have to take an excel spreadsheet that has contact info and a brief bio and format them in a word document. The columns in the spreadsheet are lastname, firstname, address1, address2, city, state, zip, phone, email, bio, awards (among others) I would like to selectively place these into the word document like this: lastname, firstname address1 [address2] (if non-blank) city, state, zip [phone] (if ok to release) [email] (if ok to release) bio awards I don't want the blank lines to show if it's not anything in it, or if they've not authorized us to release the info. There are other columns in the spreadsheet (as to what classification they'd fall into) that I may not want printed in the word document. We're wanting to update just the Excel document with the data, and have it formatted in the word document when we open it (I am sure we will tweak the word document formatting some), but we don't want to do any data entry into the word document - only in excel. Can anyone help, or perhaps guide me to a source that I can learn quickly on? BC Tag: Programatically adding new autotext entries to a global template Tag: 72506
  - 16
    - Word printing slow when called from Access I'm calling Word 2003 from Access 2000, late bound. Here is a routine that till very recently printed light duty word docs pretty fast (shorthand) Set objWord = CreateObject("Word.Application") ' Open a doc so the selections can print, need a loaded doc... objWord.Documents.Add strSomeDoc objWord.PrintOut Background:=False, FileName:="c:\mydoc.doc" For some reason it jams up word for about a minute before anything starts to print. I can't think of anything that's changed recently on this pc, other than I've applied winxp sp2. Not sure how to approach this...in task manager, word never goes over 2% of cpu. Tag: Programatically adding new autotext entries to a global template Tag: 72502
  - 17
    - Controls in a form Hi I currently have a userform that has about 4dozen mixed controls in it in a page Control. At present i have to reference every control like txtName1.value. the controls have not been put onto the form in the way that i want to access them. Is there an easy way to access them, like using a number and if yes can i change the orders of the numbers to the order i want to access the controls. My file is 1.5mb in size, any ideas why. David Tag: Programatically adding new autotext entries to a global template Tag: 72501
  - 18
    - How to print a doc using absolute page numbers? Is there any way to print a document using absolute page number? For example let's say my doc has 10 pages. The absolute 6th page is the 2nd page of section 3 (p2s3). In the print dialog if I give p2s3 it prints the correct page. Similarly is there a syntax to give the absolute page number in the print dialog? (what I want is something like: (some symbol)6 to be given in the print dialog and to print the absolute 6th page. ) Thank you for any information. Best regards, Thushan Tag: Programatically adding new autotext entries to a global template Tag: 72500
  - 19
    - Add-ins Hi All, Sorry to ask such a simple question but I have had a good search of google and can't find a simple answer. How do you create a word add-in? I am quite experienced with excel and vba but have never touched word before. Alternatively if someone has a good URL that would be great. Ta Andi Tag: Programatically adding new autotext entries to a global template Tag: 72498
  - 20
    - Google search for word I would like to do a Google search for an Ops Guide in Word. The document is all text, no form fields. I have searched this forum and the best I can find is a repost below. Is is possible to modify this code with an input box to store the search variable and run a modifed version below? Jay? I've tried to modify this code but was unsucessful. Thanks, Geoff start google search from formfield content? All 3 messages in topic - view as tree Gordon Filby May 28 2003, 2:54 am show options Newsgroups: microsoft.public.word.vba.general From: "Gordon Filby" <Gordon.Fi...@pef.fzk.de> - Find messages by this author Date: Wed, 28 May 2003 09:51:53 +0200 Local: Wed, May 28 2003 2:51 am Subject: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse Hi, I would like to open a document containing a number of formfields, select one of them and use its contents as parameters for a Google search. All this should happen via a mouse on a button located on a command bar. Is this possible? Thanks for any tips. Gordon Filby Jay Freedman May 28 2003, 11:40 am show options Newsgroups: microsoft.public.word.vba.general From: "Jay Freedman" <jay.freed...@verizon.net> - Find messages by this author Date: Wed, 28 May 2003 12:37:38 -0400 Local: Wed, May 28 2003 11:37 am Subject: Re: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse Hi, Gordon, This might be a bit over-engineered :-) but it does work. Put the macro into your template, and assign a toolbar button to run the macro. It will fire a Google search for the contents of whatever formfield has the focus. Sub GoogleIt() Dim SearchTerms As String Dim oFld As FormField Dim oHyper As Hyperlink On Error GoTo badfield For Each oFld In ActiveDocument.FormFields If Selection.Range.InRange(oFld.R=ADange) Then SearchTerms =3D oFld.Result Exit For End If Next oFld If SearchTerms <> "" Then Set oHyper =3D ActiveDocument.Hyperlinks.Add( _ Anchor:=3DActiveDocument.Range, _ Address:=3D"http://www.google.com/search?q=3D" & SearchTerms) oHyper.Follow oHyper.Delete End If badfield: End Sub -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word - Hide quoted text - - Show quoted text - Gordon Filby wrote: > Hi, > I would like to open a document containing a number of formfields, > select one of them and use its contents as parameters for a Google > search. All this should happen via a mouse on a button located on a > command bar. Is this possible? > Thanks for any tips. > Gordon Filby Jay Freedman Jun 2 2003, 11:16 am show options Newsgroups: microsoft.public.word.vba.general From: "Jay Freedman" <jay.freed...@verizon.net> - Find messages by this author Date: Mon, 2 Jun 2003 12:15:36 -0400 Local: Mon, Jun 2 2003 11:15 am Subject: Re: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse [replied and posted to the microsoft.public.word.vba.gene=ADral newsgroup] To find only German language pages, change the Address parameter of the hyperlink this way: Address:=3D"http://www.google.com/search?q=3D" _ & SearchTerms & "&lr=3Dlang_de") Gordon Filby wrote by email: > Thanks - that is just what I needed. Another question in this context in > Address:=3D"http://www.google.com/search?q=3D" & SearchTerms) do you > know how to restrict the search only to German language pages. Google > allows this in its special config. page. -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word - Hide quoted text - - Show quoted text - Tag: Programatically adding new autotext entries to a global template Tag: 72496
  - 21
    - Code to open Power Point Show I am running WIN XP Pro and Office 2003 Pro I cannot get a hyperlink in Word to run a PPS. It will open file and I can navigate the slides, but it does not run as a PPS. I thought of using a command button to run the PPS from Word. I will appreciate if someone is will to provide the code to assign to the command button. The PPS file and Word file will be on the same CD. Thanks Tag: Programatically adding new autotext entries to a global template Tag: 72494
  - 22
    - How to tell if macro has been executed I have a series of macros that offers the user options to run all or only part of the macros. It opens with a form that has check boxes with three selections (Insert Table of Contents, add Frame and add Page Border) and the user can select all or only one, etc. The program runs fine the first time through, but if it is run again it can get messy if options already run are chosen again. Is there a way that I can check to see if a selection has been executed, even if the document has been closed and re-opened? Thank you. Tag: Programatically adding new autotext entries to a global template Tag: 72493
  - 23
    - Word 200 Blank document Every time i open a blank document there is text from another document already there. How can i stop this? Cheers -- Rye Tag: Programatically adding new autotext entries to a global template Tag: 72491
  - 24
    - Linking a grid to a recordset in a word form I have tried several grid controls and ways without success Anyone can tell me how can do it? Tag: Programatically adding new autotext entries to a global template Tag: 72486
  - 25
    - cut and paste Russian text to other application I need to cut and paste the Russian text from Word document to Quark. When people sent it to me, the characters display as emty squares (extension as ".doc". I open up the document and resave it as ".RTF". I can see the characters then, no problem with cut and paste the same text within Word. The problem happens when I try to paste the same string of this text to another application, like Quark. They are underscores. I select them and change the fonts, nothing happends, or only one or two characters appear. The fonts I try are anything with Cyrillic. I notice that there are couple options as I paste the text in Word: paste with unformat, paste with format, and one last one I can't remember. I try many differnt ways, and a few words come up. What do I have to set up my computer? fonts? anything ... in order to always have this success everytime. I just purchase Word 2004, and in the OS X system. It seems like the system is current enough to handle. I used to have to copy and paste every character I found to create a string of text (very painfull), but now the work load are much bigger, I can't afford to do the same thing. What are the problem? Please help. Please don't say that the problem is Quark. If there is what do I need to set up in Quark? Tag: Programatically adding new autotext entries to a global template Tag: 72485

I'm in the process of (hopefully) improving the overall use of Word
XP in our small office. Being a self-taught newbie to VBA, I've found
this newsgroup to be of real value as a source of info and tips.

As part of the process, I've created a global template ( called
RI_Global.dot) which will hold, amongst other things, all our
generic autotext entries, ie - ones we want to be available all the
time in any document.

What I'm seeking guidance about concerns the way a new user-created
autotext entry is "saved" to a template. My understanding is that the
default choice is the normal.dot template, whereas I want the entry to
be saved into RI_Global.dot.

Is it possible to "force" a newly created AutoText entry to be saved
into RI_Global.dot, rather than relying on the users to remember to
choose this template when they access the Insert/AutoText/AutoText
command? Also, can I intercept the "Alt+F3" shortcut to again force the
entry to be saved to my global template?

I've found the appropriate(?) dialog which might be interceptable [ie:
Dialogs(wdDialogEditAutoText)], but I can't see how any of the options
can be manipulated through VBA. Using the macro recorder and selecting
the global template from the "Look in:" drop-down box doesn't shed any
light on the steps involved when I look at the resulting code.

Thanks in anticipation.
Regards,
Gavin

Top

Re: Programatically adding new autotext entries to a global template by Jay

Jay
Wed Aug 17 22:05:44 CDT 2005

Hi Gavin,

Download Autotextloader from http://jay-freedman.info and look at the
code. You're welcome to adapt the code in any way. If that template
already does what you want, you're also welcome to just use it.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On 17 Aug 2005 17:13:18 -0700, "Gavin" <miflin62@yahoo.com> wrote:

>I'm in the process of (hopefully) improving the overall use of Word
>XP in our small office. Being a self-taught newbie to VBA, I've found
>this newsgroup to be of real value as a source of info and tips.
>
>As part of the process, I've created a global template ( called
>RI_Global.dot) which will hold, amongst other things, all our
>generic autotext entries, ie - ones we want to be available all the
>time in any document.
>
>What I'm seeking guidance about concerns the way a new user-created
>autotext entry is "saved" to a template. My understanding is that the
>default choice is the normal.dot template, whereas I want the entry to
>be saved into RI_Global.dot.
>
>Is it possible to "force" a newly created AutoText entry to be saved
>into RI_Global.dot, rather than relying on the users to remember to
>choose this template when they access the Insert/AutoText/AutoText
>command? Also, can I intercept the "Alt+F3" shortcut to again force the
>entry to be saved to my global template?
>
>I've found the appropriate(?) dialog which might be interceptable [ie:
>Dialogs(wdDialogEditAutoText)], but I can't see how any of the options
>can be manipulated through VBA. Using the macro recorder and selecting
>the global template from the "Look in:" drop-down box doesn't shed any
>light on the steps involved when I look at the resulting code.
>
>Thanks in anticipation.
>Regards,
>Gavin

Top