Rename word document

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - TextBox_Exit not receiving event when user tabs off of multi-page form I have a textbox control on a page of a multi-page control. If the user enters text into that control and tabs out of the control to the OK button (not contained within the page of the multi-page control) then the TextBox_Exit event isn't received. If I keep tabbing and the focus comes back into the Multi-Page control, the TextBox_Exit event is received and processed. How can I always catch this event? Tag: Rename word document Tag: 54573
  - 2
    - Canned responses/mail integration I've seen this done before, but it's been a long time. I'm doing a fair amount of email support and easily accessible canned responses would make the entire process oodles easier. I'm using Outlook for mail management, but I've seen canned responses that could be set up, organized, and selected within Word to create the email and then simply copied and paste to be sent out through Outlook. Anyone know how I can create and organize canned responses within Word? I'm a novice when it comes to it, but surely it can't be that hard. It's either this, my little folders full of text files that aren't nearly as convenient and limit productivity, or I somehow manage to convince management to actually purchase an email database system that could support this, but that would actually be overkill for our needs. Tag: Rename word document Tag: 54571
  - 3
    - word error msg.: insufficient memory I have Windows XP, Msft Word XP 2002. When attempting to save a document, I receive following error msg.: "Word had insufficient memory. Do I want to save the document as 'Received Document'?". My computer has over 500 mb internal memory available according to ms3winfo.exe. When it says that "Word has insufficient memory", is it referring to a separate memory resource for Word? If it is, how do I determine the size of this resource and adjust it so the error message does not appear? All replies welcomed! Aaron in N. Hollywood Tag: Rename word document Tag: 54567
  - 4
    - Table of Contents Hi all I create table of contents in my VB.NET application and I find that entire chapter is inserted into the table of contents when I look in the Option of the table of contents only header 1 and are listed with a number Is that a bug in Word Thank you in advance Shmuel Tag: Rename word document Tag: 54563
  - 5
    - Multiple index sub-entries When I try to create an index with subentries, I find that the same main entry sometimes appears for each sub- entry instead of only once with the sub-entries listed below. For example, instead of the following: adding, email messages footers I get this: adding, email messages adding, footers However, oddly enough, there are some entries where it does work correctly. The index field codes look exactly the same in both cases, so I don't know why they look differently in the generated index. Help? Tag: Rename word document Tag: 54562
  - 6
    - vba code to open doc based on template Hello, I want to write vba code to open a document. Something like this: documents.open ("c:\test.doc") attached template ("c:\test.dot") with a execution of the document new event. Is thispossible? Thanks Tag: Rename word document Tag: 54554
  - 7
    - Memory error I'm having problems using the word.applicationclass to load a word document. I've created this very simple code and I get the error below on the WordApp.Documents.Open("C:\temp\worddocs\1.doc", 0, 1) line. An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in test.exe Additional information: There is insufficient memory. Save the document now. This is my full code! Please help, this is getting annoying. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim WordApp As New Word.ApplicationClass Dim contentsofword As String WordApp.Documents.Open("C:\temp\worddocs\1.doc", 0, 1) WordApp.Selection.WholeStory() contentsofword = WordApp.Selection.Text WordApp.ActiveDocument.Close() End Sub Tag: Rename word document Tag: 54551
  - 8
    - Create an add-in I am working in Office XP. This may sound like a real no-brainer, but how do I create an add-in for Word? I have written a macro that I would like to make available to all documents based on a specific template. However, I do not want a copy of this macro put in every document I create from the template. Do I want to turn this into an add-in, or should I do something else? Note: This template and macro must be available to several users on a network. Thanks for your help! Monique Tag: Rename word document Tag: 54548
  - 9
    - Table of contents Hi all I create table of contents in my VB.NET application and I find that entire chapter is inserted into the table of contents when I look in the Option of the table of contents only header 1 and are listed with a number Is that a bug in Word Thank you in advance Shmuel Tag: Rename word document Tag: 54547
  - 10
    - Duplex printing This is not a question. It's a sharing. I was having trouble with Duplex printing, similar to the threads posted on 7/12 and 7/21. While we were all on the right track, there is a slight error in the sample code posted on the Microsoft Knowledge Base article 230743. This error was hinted at in one of the threads, but to really undertsand why, take a look at http://word.mvps.org/FAQs/MacrosVBA/SetDuplexOnOff.htm Suddenly it all made sense. Oh, and now my code works, too. Tag: Rename word document Tag: 54546
  - 11
    - Macro with Replace in it locks up. I have created a macro to replace one phrase with another. Generally it runs correctly, but when I run it with the last occurrence of the phrase in the document the macro hangs. I have to press Esc to get back to the document. If I then insert the phrase a few more times then run the macro again it does nothing (as if it has been disabled). Closing and opening the document again - and the macro runs OK (until I get to the last occurrence again). I note that if you do the same Replace from the menus, Word tells you it has reached the end of the document and awaits an OK. Is this my problem? - if so how do I deal with it in the macro.? Thanks for you help on this. Here is the macro text: +++++++++++++++++++++++++++++++++++ Sub noSig() ' ' noSig Macro ' Macro recorded 8/5/2004 by Simon ' Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "*quote " .Replacement.Text = "=removed by SI =" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub Tag: Rename word document Tag: 54544
  - 12
    - Page numbers, is i possible to count differently in header and foo this doucument needs to be counted two ways, by section in the footer for example 1 of 5 and squentially for the entire volume in the header 1-2-3-4... is it possible to do this in word. thank you Tag: Rename word document Tag: 54543
  - 13
    - Make Word macro find text in footnotes, headers, etc? Hello, This is a question about a macro in which all the good ideas were offered by Helmut Weber in answer to questions that I posted here in earlier threads. Thanks to Helmut, I have a Word macro that helps fix a problem with WordPerfect 5.1 documents imported into Word 2002 - but so far, the macro works only with the main story in a document - not with the footnotes and headers, etc. Can anyone help with this last part of the problem? Here is the background: When Word 2002 opens a WordPerfect 5.1 document with typographical symbols such as curly quotation marks and em or en dashes, or some non-English alphabetical characters like the "oe" ligature, these symbols are not converted into native Windows characters, but are stored as invisible symbols. Helmut showed me how to devise a macro that replaces these symbols, and the code is at the foot of the message. I found this page has example code for making a find/replace operation work through an entire document, but I have not been able to adapt it to work with the kind of operation in this macro: http://word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm Can anyone help adapt it to the needs of this macro? Many thanks for any advice. Here is the code of the macro that works in the main story: Cut on the dotted line: ----------------------------------------------------------- Sub ChangeWPCharactersToNativeWindowsCharacters Set dlg = Dialogs(wdDialogInsertSymbol) FirstOccasion = True Dim rDcm As Range Dim oChr As Object Dim sFnt As String ' font name Dim iFnt As Integer ' character number ' for the following lines to work correctly, insert a form anywhere ' in the VBA project - simply use Insert/User Form, and then ' press Ctrl-F4 to close the form Dim oDat As DataObject Set oDat = New DataObject Set rDcm = ActiveDocument.Range For Each oChr In rDcm.Characters If Asc(oChr) = 40 Then ' applies to most (or all) decorative fonts? oChr.Select ' If Asc(Selection.Text) <> iAsc Then ' from previous posting would fit in here ' plus select case SendKeys "%f^c{ESC}{ESC}" ' English version dlg.Display iFnt = Dialogs(wdDialogInsertSymbol).charnum oDat.GetFromClipboard sFnt = oDat.GetText ' for determining font name when adding changes ' MsgBox (sFnt) ' Debug.Print sFnt, iFnt ' change for WP TypographicSymbols font only ' fill in more characters later If sFnt = "WP TypographicSymbols" Then If Asc(Selection.Text) <> iFnt Then Select Case iFnt Case 64: Selection.TypeText Text:=Chr$(148) 'closing curly quote Case 65: Selection.TypeText Text:=Chr$(147) 'opening curly quote Case 66: Selection.TypeText Text:=Chr$(45) 'en dash Case 67: Selection.TypeText Text:=Chr$(150) 'em dash End Select End If End If ' change for Multinational Ext font only ' fill in more characters later If sFnt = "Multinational Ext" Then If Asc(Selection.Text) <> iFnt Then Select Case iFnt Case -3951: Selection.TypeText Text:=Chr$(156) 'oe ligature End Select End If End If ' insert changes for other WP fonts here End If Next End Sub --------------------------------------------------------- Many thanks for any help Edward Mendelson Tag: Rename word document Tag: 54539
  - 14
    - Adding menu items to a separate menu section on doc template attach Hello all, I just finished the nitty gritty of checking through a doc template for valid bookmark entries. This is working fine. Now I want to add a menu item whenever the doc template is attached (added through Templates and Add-ins) For this, I over rode the subroutine Autoexec and here I tried to create the menu item. I am not able to figure out how to add a new menu section itself. Currently I am trying out like this: Set myMenuBar = CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newMenu.Caption = "Review" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "Find Invalid Comments" ctrl1.Style = msoButtonCaption Set ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=2) ctrl2.Caption = "Display Review Summary" ctrl2.Style = msoButtonCaption The behaviour is that the menu item "Review" is now appearing after the current menu bar. I want an own separate section for this menu item. (I know, the problem is with using ActiveMenuBar, but any other approach of adding a new MenuBar didn't seem to work for me) Also, I am not able to delete this menu item in the Autoexit subroutine. I am not able to figure out how to use the CommandBar -> Delete method to achieve this. Any pointers for the 2 problems above, anyone? Thanks and regards, Sena Tag: Rename word document Tag: 54533
  - 15
    - Hide styles In a specific template in Word 2000 I would like to hide or in another way disable all build-in styles. The users should only be able to use the custom designed styles. Can I do that? Tag: Rename word document Tag: 54531
  - 16
    - fields.update in macro does not update TOC My template has a TOC and at the end of my AutoNew macro I have included the statement ActiveDocument.Fields.Update, because the TOC includes some text (headings) that contain text inserted with the AutoNew macro. The problem is that the text apparently is not updated in the TOC. One heading contains the name of a person ("Personal objectives for Peter") - this name is inserted during AutoNew - but the TOC only shows "Personal objectives for ". If I update the fields manually (rightclicking TOC, choosing Update field and Update evreything) the TOC is OK - so I thought the problem might be related to some missing parameter for the ActiveDocument.Fields.Update statement, but I can't see any possible parameters. Tag: Rename word document Tag: 54528
  - 17
    - Find text & Replace entire paragraph Hi there, I wonder if anyone out there could help me? I need to do a find & replace text in documents via a macro. The text may appear any number of times in a given doc but its not just *that* text that needs replacing - its the entire paragraph . The pseudo code would look something like this I guess... Find 'Lorem ipsum dolor sit amet' If found select the whole paragraph replace with Null (or delete text) ....But I cant seem to translate this into successful VBA code! Any help greatly appreciated Phil Tag: Rename word document Tag: 54524
  - 18
    - highlight all when using Find Hi , How can I highlight all the results of find query when using content/selection.Find. Tag: Rename word document Tag: 54523
  - 19
    - Testing for ansi 0145 and ansi 0146 in selection Dear all, 1) I'm looking for a way to test whether the ansi-0145 and/or ansi-0146 (curly quotes ` and ') are present in a selection. Does anyone know a method to tackle this problem? I do know how to evaluate a selection character by character, so that's not the problem. I tried the "asc" function, but that doesn't do the trick. 2) And I also would like to find a way to insert text containing these ansi characters using VBA code. I ask this in the same thread, since I suspect that the solution of both questions may be based on the same principle. Best regards, AndY ^^^^ Tag: Rename word document Tag: 54522
  - 20
    - Hide styles In a specific template users should not be able to apply the default styles to the text. I would like to hide the default styles so that only custom styles are visible. I think it can be done in Word XP, but I'm on Word 2000 so I think that I have to use VBA to create a solution. Can it be done? Tag: Rename word document Tag: 54519
  - 21
    - Find and Replace crash when installing Office Security Patch kb830349 Hi, I am doing Find and Replace in MS Word from VB Code. It was working fine till I installed Office Patch(kb 830349). There is a piece of code in which I am doing find and replace in my document, actually replacing some text in the document with a link object. The code is as follows '---------------------------------------------------------- Set objRange = letter.Content With objRange.Find .ClearFormatting If Not .Execute(FindText:="[BodyText]") Then Set objRange = Nothing End If End With letter.Fields.Add Range:=objRange, Type:=wdFieldLink, Text:="Word.Document.8 ""c:\\Socrates\\Templates\\Temp\\RTFTemp.rtf"" \a \r" Set objRange = Nothing '---------------------------------------------------------- This piece of code was working fine before the update was installed. After the update install, it gives an error after line: .ClearFormatting "Class does not support Automation or does not support expected interface". After clicking OK, Memory read error occurs and the application terminates and if I am running from VB, then it also closes. Any solution for this will be greatly appreciated Thanks in advance, Manish Katiyar Tag: Rename word document Tag: 54516
  - 22
    - StyleRef in following pages Template used Heading 1 style at start of new part of report. Heading 1 has "page break before" so it is always at the top of page. Report part may be one or many pages. I need to create a page header that is -- blank on the page containing a Heading 1 style entry; but on later pages the header is "[heading1 text] continued.." So far as I can see a {StyleRef "Heading 1"} entry will put the [heading text] on every page, but I need to supress it on the first page, and display it (plus the "continued..") on subsequent pages. Any Ideas, please? Tag: Rename word document Tag: 54508
  - 23
    - Checking for bookmark How do I get a template to check for a bookmark (or a variable, or text etc) and if it is present, run a userform? Once the userform has been filled in, I want to delete this once user has clicked OK. Tag: Rename word document Tag: 54507
  - 24
    - Custom Toolbar within Template I have create a custom toolbar which leave within a Startup Template. When clicked, this toolbar runs the following code which inserts a hyperlink. Sub Hyperlink() Dim fd As FileDialog, displaytext As String 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog (msoFileDialogFilePicker) 'Use a With...End With block to reference the FileDialog object. With fd 'Set the initial path to the Agenda Attachments folder. .InitialFileName = "\\alchemy\data\processes\documents\agenda attachments\" .Title = "Select the File to which you want to create the link" 'Use the Show method to display the File Picker dialog box and return the user's action. 'If the user presses the action button... If .Show = -1 Then displaytext = .SelectedItems(1) While InStr(displaytext, "\") > 0 displaytext = Mid(displaytext, InStr (displaytext, "\") + 1) Wend displaytext = Left(displaytext, Len (displaytext) - 4) ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=.SelectedItems(1), TextToDisplay:=displaytext ' 'If the user presses Cancel... Else End If End With 'Set the object variable to Nothing. Set fd = Nothing End Sub The problem I am now having is that when the document (new doc based on template) is saved, it changes the hyperlink from \\alchemy\data\processes\documents\agenda attachments\(filename) to ..\data\processes\documents\agenda attachments\(filename) so it loses it's link. Any ideas why? Tag: Rename word document Tag: 54506
  - 25
    - Removing a custom commandbar Hi, I have added a few custom commandbars in Word, but not matter what I do they keep coming back. I have tried deleting using the Customize window and it deletes until I load Word again. I have also tried deleting via VBA and the same happens. The code I used to create is on a different Doc. Any ideas on how to get shot of them? Thanks Tag: Rename word document Tag: 54503
