Need macro to leave user in Insert File dialog

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - VBA to replace marching red ants with yellow highlight? Hi all, I'm exploring VBA for Excel, learning a lot. But have even further to go with word. I'm editing specifications, and to "make it easy" on the person I need to send these back to, I set the font of all areas I needed input on to "Marching Red Ants". The problem is, is this guy is very old school, and a dinosaur of the days of ink and paper. So I now need to print these up and give them to him. I have dozens of documents with sporadic modifications done; selecting each section of Marching Red Ants would be more tedious than when I first put them there. Can you point me in the right direction of what the scipt ought to be, or better yet, post it here? Thanks! Tag: Need macro to leave user in Insert File dialog Tag: 107199
  - 2
    - Spreadsheet Size Problems I've been working on a XL spreadsheet using VBA Macros and the size of my sheet has grown by 10 times (1200kb to 12,000kb), and it is very, very slow. The amount of data processed hasn't grown much. Any idea what might have caused this? Thanks Tag: Need macro to leave user in Insert File dialog Tag: 107195
  - 3
    - I can toggle faceID on commandbar but not custom menu Hello I can toggle the displayed faceID on a custom commandbar with the following code: With Application.CommandBars.FindControl(Tag:="Show my folder") If .FaceId = 1088 Then .FaceId = 1087 Else .FaceId = 1088 End If MsgBox .FaceId, , .Caption End With But withmy custom menu the new icon is not displayed, even tho the msgbox shows that the faceID has been changed. I've tried a new custom menu and a popup menu on the tools menu with the same result. I've tried Word 2002 and 2007 where it shows under the Add-ins. I added my menu it like this: Set myMenu = Application.CommandBars("Menu Bar").Controls("Tools").Controls.Add(Type:=msoControlPopup) with myMenu .... ' to add caption, tag etc.. I've tried setting commandbar("Tools").Protection = 0 Help please! What am I missing here? Word 2002 and 2007 Tag: Need macro to leave user in Insert File dialog Tag: 107189
  - 4
    - website survey in word Hi Gurus ! I would like to create a survey in word. It would be basically having few text boxes and few radio buttons . As per users selection a brief report would be generated at the end. Can any one of you please advice ! Tag: Need macro to leave user in Insert File dialog Tag: 107181
  - 5
    - Format table cell based on text entry Is it possible to format a cell in a table as soon as a user starts entering text? Here's what I'd like: 1. Cell starts with no text and has light yellow background 2. User begins typing, which turns the background white Basically, I'd like something the same as conditional formatting in Excel (embedding a spreadsheet is not an option). Here's what I was trying, but it doesn't work: Private Sub celltext() If ActiveDocument.Tables(2).Cell(1, 2).Range.Text = "" Then ActiveDocument.Tables(2).Cell(1, 2).Shading.BackgroundPatternColor = wdColorLightYellow Else ActiveDocument.Tables(2).Cell(1, 2).Shading.BackgroundPatternColor = wdColorWhite End If End Sub I see two problems. One, I can't seem to get it to read the text in the cell and two, I don't think that starting to type in a cell is a trigger to activate the code. Any ideas? Tag: Need macro to leave user in Insert File dialog Tag: 107170
  - 6
    - Populating Textbox from Combox Using Dao Problem After a user selects a client's name from a combobox, I want to select the addrss details from an excel speadsheet using DAO - someting like: sqlStr="select * from ClientNames where name like '" & ComboBox.value & "'" The excel spreadsheet has four columns: Name, Street, Suburb, City. Here's the code I use to populate the ComboBox: <code> Dim docPath As String Dim FName As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long ' Open the database docPath = ThisDocument.Path docPath = Environ("USERPROFILE") + "\My Documents" FName = "test.xlsx" Set db = OpenDatabase(docPath & "\" & FName, False, False, "Excel 8.0") ' Retrieve the recordset Set rs = db.OpenRecordset("SELECT name FROM `ClientNames`") ' where name like 'Martin Cameron'") ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset ClientNames.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records ClientNames.Column = rs.GetRows(NoOfRecords) ' Cleanup rs.Close db.Close Set rs = Nothing Set db = Nothing </code> Tag: Need macro to leave user in Insert File dialog Tag: 107169
  - 7
    - string limit when using selection.typetext? i've stored a very large string, myBody Len(myBody) returns roughly 230,000 for some reason, when i try to selection.typetext(myBody) only about 16,000 characters are being inserted am i just completely missing something, or is this something i should just know and expect to work around (assuming the latter, what's the suggested workaround?) thanks in advance Tag: Need macro to leave user in Insert File dialog Tag: 107167
  - 8
    - Duplex Print macro not working on HP M4345 We have several different types of printer - all HP. I have written a macro to print duplex either left-side binding or top binding depending on the option chosen. I use the SetDuplex 2 or 3, and this works on all the printers except the HP M4345. No matter which setting I use, it always comes out left- side binding. Has anyone else had this problem, does anyone know how to deal with it? Many thanks for any suggestions! Tag: Need macro to leave user in Insert File dialog Tag: 107161
  - 9
    - I have no idea. HELP I have no idea what I'm doing or how to fix it. Someone made some forms years ago. Now something is wrong with them and I've been asked to fix it. The person that made the form is not here. I'm getting error reports and when I tell it to debug this pops up. and the polnum = .DataFields("... is yellow with a small yellow arrow. What do I do about it? With ActiveDocument.MailMerge.DataSource .ActiveRecord = wdFirstRecord Agenttest = .DataFields("Agent").Value polnum = .DataFields("PolNum").Value sdate = .DataFields("startDate").Value edate = .DataFields("endDate").Value 'checkadd1 = .DataFields("Address1").Value 'checkadd2 = .DataFields("Address2").Value End With Tag: Need macro to leave user in Insert File dialog Tag: 107160
  - 10
    - How to get Excel results into Word I generated two Excel worksheets of data for about 700 items. One has one line of information for each item, the other has multiple lines for each item. Each item has a single unique identifier. I need to build a report in Word with the single-line results in a header and the multi-line results below. This would be easier in Access if I could build a report from two tables with a linked key field - but the Powers That Be didn't see fit to give me that tool. So I'm trying to make do with what I've got! About the only thought I have so far is to create a Word template with my header as a table and a bookmark below it. With the two Excel worksheets, iterate through the single-line results and build an array to populate the table cells, then capture the unique key and for each entry in the multi-line results that matches the key, build an array to dump into the bookmark. Save, close, open new, lather, rinse, repeat. Is there an easier way? Ed Tag: Need macro to leave user in Insert File dialog Tag: 107158
  - 11
    - convert sam files to word using macro we have 14800+ SAM files that we need to convert to word. I have the ability to open sam files in word and save them, but there's just to many and the sam files are in a large folder structure. Is it possible to write a macro that can open a large set of folders, open, convert and save each sam file? or does anyone know of any software that'll do this? cheers, Matt Tag: Need macro to leave user in Insert File dialog Tag: 107151
  - 12
    - Do loop for specified time to perform calculations I am writing a Word Macro that I want to have calculate the value a column of cellsl only when the value in another cell is > 0. I already have the calculation setup but need have the macro look at a specific cell to see if the value in the cell is > 0 and if it is, it should do the calculation in another in the column of cells. If it is not > 0 then the macro should stop. Thanks in advance. Tag: Need macro to leave user in Insert File dialog Tag: 107145
  - 13
    - Changes to lines starting with an apostrophe Good day, I am trying to change the font color for any line in a document that begins with an apostrophe. I do this to highlight the comment lines when I have pasted VBA code into a Word doc after copying it from the VB editor. I have succeded in being able to do this when the first character of a line is A or B or C, etc., but cannot get the macro to detect the apostrophe symbol. I tried " ' " and Chr(39), but to no avail. Is there some magic regarding the apostrophe? Code follows: Sub wflFindandReplaceTest1() Dim X As Integer Dim rngParagraph As Range Dim intParaCount As Integer intParaCount = ActiveDocument.Paragraphs.Count For X = 1 To intParaCount Set rngParagraph = ActiveDocument.Paragraphs(X).Range If rngParagraph.Characters.First = Chr(84) Then rngParagraph.Font.Color = wdColorGreen End If Next X End Sub Thank you Bill Leonard Hingham, MA Tag: Need macro to leave user in Insert File dialog Tag: 107144
  - 14
    - Forms Protection and Comments Hi, My firm has several documents that contain "forms protection". The protection is for a coversheet in the first section of the document that contains a few fields. The rest of the document is completely unprotected but despite this I am unable to add comments to the unprotected sections. Does anyone know why this is and is there a workaround? These documents are used as templates by our users and it would be good to keep the protection in place in the first section whilst giving them full access to the other sections. Thanks very much in advance, Tag: Need macro to leave user in Insert File dialog Tag: 107142
  - 15
    - Change cursor to hourglass How can I do this in VBA? System.Cursor = wdCursorWait only works on a timer loop which sucks. I want to change to hourglass then change back when I say. Tag: Need macro to leave user in Insert File dialog Tag: 107134
  - 16
    - How to Loop through document and gather statistics? I am an Access VBA programmer and don't really understand Word VBA programming. Basically I have MS Word files that I would like to loop through searching for particular word strings like "Private Sub", trap that entire line, then count the number of lines until an "End Sub" word string is encountered, then populate a table or something with the trapped line concatenating the count. Then search the next and so on through the entire document. Every "Private Sub" has a corresponding "End Sub". In sudocode it would look like this; Loop until EOF if rtrim(right(line,11)) = "Private Sub" then Sub(0) = line SubCount = 1 else if rtrim(right(line,7)) = "End Sub" then SubCount = SubCount + 1 Call PrintLine (this routine prints Sub(0) & SubCount to a table) else SubCount = SubCount + 1 End If Next These are not actual word documents as you probably have guessed, but this is a needed function. Thanks for your replies!! Tag: Need macro to leave user in Insert File dialog Tag: 107131
  - 17
    - Need to resize all equations in a document Hi, I need to resize all equations in a large document and I am trying to automate the process with vba. I guess this could be done by scaling the entire graphic by 80% or by emulating the Size|Define dialog one gets within equation editor, although I prefer the latter because it provides more flexibility. Any suggestions? Thanks, Gabriel Tag: Need macro to leave user in Insert File dialog Tag: 107129
  - 18
    - Add a bookmark that uses a string as the bookmark name? i want to add bookmarks to a document that use the value of a string as the bookmark name. An extract of the code is below. strBookmarkID = DateID mydoc.Bookmarks.Add Name:="strBookmarkID", Range:=Selection.Range where DateID is the output of a function to create a unique string value for the bookmark. All i get is a bookmark named strBookmarkID and not the value of strBookmarkID. any ideas? Thanks Tag: Need macro to leave user in Insert File dialog Tag: 107126
  - 19
    - Numbering Choices Issue I would appreciate some advice regarding which paragraph numbering schema to use for the template I am creating. The following are examples of the different types of paragraphs: A.<tab> Text that may be long enough to wrap. The "A" is indented at .33 and the rest of the paragraph at 0. 1.<tab> One or two words. Same alignment as "A". Text and number bold. 1.1<tab> This could be one or two word - like a heading, or it could be a paragraph. First line Indented to .83 with the rest of the text aligned at .33. 1.1.1<tab> paragraph using the same concept of indenting and wrapping. "be a paragraph" should align with 1. and "and wrapping" should align with 1.1. I've read numerous articles on numbering, including Shauna Kelley's great explanation, and realize there are issues. Even though some of the 1 paragraphs would only contain a couple of words, am I best creating these all as Headings, or are they lists, or what are they? The documents are 50-80 page lease documents, so I want to make sure they are all created from a template that is as correct and stable as possible. I appreciate your input. Thanks, Steve Tag: Need macro to leave user in Insert File dialog Tag: 107124
  - 20
    - Saved Template reverted back to old verion REALLY weird problem. I am working in Word 2007 creating a template. I worked on the template yesterday, created a new form, etc. Saved many times. Closed everything when I wen thome last night. When I came in this morning I opened the template and tested what I added yesterday - including the new userform (so this is how I know my changes were there this morning). I kept working on the template today, saving along the way. The last time I closed the template, when I re-opened it, I opened the template from the RECENT files list. (Which I have been trying not to do.) When I did that, the template reverted back to the version of the template I had been working on YESTERDAY!!! What is even stranger is my template has today's time/date stamp on it, yet when I directly open it from explorer, it still reverts back to the OLD version - no userform no changes from the past day! Over the past few weeks, I have noticed issues with files I have been pulling from RECENT files in Word 2007, so I have tried not to use it. Anyone having these type of issues?? Tag: Need macro to leave user in Insert File dialog Tag: 107115
  - 21
    - How to replace an image in the header Hi, I have a ms word 2003 document. I inserted an image into the header of the document using Insert->Picture->From File. I want to replace the image when the document is opened. When the document is opened, it runs a macro which should find the image and replace it with my own image. In the macro, when I try to access the Header with the following code. MsgBox ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.Count, vbOKCancel, "Shapes" This is always returning 0, inspite of having an image in the header. For the headers collections there is no InlineShapes object available also. Is there any other way to access the images in the word 2003 document. Any help is of great use. Thanks Sai Tag: Need macro to leave user in Insert File dialog Tag: 107113
  - 22
    - Checking for file type programmatically I have a program that looks for RTF files. Sometimes though it throws and error because someone just renamed there file from a .doc to a .rtf. I need to make sure that the file type is Rich Text, not just count on the file extension. Is there a VBA line for this? I thought ActiveDocument.Type might work, but it gives me a 0, not sure if this is boolean or not. Thanks all Tag: Need macro to leave user in Insert File dialog Tag: 107106
  - 23
    - W2007: Invalid user name causes run-time error 4120 / 24 This seems to be a serious bug with potential damage to a lot of Add-Ins. To reproduce it, 1.. Start Word, click the Office button, then Word Options. Highlight the contents of the "User name" text box and hit the space bar, then OK. 2.. Open the Visula-Basic editor and type in the following lines of code Sub Test_Options() Options.ReplaceSelection = True End Sub [See below for a long list of other Options.[.] properties affected!] 3.. Run the above macro. Word will throw a "Run-time error 4120 Bad parameter". If you run the line from a password protected project, the error number will be 24 instead of 4120. The problem is reproducible with Word 2007 both on Windows XP or Vista - though we have in fact user reports only for XP. An invalid entry is either entirely empty or consists of one or more blank spaces only. (There may be more kinds of invalid entries.) Occurrence of entirely empty "User name" entries could neither be confirmed or negated in a reliable way. Our reliable user reports all had a single blank space there, other reports were not clear on the exact contents of the "User name" field. The question is: How on earth can you come up with an invalid entry like this in the first place? Well, at least six of our customers did. In one case, half of the machines in a school's computer lab were affected. So chances can't be negligible. Normally, an Office "User name" is defined when one first uses Word (or some other office application) on a given Windows user account. A dialog with two text boxes, "User name" and "Initials", is then presented to the user. The "User name" text box is pre-filled in with the name of the current Windows user account and the Initials field is constructed from this name. You can correct or complete the entries or leave them as they are. Contents of the "User name" text box are highlighted, when the dialog opens. So, if you just hit the space bar and then OK, you end up with an invalid Office "User name" as described above. It is not possible to create a totally empty "User name" field, though. If you try, the "User name" entry in Options goes back to the user account name after OK. I don't think, users are careless enough to enter a blank space in the "User name" field and confirm that with OK. My hypothesis is, that certain ways in which some OEMs set up the main User account in Windows and then complete the Office installation are the underlying root of this problem. I see some evidence for this conclusion in a) different naming restrictions for a Windows user account and an Office user name, and b) in different naming restrictions for the Office user name via Word Options text box and via Word VBA. There is even a difference between Word VBA and Excel VBA. Excel VBA does not complain about a "User name" consisting of a blank space only, and the code line Application.Username = " " (blank space) in Excel VBA will NOT throw an error but simply change the "User name" to a blank space. Of great importance for Word programming and patching: Once there is an invalid entry like that in the "User name" field, there's no reliable and user friendly way to correct it via VBA! With an invalid entry there, Application.Username in Word VBA will throw an error when attempting to read or write the value. Similar things will happen if you try to use Dialogs(wdDialogToolsOptionsUserInfo) for a work-around. The dialog will not even show on Dialogs(.).Display or .Show and will throw an error on Dialogs(.).Execute. You can actually read and write the .Name property of the Dialog and this way work around the problem. But to do this in a user friendly manner is rather complicated and not very reliable, because no one knows a) if there are other ways to end up with an invalid entry, and b) what effects it will have should Microsoft finally come up with a patch. So I tend to write an error handler that finally asks the user to repair the Office Username manually instead of trying to show the Word Options area by code and pre-fill in the "User name" textbox with a valid entry, e.g. the Windows user account name. Provided the Windows user account name is in fact valid in the sense of Word VBA. (I actually have the code to do that, but don't think I'll use it.) Discussion and suggestions for the best work-around are welcome, of course. What follows is a long list of Word VBA commands affected by an invalid username, i.e. throw an error 24 or 4120. I compiled this list from various contributions to the newsgroup microsoft.public.word.vba.general by Dmitri Karpov, MikeG, Mary Mc, jalanford, Perry, and my own observations. The crucial hint about the user name as causation for all the trouble came from JimmyHoffa. Here's the list: Dialogs(wdDialogToolsOptionsUserInfo).Show or .Display will not throw an error but do nothing at all. Dialogs(wdDialogToolsOptionsUserInfo).Execute -> error Application.Username (on read or write attempt) -> error Trying to read the following Options settings will work, but trying to set them will produce the run-time error (I don't know if the value part to the right of the "=" operator really matters - at least for some it doesn't): With Options .AllowDragAndDrop = True .AutoWordSelection = False .PictureEditor = "Microsoft Office Word" .Overtype = False .CtrlClickHyperlinkToOpen = True .AutorKeyboardSwitching = False .PictureWrapType = wdWrapMergeInline .DisplayPasteOptions = True .PromptUpdateStyle = False .FormatScanning = False .ShowFormatError = False .SmartParaSelection = False .SmartCursoring = False .UpdateFieldsAtPrint = True .UpdateLinksAtPrint = False .DefaultTray = "Use printer settings" .PrintBackground = True .PrintProperties = True .PrintFieldCodes = True .PrintComments = True .PrintHiddenText = True .PrintDrawingObjects = True .PrintDraft = False .PrintReverse = False .MapPaperSize = True End With The following lines work and do not produce an error: Dialogs(wdDialogToolsOptionsUserInfo).Name With Options .INSKeyForPaste = False .PasteSmartCutPaste = False .AllowAccentedUppercase = False .TabIndentKey = False End With Regards, Hans Tag: Need macro to leave user in Insert File dialog Tag: 107101
  - 24
    - Wordcount in tables Hi all: I've written a macro to count non-space characters and words specifically for Word tables; but it seems that computestatistics does not work for tables? Could've I done something wrong or is this so? Please see code below. TIA, js -------------------------------------------------------------- Sub Z_TABLEComputeStatistics() Dim tS, tE, TotNSChar As Long, TotNSCharS As Long, TotWrd As Long, TotWrdS As Long Dim NTabMax As Long, NTab As Long, NRow As Long, NRowMax As Long, NCol As Long, NColMax As Long Dim R As Range, Txt As String tS = Time: TotNSChar = 0: TotNSCharS = 0: TotWrd = 0: TotWrdS = 0 NTabMax = ActiveDocument.Tables.Count For NTab = 1 To NTabMax NColMax = ActiveDocument.Tables(NTab).Columns.Count NRowMax = ActiveDocument.Tables(NTab).Rows.Count For NCol = NColMax To NColMax For NRow = 1 To NRowMax ActiveDocument.Tables(NTab).Cell(NRow, NCol).Select Set R = ActiveDocument.Tables(NTab).Cell(NRow, NCol).Range Txt = Left(R.Text, Len(R) - 2) Txt = Replace(Txt, " ", ""): Txt = Replace(Txt, Chr(160), "") If ActiveDocument.Tables(NTab).Cell(NRow, NCol).Shading.BackgroundPatternColor = wdColorAutomatic And _ ActiveDocument.Tables(NTab).Cell(NRow, NCol).Shading.ForegroundPatternColor = wdColorAutomatic Then 'If Selection.Shading.BackgroundPatternColor = wdColorAutomatic Then TotWrd = TotWrd + R.ComputeStatistics(Statistic:=wdStatisticWords) '*DEBUG* MsgBox ActiveDocument.Tables(NTab).Cell(NRow, NCol).Range.ComputeStatistics(wdStatisticWords) TotNSChar = TotNSChar + Len(Txt) Else TotWrdS = TotWrdS + R.ComputeStatistics(Statistic:=wdStatisticWords) '*DEBUG* MsgBox ActiveDocument.Tables(NTab).Cell(NRow, NCol).Range.ComputeStatistics(wdStatisticWords) TotNSCharS = TotNSCharS + Len(Txt) End If Next NRow Next NCol Next NTab tE = Time MsgBox ("No-space Character Count of Last Column In Tables:" & vbCrLf & _ "Total NSCharacters in NON-shaded Cells =" & TotNSChar & vbCrLf & _ "Total NSCharacters in SHADED Cells =" & TotNSCharS & vbCrLf & _ "Grand-Total NSCharacters in Last Column=" & TotNSChar + TotNSCharS) & vbCrLf & vbCrLf & _ ("Word Count of Last Column In Tables:" & vbCrLf & _ "Total Words in NON-shaded Cells =" & TotWrd & vbCrLf & _ "Total Words in SHADED Cells =" & TotWrdS & vbCrLf & _ "Grand-Total Words in Last Column=" & TotWrd + TotWrdS) MsgBox "Start=" & tS & " | End=" & tE & " | Lap=" & Format(tE - tS, "hh:mm:ss") End Sub Tag: Need macro to leave user in Insert File dialog Tag: 107100
  - 25
    - Save as Macro not working when opening attachment from Outlook Hi, I've got the following macro: Sub DocSave() Dim dlgSaveAs As Object Dim ePath As String ChangeFileOpenDirectory "C:\Data\Email\" Set dlgSaveAs = Dialogs(wdDialogFileSaveAs) dlgSaveAs.Show End Sub which just opens the save as dialog box but defaults to the folder specified in ChangeFileOpenDirectory This works fine in Word directly but if I open a Word attachment from Outlook and run I get either the Outlook temp files folder (Outlook 2003, Word 2003) or the original Default save as folder (eg. my docs) (Word 2k7 / OL2k7) Am I missing something?? Any ideas would be much appreciated. martin Tag: Need macro to leave user in Insert File dialog Tag: 107091
