Do loop for specified time to perform calculations

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Do loop for specified time to perform calculations Tag: 107144
  - 2
    - 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: Do loop for specified time to perform calculations Tag: 107142
  - 3
    - 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: Do loop for specified time to perform calculations Tag: 107134
  - 4
    - 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: Do loop for specified time to perform calculations Tag: 107131
  - 5
    - 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: Do loop for specified time to perform calculations Tag: 107129
  - 6
    - 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: Do loop for specified time to perform calculations Tag: 107126
  - 7
    - 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: Do loop for specified time to perform calculations Tag: 107124
  - 8
    - 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: Do loop for specified time to perform calculations Tag: 107115
  - 9
    - 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: Do loop for specified time to perform calculations Tag: 107113
  - 10
    - 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: Do loop for specified time to perform calculations Tag: 107106
  - 11
    - 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: Do loop for specified time to perform calculations Tag: 107101
  - 12
    - 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: Do loop for specified time to perform calculations Tag: 107100
  - 13
    - 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: Do loop for specified time to perform calculations Tag: 107091
  - 14
    - 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: Do loop for specified time to perform calculations Tag: 107084
  - 15
    - '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: Do loop for specified time to perform calculations Tag: 107083
  - 16
    - 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: Do loop for specified time to perform calculations Tag: 107080
  - 17
    - 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: Do loop for specified time to perform calculations Tag: 107079
  - 18
    - 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: Do loop for specified time to perform calculations Tag: 107075
  - 19
    - 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: Do loop for specified time to perform calculations Tag: 107070
  - 20
    - 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: Do loop for specified time to perform calculations Tag: 107066
  - 21
    - 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: Do loop for specified time to perform calculations Tag: 107065
  - 22
    - 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: Do loop for specified time to perform calculations Tag: 107064
  - 23
    - 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: Do loop for specified time to perform calculations Tag: 107062
  - 24
    - "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: Do loop for specified time to perform calculations Tag: 107060
  - 25
    - duvidas Como transformar 1/8 em fraÃ§Ã£o? Tag: Do loop for specified time to perform calculations Tag: 107059