- Next
  - 1
    - Trouble installing ADO reference library Trying to install the ADO reference library in Word (2000 to 2003), but there are some problems with this. One of them is that variables can't be declared as ADO objects if this is not installed, causing the error: compile error: User-defined type not defined So this can't work: Public ADOConn As ADODB.Connection I can declare as variant and then do: Set ADOConn = CreateObject("ADODB.Connection") rather than Set ADOConn = New ADODB.Connection But then for some reason ADO doesn't install. I just can't figure this out and wonder what the best way is to approach this. This is my routine that installs ADO: Sub AddADO() 'this has to be in a different module as the module where there is the 'declaration: Public ADOConn As ADODB.Connection, otherwise there will be 'a compile error: User-defined type not defined 'the other option would be to declare ADOConn as variant '------------------------------------------------------------------------ Dim R For Each R In Application.VBE.ActiveVBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '--------------------------------------------------------------------------- - Application.VBE.ActiveVBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: MsgBox "CAN'T RUN THIS CODE" & vbCrLf & vbCrLf & _ "ADO 2.x IS NOT ON THIS COMPUTER" End Sub Thanks for any advice. RBS Tag: Rename word document Tag: 54501
  - 2
    - Metafile Problem Word 2003/VB6 The following code places an EMF onto the clipboard and when pasted into a Word 97 or Word 2000 document, displays a yellow square surrounded by a blue border. But in Word 2003 the blue border disappears. Can anybody please explain why? Excuse code (I'm no programmer) The code needs a command button and picturebox on the form and was written in VB6. *************************************************** Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function CreateEnhMetaFile Lib "gdi32" Alias _ "CreateEnhMetaFileA" (ByVal hdcRef As Long, _ ByVal lpFileName As String, lpRect As RECT, _ ByVal lpDescription As String) As Long Private Declare Function CloseEnhMetaFile Lib "gdi32" (ByVal _ hDC As Long) As Long Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long Private Declare Function DeleteEnhMetaFile Lib "gdi32" (ByVal _ hemf As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal _ wFormat As Long, ByVal hMem As Long) As Long Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long) As Long Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal _ wFillType As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, _ ByVal hObject As Long) As Long Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, _ ByVal nWidth As Long, ByVal crColor As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Const FLOODFILLBORDER = 0 Const FLOODFILLSURFACE = 1 Const CF_ENHMETAFILE As Long = 14 Const PS_SOLID = 0 Dim myrect As RECT Private Sub Command1_Click() myrect.Left = 0 myrect.Top = 0 myrect.Right = Picture1.Width myrect.Bottom = Picture1.Height metadc = CreateEnhMetaFile(Picture1.hDC, vbNullString, myrect, metafilename) myPen = SelectObject(metadc, CreatePen(PS_SOLID, 5, 65535)) MoveToEx metadc, 20, 20, ByVal 0& LineTo metadc, (Picture1.Width / 36), 20 LineTo metadc, (Picture1.Width / 36), (Picture1.Height / 36) LineTo metadc, 20, (Picture1.Height / 36) LineTo metadc, 20, 20 fillbrush = SelectObject(metadc, CreateSolidBrush(vbBlue)) x = ExtFloodFill(metadc, 0, 0, 65535, FLOODFILLBORDER) HmetacloseDC = CloseEnhMetaFile(metadc) api_return = OpenClipboard(Picture1.hwnd) If api_return > 0 Then EmptyClipboard SetClipboardData CF_ENHMETAFILE, HmetacloseDC CloseClipboard Else DeleteObject HmetacloseDC End If DeleteEnhMetaFile HmetacloseDC DeleteEnhMetaFile HcopymetaDC End Sub Hope someone can help Demonic Tag: Rename word document Tag: 54495
  - 3
    - select text and assign to variable My document has four lines of text. Each line ends with a paragraph mark. How do I select the first line and assign it to string variable sItem1 select the second line and assign it to string variable sItem2 select the third line and assign it to string variable sItem3 select the fourth and assign it to string variable sItem4? I'm new to vba for word 2002 and any pointers in the right direction will be most appreciated. -- Regards, David Tag: Rename word document Tag: 54488
  - 4
    - Why won't my switch-language key setting (Ctrl-Shift) work in Word My language switch key key (Shift-Ctrl) has stopped working in Word2002. It works in other apps. I had added a bunch of macros to normal.dot. But even when I removed them, the language-key switcher is still dead in word. Suspected a textbridge add-in (tbrun9.dot), but removing it didn't help. Any ideas? Tag: Rename word document Tag: 54480
  - 5
    - Exit a Macro While debugging a macro, there are times I would like to exit the macro at a certain point. Is there a command to do that? Tag: Rename word document Tag: 54479
  - 6
    - Paragraph Smasher Macro--to Improve? Hi, I've written a VBA script (for Microsoft Word 2000 on the PC) that highlights the current paragraph, then breaks it up into sentences that are separated by paragraph marks. Now the author can analyze the structure of the writing, and move the sentences around. The script adds double paragraph marks after "." "!" "?" and ";". Afterwards, it also removes the new, unnecessary paragraph marks after "Mr." "Ms." "Mrs." "a.m." and "p.m." However, it doesn't fix other abbreviations. I was wondering if someone can improve this macro. Thanks. Here's the script. - - - Sub Paragraph_Smasher() ' ' Paragraph_Smasher Macro breaks up a paragraph to help you see each sentence ' Select the current Paragraph Selection.StartOf Unit:=wdParagraph Selection.MoveEnd Unit:=wdParagraph ' Put double paragraph marks after periods Do Selection.Find.ClearFormatting ' Use the Find object to search for text. With Selection.Find .Text = ". " ' Use the replacement object to replace text. .Replacement.Text = "~.~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With ' If no more occurrences, exit the loop. If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~.~" .Replacement.Text = "." .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Remove paragraph marks after instances of "Mr." "Ms." Mrs." Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mr.^p^p" .Replacement.Text = "Mr. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Ms.^p^p" .Replacement.Text = "Ms. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mrs.^p^p" .Replacement.Text = "Mrs. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put instances of a.m. and p.m. back together Do Selection.Find.ClearFormatting With Selection.Find .Text = "a.^pm.^p" .Replacement.Text = "a.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "p.^pm.^p" .Replacement.Text = "p.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after exclamation marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "! " .Replacement.Text = "~!~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~!~" .Replacement.Text = "!" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after question marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "? " .Replacement.Text = "~?~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~?~" .Replacement.Text = "?" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after semicolons Do Selection.Find.ClearFormatting With Selection.Find .Text = "; " .Replacement.Text = "~;~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~;~" .Replacement.Text = ";" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop End Sub -- Please delete "ANTI-SPAM" from email address daveg7777777@ANTI-SPAMyahoo.com David Godinger: Go player, student of Mahatma Gandhi, the Buddha, and Dr. Martin King Tag: Rename word document Tag: 54477
  - 7
    - Merge many Word documents using a Excel macro I have created a macro that uses an Excel spreadsheet to merge many Excel files together. The spreadsheet has file name and location information. I want to do the same for many Word documants. Currently I have a Word macro that simply creates a new word document then just adds and formats all the required documents. What I want to do is add another tab on the Excel spreadsheet and have all of the file name and location information for the Word documents there and have Excel create the Word document. I have taken some code from another post and it seems to almost work... Dim wrdAPPnew As Word.Application Dim wrdDOCnew As Word.Document Set wrdAPPnew = CreateObject("Word.Application") wrdAPPnew.Visible = True With wrdDOCnew . . . Selection.InsertFile Filename:=currentInsertFileName, Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False . . . End With The "Selection.InsertFile..." command works fine while inside Word but not from within Excel even though I have referenced the "Microsoft Word 10.0 Object Library". When run I get a Run-time error 438, object doesn't support this property or method. Any ideas are appreciated Alan Parekh Tag: Rename word document Tag: 54475
  - 8
    - Newbie Question Hey all, I got started with VBA using MS Access. I'm now trying to learn to apply it to Word. At this point, I'm not even sure of what events there are, besides open, close, and new, that I can use to trigger my code. I have no idea how to use form controls, etc. Anyone have any suggestions (and I'm sure you do) of what I could read to get me started? Thanks grep Tag: Rename word document Tag: 54457
  - 9
    - Ignore All (spell check) on words with curly quotes In Word 2000 and Word XP, when I check the spelling of a document that contains curly quotes, words that contain an apostrophe are not included in the Ignore All list when I click a misspelled word in the text and select the Ignore All option. (The curly quotes are formed by the AutoFormat As You Type option for replacing "Straight Quotes" with "Smart Quotes"). Example: What was Bwa'ana looking for? In this example, Bwa'ana is considered two words, Bwa and ana. Now if I use only straight quotes, Bwa'ana is considered a single word, which is included in the Ignore All list. So now comes my question: Is there a way to have Word 2000 and XP include words with curly quotes in the middle into the Ignore All list (or in a custom dictionary, for that matter) as a single word? I know I can use a placeholder for the apostrophe and replace it after the spell check, but that can be quite inconvenient when you have lots of those words. TIA from AndY Tag: Rename word document Tag: 54456
  - 10
    - Locating specific range points Here's my requirement: I have to find specific text located in various places in a document. Once I identify the location of a spceific character (ASCII 167 in this case), I need to locate the VERY NEXT ")" character. My selected range must start at the 167-char, and end at the ")" char. I then need to replace the text in that range with a hotlink (easy enough to do). What I need to know is: 1) How to identify the absolute character position of the first & last character, and set the RANGE to those values 2) Is there a different way to do that? If so, how? I'm using vB6. thanks!! Tag: Rename word document Tag: 54448
  - 11
    - How get page numbers??? Hi!!!!! I need count numbers of pages of a document. How I get this number en VBA or VB.NET? Thanks in advance? Tag: Rename word document Tag: 54441
  - 12
    - Document_Open() I have looked through and followed (to the best of my ability) the instructions on the MVP web site regarding having macros run when a document is opened based on a specific template. Let me explain what I need to do: I need a DOS (yes DOS) based application to: 1. Open Word. 2. Launch a template. 3. Run a mail merge macro. 4. Print the results. 5. Close Word. I have accomplished 1 and 2 by envoking Word from a command line using the /t switch to open a new document based on a specific template. I have accomplished 3, 4, and 5 in a macro. The problem is that I can't seem to figure out how to get 3, 4, and 5 to happen automatically when a new document is opened based on the template. I have tried using the Document_Open() procedure. However, I can only get it to work when I open the template, not when a new document is created based on the template. What am I missing? Thank bunches in advance for your help. Gilley Tag: Rename word document Tag: 54439
  - 13
    - Template into the user's Word startup folder, macro name conflict When a template in a startup folder has a macro with the same name as a macro in normal.dot, which one will be executed ? How can I manage to have the macros in the template located in the startup folder detect that macro name conflict exist ? And better, how can a macro in the template remove a macro in normal.dot ? -- francois.piette@overbyte.be Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Tag: Rename word document Tag: 54438
  - 14
    - Word macros template, drop down list, save button Hi all I have a word document template that, using macros, opens up a new document containing mail merge values retrieved from the database. 1 I want to specify (in the document template) the name of the template that the new document opens up in. 2 I want to have a drop down list (in the template toolbar) that lists values from the database. 3 I want a button that automatically saves the document to a folder on the users hard drive. Thanks in advance for any help - greatly appreciated..... Simon Tag: Rename word document Tag: 54437
  - 15
    - Multiple Tables and Ranges hi I would like to see vba code code tutorial online to have 3 tables with 3 different ranges so I can address teh cell of each table in each range. I run the macros of course but they do not seem to use this method. Thank you for your help. Tag: Rename word document Tag: 54433
  - 16
    - Validation of text of bookmark entries Hello, I am using VBA for Word to validate whether a report Word Doc is fine. For this, I scan through the doc for certain bookmarks. If the bookmarks are not present at all, it is a major problem and I signal error and return. If the bookmarks are present, I would like to read the text soon after the bookmark and check if it is not empty. That is all. But I am not able to do this. Can anyone point me how to do this? Currently the code that I use to scan for the bookmarks is thus: If ActiveDocument.Bookmarks.Exists("bkMark") = False Then bInvalidReport = True strInvalidFields = strInvalidFields + Chr(10) + p_strField + " " Else ' TODO : Check for valid entries for the bookmarks End If For the Checking for valid entries, I have tried the following things, which do not work: Selection.GoTo What:=wdGoToBookmark, Name:="bkMark" If IsEmpty(Selection.Text) then .... This doesn't work because even if there is nothing after the bookmark but blank characters, the bookmark always contains some vague ASCII character. If I try ActiveDocument.Bookmarks.("bkMark").Empty = True .... then it always returns empty for me, indicating a problem with every field. Warm regards, Senapathy Tag: Rename word document Tag: 54432
  - 17
    - Saving to Mac text I need, for production reasons, to save from Word 2003 to Western European (Mac)text format. This is possible from the Save As dialogue box but I cannot figure a way of doing it in a macro. If I simply record the macro it records the SAVEAS format:= as straight Windows text, which produces the wrong quote and double-quote symbols on the Mac. The Visual Basic Help is unhelpful on the point as it simply says the formats are listed in the SaveAs menu, and these are useless for the format:= "xxxx" line. I got a listing of filters using the sample FileConverter code but this does not include Western European (Mac). Any suggestions? Tag: Rename word document Tag: 54429
  - 18
    - Return the frame anchored to a given paragraph Is there a way in VBA to return the (first/only) frame anchored to a given paragraph? I was hoping the Frame object had an Anchor property like a Shape does. Of course, it doesn't. Is there another way, perhaps by looping through all the frames in the doc to matching one of them with its "anchoree" paragraph? I'm stumped. TIA. -- Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: Rename word document Tag: 54427
  - 19
    - Changing the attached document I have a situation where I want to change the template (from TemplateA to TemplateB) attached to the active document, and then save and close the document. When I subsequently reopen it, it should be based on the new template (TemplateB) I can do exactly this using Word's menus and all's well. - open the document, then go to Tools|Templates and Add-ins - click Attach and select a different template - Save and Close the document So I want to put the code in TemplateA that emulates using the menu system. I did this: Public Sub ChangeTemplate With ActiveDocument MsgBox "Change template from" & .AttachedTemplate .AttachedTemplate = "C:\MyTemplates\TemplateB.dot" MsgBox "Changed template to TemplateB.dot" .Close saveChanges:=wdSaveChanges End With End Sub Then I create mydoc.doc, based on TemplateA.dot and save it. Then I execute the ChangeTemplate Function. And as soon as I change the .AttachedTemplate property of the ActiveDocument, things get wacky. The code that follows that statement (the MsgBox and Close) don't execute. If I then tell Word to save and close the document, when I reopen the doc, Word immediately asks if I want to save it. If I say yes, it closes the doc. If I say no, it closes the doc. If I cancel, I get an error 4198. Whew! I think I'm screwing VBA's state and clearly I'm messing up the document.. Can anyone help with this function? thanks in advanc, gary Tag: Rename word document Tag: 54426
  - 20
    - "trigger macro on exit" for text boxes & radio buttons I have constructed a form that has 8 alternatives: 4 radio buttons (i.e., insert row above or below, or insert column to the right or to the left); & 4 text boxes (i.e., insert (how many) rows above or below, & insert (how many) columns to the rigth or left, And an OK button and a Cancel button. I can't figure out how to set the radio buttons (& the text boxes) so that choosing one radio button (or inserting a 1 or 2 digit number in a text box) will grey out & assign null values (or something like that) to any buttons (or text boxes) that previously contained values. Drop-down form fields have options that allow the user to trigger a macro on exit. I wish that text boxes and radio buttons had such an option, because I would use the "trigger macro on exit" to somehow grey out & assign null values (or something like that) to any buttons (or text boxes) that previously contained values. Tag: Rename word document Tag: 54421
  - 21
    - 4609: "String too long" When you try to assign the value of a variable containing more than 255 characters to a FormField object, you will receive the following error: Run-time error '4609': "String too long". I would like to assign the value of a variable more than 255 characters to a FormField object. Are there any solution? Thanks for any help Tag: Rename word document Tag: 54415
  - 22
    - Thrown against the wall (Will it stick?) Hi All, This is a bit long winded, so please stay with me. I recently became interested in making the return key funtion to advance between protected formfields. I found KB article 211219 which offered a plausible solution. However, the article specifically state that if other bookmarks or if fillin disabled formfields were used that additional code may be required. Things continued to work reasonably well during testing even after I inserted a few additional bookmarks and a few fillin disabled formfields. The enter key would cause the insertion point to jump to the next form field or if in the last form field, it would jump back to the first formfield. The only clich was that the first field following any fillin disabled field would not be "highlighted." The TAB key will cycle to and highlight each field, the Enter key would cycle each field and and highlight each field expect for fields following a fillin disbled field. I could figure out why these fields wouldn't highlight. I have very limited VBA knowledge, but I tried everything I could think of to reevaluate that field and expand the selection over the field range. Nothing would work. I even created another macro to run on entry to these specific fields and then select it. I was really baffled when the on entry macro had no effect but would work like a charm if ran manually. Finally it dawne on me that it could be a timing issue. I had previosly stashed away a snippet of code for causing a macor to "doze." for a bit. I think it was either Peter Hewett that posted it here earlier. I applied his Declaration statement, the Doze macro and called it in my code below. It appears a simple 1 ms pause was all I needed to identify the current field and select it. Now all formfields are selected and highlighted regardless of their location or the presence of fillin disabled fields. Here is my code. Thrown against the wall for your critical comments or suggestions for improvement. Thanks. Sub EnterKeyMacro() ' Include the following declaration in the Macro module: 'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim myFF, oFrm, oSelBkm Set oFrm = ActiveDocument.FormFields Set oSelBkm = Selection.Bookmarks If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _ Selection.Sections(1).ProtectedForForms = True Then myFF = oSelBkm(1).Name If oFrm(myFF).Name <> oFrm(oFrm.Count).Name Then oFrm(myFF).Next.Select 'I added these three lines. Doze 1 myFF = oSelBkm(1).Name Selection.GoTo What:=wdGoToBookmark, Name:=myFF Else oFrm(1).Select End If Else Selection.TypeText Chr(13) End If End Sub Sub Doze(ByVal lngPeriod As Long) DoEvents Sleep lngPeriod ' Call it in desired location to sleep for 1 second like this: ' Doze 1000 End Sub Tag: Rename word document Tag: 54412
  - 23
    - graphic toolbar button What if we want to create a button on the toolbar in Word (97) that will, when the user clicks on it will place a graphic in the document. Is this possible? Thanks again, Beth Mc Tag: Rename word document Tag: 54411
  - 24
    - Mail Merge Function Error Hi, Recently I upgraded from Win98/Off97 to WinXP/Off2003 as a result an Access Database App that previously worked fine now fails to run its MailMerge function correctly, and fails with the error "error 4605: this method or property is not available because it is not a mail merge main document". The code appears to execute fine up to the following portion of code, and drops out to err_ShowWord at the .Execute method ********************** ' ' Show the word document ' Sub ShowWord() Dim MyMerge As Object On Error GoTo err_ShowWord oaword.Application.Visible = True Set MyMerge = oaword.ActiveDocument.MailMerge With MyMerge .Execute End With Exit Sub err_ShowWord: MsgBox "Error number " & Err.Number & ": " & Err.Description MsgBox "Word Error! Unable to show Word" End Sub ********************** The Database has been converted to 2003, as has the .dot file in question. I have checked for Security Settings (Macro) and various other anomalies, but have been greeted with no joy. If more snippets of code is required for analysis let me know and I'll paste it in - the app is not huge, only 257 line in total.. Any ideas or sugestions would be greatly appreciated. Regards, Matty. Tag: Rename word document Tag: 54408
  - 25
    - Autosave Does anyone know of a way to force word to do an autosave, on a document you have opened. I need to programatically get Word to do an Autosave. Tag: Rename word document Tag: 54404

i have a file called "abc1.doc".. can u suggest something
that whenever i edit the file, it will automatically be
renamed as "abc2.doc" . whenever i edit +1 will be added
automatically.
eg: "abc3.doc" then "abc4.doc" etc..

i hope u understand my question.
KINDLY PLEASE REPLY TO MY EMAIL ADDRESS ALSO..
thank you
My email: arjundutta12@hotmail.com

Top

Re: Rename word document by Graham

Graham
Tue Aug 10 03:59:48 CDT 2004

I use something similar which could be set up as an autoopen macro, though I
prefer to run it manually from a toolbar button. It is based on Doug
Robbin's web page - http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm which
will provide the background. You will need to set the path and the original
filename. Use a unique file - here c:\settings.txt - to hold the count.

Sub SaveNumberedVersion()
'Based on code by Doug Robbins
Dim strPath, strFile As String

strPath = "D:\My Documents\Test\" 'set path
strFile = "My File " 'set filename

Order = System.PrivateProfileString("C:\Settings.Txt", _
"MacroSettings", "Order")
If Order = "" Then
Order = 1
Else
Order = Order + 1
End If

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
"Order") = Order

ActiveDocument.SaveAs FileName:=strPath & strFile & _
Format(Order, "00#")
End Sub

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

arjun dutta wrote:
> i have a file called "abc1.doc".. can u suggest something
> that whenever i edit the file, it will automatically be
> renamed as "abc2.doc" . whenever i edit +1 will be added
> automatically.
> eg: "abc3.doc" then "abc4.doc" etc..
>
> i hope u understand my question.
> KINDLY PLEASE REPLY TO MY EMAIL ADDRESS ALSO..
> thank you
> My email: arjundutta12@hotmail.com

Top