- Next
  - 1
    - How to retrive "last ten authors" using office 2007? Is there any way to retrive the "Last ten authors" property of word document using office 2007? Tag: Need macro to leave user in Insert File dialog Tag: 107084
  - 2
    - 'Document 1', 'Document 2', etc. Is there any way to access the code that controls the automatic document naming (numbering) functions of Word when a new (blank) document is added? I want to be able to 'reuse' a previous number, but everytime a new document is added (even when a previous document is not saved or in use), Word always goes to the next number. This is generally not a problem, but for a particular routine on which I am working, the higher numbered 'Document X' it is confusing to the end-user. Ed (in Virginia) Tag: Need macro to leave user in Insert File dialog Tag: 107083
  - 3
    - using two fonts in the same text Hi Dear, I would like to know if it is allowed to insert my "home- made" symbols into a font belonging to Microsoft or to any other company without the need of a consent from them, this is to write a book (like a story book) using that font combined with my own symbols for a business purpose. Please note that I am not editing the font or the symbol files. Thanks a lot Tag: Need macro to leave user in Insert File dialog Tag: 107080
  - 4
    - digital signature suggestions. Hi, I've created several forms w/ vba code and have distributed them to a client. Would having a digital signature help them...especially if they have their security setting at medium or high? What are the benefits? What company do you use? It amazes me how expensive they are! I've looked at versi sign and thawte. Thank you. Tag: Need macro to leave user in Insert File dialog Tag: 107079
  - 5
    - Macros and Watermarks I am doing a Macro to bring in a watermark to a document. When I run the macro it brings up to questions to fill in the header details and them puts the watermark in twice. Does anyone know how to make this work? Tag: Need macro to leave user in Insert File dialog Tag: 107075
  - 6
    - Macro Speed for large indexes of ActiveDocument.Paragraphs Hi, I have a macro that is doing some indenting. Depending on the previous paragraphs text, I may or may not have to indent all that paragraphs children. The problem am having is that my document has about 5000 paragraphs, and as my index into the ActiveDocument.Paragraphs(Index) gets above about 300, this really start slowing down... any one know why? Here is an example of the code: AllParagraphs = ActiveDocument.Paragraphs.Count For i = 1 To AllParagraphs If (ActiveDocument.Paragraphs(i).Style = sReqStyle) Then For j = i + 1 To AllParagraphs If (ActiveDocument.Paragraphs(j).Style = sReqStyle) Then If (IsSubRequirement(i, j)) Then ' indent j = IndentRequirement(i, j) - 1 End If End If Next End If Next As i gets above about 300, it really shows down. Is their a better way to do this? I have already tried turning of page updating. thanks for your help, -SJ Tag: Need macro to leave user in Insert File dialog Tag: 107070
  - 7
    - clear selection Could someone please help with the code on how to clear the current selection. Not delete the contents, simply un-highlight what is currently selected. Thanks Chad Tag: Need macro to leave user in Insert File dialog Tag: 107066
  - 8
    - Organizer copy in vba- temp location? Word2007 I am trying to copy styles from a template to whatever the active doc is. Here is my code that has worked in past versions of Word: MyDocName = ActiveDocument.FullName With Application .OrganizerCopy Source:=MainTemplate, Destination:=MyDocName, Name:="_Document", Object:=wdOrganizerObjectStyles Now when I try to run this is gives me a problem about my doc being read only. When I recorded the organizer manually, here is what it gave me for the destination file: Destination:= _ "C:\Documents and Settings\myusername\Local Settings\Temporary Internet Files\Content.MSO\CDA11CE3.doc" _ When I have my destination doc saved to my C: drive, the code runs fine, as soon as I save the doc to a network drive, it gives me the read only problem. Any ideas? This template is going to customers who may save their files anywhere. Also, this code worked fine in past versions of WORD!! Help. Tag: Need macro to leave user in Insert File dialog Tag: 107065
  - 9
    - Retaining Bookmarks in Autotext Macros I created a macro (with the wonderful help of Stefan Blom) that calls an autotext (Smokey) in the header of each section of the document. I basically added bookmarks to a header and made it an autotext. Problem is that the first header loses the bookmarks after the next header is populated. Any suggestions on how to have all section headers retain the bookmarks that are in the autotext??? Is there a better way that includes code that I could have created the autotext??? Thanks, Mickey Tag: Need macro to leave user in Insert File dialog Tag: 107064
  - 10
    - Is there an 'address' object? Word has the ability to find an address and use it with it's envelope/label tool. Is there an acessable object that does this? i.e. Dim MyAddress Set MyAddress = New [object that retrieves address from a document] Tag: Need macro to leave user in Insert File dialog Tag: 107062
  - 11
    - "Disable features introduced after" option keeps getting set We have a number of macros used at our company. Some of these rely on features of later versions of Word, for example inserting nested tables into table cells. Some of our macros fail as a result of the "Disable features introduced after" beng set. We've tried the following approaches to removing the setting: - manually untick the setting - write macro code to set the DisableFeaturesIntroducedAfterByDefault property value in a macro - clear out and recreate our templates - delete the normal.dot and ~normal.dot files - delete the C:\Documents and Settings\<userid>\Application Data\Microsoft\Office\word10.pip office settings file - temporary files from the following directory: C:\Documents and Settings\<userid>\Application Data\Microsoft\Office\word10.pip None of these approaches work, and the setting keeps reappearing. We've read the following knowledge base article, and were wondering if there are any other workarounds for the issue: http://support.microsoft.com/kb/832349 Here's the version number of Word from the About screen: Microsoft Word 2002 (10.6829.6830) SP3 Any help on this matter would be greatly appreciated! Tag: Need macro to leave user in Insert File dialog Tag: 107060
  - 12
    - duvidas Como transformar 1/8 em fraÃ§Ã£o? Tag: Need macro to leave user in Insert File dialog Tag: 107059
  - 13
    - How do I tell if text fits into a fixed-width table cell w/o wrapp I'm writing a macro to put a set of paragraphs (answer choices to a test question) into a table. The idea is to reduce page count, so instead of listing the answer choices a, b, c, and d on their own lines, they'll appear in a two-row, two-column table that takes up less space. The problem is that some questions' answer choices are simply too long to fit into the columns of the table, and will wrap to the next line within their cells--which looks bad and defeats the point (reducing page count). So I need a test to see whether a set of answer choices is short enough to fit into the fixed-width table. I can't count characters, because I'm using Times New Roman, a proportional font, so an "M" takes up more space than an "i." I'm also using Word 2002/XP. I've heard that 2003 and 2007 offer more fine-grained control over lines in VBA, but I'm stuck with 2002. Thanks! Ben Tag: Need macro to leave user in Insert File dialog Tag: 107055
  - 14
    - Regularize indent level I want to convert text with the first formatting into the second. Normal + 12 pt, Left: <Anything>" Normal + 12 pt, Left: .5" Tag: Need macro to leave user in Insert File dialog Tag: 107047
  - 15
    - COM Addin/Template Issue in Word 2003 I'm having an issue trying to get a COM Addin created with VB 6 to work properly. I have a COM DLL Referenced in a Word 2003 template. I open Word and go to File...New to open this template then look at the VBE code windows and the TemplateProject (ThisDocument) contains the Sub procedures and the Reference to the DLL as expected. Yet when I try to run any of the DLL functions in the document, I get "Object Variable or With block variable not set" error. I can open Word then open my template as if to edit it and it works fine. It also works if I change the .DOT extension to .DOC and double-click to open it. I've tried attaching the template and setting it is an addin and that doesn't work either. Any help with this would be greatly appreciated. Thanks, Mike Tag: Need macro to leave user in Insert File dialog Tag: 107045
  - 16
    - How to insert .doc files automatically after specified heading name?(Word 2003) Hi all, My problem is to insert many .doc files to one .doc file. Pseudocode looks like this: 1. Read heading 2. try to find file 3. if found insert it -> goto next heading 4. if not found -> goto next heading I try to apply this example code. With ActiveDocument.Content.Find .ClearFormatting .Style = wdStyleHeading3 Do While .Execute(FindText:="", Forward:=True, _ Format:=True) = True With .Parent .StartOf Unit:=wdParagraph, Extend:=wdMove .InsertAfter "Tip: " .Move Unit:=wdParagraph, Count:=1 End With Loop End With How I can browse all heading types? This example generates always new heading and after that inserts the word "Tip:". My target is only insert file after heading, how to modify code? Thank you Tag: Need macro to leave user in Insert File dialog Tag: 107039
  - 17
    - Delete Multiple Headers Hi, I have the following code to delete a header. How can I get this to loop and delete all the headers in a document? ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Thanks in advance for the help. I don't know what I'd do without all your help. Mickey Tag: Need macro to leave user in Insert File dialog Tag: 107035
  - 18
    - Extracting Form Field Data from Multiple Word Files... Hello, I've distributed a form protected for fields and several of these will return to me each day. I have about 20 fields with bookmarks in the form and would like to extract the data from these files in a batch process to an Access table. I also have tried the code found at http://gregmaxey.mvps.org/Extract_Form_Data.htm, but I get an error right from the start with: Dim vConnection As New ADODB.Connection ??? I hope someone can help me build this solution. I really don't know VBA. It feels like I'm learning it the hard way... Thanks! Raymond Tag: Need macro to leave user in Insert File dialog Tag: 107029
  - 19
    - access shape by name Hello My word document contains two shapes. How to define name for each shape in word and access them using vba. other word access using sometimes like shapes("name1")....="Mytext" sometimes i have confusion when i insert a new shape in document. shape(1) becomes shape(2) Tag: Need macro to leave user in Insert File dialog Tag: 107025
  - 20
    - Retain Format when calling Autotext Hi, I have written a macro that calls an autotext. Works fine except I lose the formatting, i.e, tabs, font size, bold, ect. Is there a way around this. Thanks, Mickey Word 2000 Tag: Need macro to leave user in Insert File dialog Tag: 107022
  - 21
    - Copying body text from email to word doc Hi I am trying to resuscitate some lost code someone wrote a few years back. Basically, a colleague receives between 50 and 250 emails with specific information in them which all go (or are copied) into a specific outlook folder. I need to be able to extract the body text (only) of all messages in this folder received each day and copy this text into one word document for the day Can anyone help or point me in the right direction? many thanks in advance Paul -- Paul at preeve dot plus dot com Tag: Need macro to leave user in Insert File dialog Tag: 107020
  - 22
    - Cascading List Boxes Word 2003 VBA problem regarding Cascading List Boxes: The sub userform data will not display in the Word document. There seems to be some code missing. The userform allows you to select from the cascading list boxes, however, once the command button "OK" is selected to send the entries back to the Word document, it takes you to the code again and does not display the entries in the document. Please help! -- gmat Tag: Need macro to leave user in Insert File dialog Tag: 107015
  - 23
    - 'Seeing' text in fields I am trying to avoid search and other activity in fields (the kind that are revealed/hidden when alt-F9 is pressed.) I want to be able to see the fields, but not have Word (or my VBA commands) do anything. In particular, I want to count the number of forward slashs in a particular paragraph. This particular paragraph contains a field. The field contains slashs within its content. Even when the field is toggled 'off' the field displays slashes because the default answer which is calculated by the <<IF>> field contains slashes. Therefore it is simply not possible to hide all slashes (or is there?). Is there anyway to tell VBA to ignore all text within a field, or to temporarily hide a field, while certain processes are being conducted? --Ed in Virginia. Tag: Need macro to leave user in Insert File dialog Tag: 107014
  - 24
    - Need to pull Combo Box Info and Populate Fields from Access (or SQ Hi all, I need to populate a combo box with information contained in an Access database. Based on the choice picked in the combo box list, I need to have information inserted into a word form. For example, the combo box has the person's name (actually contained in FirstName and LastName fields, and I would need them Lastname, Firstname and sorted by Lastname). When I pick the person's name, I need the name (FirstName LastName), employee number, department and office fields to be populated in Word form Text fields. Can someone point me to a website that can show me those steps, or can someone help me out? I found how to populate the combo box with one field from the mdb, but don't know how to get the rest of the information based on the choice. Also, is it possible to do the same thing from a SQL database as well as Access? TIA VERY MUCH! MarieJ Tag: Need macro to leave user in Insert File dialog Tag: 107013
  - 25
    - File Copy I'd like to have vba do this behind the scene for me as part of a macro: Copy this file \\hfx05\Data\Apps\docsopen\mcrlib\77777\123.doc to c:\temp\ as file 789.doc. Would someone know the code for this? Tks . . . Brenda Tag: Need macro to leave user in Insert File dialog Tag: 107011

I need a macro that performs the keystrokes Insert...AutoText...AutoText,
types "DPS" and leaves the user there so they can select the AutoText entry.

I can record these steps, but do not know how to "stop" the recording in the
middle of a dialog.

Thanks for any help!
Deb

Top

Re: Need macro to leave user in Insert File dialog by Russ

Russ
Sun Nov 04 16:36:47 PST 2007

Deb,
Do you want the user to add or create a new autotext?
Or do you want the user to pick from the currently defined list of
autotexts? If the latter, then look in Word Help for autotextlist fields.

> I need a macro that performs the keystrokes Insert...AutoText...AutoText,
> types "DPS" and leaves the user there so they can select the AutoText entry.
>
> I can record these steps, but do not know how to "stop" the recording in the
> middle of a dialog.
>
> Thanks for any help!
> Deb

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Top