wdSaveChanges doesn't work

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Wild Card Search II Helmut, et al, Sorry for reposting this, but the initial post is around 2-3 weeks old and buried. I was afraid it wouldn't get any attention. Here it is: Helmut, Hi, I am sorry this is so delayed, but I got caught up in some other work before I could test the macro you supplied me. When I run the macro, it gives me an error that says, the Find What contains a Pattern Match that is not a valid Expression. Do you know what this means or why I am getting this error? Here is the code clipped from the larger macro: ResetSearch With Selection .ExtendMode = False .HomeKey unit:=wdStory With Selection .ExtendMode = False .HomeKey unit:=wdStory With .Find .Text = "(^13)([A-z]{1;}.[^32^s^t]{1;})([!^13]{1;})" .Replacement.Text = "\1\3" .MatchWildcards = True ' define formatting .Execute Replace:=wdReplaceAll End With End With TIA, Jason L Helmut Weber <elmkqznfwvccbf@mailinator.com> wrote in message news:<agosp0l7nsg9kphkv1dbag2am70mkvbj5a@4ax.com>... > Hi Jason, > keep on! > > With Selection.Find > > .Text = " [ A-z].[^32^s^t]@" > > .Replacement.Text = "1/^+" > hm..., doesn't make any sense to me. > The 1/ should probably be \1, but would require an expression > inclosed in parenthesis (). Apart from other complications, > and apart from the fact, that wildcardsearch needs quite a bit > of a trial and error approach, (and some things simply don't work), > here is what i've figured out: > Search for a paragraph starting with some letters followed by "." > (^13)([A-z]{1,}.) > Paragraph would be expression \1 later. > Instead of {1,} one should be able to use @, but doesn't work here. > Include whitespace after ".": > (^13)([A-z]{1;}.)([^32^s^t]{1,}) > Again, ^w for whitespace doesn't work, therefore [^32^s^t]{1,}. > As the characters and the whitespace can be grouped together, > we arrive at: > (^13)([A-z]{1,}.[^32^s^t]{1,}) > Now we got to search until the paragraphs end. > That would be one ore more characters, that are not chr(13). > ([!^13]{1,}) > All together it could look like: > "(^13)([A-z]{1,}.[^32^s^t]{1,})([!^13]{1,})" > So we got 3 expressions, > expression1 is the preceding paragraph mark, which we leave untouched, > expression2 is > the letters following, plus the period plus the whitespace > expression3 is the remainder. > Follows > .Replacement.Text = "\1\3" > which means "cut off expression \2". > Apply the formatting to the result. > Here is my test macro, which could be improved by using > range instead of selection, and in some more ways, I guess. > Sub Test661() > ResetSearch > With Selection > .ExtendMode = False > .HomeKey unit:=wdStory > With .Find > .Text = "(^13)([A-z]{1;}.[^32^s^t]{1;})([!^13]{1;})" > .Replacement.Text = "\1\3" > .MatchWildcards = True > ' define formatting > .Execute Replace:=wdReplaceOne ' for testing > End With > End With > ResetSearch > End Sub > Public Sub ResetSearch() > With Selection.Find > .ClearFormatting > .Replacement.ClearFormatting > .Text = "" > .Replacement.Text = "" > .Forward = True > .Wrap = wdFindContinue > .Format = False > .MatchCase = False > .MatchWholeWord = False > .MatchWildcards = False > .MatchSoundsLike = False > .MatchAllWordForms = False > .Execute > End With > End Sub > HTH > Greetings from Bavaria, Germany > Helmut Weber, MVP > "red.sys" & chr(64) & "t-online.de" > Word XP, Win 98 > http://word.mvps.org/ Tag: wdSaveChanges doesn't work Tag: 60022
  - 2
    - InsertFile method leaves certain text out after insertion. I am using the InsertFile method to insert the contents of a text file into a Word document, like so: .Selection.InsertFile TextFileName, Range:="", _ ConfirmConversions:=False, link:=False, _ attachment:=False I have found that certain text is left out after insertion by Word, e.g. "+/-". When I try the insert file command from Word itself, a confirm conversion box will pop up, and allow me to force a "Plain text" conversion, which in turn leaves in the missing text after insertion. However, I cannot find a way to force this programmatically. Wd 2k, '03; Win XP, 2000 Any assistance would be appreciated. Thanks. Tag: wdSaveChanges doesn't work Tag: 60019
  - 3
    - VBA Checkbox Problem I am dynamically creating checkboxes at runtime and trying to set the bookmark name. However, it will not allow me to set the new checkbox. I have tried dynamically changing the name of the bookmark, deleting it, and renaming. Nothing seems to work. Any help or work around would be appreciated Tag: wdSaveChanges doesn't work Tag: 60016
  - 4
    - autoexec error I getting an error when I start MS word or Ms excel that the hidden macro Autoexec has an error. Can someone tell me how to get rid of this error. I can't find an autoexe macro. Thank Mark Tag: wdSaveChanges doesn't work Tag: 60015
  - 5
    - Text Selection with VBA Hello, I am new to VBA in Word and I was wondering if=20 someone could help me please! I have a string in a Word document that I want to copy=20 from Word and then copy to an Excel worksheet. But the=20 string has a hard return at the end of it. So how do I=20 copy from the beginning of the string to the hard return?=20 I know the position in the document that the string starts=20 at but I do not know how to copy only to the carriage=20 return. For examle, when you select "Show/Hide =B6" to Show=20 it looks like: 125 North Street=B6 How do I use VBA to select only up to the hard return? I=20 hope this makes sense. Any help would be appreciated. Thanks. Tag: wdSaveChanges doesn't work Tag: 60011
  - 6
    - alphabetize mail merge I am developing a mail merge catalog in Word and using a query in Access as my data source. The table that the query references in Access is alphabetized by last name, the query in Access is alphabetized by last name, but the mail merge catalog prints in the order that the records were entered, rather than alphabetical order. How can I get the mail merge catalog to print in alphabetical order? Tag: wdSaveChanges doesn't work Tag: 60007
  - 7
    - Range Object positioning trouble Hi everybody! I've got some troubles, working with Range: Here is a code context: .. Call Word.ActiveDocument.Bookmarks.Add("A" & CStr(iter), Word.ActiveDocument.Range(bmStart, bmStop)) .. bmStart and bmStop are changing from 0 to ActiveDocumet.Characters.Count, and mark parts of the document with different formatting. For the majority of test documents that works perfectly: I get Bookmark from Character # bmStart (incl) to Character # bmStop (incl), but for the moment I've got a document, for which from the very beginning of the document it works as Range from Character # (bmStart - 1) (incl) to Character # (bmStop - 1) (incl). Any specific features about this very document I've not found. Why could it be? Thanks, Alex Tag: wdSaveChanges doesn't work Tag: 60002
  - 8
    - Lock module sperately Hi, I am using modules in wod vba project. I want to lock project code & module which is inside the project in seperate password. Does this possible. IF so , may I have any solution. Currently If I unlock project user can access any modules, but I want to restrict acess to each module by password. Thanks & Regards Naveen Tag: wdSaveChanges doesn't work Tag: 60000
  - 9
    - Let there be an option for ignore once for spelling mistakes When i'm writing somethign in Word and i make a mistake then there should be an option to ignore once. The only option when i right click is to ignore all. I think there should be an option to ignore once. It owuld also help because if someone accidently clicks it then they can easily fix it where as if they accidently click ignore all then they ahve to search the document for all the words they mis spelt. Tag: wdSaveChanges doesn't work Tag: 59999
  - 10
    - How to handle add-in clash I've just discovered that a template I distribute is clashing with Acrobat 6. When someone who has installed Acrobat 6 and its Word add-in creates a document based on my template, all is fine. But when that user saves the document, and then reopens it, my menu doesn't display, even tho I have code in my auto-open routine to display the menu if it isn't on the menu bar. When such users disable the Acrobat add-in, all is fine. So there's clearly a clash with something Acrobat is doing, but I don't know what that is. Question: is the appropriate way to handle this clash to have my autoopen function unload the Acrobat add-in, or is there some better way to handle this? thanks, gary Tag: wdSaveChanges doesn't work Tag: 59998
  - 11
    - >> Macro buttons Hi, I have a template the includes two macro buttons, each with code. The idea is that a user will choose one button to remove content. When a new document is created from the template there is no code for each of these buttons. When I check the template the code still exists for these buttons. How can I set up this template so that these buttons actually have code? Any ideas or suggestions appreciated :-) Cheers Jonathan Tag: wdSaveChanges doesn't work Tag: 59996
  - 12
    - List template funkiness in Word 2003 At work, we are in the process of switching from Office 2000 to Office 2003. Part of that process is making sure that all of the macro solutions we use with Word will operate correctly under Office 2k3. Problem is, they don't and I can't quite figure out why. Here's the setup... Originally started in Word 97, we have a set of macros that provide the user with a choice of templates to use with their documents. These templates all have different body text styles, heading styles, TOC styles, outline numbering styles, etc. The users have the ability to switch templates from a drop down menu in a toolbar and all of the styles in their document will change accordingly. It was tought to get it so that the numbering would change correctly, but we finally got it working and it's worked fine now for 2+ years. Under Word 2k3, however, not everything works the way it should. Specifically, the outline numbering associated with the heading styles does not switch when the user selects a different template. Or rather, it switches properly sometimes, other times it doesn't switch at all or switches to an incorrect numbering style. When we set up the templates and styles, we defined the outline numbering through the style definition rather than through the Numbers and Bullets dialog because everything I'd found on the net said to avoid the latter and just define the numbering as part of my styles. After some tweaking and banging my head against my desk, I actually got it to work quite well. My question is this: Did something change internally that might affect this process? It works fine in Word 97 and Word 2000, but falls to pieces in Word 2003. I remember having to code around problems when we moved to 2k, so maybe there's some change I'll have to account for in 2k3? Tag: wdSaveChanges doesn't work Tag: 59994
  - 13
    - Sorry!!! My previous post was posted on the wrong group. I had the wrong group selected when I created the message and didn't pay attention. Sorry! Tag: wdSaveChanges doesn't work Tag: 59993
  - 14
    - Print a picture Box Image Dear Group I have created a scrollable picture in my application, ie a picture box as a member of another picture box, a couple of scroll bars and now I have a scrollable bitmap image larger than my screen. I would now like to be able to print it but the only example of how to do this is Q230502 - How To Print a Form That Is Too Large for the Screen or Page. By following this example with my setup picture box within picture box, I can only print the visible area and not the entire picture. When I follow the example in the exercise it works, however the picture boxes are separate and not with one as a member of another. Can I print the entire bitmap image in my setup? The article states that: Because the PictureBox's bitmap is stored in a device context in memory, you have access to the entire bitmap regardless of what is displayed. Is this still true in my current setup? If it is not possible can the group think of a workaround? Thanks again... Kagsy Tag: wdSaveChanges doesn't work Tag: 59992
  - 15
    - Serial numbering of documents in a networked environment I would like to know the recommended method of inserting an automatic "serial" number in a document. An example of this would be a company-wide outgoing fax serial number. I realize that it is rather big, in the sense that it could include many issues (what kind of field should be used, how do we keep the user from altering it and so on). Since I have a background in DOS programming, I am primarily interested in the file functions and locking mechanism necessary to save and retrieve the serial number from an external file, since we are operating in a networked environment. Any help is welcome. Thanks in advance. Tag: wdSaveChanges doesn't work Tag: 59991
  - 16
    - How do I convert a file from MS-DOS Works? My husband has his client christmas card label list on a floppy that I think was saved from an extremely old version of Works. It is set up in fields, and so far I've been able to access the names and addresses in only the vertical 'field' format. How can I convert this file so that the correct tabs will apply? Thanks Tag: wdSaveChanges doesn't work Tag: 59989
  - 17
    - Returning selected shape from within drawing canvas I'm trying to determine the name of the currently selected shape within a drawing canvas, but all I get is the name of the canvas itself. MsgBox Selection.ShapeRange.Item(1).Name MsgBox Selection.Range.ShapeRange(1).Name This all returns the name of the drawing canvas, although only one of the shapes within the canvas is selected. MsgBox Selection.ShapeRange(1).CanvasItems(1).Name Returns the name of the first added shape in the canvas and that's not necessarily the currently selected shape. Does anyone have any suggestions? Thanx, Fabian. Tag: wdSaveChanges doesn't work Tag: 59988
  - 18
    - Formatting individual paragraphs in a Cell I'm stuck. I'm writing a few one-line paragraphs into a table cell (actually a label in a word-created blank labels document). All of the text is aligned left. But for a few cells, I want to add an additional one-line paragraph that's aligned right and italicized. But whatever I try ends up formatting the whole cell as right aligned and italicized. I want the label to look sorta like this: First Name Last Name Address Department Specialty Text Does anyone know a way to format the last paragraph of a cell without it affecting the whole cell? Here's my latest attempt that still didn't work. Dim rng As Range Set rng = ActiveDocument.Tables(1).Cell(nRow, nColumn).Range With rng .InsertAfter "Specialty Text" .Previous wdParagraph .Expand wdParagraph .Font.Italic = True .Select .ParagraphFormat.Alignment = wdAlignParagraphRight End With Tag: wdSaveChanges doesn't work Tag: 59987
  - 19
    - Can't use word wrap in Word 2000 macros When I try to use the "Record New Macro" system in WD2000 to change an in-line picture to be text-wrapped, the text wrapping options in the picture formating dialog are grayed out. There is a tech note that describes a similar problem (WD2000: Unable to Record Macro for Inline-to-Floating Picture Conversion; Article ID : 209800)that says the work around is to select the picture, cut it, then paste-special as a picture, then select it and change the wrap option. This doesn't work (at least not in Word 2000 on Wuindows 2000). Is there a work around or a way to actually code this in the macro editor? Tag: wdSaveChanges doesn't work Tag: 59978
  - 20
    - Macro for opening I want to write a macro that will cause two things to happen when that specific document is opened, no matter how a previous user left it. I want a certain custom toolbar to be visible, and the document to open in protected mode. Any ideas? My brain is turning to rubber here... Thanks! Tag: wdSaveChanges doesn't work Tag: 59973
  - 21
    - Calling Otherproject.Sub from Normal.ThisDocument Two questions, really. I've got my macros in "MyMacros.dot" startup template. But I need some of them in my Normal.ThisDocument Document_New/Open/Close routines. Haven't been able to call them out of the MyMacros project with any variation of syntax ([MyMacros.vbp].[Utils].DoSomething). So, I've had to copy some of them over to a local module in Normal which seems kind of silly and redundant. Is that because you just can't call out of project from ThisDocument or because I just don't know how to do it? (sorry 'bout the cross post but traffic is light over in my beginner corner) -- Poseur "That's just kooky talk." --Kramer Tag: wdSaveChanges doesn't work Tag: 59972
  - 22
    - Delete VBA code in runtime Hi, I have the below code in ThisModule of severel templates. It calls and add-in that do some stuff..... Now I would like the finished documents to be without code in ThisModule, so that when a user mails the documents to a customer or.... the documents will not be stopped in AntiVirus systems, that does not allow VBA code. Can I delete all the code in ThisModule in run-time ? Thanks, Flemming ----- Private Const msNAME As String = "EN.dot" Private msFullFileName As String Private Sub Document_New() ' Code ' Code 'DELETE IT ALL........ End Sub Private Function FileExists(ByRef sFullPathAndFileName As String) As Boolean ' Returns True if the file exists FileExists = CBool(Len(Dir(sFullPathAndFileName))) End Function Tag: wdSaveChanges doesn't work Tag: 59968
  - 23
    - adding bookmarks stop without message why I have a document directory that consists of word documents and a table of contents that relate to those documents. So I thought I would create bookmarks as they relate in the table of contents. Then create adobe acrobat pdf from that. Well I had to modify the bookmarks with _ and some search fields. So I massage them with c language. The following code works with the files I created with C language. The problem is that I can only create 9 bookmarks and the program finishes prematurely without giving me a message why. When I check out in word 2000 with inserting bookmarks I find the 9 bookmarks there but the dropdown box v isn't available. It can't add more bookmarks .I also tried this code also : "ActiveDocument.Bookmarks.ShowHidden = True For Each aBookmark In ActiveDocument.Bookmarks If Left(aBookmark.Name, 1) = "_" Then MsgBox aBookmark.Name Next aBookmark It ends up with the same unfilled record count. I know that there is at least 12 more _ items to add with the above code by dies with just 9 records. There is nothing wrong with files I've create Heres my code below Do While Not EOF(1) Line Input #1, searchstring Line Input #2, bookmarkfield Set MyRange = ActiveDocument.Content MyRange.Find.Execute findText:=searchstring, Forward:=True If MyRange.Find.Found = False Then Exit Do ActiveDocument.Bookmarks.ShowHidden = True ActiveDocument.Bookmarks.Add Name:=bookmarkfield, Range:=MyRange ActiveDocument.Bookmarks.ShowHidden = True Rem MyRange.Bookmarks(counter).Add Name:=bookmarkfield ActiveWindow.View.ShowBookmarks = True primenumber = 0 counter = counter + 1 Loop offset = offset + 1 Close #1 Close #2 Tag: wdSaveChanges doesn't work Tag: 59963
  - 24
    - adding bookmarks stop without message why have a document directory that consists of word documents and a table of contents that relate to those documents. So I thought I would create bookmarks as they relate in the table of contents. Then create adobe acrobat pdf from that. Well I had to modify the bookmarks with _ and some search fields. So I massage them with c language. The following code works with the files I created with C language. The problem is that I can only create 9 bookmarks and the program finishes prematurely without giving me a message why. When I check out in word 2000 with inserting bookmarks I find the 9 bookmarks there but the dropdown box v isn't available. It can't add more bookmarks .I also tried this code also "ActiveDocument.Bookmarks.ShowHidden = True For Each aBookmark In ActiveDocument.Bookmarks If Left(aBookmark.Name, 1) = "_" Then MsgBox aBookmark.Name Next aBookmark " It ends up with the same unfilled record count. I know that there is at least 12 more _ items to add with the above code by dies with just 9 records. There is nothing wrong with files I've create Do While Not EOF(1) Line Input #1, searchstring Line Input #2, bookmarkfield Set MyRange = ActiveDocument.Content MyRange.Find.Execute findText:=searchstring, Forward:=True If MyRange.Find.Found = False Then Exit Do ActiveDocument.Bookmarks.ShowHidden = True ActiveDocument.Bookmarks.Add Name:=bookmarkfield, Range:=MyRange ActiveDocument.Bookmarks.ShowHidden = True Rem MyRange.Bookmarks(counter).Add Name:=bookmarkfield ActiveWindow.View.ShowBookmarks = True primenumber = 0 counter = counter + 1 Loop offset = offset + 1 Close #1 Close #2 End Sub Tag: wdSaveChanges doesn't work Tag: 59962
  - 25
    - Maximum Doc Var's Hi Could you please let me know "THE MAXIMUM NO. OF DOCVARIABLE THAT A WORD2003 CAN STORE" Thanks Alok Tag: wdSaveChanges doesn't work Tag: 59961
