VBA when saving

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - MsgBox showing all sections with respective headings Below macro is showing all the sections of a document with their respective first paragraph headings in a Message Box. It is working fine. But ... please scroll down past the macro ... Sub ShowSections() Dim rnge As Range Dim i As Long Dim strHeadings As String strHeadings = "" With ActiveDocument For i = 1 To .Sections.Count Set rnge = .Sections(i).Range rnge.End = rnge.End - 1 strHeadings = strHeadings & "Section " & i & ": " & rnge.Paragraphs(1).Range.Text Next i End With MsgBox strHeadings End Sub Now, here comes my question: Some of these first paragraph headings feature the built-in numbering (built-in numbered heading 1 paragraph style), like the following example shows: Section 1: Cover Sheet Section 2: Table of Contents Section 3: 1. Introduction Section 4: 2. Relative Analysis Section 5: 3. Conclusion Section 6: Appendix Section 7: Bibliography How do I have to re-write above macro that the numbering is shown as well? Now only the text of the headings that are positioned at the top of each section are shown, but their numbering (1., 2., 3., etc.) where applicable should show as well. Help is appreciated. Thank you very much in advance. Tag: VBA when saving Tag: 96703
  - 2
    - Prevent users from changing Text without Document Protection Hi, I would like to create a macro that will prevent users from changing certain text in the document. The text is a field in Section 1 of the document. The field is DOCPROPERTY Title. I always want them to use File > Properties to update the title, not change the title within the document by overwriting the field (most of the users would not know what a field is). I would like that as soon as they try to delete or overwrite or even select the title, that a message box comes up to say "Please go to File > Properties" to change the title. I do not want to use Document Protection as it is too restrictive for the rest of the document. I have seen some code that will prevent changes to the header or footer, which I will implement for the DOCPROPERTY fields in the header and footer, but I would like to be able to do it for the document text itself also. My thoughts on how to do it would be to restrict any changes within a section (if they select any text within Section 1 pop up an error message) or if they select any text between two bookmarks. I'm just not sure how to code this, can anyone help? Tag: VBA when saving Tag: 96700
  - 3
    - Table Formatting in Protected Document Is it possible to allow table formatting such as inserting a new row, controlling page breaks within the table, etc. to occur in a document that is protected? In my document, I need to allow such formatting to occur so users can control the flow of information. However, I do not want them changing any of the information that appears in the table itself. Tag: VBA when saving Tag: 96699
  - 4
    - Calculating from a dropdown box? How do I get a calculation to work from a dropdown box in a Word Form? I know how to make =(Field1)*(Field2) work properly but what if one of the fields is a dropdown box? That normal formula isn't working. Tag: VBA when saving Tag: 96698
  - 5
    - Current Page # (even vs odd) Hi, I'm trying to write the code to determine: a) what the current page number is (even where there is no page numbering inserted in the doc) and; b) determine if it is even/odd number (without 'reflected margin feature') I have a large number of small documents that are being appended to one another and I need to ensure that the first page always starts on an odd page. Thanks, Jille Tag: VBA when saving Tag: 96693
  - 6
    - Moving text along cells in a table I have a question I am asking my users: Do you have a priority fee? If they do, then I want an extra row in the table inserted with the appropriate text in the appropriate column. In this table there are three columns. I've taken a stab at it, but it obviously doesn't work. This is what I had: {ASK [PriorityFee] "Do you have a priority fee? If so, enter 'Yes'"}{IF {REF PriorityFee} = "Yes""{NextCell}$100.00{NextCell}{NextCell}"} Could someone please steer me in the right direction. By the way, the document has to be in rtf format so I cannot embed macros. Thanks! Tag: VBA when saving Tag: 96692
  - 7
    - Populate Dropdown Box in Word I have a drop down in my word document. It's not a list, but a form drop down (HTMLSelect) using the Web Tools toolbar. I want to populate this drop down with values from an Excel sheet. How do I do this? I'm connecting to Excel, but unable to figure out how to populate the drop down. Tag: VBA when saving Tag: 96691
  - 8
    - MailMerge API Trouble Hello All, I have a question about MailMerge from within an api call. I have word doc set up using the mailmerge wizard that creates an SQL Server .odc file to use as a datasource. I am calling the OpenDataSource method (o1.ActiveDocument.MailMerge.OpenDataSource(...) via a PowerBuilder app. All is well. However, I have one client that is getting DB errors when trying to run. The .odc connection is pointing to a view that has public permissions. Looking at the SQL trace, there is an exec sp_cursoropen line containing a select statement from the view. Followed by an exec sp_cursorfetch. Followed by an exec sp_cursorclose. Then a couple of BatchCompleted lines. All is well. Then these several lines repeat (within the trace) and I get an error after the second exec sp_cursorclose 180150000. The errors are Error: 208, Severity: 16, State: 1 followed by Error: 16945, Severity: 16, State: 1. Digging through posts on these errors, I see that 208 is roughly 'file not found' and 16945 is trouble with the cursor. Why might the first time through these statements be OK and the second time produce errors? I am running SQL Server 2000 sp4, my client is running 2000 sp3. I am on Word 2003 sp2, the client is on word 2002 sp3. I cannot recreate these errors in my environment, but the client has sent me his traces and I see where (but not why) the error is occuring. Any ideas? Thanks in advance, Brian Tag: VBA when saving Tag: 96689
  - 9
    - Do loops and omit a couple of iterations? I wonder whether it is possible to iterate through a collection of objects and omit a couple of iterations, such as Dim i as integer For i = 1 to 7 Skip 3,4 Set tbl = ActiveDocument.Tables(i) If tbl.Rows(1) etc. then do stuff End If Next i Is this possible, ie. skip the third and fourth table ? ` Help is appreciated. Thank you very much in advance. Regards, Andreas Tag: VBA when saving Tag: 96685
  - 10
    - Default Print Dialog Window Changed In Word 2003 the default print dialog was customized by an employee who is no longer with us; a new print form was created and the appropriate options added to include a document footer checkbox and a checkbox to not bill the print job. This customized form causes problems when using programs that need to use Word's default dialog box (for instance Adobe Acrobat). We are also using a DMS, Interwoven 8.1. My question is how can we avoid using a customized print dialog box, but still prompt to include a footer and/or not to bill the print job when printing? Thank you in advance for any suggestions you may have. Tag: VBA when saving Tag: 96683
  - 11
    - Path/File access error - why wont it fall into the error trap? Using MS Word 2003 and MS XP Professional The following code does not seem to trap the "Path/File access" (error 75) - why would this be? What can I do to trap file open errors or alternatively catch badly formed file names? On Error GoTo badfile: If FileThere(sourcefile) Then Open sourcefile For Binary Access Read As #8 Else GoTo badfile: End If Function FileThere(FileName As String) As Boolean FileThere = (Dir(FileName) > "") End Function The form of the file that it is trying to open is; X:\B\Big BearAssn\Billings\1234567-Bear Fund $1500 Jun 06 (2).doc Thanks for your help - this is driving me squirly Tag: VBA when saving Tag: 96672
  - 12
    - Adding buttons from a macro Is it possible to add buttons to a custom toolbar from a macro? Thanks, Flint Tag: VBA when saving Tag: 96666
  - 13
    - Deletion of date info in Word comments (I tried to post this question but it did not seem to work). I like to use word to mimic HTML web documents with Word screen tips mimicking HTML title attribute comments, but I can not get rid of the date from the comment. I can get rid of the author in the comment by changing the author in the document to " ". I might also like to be able to control the word data that appears in the screen tips for links in word. Tag: VBA when saving Tag: 96665
  - 14
    - Delete date & other Word provided data from Comments and screen ti I like to use word screen tips to mimic web page HTML <span... title="comment....whatever">. However I would like to know how to get rid of the date that word insists on providing. (I can get rid of the author by changing the author in the document settings to " ".) I would also like to get rid of the word provided details from the screen tips that I get from my links in word. Tag: VBA when saving Tag: 96664
  - 15
    - Inserting text into protected field/textbox Hi, I have a letter with fields, which is protected. For the content of the letter, I want to use variable text. I made a userform which can select several textlines, which then are to be inserted in the letter. The textlines are in separate word-files. What I want to do is insert a or multiple word-file(s) into a field. If I unprotect the letter, then the field is overwritten. Is it possible to insert the text, which is in another file into a protected field? Or insert the text and put a field on top of the text? Thanks, Mike Tag: VBA when saving Tag: 96661
  - 16
    - Compress Pictures Is there a way to have VBA macro compress pictures? If I use CommandBars.FindControl(Id:=6382).Execute the dialog box pops up. I want to be able to do the whole compression in the macro without a dialog box popping up. Is there any way to do that? Gerald Tag: VBA when saving Tag: 96658
  - 17
    - Switch function, If Then, or Select Case? (or something else?) I need to write a function which checks for certain strings in a field, then reports back a "field type" (my term, not the actual fieldtype in Word) based on the strings it finds. I don't know quite how to write this. Here's what I have so far: Function FieldType(oField As Field) As String FieldType = Switch((InStr(oField.Code, "mNL1")), "mNL1", (InStr(oField.Code, "mNLa")), "mNLa", _ (InStr(oField.Code, "MACROBUTTON")), "TypeHere") End Function The problem is that if none of the expressions in the Switch function are true, there's an error. I'd like to add an "OTHER" string that the function would produce if the field it checks isn't any of my "types" (mNL1, mNLa, and TypeHere). How would I do that? Should I be using something other than the Switch function? I thought of using a Select Case statement, but I'm not sure how to phrase the InStr checks as a single expression that could be evaluated for each case. I feel like the answer is staring me in the face, but I'm not familiar enough with programming to know what I should do. Thanks for any advice you can give me! Tag: VBA when saving Tag: 96651
  - 18
    - Finding information related to headings I have hundreds of legacy documents that I need to add to a index database. I am looking for a way within Word to search on Criteria such as Author, creation data, update date , doument revison etc. The intention is to put a block of files in a dedicated directory, run a routine containing a list of criteria such as above. Ideally the results which would be reported back on each document should give any information held in the document against each criteria, i.e. Author would indicate a name that would be written to a file that could be imported into Excel and then indexed . Any help on this would be greatly appreciated as at present I have no idea and am doing the search manually. Regards Bill Warden Tag: VBA when saving Tag: 96645
  - 19
    - MsBox showing all the headings of each section Dear Experts: I am trying to write a macro that shows me all the headings of all the sections in a MessageBox, i.e the text from the first paragraph of each section along with the section number should appear in a Message Box: Example: Section 1: Cover Sheet Section 2: Acknowledgments Seciont 3: Contents Section 4: Preface Section 5: Chapter 1 Section 6: Chapter 2 etc. I was able to write part of the macro, ie. loop through all the sections and get the text from the first paragraph of each section. But there it ends. Could anybody please give me a hand. Thank you very much in advance. Sub ShowSectionHeadings() Dim rng As Range Dim sect As Section Dim strSectionHeading As String For Each sect In ActiveDocument.Sections 'Get text from first paragraph in section strSectionHeading = sect.Range.Paragraphs(1).Range.Text 'Trim paragraph mark if present If Right(strSectionHeading, 1) = vbCr Then strSectionHeading = Left(strSectionHeading, Len(strSectionHeading) - 1) End If Next sect End Sub Tag: VBA when saving Tag: 96643
  - 20
    - Formatting text in Footer? I have some vba code that I use to update my footer from a userform. It all works as I have coded it but I am having trouble formatting the footer text after I update it. For example on my first bookmark I want it to be left justified and my page x of y that is already in the footer, I want it right justified. Any ideas? Thanks! Tag: VBA when saving Tag: 96638
  - 21
    - AutoOpen macros and the startup folder In Word 2007, if I want to put all my macros in "AllMacros.dot" and run some from Normal.dot's AutoOpen macro, how do I get around the fact that the AllMacros.dot might not be open in time? (I'm trying to stay compatible with word 2003 so I don't want to use ribbon stuff. These macros add CommandBar's that I want available in all documents) If I put "Application.Run "AllMacros.Module1.MyMacro"" in Normal.dot's AutoOpen it works if I open word (to a blank document) and then open a document. But if I run "winword myfile.doc" from the command line, it fails because Normal.dot's AutoOpen seems to be run BEFORE AllMacros.dot is loaded from the startup folder. How can I handle this case? (AutoOpen from AllMacros is not run for all documents so this isn't an option). Thank you. Tag: VBA when saving Tag: 96635
  - 22
    - Setting a character style I am creating Word documents from an Access database and I am trying to insert two fields into one line so I thought I could do it with a character style (NormalBold) but the paragraph style is overriding it My code is rngWord.Collapse wdCollapseEnd With rngWord .Style = "NormalBold" .InsertAfter "Tel: " & rs!Clubphone End With rngWord.Collapse wdCollapseEnd With rngWord .Style = "Normal" .InsertAfter vbTab If Not IsNull(rs!Clubfax) Then .InsertAfter "Fax: " & rs!Clubfax & vbCrLf Else .InsertAfter vbCrLf End If Any ideas please -- Regards Stephen English Tag: VBA when saving Tag: 96628
  - 23
    - Limit variable to text/number I have some code that asks the user for information on a template: Dim ACCTSSN As Integer ACCTSSN = InputBox("Enter Borrower's SSN (123456789)", "SSN") I check the value to make sure they put in 9 characters: If Len(Trim(ACCTSSN)) <> 9 Then ERROR = MsgBox("SSN must be 9 digits", vbOKOnly, "SSN Error") GoSub SUB_GET_ACCTSSN End If Now how do I make sure they don't put in text/special characters? I initially had the field set as a string, but thought that making it an integer would prevent the field from accepting letters. It does accept letters and gives me an error when I click OK on the box. I also have other input boxes that I'm going to want to check to see if the user put in a valid date format (00/00/00 or 00/00/0000 or 0/0/0000). How can I check a variable to see if it's got the right format, or limit the variable so you can't put an invalid value in it while using an input box to obtain the value? THX! Tag: VBA when saving Tag: 96622
  - 24
    - macro for applying one Style conditional on another Style I'm trying to create a macro that will do the following: Let's say I had a table and I applied a certain Style to one of its cells. I would like for Word to automatically apply a different Style to its neighboring cell when I tab over. I'm basically trying to translate the conditional, "If I use Style X in a cell, apply Style Y in the cell to the right. Otherwise, keep the Style in the cell to the right as Normal." into a macro. I would appreciate any hints or even websites that will help me do this. Thanks! Tag: VBA when saving Tag: 96619
  - 25
    - Making a form field required First of all, I have a form with several fields. Several of the fields are drop down boxes. 1. Can I make these fields required (and how do I do it) 2. If I'm already using all 25 items for the list, can I make sure none are set as the default and/or how could I tell that they had actually made a selection and not just accepted the default? Thanks much Tag: VBA when saving Tag: 96618
- Next
  - 1
    - Numbered Documents - Protected Forms I am trying to created a form template (.dot) that has an invoice number that automatically updates (+1) each time the template is used to created a new document. I found the following script for a macro that works great until I protect the form. Then I get an error because the macro can't update a protected area. I can't figure out how to "unprotect" the bookmark on the page so it can update. Any ideas? Sub AutoNew() 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.Bookmarks("Order").Range.InsertBefore Format(Date, "yymmdd" & "-") & Format(Order, "00#") ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#") End Sub Tag: VBA when saving Tag: 96612
  - 2
    - Automating charts in word Is it possible to automatically update charts within a word document from a data source and thus create automated reports? I want to create several research reports which will contain around 10 charts (e.g. excel bar charts). The data will be in one source and will contain flags for sector. Each sector will get a seperate report. I want to create it in word so that I can easily add text to form a story around the charts. The text will not be generated automatically and may be of different lengths depending on the results. Any suggestions would be appreciated, thanks. Tag: VBA when saving Tag: 96609
  - 3
    - merging with query in access 2003 Hi, I would like to automate merging between word and access 2003. I had code that worked in 2000, but now I'm getting error messages. Thanks. jbc Tag: VBA when saving Tag: 96603
  - 4
    - Deleting a graphic in a Header Hello, I have the following code that needs to go into the Header, go to the bookmark which is a graphic that I created a bookmark for, and then delete the graphic. When I do it manually it works fine but the macro returns an error that says it cannot find the bookmark. What am I doing wrong?? Thanks for any suggestions: Selection.HomeKey Unit:=wdStory ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.GoTo What:=wdGoToBookmark, Name:="bkLogo" Selection.ShapeRange.Delete ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Tag: VBA when saving Tag: 96602
  - 5
    - Creating a Blank Style? Hi, Everyone. I'm trying to simplify creating a table of contents for my documents. I've got a font setup for my documents that I like, so I don't want a style to mess with it. Unfortunately, when I create a new style using: ActiveDocument.Styles.Add ("macrotoc") the style it creates isn't blank. I would like a style to be created that keeps all the text within the style the same as it was before the style was applied (e.g., things that are bolded stay bolded, underline stays underlined, non-bold stays non-bold, etc.). Is there a way to specify that the style is blank in this way?? Thanks! Tag: VBA when saving Tag: 96601
  - 6
    - how can I create a macro from text I have already typed? I frequently find myself typing chunks of text that, once Iâ??ve finished, I realize Iâ??d like to save for repeated future use. But since I didnâ??t have the macro â??recorderâ?? turned on when I was typing, there is no macro created. Iâ??ve tried to remedy this by by copying the text and then pasting it into a blank page with the recorder feature running. For example, if I type â??Now is the time for all good men to come to the aid of their party,â?? then copy that text, turn on the macro recorder, paste that text into the macro, and then turn off the recorder, I have created a great little macro that reads â??Now is the timeâ?¦.â?? However, the very next time I copy any other text (â??The quick brown fox jumped over the lazy dogâ??), regardless of my reason for doing so, my â??Now is the timeâ?? macro changes to â??The Quick brown foxâ?¦â??, or whatever other words I have copied to my clipboard. In effect, the macro I created is a macro that ALWAYS picks up whatever I have pasted to my clipboard, not a macro that repeats the same desired text over and over. Any thoughts about how I can create a macro from text I have already typed? Thank you very much for any insight!! Tag: VBA when saving Tag: 96599
  - 7
    - Deleting lines I have a document with a lot of shapes in it. I have the following macro the deletes only the lines. The problem is that it deletes all the lines. I need help to fine-tune it to only delete the vertical lines. Dim i As Long For i = ActiveDocument.Range.ShapeRange.Count To 1 Step -1 If ActiveDocument.Range.ShapeRange(i).Type = msoLine Then ActiveDocument.Range.ShapeRange(i).Delete End If Next Tag: VBA when saving Tag: 96589
  - 8
    - Connection to FoxPro Database I am writing some VBA code that will show a user form when opening the document it is within. The form will include a drop down (combobox) list and a generate report command button. I have created the document template and placed the bookmarks necessary to place the queried FoxPro data in. I have ran a test without connectivity to the data to check my command button and it works just fine. The problem I am having is connecting to the database and filtering certain information to the drop down list for selection and then querying based on that selection for further database information from FoxPro. I am using Word (Office XP/2000/2003) and VBA 6. I was trying to connect to the data using the vfpoledb driver, but I am having no luck it appears. Could anybody out there help me get started with this? Thanks. I have tried the various snippets out there for ADO/OleDB/ODBC, but I am afraid it is my references that is out of whack. Thanks in advance for any help any of you can provide. Michael P. Griba West Coast Charters, Inc. mgriba@westcoastcharters.com Tag: VBA when saving Tag: 96581
  - 9
    - Remove whitespace in footnotes fails I am trying to remove all whitespace from the end of a footnote in Word 2007. I create a footnote in a new document with lots of space on the end: "My footnote " I turn on the reveal codes/show marks (backwards P in ribbon). I run this macro. Every space is removed except for the last one! Why?? (I could Trim the Range.Text, but that removes character styles as well which I don't want to do) Sub TrimSpaces() lChr = ActiveDocument.Footnotes(1).Range.Characters.Last cnt = 0 While lChr = Chr(32) ActiveDocument.Footnotes(1).Range.Characters.Last.Delete If cnt > 50 Then Exit Sub cnt = cnt + 1 Wend End Sub Tag: VBA when saving Tag: 96580
  - 10
    - Repeatedly Change First Letter After [period][blank] to Uppercase I'm developing a macro in Word 2003 to convert text from point form to finished test. One step is supposed to find the string [period][blank] i.e., the end of each sentence. Then it's supposed to convert the character immediately following this string to uppercase because this character will be the first letter in the next sentence, which therefore should be in uppercase. Here's what I've been trying to use, which converts a large number of consecutive characters to uppercase: With ActiveDocument.Content.Find .Text = ". " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Do While .Execute = True With .Parent Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase .Move Unit:=wdSentence, Count:=1 End With Loop End With Thanks for your help. Tag: VBA when saving Tag: 96578
  - 11
    - Text form field losing macro when file saved as template I have a text form field that calls a macro upon exit. I save the file as a template. When I open the template( and create a new doc file) the new file has the macros but the text form field has nothing in the run macro on exit box. Help please. Thanks -- Jason V Tag: VBA when saving Tag: 96569
  - 12
    - checkbox contentcontrol word My Word 2007 project absolutely needs checkbox content controls. Are these going to be available anytime soon? Is there any other work-around? Tag: VBA when saving Tag: 96566
  - 13
    - Working With Fonts\Character Code\Symbols in VBA I am really not very good at working with fonts, character codes, and symbols in VBA and need some help. I have been playing around with a UserForm macro that will replicate UserForm option button selections in the document. The UserForm displays 7 frames containing 5 optionbuttons each. The document displays a seven questions with 5 WingDings2 Symbol 154 (a small unfilled circle). All 35 symbols are bookmarked with a name corresponding to the groups and optionbuttons in the UserForm. When the user makes their selection in the UserForm and the command button click event in the the UserForm is executed, corresponding the symbols in the document are changed WindDings2 Symbol 158 (a small circle with a filled center). I used the macro recorder to get a start on how to insert the appropriate symbol at the bookmark using VBA. The result is: Selection.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3942, _ Unicode:=True Normally when I write to a bookmark and need to preserve the bookmark I use: Dim oRng as Word.Range Set oRng = ActiveDocument.Bookmarks("Groupa1").Range oRng.Text = "My desired text here" ActiveDocument.Bookmarks.Add "Groupa1", oRng Using .InsertSymbol as shown above the only way I have been able to achieve the same result is: Set oRng = ActiveDocument.Bookmarks("Groupa1").Range oRng.Delete oRng.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3938, _ Unicode:=True oRng.MoveEnd wdCharacter, 1 ActiveDocument.Bookmarks.Add "Groupa1", oRng Note: CharacterNumber:=-3938 inserts the filled circle symbol. Question: Is there a way I can use "Range.Text = ????" to do this job? I often see code containing lines like ChrW$(####) that represents text or symbol. Is there something like that that will represent the WindDing2 symbols I need? Thanks. P.S. Here is my complete Command_Button code: Private Sub CommandButton1_Click() Dim catArray() As String Dim lngGroup As Long Dim bSelection As Boolean Dim i As Long Dim acontrol As Control Dim resultsArray(6) As Long 'One less than number of groups Dim oRng As Word.Range catArray = Split("a|b|c|d|e|f|g", "|") 'Loop throug each group. Note: controls are indexed starting with 0 Application.ScreenUpdating = False For lngGroup = 0 To 6 bSelection = False 'Loop through each frame control For i = 0 To 4 Set acontrol = Controls("Frame" & catArray(lngGroup)).Controls(i) Set oRng = ActiveDocument.Bookmarks("Group" & catArray(lngGroup) & i + 1).Range oRng.Delete oRng.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3942, _ Unicode:=True oRng.MoveEnd wdCharacter, 1 ActiveDocument.Bookmarks.Add "Group" & catArray(lngGroup) & i + 1, oRng If acontrol.Value = True Then resultsArray(lngGroup) = i + 1 bSelection = True Set oRng = ActiveDocument.Bookmarks("Group" & catArray(lngGroup) & i + 1).Range oRng.Delete oRng.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3938, _ Unicode:=True oRng.MoveEnd wdCharacter, 1 ActiveDocument.Bookmarks.Add "Group" & catArray(lngGroup) & i + 1, oRng End If Next i If Not bSelection Then MsgBox "No selection was made for Group " & lngGroup + 1 Exit Sub End If Next lngGroup lngGroup = 0 For i = 0 To UBound(resultsArray) lngGroup = lngGroup + resultsArray(i) Next i MsgBox Format(Val(lngGroup) / 7, "#.00") Unload Me Application.ScreenUpdating = True Application.ScreenRefresh End Sub Tag: VBA when saving Tag: 96561
  - 14
    - Set Default File Type I have a template that I am sharing - when users save the template after they have modified it, is there a way that that the default save as type can be set to Web Page Filtered? Tag: VBA when saving Tag: 96559
  - 15
    - template on network : file.dotm is locked for editing by 'username Hi, I put on a network share a word 2007 template file (.dotm). I create on my laptop a new document, with this template. I write some sentences, save it (.doc or .docm) on my desktop, and close word. When i want to open my file, i got this folowing message: file.dotm is locked for editing by 'username' . Do you want to: open in readonly / create a local copy ... / receive notification ... and when i want to close the file, i got this one: You have modified the styles, building blocks (such as cover pages or headers), or other content that is stored in file.dotm. Do you want to save changes to file.dotm The template is not used by anybody and I don't receive these messages if my template is store on my laptop. Have you got any ideas to open and close my file without these messages ? Thank you Tag: VBA when saving Tag: 96558
  - 16
    - Finding sections automatically that only contain heading 1 level Hello, I got a long word document with 8 sections. Almost all of the sections contain headings level 1,2 and 3. Two of the sections only contain a heading 1 level. I now would like to write a macro that automatically finds the sections where there is only a heading 1 level and set the headers for these sections automatically. FOR EXAMPLE, say Section 4 and 7 each contain one heading level 1 and no headings level 2 and 3. The macro should first find these sections (section 4 and 7) and then with this information do the following (the below part of the macro is working fine): Set sect = ActiveDocument.Sections(4) Set rng = sect.Headers(wdHeaderFooterPrimary).Range sect.Headers(wdHeaderFooterPrimary).LinkToPrevious = False rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "STYLEREF ""Heading 1"" " rng.Collapse wdCollapseEnd rng.Text = vbTab rng.Collapse wdCollapseEnd rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "PAGE \* Roman " Set sect = ActiveDocument.Sections(7) Set rng = sect.Headers(wdHeaderFooterPrimary).Range sect.Headers(wdHeaderFooterPrimary).LinkToPrevious = False rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "STYLEREF ""Heading 1"" " rng.Collapse wdCollapseEnd rng.Text = vbTab rng.Collapse wdCollapseEnd rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "PAGE \* Roman " Help is much appreciated. Thank you in advance Regards, Andreas Tag: VBA when saving Tag: 96553
  - 17
    - Copy pages from a new document to an existing one Hello, Thru automation, I can get a mail merge to work to create a letter with address etc, and the document becomes visible. How do I open a second document (I have its path). Copy its contents. Do I use; Activedocument.Range.copy????????? or Activedocument.Wholestory.copy????? Then paste it to the first document: Activedocument.selection.paste ????????? so that the contents appear But the second document is now closed. Any help would really be appreciated. I have had error messages that say along the lines that the method is unsupported. -- Regards Bill Tag: VBA when saving Tag: 96550
  - 18
    - Keydown/up events in userform to set shortcut keys (Revisited) The other day I posted a question re. setting up a user form to assign shortcut keys to various macros. (Thank you Perry and Jean-Guy for assistance with this!) This is sort of an update -- with new code and three new questions... (And sorry for the excrutiatingly long post.) Below is the code I finally ended up with. It seems to work the way I want it to. That is, it assigns a shortcut key to a macro based on user input in a userform text box. (The shortcut key combo must include Ctrl or Alt or both and an alphanumeric key -- and may include the Shift key.) However, I'm new to all of this coding stuff, and would very much appreciate help fixing a few things if feasible. I've been trying, but I haven't figured out how. Specifically: 1) I have a total of 10 text boxes that will be used to assign shortcut keys to 10 different macros. The KeyDown code for each of these would be identical except for "TextBox1.text = strKeySequence" at the end of the macro. (Obviously, that would vary by text box.) Also the KeyUp code for each could be identical except for the "strCurrent=TextBox1.text" at the beginning of the macro and the command assigned to the shortcut key. I've tried putting the common bits of code in a separate sub, but it won't compile ("Argument not optional"). How can I push the "meat" of the code out of the field-specific stuff, so I don't have the same thing repeated 10 times (once for each text box)? 2) I think there's probably a more elegant/streamlined way to do the keybinding based on what the user enters in the text box. However, my attempts to use the "strKeySequence" more directly/efficiently have not worked. How can I better capture the KeyDown info and use it in the KeyUp code, so I don't have all those silly-looking "Ifs" in the KeyUp? 3) Everytime I press the Alt key in the (modal) userform text box, I get a "ding" (error-type sound... I don't know what it's officially called). I don't get this when pressing other keys (Ctrl, Shift, etc.) How can I make that annoying dinging stop? Thanks in advance for any help/guidance. THE INELEGANT BUT FUNCTIONAL CODE Public myKey, myChar As String Private Sub TextBox1_KeyDown(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer) 'Based on code from Peter Hewett posted to _ microsoft.public.word.vba.general Const MaskShift As Integer = 1 Const MaskCtrl As Integer = 2 Const MaskAlt As Integer = 4 Dim strKeys As String ' Ignore keystroke sequence unless Ctrl and/or Alt is pressed as well If Shift And (MaskCtrl Or MaskAlt) Then ' Add Ctrl/Alt/Shift prefix text If Shift And MaskCtrl Then strKeys = "Ctrl" End If If Shift And MaskAlt Then If LenB(strKeys) > 0 Then strKeys = strKeys & "+Alt" Else strKeys = "Alt" End If End If If Shift And MaskShift Then If LenB(strKeys) > 0 Then strKeys = strKeys & "+Shift" Else strKeys = "Shift" End If End If 'For use in KeyUp to determine the Ctrl, Alt, and Shift combo for shortcut key myKey = strKeys ' Keyboard character If LenB(strKeys) > 0 Then strKeys = strKeys & "+" & Chr$(KeyCode) Else strKeys = Chr$(KeyCode) End If myChar = (KeyCode) Else: strKeys = "" End If TextBox1.Text = strKeys End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer) Dim strCurrent As String strCurrent = TextBox1.Text If LenB(strCurrent) = 2 Then msgbox "need to use ctrl or alt (or both)" Else If myKey = "Ctrl" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Ctrl+Alt" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ wdKeyAlt, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Ctrl+Shift" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ wdKeyShift, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Ctrl+Alt+Shift" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ wdKeyAlt, wdKeyShift, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Alt" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Alt+Shift" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, _ wdKeyShift, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If End If myKey = "" End Sub Tag: VBA when saving Tag: 96547
  - 19
    - Section Break If I have a document with 2 sections, is the section break in sections(1).range or sections(2).range, and where in the range, so I can find it to delete it? Thanks. Tag: VBA when saving Tag: 96546
  - 20
    - Modifying arrays in a macro I have a Word (2002) form, widely distributed throughout an organisation. The form has a number of combo boxes, each of which contains greater than 25 items. I have therefore set up a macro with an array for each combo box hard coded with the combo box items. These items may change several times during the year. I need a method to change the array values WITHIN THE MACRO without going into the code, as changes will be made by someone who knows nothing about VBA. Any ideas along with sample code would be appreciated, as I am a VBA novice. Many thanks Tag: VBA when saving Tag: 96543
  - 21
    - Coping info from form to form I have a form that has text, check and combo boxes in it. Is there a way to copy the information from a existing form thats filled out to a new form? Tag: VBA when saving Tag: 96542
  - 22
    - Fill-In Field displays results twice I have a fill-in field on a document template that is displaying the results twice. Here is my code: {FILLIN "Enter the EDFUND Account Number" \o} I saved the document as a template and it prompts me as expected, but once I'm done entering my data, it displays it twice. I.E, if I enter E12345678 The field displays: E12345678E12345678 Any ideas what's going on? Also, I have a drop down box that I want to select then have it update another field. I don't want to rely on the 'update fields at print' option since that is machine-specific...so what kind of macro or code would I write to have it update another field? Thanks, any help would be appreciated!!! Tag: VBA when saving Tag: 96541
  - 23
    - Shapes.AddPicture in MailMerge causes Word crash I am developing a VBA script to add barcode picture. Barcode value comes from DataSource during MailMerge. To do this Shape is added in MailMergeBeforeRecordMerge even handler. For example: Set oShape = Doc.Shapes.AddPicture(filename, false, true, 100, 100) Examining oShape object in Watch produces "Automation Error" for number of properties (e.g Left) Access to these properties (even after just using Watch) causes crash of Word. - Problem is not related to barcode. Adding any picture fails. - Can add InlineShape. But after ConvertToShape, the same problem. - Can add Shape in event handler to some other document. But not to merged document. - Same problem in MailMergeAfterRecordMerge Any advise is highly appreciated. Thans Gene Tag: VBA when saving Tag: 96540
  - 24
    - Protecting a Word doc sent as an attachment Hello Thanks everyone for your help so far in my efforts to send a document as an Email attachment. I have to protect the attached document so that it cannot b changed at the other end. I wrote code to protect the document in the macro, but it protects the document at this end and leaves the attachment unprotected. Help!!! I'm climbing the walls now. My code is: Sub Send_As_Mail_Attachment() 'unprotect the two protected sections of the document (need to do this before protecting all) ActiveDocument.Unprotect Password:="equities" 'protect the document before sending ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Sections(2).ProtectedForForms = True ActiveDocument.Sections(3).ProtectedForForms = True ActiveDocument.Protect Password:="equities", NoReset:=False, Type:= _ wdAllowOnlyFormFields ' send the document as an attachment in an Outlook Email message Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved first" Exit Sub End If 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") 'Outlook wasn't running, start it from code If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for a copy .CC = "MyMail@mail.com" 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="Document as attachment" .Display End With 'If we started Outlook from code, then close it If bStarted Then oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub Tag: VBA when saving Tag: 96529
  - 25
    - TmpDDE() ? When I try to execute Any Word macro from outside Word (say FileMakerPro) I get error : Compile error: Sub or fuction not defined. As runtime adds a new module 'WordTmpDDEMod' to project Normal and it is vanished as soon as I stop the run. so I am not able to run this macro successfully Tag: VBA when saving Tag: 96515

I have to save some letters which I need to ensure have certain options
selected (or not as the case may be) each time I save. I know some of them
you can set and the settings will keep but some of them do not.

Could someone please help me out with the codes for Setting :

TOOLS|OPTIONS|SECURITY - Store Random Numbers to False
TOOLS|OPTIONS|EDIT - Keep Track of Formatting to False
TOOLS|OPTIONS|SAVE - Embed Smart Tags to False

I also need to save the letter with no Title in the PROPERTIES|SUMMARY.

Any help with this would be very much appreciated.

JayM

Top

Re: VBA when saving by Jezebel

Jezebel
Tue Feb 13 08:15:28 CST 2007

Record a macro while setting the values: you'll see the code needed.

But the settings you list are system settings, not document settings. Saving
these settings has no effect on the saved document.

Don't understand the part about the letter with no title. Save what, where?

"JayM" <JayM@discussions.microsoft.com> wrote in message
news:115BE263-A6BA-4A65-871B-0C58F4400D77@microsoft.com...
>I have to save some letters which I need to ensure have certain options
> selected (or not as the case may be) each time I save. I know some of
> them
> you can set and the settings will keep but some of them do not.
>
> Could someone please help me out with the codes for Setting :
>
> TOOLS|OPTIONS|SECURITY - Store Random Numbers to False
> TOOLS|OPTIONS|EDIT - Keep Track of Formatting to False
> TOOLS|OPTIONS|SAVE - Embed Smart Tags to False
>
> I also need to save the letter with no Title in the PROPERTIES|SUMMARY.
>
> Any help with this would be very much appreciated.
>
> JayM

Top