Macro/Code to Delete Current Section

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Word file with 6 links to one excelfile with vba code, run that code 6 times on update Hi, I have a word file with six links to a excel sheet. That excel sheet run vba code on workbook_open event. When opening the word file, it seem like the excel code run for each link. Any workarounds? Kind regards Tskogstrom Tag: Macro/Code to Delete Current Section Tag: 105118
  - 2
    - How do I compare dates in Word 2007? Is there some esoteric programming practice within Word 2007 that allows the comparison of dates? I.E., {Date1} <= {Date2} {Date1} is merged field and {Date2} is today's date {DATE}. So far, I have found nothing that works. I am attempting to create a Mergeformat renewal document when today's date has passed a merge field date. Tag: Macro/Code to Delete Current Section Tag: 105110
  - 3
    - select all rows of a table except the first row Hi I have a macro that does a bit of formatting to any table that the cursor is placed in. I can select the whole table easily: Selection.Tables(1).Select and can select individual rows too: Selection.Rows(1).Select but I now need to select every row except the first one (2-x) where x could be any number, depending on how big the table is. Maybe some way of counting the rows in the table first (x) and then using that number to select rows 2-x? Or maybe select row 2, perform the action, and move to next row and repeat until there are no more rows in table 1? Any other suggestions? What would the syntax be? thanks. Mike Bourke Sales Information Designer IBM New Zealand Limited Internet email : mbourke@nz1.ibm.com +64 4 462 3534 DDI +64 4 576 5615 fax +64 21 679 746 mob -- MB. Tag: Macro/Code to Delete Current Section Tag: 105108
  - 4
    - cant open paper says selection is locked paper due tomorrow it said somethin like program options update definitions. what does it mean? help!!!! i need my paper now!!!!!!!!!!!!!!!!!! Tag: Macro/Code to Delete Current Section Tag: 105105
  - 5
    - Macro to auto update bookmark dates Hi All, I have created a template which uses bookmarks and fieldforms to get data from our database. we are a school and we have students always starting on mondays except for public holiday. here is my problem below is a macro found at woody's (great website) I have 2 bookmarks (E_ST_DATE) & (public holiday) but when the macro is ran it seem to caculate before e_st_date is updated because I get a return of 31/12/1899 as my result Sub AutoNew() Selection.GoTo What:=wdGoToBookmark, Name:="publicholiday" Selection.InsertAfter Format((E_ST_DATE + 1), "dd/mm/yyyy") End Sub What I want to achieve is e.g (e_st_date = 10/09/2007 then publicholiday = 11/09/2007) The trouble is thou e_st_date will always change and I just want to add 1 to wat ever date that is. Please help Tag: Macro/Code to Delete Current Section Tag: 105098
  - 6
    - Calling a macro I have a VBA macro that I am using and I want to call another macro. I have been tried the two versions of calling a macro below. Application.Run MacroName:="[PrintHRFormsRep]" Application.Run "'Shreveport.doc'!NOH.PrintHRFormsRep" But I keep getting an error message that says: Unable to run the specified macro. The document that I am working in has a range set called noticeplus. Then I want to call a macro that will open another document, print it, close it and revert back to the previous active document. Both macros work independently, but I want to be able to use them together. It occurred to me on the way home tonight that maybe it had something to do with the range being set. Is there another way to call a macro when a range is set? Both macros are in the same template and module. Thanks for any help. Tag: Macro/Code to Delete Current Section Tag: 105096
  - 7
    - Form repaint problem I have a VBA form to provide the user with status on a long-running macro. Normally, the status updates happen every few seconds without error. Sometimes, however, the form doesn't update at all, and can even generate a "(Not Responding)" error in the form's title bar. The macro completes successfully, but the user thinks it's frozen. I'm calling form.Repaint after I update the status text. Why might that be working some of the time and not all of the time? It does seem to be related to switching from Word to another app and back again, but it's not consistent. I've also heard of the DoEvents command, to yield control to the OS, but I've seen conflicting advice about how and when to use that. Any suggestions? I can provide code samples, but really, I'm just updating the text in the form and then calling .Repaint. Thanks, Ben Tag: Macro/Code to Delete Current Section Tag: 105095
  - 8
    - Word from Excel PasteSpecial Bitmap Problem Dear All, I am having a very strange and odd problem with Excel and Word. If you could kindly propose any solution ideas, I shall appreciate it very much. I have a reporting VBA application on the Excel. Smoothly produces all the reports. I have to put the reports in a Word application. The reports are not fixed row and column sizes. I have to generate a Bitmap image of the Excel report and tried to Paste it in the Word Application. Very strangely, on the very first runs no problems. It worked, I had the reports Bitmap pics on Word beatifully as I wanted but then later something happened, may be the ghost in the machine. Excel VBA is copying the range and sending it to the Word application but, the pasted bitmap is a blank object, sadly, very sadly nothing inside. In order to complete my reports on time, I tried a backdoor tactic and created a Word macro doing the PasteSpecial Datatype:=wdPasteBitmap and assigned it to a keyboard shortcut macro. Bingo! It worked. However it is taking so long to complete a full set of report with approx. 200 x 30 Cntrl-Qs and shifting between the applications is awfully open to error. I have tried another backdoor route because I were running short on time, I tried the Sendkeys method but unfortunately, the same ghost in the same machine, very first few runs it worked, then generated empty objects. I cleaned the Clipboard if incase there is a memory related problem. No progess. I tried to pause the code before and after the PasteSpecial steps. No progess. Then I wondered if the Excel Bitmap function is not working properly so I tried a code to generate my own bitmap pictures, which worked fine, but the same ghost in the same machine, blank pages were there after the second or third runs so sadly and so misfortunately. I tried the 2007 and 2003 vers. of Excel but sadly, very same. I am working on a licenced XP Pro and licenced Office Pro Pentium 4 with 4GbRAM and lots of disk space. If you may need to see the code, I shall send the code as well. If some Guru could help fiding the ghost in the machine, I shall be more then gratefull. Regards, VBANovice trying to find the Ghost in the Machine Tag: Macro/Code to Delete Current Section Tag: 105091
  - 9
    - microsoft word Hey i really want to download Microsoft word for Xp computers and i was wondering how i did this. If you use a website can someone tell me what i have to do. Now i'm starting my coursework i really want to get started with WORD! i would be grateful if anyone can tell me how to download microsoft word from the website. Kind Regards L x Tag: Macro/Code to Delete Current Section Tag: 105089
  - 10
    - nextPage sectionBreak hello everyone I have a document which I need to break into sections(nextPage). Im doing a search for 3 asterix marks and when found, insert the sectionbreak. I need to run the code until the end of document only once everytime it is run. Do I have to delete the existing section breaks first. heres the code I have so far. It keeps looping nonstop Sub letsDivide() Selection.HomeKey wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find Do While .Execute(FindText:="***", Forward:=True, Wrap:=wdFindContinue, MatchWildcards:=False _ ) = True Loop End With Selection.InsertBreak Type:=wdSectionBreakNextPage End Sub Any help will be appreciated. thanx ahmed Tag: Macro/Code to Delete Current Section Tag: 105088
  - 11
    - calculate values from a content control hello all, i have a content control in word that accepts values such as High, Medium and Low. I'd like to add a summary at the top of this table that calculates the total High Medium and Low. How do I go about doing this automatically? Tag: Macro/Code to Delete Current Section Tag: 105085
  - 12
    - Sequential numbers to appear twice on each document I have a simple form that I to print want multiple copies of. I have looked at Doug Robbins macro at http://word.mvps.org/FAQs/MacrosVBA/NumberCopiesOf1Doc.htm and would like to use it. What I can't work out is how to get the same sequential number to appear in 2 places on each copy. e.g. Copy 1 has: 123456 & 123456 Copy 2 has: 123457 & 123457 Tag: Macro/Code to Delete Current Section Tag: 105083
  - 13
    - How can insert acute accent for selection of character into word? Hi. How can insert acute accent for selection of character into word? For example, I inserting acute accent like this: Selection.InsertSymbol Font:="Times New Roman", CharacterNumber:=769, Unicode:=True But it replace my selection character. If I add: Selection.Collapse direction:=wdCollapseEnd That nothing do. There is screenshot that show what I want: http://img.photobucket.com/albums/v190/baston/toaccent.gif P.S. Acute accent is diacritical mark. Tag: Macro/Code to Delete Current Section Tag: 105078
  - 14
    - Office 2007: How to programatically add commands to the "Quick access Toolbar"? Hi all, how can I programatically add commands/items to the Quick Acces toolbar? TIA, Peeter Tag: Macro/Code to Delete Current Section Tag: 105077
  - 15
    - Printers Is it possible to reference a Printer in vba by IP address? I want to be able to change paper tray/bin dependant upon what type of printer it is printing to but across the office the names of each printer vary so wondered if i could refer to its ip address instead. Many thanks for any help on this Tag: Macro/Code to Delete Current Section Tag: 105076
  - 16
    - hyperlinks in a paragraph Anyone know how to insert hyperlinks in a blank word paragraph from .net - Using vs2005SE and office 2007 I need to programatically replace parts of a paragraph with hyperlinks that I know the texttodisplay and address of Tag: Macro/Code to Delete Current Section Tag: 105063
  - 17
    - How to make a new website with a link? I can make a webpage in word, and then view it in internet, but the hyperlink to get to it is always: C:\Documents and Settings\All Users\Documents and so on and so forth. How do you make that an actual link? Tag: Macro/Code to Delete Current Section Tag: 105062
  - 18
    - Security and VB References I have a sales person who install Office 2007 on there computer. The quoting software we use uses Word to create order forms. But I need to turn the Security level to low and go into VB area and check the approraite dll files under references. I don't have 2007 and trying to talk over the phone to find them has been interesting. I can't find the Security Area, I was able to get into the VB area but the references are grayed out or not available. So where is the secuity area and how can I make the references available? Thanks..... Tag: Macro/Code to Delete Current Section Tag: 105059
  - 19
    - Using Distributed Link Tracking to fix Hyperlinks Does anyone have references or experience with using Distributed Link Tracking to fix hyperlinks to documents in your domain. This works for OLE references and short cuts, but it appears not to work automatically for hyperlinks. -- Old Ed Tag: Macro/Code to Delete Current Section Tag: 105055
  - 20
    - Word VBA refernces to .tlb I have a vs2007 project using created extensibility add-in for Word 2007. As such I must load my dotm file, switch to developer/visual basic (ALT F11), selected references, locate the .tlb file and add it. This all works fine as does the .net code The problem occurs (occasionally) as I make changes to the .net code. Sometimes when I initiate the Word process, I will get a dialog box "could not open macro storage". When I start Word, load the .dotm file, ALT F11 to open VBA and check references, I notice the .net project I am using is listed as missing. It still has a check beside it. I uncheck to project, close references, open references again, locate the project name (it is still in the available refernces - just un checked), recheck the project, save and close the .dotm, I am once again able to use word as expected with the addin functioning correctly This does not happen every time I change the project code. I often transfer the solution and develop on other computers then transfer to solution back to the original development computer. This effort always requires the dropping of the project and then locate anc check it in VBA. I expect this project to be in use for at least 5 years with many changes to the code. I have worked out a deployment scheme that will auto deploy and install the project as users login. The requirment to reload the reference in VBA will be a problem. Is there a registry change that I can record and push back during deployment? Where is the information aboout loaded refences in VBA for Word maintained? How can I inform Word (in an automated way) that the refernce to the .tlb file is valid? Tag: Macro/Code to Delete Current Section Tag: 105051
  - 21
    - change font size of whole document hello everyone Ihave the following code to change font size. Its not working. Also, how do I deselect the text after executing the code. Selection.WholeStory If Selection.Font.Name = "Tahoma" Then Selection.Font.Size = 15 End If any help will be appreciated thanx ahmed Tag: Macro/Code to Delete Current Section Tag: 105049
  - 22
    - Userform Coding Problem that I need help with! I'm hoping that someone can help me figure out a coding problem that I SCREWED UP. I had this code in my Microsoft Word VB Editor that you see below. The code worked PERFECTLY until I stupidly tried to edit it without first making a backup. I know, first rule of any work is to make a backup, so I can't believe I forgot to do that. As an FYI, the "code" contained below was interfacing with one of my Excel Workbooks, and allowed me to chose a client name from a dropdown menu (in Excel), and when the name was chosen, Excel would call up a "Word", and the Userform that was created would also open. This would then allow me to input narrative comments into the Userform. As a result of my "editing", I can select a client name (on the Excel Workbook), but "Word" and "The Userform" no longer opens (actually it looks as if it is trying to open, but cannot). If some kind and knowledge person could look at the code below and let me know if you see anything that I am leaving out I'd greatly appreciate it. Dan The Code in the MS Word Sample.doc VB Editor Module Sub UpdateComments(parm1) On Error Resume Next Documents.Open FileName:=parm1 If Not FileExists(parm1) Then ' Check if file/folder exists ..... MsgBox "File " & parm1 & " does not exist", vbOKCancel Exit Sub End If UserForm1.Show vbModeless End Sub _____________________________________________________________________ Function FileExists(fname) As Boolean ' Returns TRUE if the file exists Dim x As String x = Dir(fname) If x <> "" Then FileExists = True _ Else FileExists = False End Function Tag: Macro/Code to Delete Current Section Tag: 105048
  - 23
    - IF Field breaking bullets Hello, i'm have having a problem in Word 2003 for PC. When I create an IF field as part of a bulleted list, the indent is correct but the bullet is removed. The problem seems to be caused by the carriage return in the result of the IF field. this causes the bullet to be removed on whichever line the field is placed. A few examples follow (? is the bullet point): EXAMPLE 1 ï?§ Bullet 1 { IF "T" = "T" "Bullet 2" "Bullet 3 ï?§ Bullet 4" } ï?§ Bullet 5 Bullet 2,3 and 4 are being inserted by an IF Field and if the condition is true then Bullet 2 is inserted, otherwise Bullet 3 and 4 are inserted. RESULT 1 ï?§ Bullet 1 Bullet 2 ï?§ Bullet 5 however, the problem is that the bullet point for Bullet 2 is removed. EXAMPLE 2 ï?§ Bullet 1 { IF "T" = "F" "Bullet 2" "Bullet 3 ï?§ Bullet 4" } ï?§ Bullet 5 notice that the IF field should display Bullet 3 and 4 now RESULT 2 ï?§ Bullet 1 Bullet 3 ï?§ Bullet 4 ï?§ Bullet 5 in this case Bullet 4 was inserted correctly. but again no bullet for the first one. the perplexing case is when the IF conditional field is inserted after Bullet 1. EXAMPLE 3 ï?§ Bullet 1{ IF "T" = "T" " Bullet 2" " Bullet 3 ï?§ Bullet 4" } ï?§ Bullet 5 this should insert a hard return before Bullet 2. this results in: RESULT 3 Bullet 1 ï?§ Bullet 2 ï?§ Bullet 5 any help would be appreciated Andre' Tag: Macro/Code to Delete Current Section Tag: 105043
  - 24
    - searching a range Can someone tell me what is wrong with this code? What I am trying to do, is set a range to the first 5 sections of a document. Then I want to find a particular string. If I find it, I want to clear that search and search for something different. However, the search is not working (at all). It is not finding the string that is actually in the document. (I tried changing noticeplus.find to selection.find, which appeared to work. But as I got deeper into the macro, I found that it was not doing what I wanted (It wasn't just searching the range that I set, it was searching the entire document). I know I have done this before and I know it is going to be something simple and stupid, but it just has me stumped at the moment. Thanks for any help. Dim noticeplus as range Selection.HomeKey Unit:=wdStory Set noticeplus = ActiveDocument.Range(Start:=ActiveDocument.Sections(1).Range.Start, End:=ActiveDocument.Sections(5).Range.End) With noticeplus.Find .ClearFormatting .Text = "Electronic" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop End With If noticeplus.Find.Execute("Electronic") = True Then Selection.Collapse 1 Selection.HomeKey Unit:=wdStory Set noticeplus = ActiveDocument.Range(Start:=ActiveDocument.Sections(1).Range.Start, End:=ActiveDocument.Sections(5).Range.End) With noticeplus.Find .ClearFormatting .Text = "in accordance with your contract" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop End With 'Expert if If noticeplus.Find.Execute = True Then Selection.Collapse 1 Selection.HomeKey Unit:=wdStory Tag: Macro/Code to Delete Current Section Tag: 105036
  - 25
    - An alternative to "Forms" Hi. I'm working with Vista and Word 2007. I'm trying to create some templates for documents. I'd like to be able to have certain locations/spots within the document that I can hit a key, quickly jump to and enter in some information, then hit a key and jump to the next pre-designated location to enter in more information. I realize that a "form" allows this, by tabbing. But it has two problems: 1) It is cumbersome--I find that when I set up a form, from then on the typing within it slows down to an excruciating pace, undoing the time-saving of the quick jump. 2) Forms open in "protected" mode, and in my documents I will not only be entering info in some spots, but I will be modifying info in other locations, so I have to stop and "unprotect" after I've done the "form" part, and it would be easier to just move through the document from top to bottom, jumping to some spots, then stopping and modiying some info in others. At a former workplace, Word had been modified so that when you hit "F9", it would jump to some pre-set spot, which was designated in the template with something like {ASK }. I don't know whether this was a macro with a field, or what. But it met the need I described above--I could jump from spot to spot, enter in new info, then make changes to some of the text that was pre-set. Would anyone know how to achieve this in my current documents? I am advanced at Word features, but not at all knowledgeable about programming. Thanks. dc Tag: Macro/Code to Delete Current Section Tag: 105034
- Next
  - 1
    - I need IS NOT (<>) operand for Font.Name In the sub below I need to make line six return 'true' on any OTHER font that the one listed. I've tried all the normal operands and nothing works. The sub purpose is to replace all fonts with one single font. Thanks, Mike Sub ReplaceFont() With Selection.Find ' Clear all previously set formatting for Find dialog box. .ClearFormatting ' Set font to Find for replacement. .Font.Name = "Arial" ' Clear all previously set formatting for Replace dialog box. .Replacement.ClearFormatting ' Set font to Replace found font. .Replacement.Font.Name = "Times New Roman" ' Don't find or replace any text. .Text = "" .Replacement.Text = "" ' The following parameters must be set as follows ' to find only text formatted for the specified font. ' .Forward = True ' .Wrap = wdFindContinue ' .Format = True ' .MatchCase = False ' .MatchWholeWord = False ' .MatchWildcards = False ' .MatchSoundsLike = False ' .MatchAllWordForms = False End With ' Perform the find and replace. Selection.Find.Execute Replace:=wdReplaceAll End Sub Tag: Macro/Code to Delete Current Section Tag: 105031
  - 2
    - read xml file with vba i need to read the data in an xml file using vba to store the data in a string. can anyone provide any code samples on doing this? Thanks in advance. Tag: Macro/Code to Delete Current Section Tag: 105030
  - 3
    - Sequentially number multiple copies of a document IN DUPLICATE (NCR) using a macro My apologies for the long subject line; it's essentially exactly what I am looking for. I copied the example of the macro offered on the MVP site to sequentially number a document and it worked perfectly-I've been tasked with printing out 3,000 of them. The document will be used for Property Management (inventory)control, but now they would like the form printed out in duplicate, on carbonless copy paper. Is there a VBA string that I could apply to the sequential numbering to duplicate a copy of each number? Thanks very much in advance for any help with this. Tag: Macro/Code to Delete Current Section Tag: 105024
  - 4
    - disigning a form I am designing a fill in document . i want some text fields like name to automatically type into another text field in the latter of the same document once filled in how do i do this? Tag: Macro/Code to Delete Current Section Tag: 105020
  - 5
    - How can I automatically determine a document idle time & close it I need to write some vba code to determine a specific document's idle time and if its more than 3 minutes it needs to save and close the document without affecting other documents I might be working on. Tag: Macro/Code to Delete Current Section Tag: 105016
  - 6
    - Problems with Replace Hello, I'm a little bit new to Word VBA. Been working with Excel VBA for a while. I built the following macro to delete text that had the style of "Instructions" applied to it. The idea is for the user to execute this after they're done filling out the document. For the most part, it works well. There are a couple of problems however. If the instructions are immediately followed by a table, inserted JPG, etc. it doesn't delete the preceeding text. It could be a single space, a line of text, whatever. The issue is when the text (styled with "Instructions") immediately preceeds something WITHOUT a hard return, it doesn't get deleted. Please give me some guidance. I appreciate your help. Sub Test2() Dim objDocumentRange As Range Dim strTargetStyle As String Dim strResultText As String strTargetStyle = "Instructions" strResultText = "" Set objDocumentRange = ActiveDocument.Range With objDocumentRange.Find .Style = strTargetStyle .MatchAllWordForms = True .Text = strResultText .Execute Replace:=wdReplaceAll End With End Sub -- Programmer on Budget Tag: Macro/Code to Delete Current Section Tag: 105002
  - 7
    - Applying a paragraph style SOMEtimes wipes out bold/ital--why? Hi all, This is a very odd problem, much more easily explained with a sample file, which I can email to you if you're interested. Simply put, I'm applying a paragraph style in Word XP (2002) to various paragraphs. The style does not apply or remove bold, italics, or underlines, so I assumed it wouldn't affect those character styles when they're present in the paragraphs I'm styling. Mostly, that's the case, but not always. Which is very confusing to me! There are three basic scenarios, and the third one does NOT act the way I think it should: 1) I apply the style to a "Normal" paragraph with SOME bold or italics. As expected, the bold and italics remain after the style has been applied. 2) I apply the style to a "Normal" paragraph that is ENTIRELY bold, italicized, or both. Word XP seems to treat the bold/ital as a modification of the "Normal" paragraph style ("Normal+Bold", say, for the whole para) instead of being character styles. Therefore, the style I applies wipes out the bold/ital. I guess I can see why that would happen. 3) This is the mystery. I have a row in a two-column table in which one cell is entirely bold and one is not. I merge the two cells, then replace the paragraph mark Word inserts with a tab, so it's all one paragraph. The resulting paragraph consists of non-bold text, then a tab, then bold text. Applying the style to this paragraph wipes out the bold. If I copy and paste this paragraph outside the table, the same thing happens. The end result is a sample file I can send in which there are two paragraphs, one from scenario 1 and one from scenario 3. They both LOOK the same--they're not bold until the last word. But applying the same style to each causes bold to be kept in the first case and dropped in the second. I know that scenario 3 is complicated, but I can't tell why the merging, find-and-replace of the tab, etc. would cause that paragraph to behave strangely. Finally, to conclude this epic post, this is not limited to any particular set of paragraphs--it happens consistently across many hundreds of pages of material. Anyway, the sample file is far easier to understand than this lengthy post, so let me know if you want to see it. Many thanks in advance--I'm afraid I really don't understand the "Paragraph Style + Character Style" issues at all. Ben Tag: Macro/Code to Delete Current Section Tag: 105001
  - 8
    - Is this possible or am I crazy? Hi Everyone, I work at a telephone call site. Currently we use a freeware program that uses the Net Send command in conjunction with a database that allows us to send instant pop up messages to individuals and preassigned groups of people. The problem I am running into is that every time IT pushes out an update I have to run around to apx 100 machines and reinstall the program. What I am wondering is do any one think it would be possible to convert this to a web page? I am a newbie to Front Page and know enough about Access to make me dangerous. :) I do have a couple of Front Page books to help me if any one thinks this project is even possible. What I visualize is a drop down box to select recipients an input area for the message and a button when clicked would send the message. Any ideas would be greatly appreciated. Have a GREAT day and weekend everyone!!! Deb Tag: Macro/Code to Delete Current Section Tag: 104999
  - 9
    - "Save-as" to docm format I placed the 'save as' command on my customize toolbar so I could select the default format easily. I also set my default save option to the macro enabled. When I click the customize dropdown and select the default file type, it comes up as a .docx format. I am trying to automate this somewhat to go through a whole series of files and I don't see a batch conversion wizard. -- Del Jackman Civil Engineer Mankato, MN Tag: Macro/Code to Delete Current Section Tag: 104996
  - 10
    - Convert footnotes to ordinary text Hello, I have a large document with several hundred footnotes. I'm looking for a code to replace the footnote reference with the actual footnote text. Any ideas on where to start? -- Fredrik E. Nilsen Tag: Macro/Code to Delete Current Section Tag: 104991
  - 11
    - Missing ComboBox Combination Hello I have a User form created is VBA I have a combo box and it does not work below are all the codes for this combobox Private Sub ComboBox2_Change() ' enter value to unload combo box 2 ActiveDocument.FormFields("Text84").Result = ComboBox2.Value Private Sub UserForm_Initialize() ComboBox1.ColumnCount = 1 'Load data into ComboBox ComboBox1.List() = Array("offer", "renew") ComboBox2.List() = Array("New", "Expired", "Scheduled to Expire") ComboBox3.List() = Array("Pricing Specialist", "Senior Pricing Specialist") End Sub Private Sub CommandButton1_Click() With ActiveDocument .Bookmarks("Text71").Range _ .InsertBefore TextBox1 .Bookmarks("Text72").Range _ .InsertBefore TextBox2 .Bookmarks("Text84").Range _ .InsertBefore ComboBox2 .End With UserForm1.Hide When I test the form and I get to the comboBox2 and I select an option I get the error message Run-Time error "5941': The requested member of the collection does not exist. when I click debug the following is highlighted Private Sub ComboBox2_Change() ' enter value to unload combo box 2 ActiveDocument.FormFields("Text84").Result = ComboBox2.Value Please How do I correct this? I have tried to no avail thanks Tag: Macro/Code to Delete Current Section Tag: 104990
  - 12
    - Master -Sub documents Hi I am trying to create a set of master/subdocuments. The source files are on my network drive. I create the first document, and then goto Outline and insert a subdocument. However when i view this is appearing as a link rather than displaying the doucment itself. if I do the same on my laptop, i can see the subdocument. Can someone tell me what I'm doing wrong? Thanks Alexey Tag: Macro/Code to Delete Current Section Tag: 104985
  - 13
    - Pathname for IncludeText for server file -network disk IncludeText for Word 2003 needs a pathname to define where the file is. It works well (with the double \\'s) if the file is on the originating PC. Does not work if on Networked Disk. Looking at DocProperties & Explorer, etc. only gives "\\Server\documents\filename But doesn't \Network or something need to be prefixed too ? Or maybe 3 \\\'s or something ? Or maybe C:\\Users\\owner\\Desktop\\Network\\Server\\documents\\filename... ALL examples show as C: ... etc. So maybe C:\Network\Server... or similar ? Tag: Macro/Code to Delete Current Section Tag: 104980
  - 14
    - Auto Filling Headers I am creating a template for memo's and other transmittals and need to come up with a way to make whatever is written in the subject, project, and date fields at the top of the document to auto populate in the header of each subsequent page. I have a feeling this will be accomplished with bookmarks and REF fields, but beyond that I am completely stumped. Thanks for the help. Tag: Macro/Code to Delete Current Section Tag: 104977
  - 15
    - Font showing smaller I have this strange problem. Of a set of 5 identical textboxes (there are each other's copies) 2 show a smaller font when the form is active. The font used is Tahoma normal 8pt, but it shows as 6-7pt. Deleting one and copying a correct one does not change this effect. Is looks the same as the 8pt boxes when I change the font to 9pt. I ran the form on mutiple PC's, same result. Can't figure it out. Tag: Macro/Code to Delete Current Section Tag: 104969
  - 16
    - text box info depending on what is selected in a dropdown Hi there, this is my first post. I have to change my company's letterhead. At the moment it is on a basic word template so the secretary just has to type her boss' name next to the "please ask for" but my boss wants to change it so that each manager's direct dial number is shown underneath their particular name, so i've started a userform but am at a loss for what to do now!! I was wondering if i could create a dropdown or combo box that shows each manager and then depending on whoever gets selected, their individual direct dial will show up in a text box? I have had a scout round the groups but to be honest, i am really not sure how to go about this. Sorry if this has already been asked - as i said, i have searched the groups but cant really see anything. Any help would be most appreciated Tag: Macro/Code to Delete Current Section Tag: 104964
  - 17
    - Determining length of line Word 2000 I want to use something other than the 3 characters provided as tab leader options. As an old C programmer, I outlined the algorithm I would use, but don't know if VBA has the right methods. If a method could return the 'length' of a line of text using a variable width font and then subtract that from the total length available (left margin to the leader tab), you could then divide that length by the width of my leader character to determine how many to insert. I am just thinking out of the box ;-) I imagine VBA can tell me the number of characters in a line, but for a non-fixed-width font, that won't help. I need it in pixels, or points, inches or some other "real" unit. Then it would need to iterate through each line of the selection and do the actual replacement. Possible? Tag: Macro/Code to Delete Current Section Tag: 104963
  - 18
    - Creating, Populating, and Using a 2-dimensional array I used to write in VB quite a bit (back in the 90s) but haven't had occasion to write anything in a while. Now I am trying to get my head back in the game. After surmounting the loss of Application.FileSearch with six hours of frustration until I found the Dir() command I thought I would ask a basic question prior to jumping into the frustration again. I have a set of files (143) that I have created using VB and three templates. The files are all named cryptically, for example: A26Checklist.doc A27Studyoutline.doc B01checklist.doc B02checklist.doc B03studyoutline.doc What I would like to do is cycle through the 143 files in the folder, open each one, take the first three characters of the document name, fill a variable with a text string based on the first three characters, do a little searching and replacing with the text string, and then close the document in question. I know how to cycle through the files using Dir(pathname & "*.doc). I know how to use the Mid() command to get my text strings out of the doc.name. I know how to do the searching and replacing once I have the text string in variable. But for some reason my aging brain isn't getting the right code for setting up and populating the array. I tried to get around the question by just creating a giant "Select Case" statement, but unfortunately VB won't let me do that inside of the "For...Next" loop that I wanted to do to go through the Dir()'s. The 3-character names and text strings all are unique: A26 = "EmergencyResponse" A27 = "Board Operation" B01 = "Unit Overview" B02 = "Unit Utilities" B03 = "Tank Gauging" This seems to be a natural two-dimensional array. The question is how do I define it and populate it? Then how do I get VB to give me, for example, "Tank Gauging" for the B03 code? I did a lot of searching in the internet before I thought to come look into Microsoft's online community. So perhaps I am just frustrated and should read all the strings in here. I would appreciate any help. Bill Dannenmaier Tag: Macro/Code to Delete Current Section Tag: 104961
  - 19
    - programme fucntioning problems number,x, from cell A3 and a positive integer, n, from cell B3 then returns into cell C3 the value of x raised to the power n divided by n factorial. where x in cell a3 = 2 and n in cell b3 = 5 im using this formula, but when i run it nothing happens, how do i make this vba programme run and return the value? the vba programmes is ok its just no running anything or doing anything to my spreadsheet when i need it to return into cell C3 i think i need to delcare the vaiables, but not sure how to doo it. basically i need help in order for my spreasheet of the numbers x and n to return in cell a3 the value of x raised tot he power n divided by n factorial but nothin is happening in the spreadhseet, can any one tell me or show me how to do this please i really want to do this, but cant this is the vba programme: Public Function MyFunction(X As Double, N As Long) As Variant If (N <= 0&) _ Then MyFunction = "N must be an integer greater than zero" Else MyFunction = (X ^ N) / WorksheetFunction.Fact(N) End If End Function Tag: Macro/Code to Delete Current Section Tag: 104960
  - 20
    - Word Count Macro I need to write a macro to count words according to my own needs: Any set of characters (A-Z,a-z,0-9) with white space on either side, including first and last word, excluding XHTML tags and hyphens. I'm new to macros and would appreciate any help in doing this. Thanks in advance. Tag: Macro/Code to Delete Current Section Tag: 104957
  - 21
    - Escape key won't stop me macro! In either Word or Excel, the escape key won't work when my macros are running to break into them. Maybe I've disabled it somehow (but it works for all other purposes). I've got a Toshiba Satellite laptop. Can anyone help? Tag: Macro/Code to Delete Current Section Tag: 104956
  - 22
    - Create references to template files Hi We currently have a template (add-in) that runs when Word starts. It creates some new menus and shortcuts to other templates. A lot of our templates contain a AutoNew macro which does the same in all the templates. I would like to insert the AutoNew code in one template file and the call the code from all the other files. The only way I can see how to make a reference is in the Visual Basic editor under Tools -> References. But it seems to be a static reference I create, and I want to place the template containing all the macros in each users folder. The big question is....... Is there another way to create the references, i.e. with a function? Best regards Lasse Tag: Macro/Code to Delete Current Section Tag: 104953
  - 23
    - Changing Page Orientation Within a Document Hi All, Do anyone know that there is any way to change the page orientation within a document, say, page 1 is Landscape and page 2 is Portrait by C# coding?? Thanks. Leo Tag: Macro/Code to Delete Current Section Tag: 104952
  - 24
    - shortcut or macro for "Paste Unformatted Text" I would like to create either a keyboard shortcut or a macro for Paste>Paste Special>Unformatted Text. The problem I have is that when I get to the command, I cannot stop the macro recorder; hence, when I play the macro it doesn't work. I'd like to do the same thing for "add entry to autocorrect." In Word 2003 I had keyboard shortcuts for both of these and they saved me lots of time. Tag: Macro/Code to Delete Current Section Tag: 104949
  - 25
    - Checking for the existence of a Macro Here's a curly one for you all! I have a series of standard 'office practice' type templates (Fax, Letter, Memo, etc.) all of which contain code for creating the document in the first place. This code saves the input in document variables to allow the code to be rerun should the user get to the end and realise they forgot something. The rerun code works a treat - or at least it does in the one prototype template that I've done so far. ;) I also have a global 'toolkit' type template that's designed to make doing some key functions easier or just make Word work like it should work: e.g. insert/delete a landscape section without stuffing up everything; apply bullets/numbering using the 'List' styles instead of whatever Word wants to use; copy/reset the standard styles in a document. This works really well, too. But now for the tricky part... I know I could provide access to the rerun macro in each template in a variety of ways: add a custom button a standard toolbar or create a custom toolbar for each template or some such. However, since I'd rather not mess around with any of the standard toolbars (and have my Rerun Template button get lost in the clutter) and since I don't want to create a bunch of 1-button toolbars and since the toolkit already has a custom toolbar, what I'd really rather do is have a button on the Toolkit toolbar for invoking the rerun macro. But I have some concerns and questions. First, as would be expected, if just add a button to the Toolkit toolbar for the rerun macro in a specific template, it only works with a document based on that particular template. And since there are 11 templates, I would have to add 11 buttons and then trust the users (stop LAUGHING!!!) to click the right one or try to trap errors or show/hide buttons based on the attached template for a document... and I don't even want to think about what would happen if there were multiple documents open... GAHHH!!! So I reckon a better approach would be to have a macro (and associated button) in the toolkit template that just calls the rerun macro in the attached template. I can guarantee that the name of the macro in each template would be the same, so that's no problem. However, I'm concerned/unclear about: 1) how to check that the attached template does indeed contain a rerun macro; and 2) the actual syntax for calling the macro in the attached template. Suggestions? Recommendations? Or have I just spent too much time with the sheep and am now delusional to even consider it? -- Cheers! The Kiwi Koder Tag: Macro/Code to Delete Current Section Tag: 104948

Anybody know the code to delete the current section in a Word 2000 document.
I know the code for deleting section 1, 2, 3, etc. but I need the code for
the current section.

Thanks in advance.
Mickey

Top

Re: Macro/Code to Delete Current Section by Helmut

Helmut
Wed Sep 12 07:10:16 CDT 2007

Hi Mickey,

Sub Test007()
Selection.Collapse ' just in case
Selection.Sections(1).Range.Delete
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Top

Re: Macro/Code to Delete Current Section by Keith

Keith
Thu Sep 20 11:11:34 CDT 2007

Micky,

Could you post your code for deleting specific sections (not the current one
but by section #)?

Thanks,

Keith

"Mickey" <Mickey@discussions.microsoft.com> wrote in message
news:AA20DB7C-45A5-4217-A3D0-1BDD3B6E83B5@microsoft.com...
> Anybody know the code to delete the current section in a Word 2000
document.
> I know the code for deleting section 1, 2, 3, etc. but I need the code for
> the current section.
>
> Thanks in advance.
> Mickey

Top

Re: Macro/Code to Delete Current Section by fumei

fumei
Mon Sep 24 14:06:55 CDT 2007

ActiveDocument.Sections(2).Range.Delete

will delete Section 2.

This may, or may not, have unwanted effects on any headers and footers. It
depends on how they are set up and your use of SameAsPrevious.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200709/1

Top