- Next
  - 1
    - How do I use alphabetic outline numbering with international chara I would like to use a list in my documents and use an alphabetic outlined numbering but not with the once word has as default. Tag: wdSaveChanges doesn't work Tag: 59958
  - 2
    - Class Module for Save Events Word 2000 I've been experimenting with my first class module. Here's what I have: Class Module ========== Public WithEvents App As Word.Application Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) If ActiveDocument.Name = "Locates.doc" Then SaveDocument End Sub Private Sub SaveDocument() ThisDocument.SaveFile End Sub Standard Module ============ Dim X As New clsSaveEvent Private Sub Document_Open() InitializeSaveEvent End Sub Sub InitializeSaveEvent() Set X.App = Word.Application End Sub Sub SaveFile() < Some code > End Sub So the event gets initialized when the document is opened. Each time a save event occurs the code in the class module runs, and if the document name is "Locates.doc" then SaveDocument, and finally SaveFile are called. This seems to work rather well, but being a class module newbie, I have several questions. I hope no one minds that I'm piling all these questions into one message, but they are all related to the same issue, so I figured that it would be easier this way. 1) The event works at the application level, and I want it to run only in a specific document, which is why I have the App_DocumentBeforeSave routine testing for the document name. I tried putting Set X.App = Word.ActiveDocument in the InitializeSaveEvent routine with Public WithEvents App As Word.Document in the class module. No errors occur with these lines in place, but at the same time, nothing appears to happen when I save the document. Is there a way to make this work only at the document level? 2) The event gets initialized when the document is opened, but I've noticed that after changing code in the module, I often need to initialize the event again. It makes sense that if the code in the event is changed, you'd have to reinitialize the event. However, is it possible that other changes, such as changes to the document or template, might also require the event to be reinitialized? 3) My experience with forms in Access, Excel, and Word have taught me that it's easy to end up with looping code when using before and after events, and that makes me a little leery here. What are the drawbacks, if any, of using the App_DocumentBeforeSave? 4) While the code above basically works, there is an annoyance that I have yet to solve. Say that the user does a Save As. The code will run as expected, but when the code completes the Save As dialog box will be displayed. I don't want that because I'm trying to control how the document gets saved, and I don't want the user to be able to change the name or the location of the file. Is there a way to prevent the Save As dialog box from being displayed (I read in the Help that the return value for the Cancel button is 0, and I thought maybe that could somehow be used to suppress the Save As dialog box, but I'm not sure how that would work)? 5) This is somewhat related to question 4. Is there a way to disable the Save As option in a specific document (not application-wide)? Any information that you may be able to provide will be greatly appreciated. -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: wdSaveChanges doesn't work Tag: 59956
  - 3
    - Highlighting bookmark text I am working on a macro that will get info from the user and insert it at a bookmark in the document text. If the user doesn't enter info, I want to provide reminder text for later editing (but I don't want this to appear as default text in the input box), AND I'd like to highlight the reminder text. Sample code is: ' Get the mailing and receipt dates from the user; MailDate1 = InputBox(MailMsg & Doc1) ' If no user input, define and format help text If MailDate1 = "" Then MailDate1 = "ENTER MAILING DATE" End If ' Go to the bookmark and enter the date .Bookmarks("Mail1").Range _ .InsertAfter MailDate1 Is there a way to easily highlight the help text without doing a find/replace or similar action? Thanks much in advance. Enjoy your weekend! Tag: wdSaveChanges doesn't work Tag: 59951
  - 4
    - Deleting all Instances of Captions I have tried the attached which I had found on a recent search of this group but it does not seem to delete all the captions but rather hangs up at "for each acap in activedocument" stating that this object does not support this property or method. I am trying to delete all inline shapes and their corresponding captions from a document - I have figured out the inline shape bit but the caption part is a problem. Any ideas would be welcome. Dim acap As CaptionLabel For Each acap In ActiveDocument acap.Delete Next acap Thanks David Tag: wdSaveChanges doesn't work Tag: 59949
  - 5
    - Problem building a COM Add-in for Word 2003 Folks, After building a VBA macro for Word 2003, I want to convert it to a COM Add-in so I can distribute it. I do not know if this is the correct group in which to post this question, but I'll start here. I followed the excellent example, "Converting Microsoft Office VBA Macros to Visual Basic .NET and C#," which I found at: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnofftalk/html/office11072002.asp This shows how to build a COM Add-in for PowerPoint. I followed the example and it works like a charm. But when I do the same thing to build a COM Add-in for Word, it is never activated. I set a breakpoint at the OnConnection subroutine and the code never breaks. It's one of those things that makes me go "hmmm....." Any help would be appreciated, including a suggestion for the proper group in which to ask this in the event that this is not the proper one. /Joel Finkel finkel@sd-il.com Tag: wdSaveChanges doesn't work Tag: 59947
  - 6
    - summarise document contents Dear Group How in Word can I loop through a document and get the dimensions and position of every object on the page, be it paragraph, rectangle, line, etc. I can loop through text and paragraphs as below, but I need all objects on a page. Dim para As Paragraph For Each para In ActiveDocument.Paragraphs **** Next What I really want is the Left, Top, Height and Width of the object and the TypeOf object it is. I have over 50 documents of 5 or more pages looking like forms (30 Boxes and lines) that I want all the measurements so I can take these measurements and create the same objects in a VB form. My aim is to create a converter. I fully appreciate that the same objects do not exist in VB so I will use CreateControl to create the comparable desired objects. I realise this is a mammoth project but I would appreciate any pointers from the group as to where to start. Please help whilst I still have some hair! Alastair MacFarlane Tag: wdSaveChanges doesn't work Tag: 59946
  - 7
    - Format Text Box Before outputting it New to VBA for word though I have some experience in VBA for Access. I want to place formatted text boxes on a document . If I use something like Sub DrawTextBox() ActiveDocument.Shapes.AddTextbox _ (msoTextOrientationHorizontal, 100, 100, 100, 80).Select Selection.ShapeRange.Select With Selection.ShapeRange .TextFrame.MarginLeft = 0# .TextFrame.MarginRight = 0# .TextFrame.MarginTop = 0# .TextFrame.MarginBottom = 0# .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor = RGB(255, 0, 0) .Fill.Transparency = 0# .Line.Transparency = 0# .Line.Visible = msoTrue .Line.DashStyle = msoLineSquareDot .Line.Weight = 5 .Line.Style = msoLineSingle .Line.ForeColor = wdBlue End With With Selection.Font .NameAscii = "Arial" .Size = 16 .Bold = True .Italic = False .Underline = True .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = RGB(0, 0, 0) .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone End With ' Center Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.TypeText Text:="This is a Text Box" Selection.Collapse End Sub The problem is that each bit of formatting takes place sequentially, and outputting 50 or 100 text boxes takes a few minutes to complete I feel there should be a way of defining the text box properties BEFORE Adding it to the document Something like (I know none of this works) Dim MyTextBox as TextBox With MyTextBox .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor = RGB(255, 0, 0) .Fill.Transparency = 0# .Line.Transparency = 0# .Line.Visible = msoTrue .Line.DashStyle = msoLineSquareDot .Line.Weight = 5 .Line.Style = msoLineSingle .Line.ForeColor = wdBlue End With Set MyTextBox = ActiveDocument.Shapes.AddTextbox _ (msoTextOrientationHorizontal, 100, 100, 100, 80) This seems to work as another alternative UNTIL I get to trying to output it to the document Public Type MyTextBox ' Create user-defined type. FillColour As Long ' Define elements of data type. BorderColour As Long BorderWidth As Integer ForeColour As Long End Type Function CreateTextBox() Dim MTB As MyTextBox ' Declare variable. Dim MyDocument As Document Dim MyTB As TextFrame Dim TextBox1 As Shape Dim NewShape As Shape With MTB .BorderColour = wdBlack .BorderWidth = 6 .FillColour = RGB(255, 0, 0) .ForeColour = wdWhite End With ??????????????? Output Thanks for any help Phil Tag: wdSaveChanges doesn't work Tag: 59941
  - 8
    - modify calendar wizard Word 2000 (9.0.6926 SP-3). How can I modify the default font in calendar wizard for the Days of the week and the numbers for the days. I also want to set the default to left justify the numbers of the days. Tag: wdSaveChanges doesn't work Tag: 59939
  - 9
    - printing envelopes I am using Windows XP and have an injet Lexmark printer - for some reason all of a sudden I cannot print envelopes. Can someone help? When I print envelopes I get a blank page - I can print documents but not envelopes. Tag: wdSaveChanges doesn't work Tag: 59938
  - 10
    - Cannot create word.application with word 2003 basic Is it possible to automate word 2003 basic using create object("word.application"). I'm trying to automate word through Visual Foxpro 8.0. It appears that createobject("Word.Basic") works fine but I get an error when creating the application object. Tag: wdSaveChanges doesn't work Tag: 59937
  - 11
    - From mysql to word Hi, how could i export data from mysql data base into a word's template? Thanks in advantage. Claudia Tag: wdSaveChanges doesn't work Tag: 59936
  - 12
    - Searching for sections for primary footer Begining with the first section, I need to search through the sections for the first section that has an odd page footer (each section is set for different first page and even and odd page footers). When the first odd page footer in the document is reached I can stop the search and perform some actions in that footer. I can't simply use something like: With Selection.Sections(1).Footers_(wdHeaderFooterPrimary) because I am inserting a textbox in the footer, and this will not allow that because it essentially opens the footer in normal view, and I need to be in the footer in print layout view, as in: ActiveWindow.View.SeekView = wdSeekPrimaryFooter Thanks for the help Tag: wdSaveChanges doesn't work Tag: 59935
  - 13
    - Lost file password OK I have lost the password to a bunch of word files that I NEED to get into..is there some way of getting in a backdoor or converting it in some way to get them open?? Help me please Tag: wdSaveChanges doesn't work Tag: 59934
  - 14
    - using vba to hide table rows... Hi All, I've got a question: How can I hide table rows using vba? I've the following table: -------------------------------------------------- | row1 | header | -------------------------------------------------- | row2 | O hide_line_3 | | | O hide_line_5 | -------------------------------------------------- | row3 | O hide_line_4_and_5 | -------------------------------------------------- | row4 | Text abcd | -------------------------------------------------- | row5 | Text defg | -------------------------------------------------- Where the O's are option buttons. So in the on change event of hide_line_3 I want to show/hide line 3. So in the on change event of hide_line_5 I want to show/hide line 5. So in the on change event of hide_line_4_and_5 I want to show/hide line 4_and_5. I tried already to make the heights 0, but it will mix up the format of the other rows with the option buttons... Any ideas? Every sugestion is welcome!! Thanks! jan Tag: wdSaveChanges doesn't work Tag: 59932
  - 15
    - Correct Sentence count under word Hi all, why does the Document.Sentences.Count results in a different value than for examlpe range.sentences.count ? (Range is set to the whole doc of course!) For example this sentence: "In order to get a basis to let the logic of the tool work, a small framework has to be implemented that provides the main functionality, e.g. word/sentence/paragraph count, reading index calculation and so on." is recogized as two sentences, because of "e.g. "! After a "." with a following space, " ", it counts a new word! Does anybody has some hints, tutorials, code? Many, many thanks in advance, Mel Tag: wdSaveChanges doesn't work Tag: 59931
  - 16
    - Scrollbar not working when launched from ole When launching a Word 2003 document with ole, the scrollbars in the opened document don't work. When first open the Word 2003 application and then launch a Word 2003 document with ole the scrollbars work Any a clue to solve this ? Tag: wdSaveChanges doesn't work Tag: 59928
  - 17
    - Find Replace bold formatting with delimiter Hi, I have paragraphs whose first couple of words are in bold and represent titles of magazines and then immediately following a description of the magazine in plain text. I would like to parse these into separate fields by placing a delimiter between the bold text and plain and then doing a Text to Columns in Excel. So, if I used the ampersand '@' as a delimiter I would like to do the following: Before Find Replace <bold>Interior Design<bold>A magazine on the interior design industry. After Find Replace <bold>Interior Design<bold>@A magazine on the interior design industry. It doesn't matter if the title remains bold so long as a delimiter is placed between it and the description. Thanks - Steve Tag: wdSaveChanges doesn't work Tag: 59922
  - 18
    - print automatically file name and location at the end of file. about Microsoft word, excel and other 2003 - You should also provide the facility of file location where the file saved and file name at the end of file so that i can easily find out in future where the file is located in my p.c. without using search or find option example - c:\my documents\asif.doc Tag: wdSaveChanges doesn't work Tag: 59918
  - 19
    - traverse a word document I have to write a custom diff utility for microsoft word. Any idea on how i can traverse a word document for the same. I know how to do it word by word, but what about figures, headers, footers etc. For the utility to work, i need to do it object by object in the order they appear in document. Tag: wdSaveChanges doesn't work Tag: 59917
  - 20
    - How do I set up option buttons to be clicked and selected? I am new to these complicated word functions. I am trying to set up a telephone consultation template for my pediatrics practice where people can just click options (e.g. fever, cough, etc.). Then they can e-mail them into the office so we have documentation (in this world of medical liability, it's a must). I would like to have option buttons and scroll down options. I can create them, but I don't know how to get them functional (they just sit there unresponsive). Any help would be much appreciated. Tag: wdSaveChanges doesn't work Tag: 59916
  - 21
    - Unlocking Microsoft Word and other Microsoft programs How can I unlock Word and other programs from Micosoft? I can't even type anything, save or do anything. And when I put a disk in to open a document I can't even edit the document because it's locked. I need to get acces to the Microsoft programs for school and work. This is really a hassle for those who don't have much time for to be dealing with this. Tag: wdSaveChanges doesn't work Tag: 59912
  - 22
    - ASK WITHIN IF (PLEASE PLEASE PLEASE) I want to ask the user if the client owes any money and if so, to insert something. I have {IF {ASK "Does the client owe the firm money for late annual reports?"} = "yes""Please also forward your cheque in the sum of $180.00 to our firm with the enclosed documents"} Of course it doesn't work; I hardly expected it to. I've never done this kind of thing before and Word's help was useless. Tag: wdSaveChanges doesn't work Tag: 59909
  - 23
    - recordset compile error in word Have a macro that runs on 2 other pc's with same windowsxp & officexp BUT another pc with same software after some time started failing with a compile error: Debugger highlighted: rstproj as dao.recordset said it was an undefined user type. The help suggested if it was a known type (it is) then look @ the references dialog box & make some changes ... I find references grayed out under tools. So how do I bring the references dialog box up? TIA BTW have reinstalled windowsxp & officexp but no banana :-(. -- _________________________________ in Christ's matchless name 73 ted & colleen n6trf kc6rue Tag: wdSaveChanges doesn't work Tag: 59908
  - 24
    - Don't save macro code in template in generated doc Hi there. I have a Word .dot template file that I use to generated pre-formatted documents. The template contains some macro code that prompts the user for some data then generates a new doc. Anyway the project/module/code that is contained in the template is also being saved in the final document; and I don't want that macro code in my final document. So I wanted to change the macro code in my template to modify the generated document in some way so when it is saved (by the end-user) the macro code that was contained in the template should NOT be saved with the newly created doc file. Any ideas would be appreciated, thanks. Tag: wdSaveChanges doesn't work Tag: 59904
  - 25
    - Style duplication/copying There does not seem to be any way to programatically copy one style, or part of a style, to another style. Nor a way to "update to match selection" as one can do from the GUI. I have written some tedious code to clone the data property by property, but there should be a better way. Is there? Tag: wdSaveChanges doesn't work Tag: 59903

I am using ActiveDocument.Close SaveChanges:=wdSaveChanges

But I still get a prompt asking me to save changes. Any help would be
nice.

Top

Re: wdSaveChanges doesn't work by Jean-Guy

Jean-Guy
Mon Dec 06 18:10:14 CST 2004

bill_campbell@bcbsmt.com was telling us:
bill_campbell@bcbsmt.com nous racontait que :

> I am using ActiveDocument.Close SaveChanges:=wdSaveChanges
>
> But I still get a prompt asking me to save changes. Any help would be
> nice.

You probably have code elsehwere that interfers by doing stuff after the
ActiveDocument.Close SaveChanges:=wdSaveChanges
line.

Any other code after? Any other event macros? Is it asking to save the
document or the template?

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Top

Re: wdSaveChanges doesn't work by bill_campbell

bill_campbell
Mon Dec 06 20:51:58 CST 2004

I can't beleive I didn't think of that first. The file I open, then
close, was built from a template with a bunch of code inside. I open
the file, then save it as text. I'll look for a way to stop that macro
from running.

> You probably have code elsehwere that interfers by doing stuff after
the
> ActiveDocument.Close SaveChanges:=wdSaveChanges
> line.
>
>
> Any other code after? Any other event macros? Is it asking to save
the
> document or the template?
>
> --
> Salut!
> _______________________________________
> Jean-Guy Marcil - Word MVP
> jmarcilREMOVE@CAPSsympatico.caTHISTOO
> Word MVP site: http://www.word.mvps.org

Top