- Next
  - 1
    - 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: Do loop for specified time to perform calculations Tag: 107055
  - 2
    - 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: Do loop for specified time to perform calculations Tag: 107047
  - 3
    - 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: Do loop for specified time to perform calculations Tag: 107045
  - 4
    - 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: Do loop for specified time to perform calculations Tag: 107039
  - 5
    - 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: Do loop for specified time to perform calculations Tag: 107035
  - 6
    - 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: Do loop for specified time to perform calculations Tag: 107029
  - 7
    - 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: Do loop for specified time to perform calculations Tag: 107025
  - 8
    - 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: Do loop for specified time to perform calculations Tag: 107022
  - 9
    - 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: Do loop for specified time to perform calculations Tag: 107020
  - 10
    - 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: Do loop for specified time to perform calculations Tag: 107015
  - 11
    - '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: Do loop for specified time to perform calculations Tag: 107014
  - 12
    - 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: Do loop for specified time to perform calculations Tag: 107013
  - 13
    - 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: Do loop for specified time to perform calculations Tag: 107011
  - 14
    - Macro Symbols Hi everyone, I'm trying to copy some text from a Microsoft Word 2003 document to a MySQL 5.0 database. I have a problem when the document contains symbols (inserted via the Insert -> Symbol), such as the following: Å?Å?Å¶Å·Î?Ç»Ç¼Â¹Â¶ÂµÂ®mÇ?Î»Å?Ä? When I print them in the debugging console, I get '?' characters for many of them. Can anyone help me? Jorge Tag: Do loop for specified time to perform calculations Tag: 107009
  - 15
    - Custom Document Properties Hey all, I'd like to use the custom document properties to automate records for a medical practice on things that don't change often. I'd like to set up a user form to enter the data all at once rather than manually tab through the properties one at a time. I can programmatically set the properties: Sub CustomDocumentProperties() With ActiveDocument.CustomDocumentProperties .Add Name:="Allergies", _ LinkToContent:=False, _ Type:=msoPropertyTypeString, _ Value:="None" .Add Name:="Meds", _ LinkToContent:=False, _ Type:=msoPropertyTypeString, _ Value:="Aspirin" .Add Name:="Diagnosis", _ LinkToContent:=False, _ Type:=msoPropertyTypeString, _ Value:="Low Back Pain" End With End Sub but I'm stuck on how to get it from a form. Thanks for any suggestions Tag: Do loop for specified time to perform calculations Tag: 107006
  - 16
    - Dear Developers, A Noob Question... Dear guys and girls, I've been trying to do this task for a while now, I can't seem to find any meaningful information about it so I really hope someone here could help. I've started writing an add in for MSWord, I'm trying to locate a word within a document and by the selection (cursor) position in the document I would like to add some of my own graphics (for UI). The problem I have is getting the information off the Word API. How Do I by character position get the Absolute Screen position and the reverse, how do I from the Screen X-Y get the Character position. Hope the my question phrasing is ok, It's abit too early in the morning for pretty theoretics. Many thanks and a Great day to us all. Tag: Do loop for specified time to perform calculations Tag: 106999
  - 17
    - Macro saved my doc, how do I immediately open it again This macro has been generously given to me by Doug Robbins MVP in this discussion group and I have added to it. Instead of using the MsgBox, how do I immediately get the macro to open the document (that it just saved)? The reason I wish to do this is so that I can e-mail the word document using the Send to Mail Recipient (as Attachment) button. Sub Release_Client() Dim Source As Document, Target As Document Dim fname As String Dim arange As Range Dim amsg As String Set Source = ActiveDocument With Source fname = "C:\Release Notes\Client\" & .FormFields("Client_Task").Result & "_" & .FormFields("Client_Code").Result Set arange = .Sections(11).Range arange.End = .Sections(12).Range.End End With Set Target = Documents.Add With Target .Range.FormattedText = arange.FormattedText .Range.Fields.Unlink .SaveAs fname .Close amsg = "Client Release Notes have been saved in C:\Release Notes\Client\" MsgBox amsg End With End Sub Tag: Do loop for specified time to perform calculations Tag: 106997
  - 18
    - A CheckBox Content Control Hi All, I have been working on some methods and code to create a custom Checkbox ContentControl in Word2007. I don't know why MS left the checkbox out of the ContentControl collection. I concede the legacy checkbox was clunky and ugly, but is served a purpose. The basic checkbox CC was pretty straight forward and just a simply extention of the iteractive toggle objects method posted on my website. First create a pair of macrobutton fields 1. {MacroButton Check "Winddings blank box symbol" } and 2. { MacroButton UnCheck "Wingdings Checked box symbol" } Note: Replace the value in quotes with the actual symbol. Toggled the field codes and create a pair of autotext entries of the field results. Named the first "Uncheck Box" and the second "Check Box" Insert a rich text Content Control in the document and placedthe "Unchecked Box" AutoText entry in the control. Select the Content Control and create a QuickPart "Check Box." The macro code to make the CC interative is: Sub Check() ActiveDocument.AttachedTemplate.AutoTextEntries("Checked Box").Insert Where:=Selection.Range End Sub Sub Uncheck() ActiveDocument.AttachedTemplate.AutoTextEntries("Unchecked Box").Insert Where:=Selection.Range End Sub Next I wanted to see if I could group a series of these CCs and make it so that only one checkbox in the group could display the checked option. I bounded couple groups of checkbox CCs with bookmark ranges (e.g., CheckGroup1, CheckGroup2). The challenge I learned was identifying the CC that I was working on with code. Despite some initial successes, I ran hard aground with all attempts to incorporate the new ContentsControlOnEntry document event. If finally came up with the code below which seems to work in both a protected document and in documents where the forms CCs are all grouped into one big rich text CC with editing restricted. I wanted to share these methods and code with this group in hopes that someone else can use it or improve upon it. Option Explicit Private pID As String Private oCC As ContentControl Sub Check() pID = CC_ID ActiveDocument.AttachedTemplate.AutoTextEntries("Check Box").Insert Where:=Selection.Range Evaluate pID End Sub Function CC_ID() As String Dim i As Long i = 0 For Each oCC In ActiveDocument.ContentControls If Selection.InRange(oCC.Range) Then i = i + 1 CC_ID = oCC.ID If i = 2 Then Exit For 'Change value if CC is nested more than 1 deep. End If Next End Function Sub Uncheck() ActiveDocument.AttachedTemplate.AutoTextEntries("Uncheck Box").Insert Where:=Selection.Range End Sub Sub Evaluate(ByRef pID As String) Dim oRng As Word.Range On Error GoTo Err_Handler If Selection.Range.InRange(ActiveDocument.Bookmarks("CheckGroup1").Range) Then Set oRng = ActiveDocument.Bookmarks("CheckGroup1").Range GroupProcess pID, oRng End If If Selection.Range.InRange(ActiveDocument.Bookmarks("CheckGroup2").Range) Then Set oRng = ActiveDocument.Bookmarks("CheckGroup2").Range GroupProcess pID, oRng End If Exit Sub Err_Handler: MsgBox Err.Number & " " & Err.Description End Sub Sub GroupProcess(ByRef pCC_ID As String, oRng As Word.Range) For Each oCC In oRng.ContentControls If oCC.ID <> pCC_ID Then If InStr(ActiveDocument.ContentControls(pCC_ID).Range.Fields(1).Code.Text, "Uncheck") Then ActiveDocument.AttachedTemplate.AutoTextEntries("Uncheck Box").Insert Where:=oCC.Range End If End If Next oCC End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Do loop for specified time to perform calculations Tag: 106991
  - 19
    - Bolding certain text Hi all, I'm trying to create a small VB code that allows us to save decisions in a singe document. I have 3 text boxes that we'll fill out (problem, decision, and decider) and when you hit the command button it will insert the information below any previous decisions that have been recorded. The issue is that I would like to enter in "Problem Description: " & strProblem but have Problem Description be entered as bold (for readability) and for the LIFE of me I can't find where to set this. I've tried entering it in as a lone paragraph and setting that range to bold and Word doesn't like it. I wish I could just find the text and bold it but I can't figure that part out. I'm on Word 2003 and using the Visual Basic Editor for my code. Any help is GREATLY appreciated. Tag: Do loop for specified time to perform calculations Tag: 106987
  - 20
    - Why does file diaolog box open in this code? I have nearly identical code for Excel that functions properly, use some of this in Word and it behaves differently. Why? It's VBA!? '==========Ecel sNewItem = InputBox(prompt:="Enter Entire Path for Folder Location!") On Error Resume Next Set oFSO = CreateObject("Scripting.FileSystemObject") Set Folder = oFSO.GetFolder(sNewItem) 'folder location For Each file In Folder.Files 'iterate thru all files in folder that have "xls" suffix sFileName = file If Right(sFileName, 3) = "xls" Then 'check for "xls" suffix Workbooks.Open FileName:=file.Path, Password:="xxxxx", WriteResPassword:="xxxxx" 'pass workbook.open password '========End Excel '========Word On Error Resume Next sNewItem = InputBox(prompt:="Enter Entire Path for Documents you want printed!") 'using User text instead of fixed text Application.DisplayAlerts = False Set oFSO = CreateObject("Scripting.FileSystemObject") Set Folder = oFSO.GetFolder(sNewItem) 'folder location For Each file In Folder.Files 'iterate thru all files in folder that have "doc" suffix sFileName = file If Right(sFileName, 3) = "doc" Then 'check for "doc" suffix 'open files progmatically Documents.Open FileName:=file.Path '========End Word In Word, the program opens a FileDialog box??? -- Regards Rick XP Pro Office 2007 Tag: Do loop for specified time to perform calculations Tag: 106978
  - 21
    - mouse wheel exception error in office products. Heres a good one. When creating a vba list box in excel, word, or powerpoint version 2000 or 2003 (with or without sp3) The application disappears of creates a general exception error. I'm not creating a form, just inserting a list box on the document,sheet or presentation. Steps to reproduce. 1. View, toolbars, visual basic. 2. Create a list box on the sheet from the tool bar. 3. Get out of design view. With the mouse wheel, hold the wheel down in the list box and scroll. It takes just one tick and boom. The mouse works in all of the applications as expected (other than the list box). I've tried it on serveral machines (xp,2k,2k3 standard and prof.) and several mice (microsoft ps/2 and usb). When doing this same process in a vba form, the problem does not occur. Dont know where to turn. Any help would be greatly appreciated. Tim Tag: Do loop for specified time to perform calculations Tag: 106976
  - 22
    - Word 2007 GetAddress Problem I have this code in Word 2003 and it works great. In Word 2007 it works except the addresses to not populate to the fields, thus do not get to the final document. It steps-through just fine and the variables are the correct value when doing that. However, it will not populate to the fields on the dialogs anymore. HELP! I have this code in a lot of firms and will need to get this corrected pretty fast. Any help is GREATLY appreciated. DialogReturn = rcpDisplayName1 = Application.GetAddress(AddressProperties:="<PR_DISPLAY_NAME>", DisplaySelectDialog:=1) rcpCompanyName1 = Application.GetAddress(AddressProperties:="<PR_COMPANY_NAME>", DisplaySelectDialog:=2) rcpFirstName1 = Application.GetAddress(AddressProperties:="<PR_GIVEN_NAME>", DisplaySelectDialog:=2) rcpLastName1 = Application.GetAddress(AddressProperties:="<PR_SURNAME>", DisplaySelectDialog:=2) rcpBusFaxNo1 = Application.GetAddress(AddressProperties:="<PR_BUSINESS_FAX_NUMBER>", DisplaySelectDialog:=2) If rcpCompanyName1 = "" Then strAddress1 = "<PR_POSTAL_ADDRESS>" Else strAddress1 = "<PR_COMPANY_NAME>" & vbCr & "<PR_POSTAL_ADDRESS>" End If rcpAddress1 = Application.GetAddress(AddressProperties:=strAddress1, DisplaySelectDialog:=2) EVERYTHING UNTIL THIS POINT SEEMS TO BE FINE. WHEN STEPPING THROUGH THE CODE, THE VARIABLES ARE THE CORRECT VALUES???? 'populate fields in frmLetter - Here is where the trouble starts If DialogReturn = False Then frmContacts.txtName1.Value = rcpFirstName1 & " " & rcpLastName1 frmContacts.txtC1.Value = rcpAddress1 mReturn10 = True Else mReturn10 = False End If Thanks so very much for any help. -- CLG Tag: Do loop for specified time to perform calculations Tag: 106975
  - 23
    - Selection/Table & Text Hi, I've been trying all sorts of things to get this to work.... and again I find myself posting here. Im trying to have it so the when I launch this userform it knows what table (theres multiple tables in the doc) cell&Row , then it copies the cell text from the same row but 2 columns to the left and places that text in Textbox1 of the user form. Below is what i have so far, ive tried everything! And would appreciate any help. Thank you in advance. Addy = "& Chr(64 + Selection.Cells(1).ColumnIndex-1) & Selection.Cells(1).RowIndex" TextBox1.Text = Addy.Text Ben Z. Tag: Do loop for specified time to perform calculations Tag: 106973
  - 24
    - HDI: retain envelope format settings? I accidently posted this under forms. sorry. How do I retain envelope format settings? I'm having trouble retaining my envelope format settings. When I run the macro it does not retain the formating from the ('set the envelope style) section. Sub printenvelope() 'instantiate the envelope Dim mydoc As Document Dim myenvelope As Envelope Set mydoc = ActiveDocument Set myenvelope = mydoc.Envelope 'set the envelope style With myenvelope.AddressStyle .Font.Name = "Arial" .Font.Size = 12 .ParagraphFormat.Space1 .ParagraphFormat.LineUnitAfter = 0 .ParagraphFormat.LineUnitBefore = 0 End With 'print the envelope out myenvelope.PrintOut extractaddress:=True, _ omitreturnaddress:=True, _ Size:="size 10", _ AddressFromLeft:=InchesToPoints(3), _ AddressFromTop:=InchesToPoints(1.5) End Sub Tag: Do loop for specified time to perform calculations Tag: 106971
  - 25
    - Display the w/e date How can I display the week ending date either in the header or in the body of a form? The end result would be that regardless of which day of the week the doc was opened next week, the date displayed would be (Friday) 02/10/07. Thanks -- Traa Dy Liooar Jock Tag: Do loop for specified time to perform calculations Tag: 106969

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.

Top

Re: Do loop for specified time to perform calculations by macropod

macropod
Fri Nov 02 01:52:56 PDT 2007

Hi Doc60,

If you use a formula field for the calculation, then something as simple as doing a print preview will be enough to get it to
recalculate. Alternatively you could use a macrobutton field to drive a simple macro, coded like:
Sub ReCalc()
On Error Resume Next
ActiveDocument.Tables(1).Range.Fields.Update
End Sub

For some pointers on the use of formula fields, check out my Word Field Maths 'tutorial', at:
http://www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=365442
or
http://www.gmayor.com/downloads.htm#Third_party

Cheers
--
macropod
[MVP - Microsoft Word]
-------------------------

"Doc60" <Doc60@discussions.microsoft.com> wrote in message news:2C0FA1D1-5062-47C5-A081-A0B6ACF1BC0E@microsoft.com...
>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.
>

Top