Define a custom RGB Colour using VBA

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How can I set MS Word in MS Office 2003 to show fractions eg 2/3 My MS Word program is set to show the usual fractions as fractions on a split line but when I type such fractions as 2/3rds or 4/5ths they do not show as such. Tag: Define a custom RGB Colour using VBA Tag: 97855
  - 2
    - Assembly reference issue Hi, I am writing a C# plugin for a third party tool. Multiple versions of the same tool can be installed on the client machine at any given time. Version 6 of this tool is managed code while version 5 is not. The plugin is built on version 6 of the tool. So, when the plugin is installed on a machine that has only version 6 of the tool, it works fine. As expected, it doesnt work if only version 5 is installed. The problem is, it is not working if both version 5 and 6 are installed. How can I tell my plugin to use the file from version 6 of the tool? Regards, Shilpa Tag: Define a custom RGB Colour using VBA Tag: 97849
  - 3
    - Create Control at runtime Hi Am I able to create controls (for example: combox box) at runtime? if possible, how can I do it ? Thanks Tag: Define a custom RGB Colour using VBA Tag: 97848
  - 4
    - Extended list view question Hi Have any1 here tried the "extended list view" http://vcreations.net/product.asp?pid=1 How can I create combox within the list view? I cant add item to the combox dropdown list Thanks Tag: Define a custom RGB Colour using VBA Tag: 97847
  - 5
    - Change Width of Objects I am using the following steps to copy a range of cells from an Excel document and paste them into a Word doc. Past Special > Link > Microsoft Office Excel Worksheet Object Would someone be able to provide me with some VBA code that could be used as a macro to automatically re-size all of these objects in Word to a specified width? Thank you, William Tag: Define a custom RGB Colour using VBA Tag: 97844
  - 6
    - Disable and enable a document in vba issue? Hi All, I have a word template1 , and i write documents.add("path template2", false, wdNewBlankDocument, false) code to create another document base on template 2 with visiable = false, achieve this by set the last parameter of document.add() to false. the questiosn here is how to reset the visible of new docuemnt to true. Cheers Nick Tag: Define a custom RGB Colour using VBA Tag: 97843
  - 7
    - protect variable from spell check? I'd like to protect a patient's name from the spell checker. Patient's name varies from document to document with each patient having a personal single document file. Each patient's name appears multiple times in the document. Adding an ever-increasing number of patients' names to the custom dictionary in an ongoing constantly updating fashion is unreasonable. Is there a reasonable way to preclude spell checker from identifying their names as misspellings? Perhaps I could automate copying the patient's name into one of the document properties and any item in that location would be protected from spell check? Using fields and/or sections protected from spell check seems fraught with multiple difficulties for many MS Word users. Alternatively, an automated addition of patient's name to the custom dictionary might work. ? perhaps something like the following to add to "myNames.dic" where code has previously selected the patient's name. Dim tempNam as string tempNam = Selection.Text Set myNames.doc =_ Application.CustomDictionaries.ActiveCustomDictionary Dim d 'Create a variable Set d = CreateObject(Scripting.Dictionary) ' Object.Add Key, Item d.Add "a", "Athens" 'Add some keys and items d.Add "b", "Belgrade" d.Add "c", "Cairo" d.Add tempnam or maybe something simpler? "spell check but not check variable" ;) tia, Gil http://www.TenSecondMedicalRecord.com Tag: Define a custom RGB Colour using VBA Tag: 97832
  - 8
    - what is the equivalent of this WordBasic code in VBA I'm getting wrong values for the variables for the month in this snippet of codes. This is WordBasic code and when I open the program program in word 2007 on a different computer it's telling me I'm working in the wrong month or I'm working in the wrong ducoment. Yes I converted it. Can you please help me. Thank you for looking at it. I would like to know how to put it into Visual basic .net. WordBasic.StartOfDocument BUTTON = WordBasic.MsgBox("IS THIS A NEW DOCUMENT ?", " MONTHLY SALES TAX", 260) WordBasic.BeginDialog 206, 108, " Enter Month" WordBasic.Text 40, 6, 128, 13, "Enter The Month", "Text1" WordBasic.Text 37, 26, 133, 13, "Only use 3 letters", "Text2" WordBasic.TextBox 66, 43, 57, 18, "WORD$" WordBasic.OKButton 45, 75, 104, 21 WordBasic.EndDialog Dim REA As Object: Set REA = WordBasic.CurValues.UserDialog WordBasic.CurValues.UserDialog REA Y = WordBasic.Dialog.UserDialog(REA) WORD$ = REA.WORD$ WORD$ = WordBasic.[RTrim$](WORD$) WORD$ = WordBasic.[LTrim$](WORD$) If Len(WORD$) <> 3 Then GoTo AGAIN If BUTTON = 0 Then GoTo BYE Else Dim DLG As Object: Set DLG = WordBasic.DialogRecord.DocumentStatistics(False) WordBasic.CurValues.DocumentStatistics DLG PATH$ = DLG.Directory NAME_$ = DLG.FileName WORD1$ = WordBasic.[Left$](NAME_$, 3) WORD2$ = "Doc" If WORD1$ = WORD2$ Then GoTo DATE_ GoTo ISNOT DATE_: WordBasic.WW7_EditGoTo "DATE" WordBasic.Insert WORD$ GoTo START START: Rem YEARS = WordBasic.Year(WordBasic.Now()) Rem YEAR_$ = Str(YEARS) Rem FILE$ = "TEMP " + " REA Sales Taxes - Dade" Rem WordBasic.ChDefaultDir "C:\READOC Patty ", 0 Rem WordBasic.FileSaveAs Name:=FILE$, Format:=0, LockAnnot:=0, Password:="", AddToMru:=1, WritePassword:="", RecommendReadOnly:=0, EmbedFonts:=0, NativePictureFormat:=0, FormsData:=0, SaveAsAOCELetter:=0 Rem WordBasic.StartOfDocument WordBasic.BeginDialog 310, 124, " REA Monthly Sales Tax" WordBasic.Text 10, 6, 89, 13, "Invoice No.", "Text1" WordBasic.TextBox 10, 22, 160, 18, "INVOICE$" WordBasic.Text 10, 46, 119, 13, "Invoice Amount", "Text2" WordBasic.TextBox 10, 62, 160, 18, "AMOUNT$" WordBasic.CheckBox 12, 94, 96, 16, "EXEMPT", "CheckBox1" WordBasic.OKButton 213, 20, 88, 21 WordBasic.CancelButton 213, 44, 88, 21 WordBasic.EndDialog Set REA = WordBasic.CurValues.UserDialog Set REA = WordBasic.CurValues.UserDialog WordBasic.WW7_EditGoTo "INVOICE" WordBasic.LineDown WordBasic.StartOfLine On Error GoTo -1: On Error GoTo ADIOS If Asc(WordBasic.[SELECTION$]()) = 13 Then GoTo START3 Else GoTo AGAINII START3: WordBasic.WW7_EditGoTo "INVOICE" WordBasic.LineDown X = WordBasic.Dialog.UserDialog(REA) If X = 0 Then GoTo ENDING WordBasic.CurValues.UserDialog REA INVOICE$ = REA.INVOICE$ AMOUNT$ = REA.AMOUNT$ BUTTOM1 = REA.CheckBox1 FOUND = -1 WordBasic.EditFind Find:=INVOICE$ If FOUND = WordBasic.EditFindFound() Then GoTo FOUND WordBasic.BeginDialog 310, 124, " IS THIS CORRECT" WordBasic.Text 10, 6, 89, 13, "Invoice No.", "Text1" WordBasic.TextBox 10, 22, 160, 18, "INVOICE$" WordBasic.Text 10, 46, 119, 13, "Invoice Amount", "Text2" WordBasic.TextBox 10, 62, 160, 18, "AMOUNT$" WordBasic.CheckBox 12, 94, 96, 16, "EXEMPT", "CheckBox1" WordBasic.OKButton 213, 20, 88, 21 WordBasic.CancelButton 213, 44, 88, 21 WordBasic.EndDialog Set REA = WordBasic.CurValues.UserDialog Set REA = WordBasic.CurValues.UserDialog REA.INVOICE$ = INVOICE$ REA.AMOUNT$ = AMOUNT$ REA.CheckBox1 = BUTTOM1 X = WordBasic.Dialog.UserDialog(REA) If X = 0 Then GoTo ENDING WordBasic.CurValues.UserDialog REA INVOICE$ = REA.INVOICE$ AMOUNT$ = REA.AMOUNT$ BUTTOM1 = REA.CheckBox1 If BUTTOM1 = 1 Then GoTo EXEMPT WordBasic.Insert INVOICE$ WordBasic.nextCell WordBasic.nextCell WordBasic.MailMergeInsertSet Name:="AMOUNT", ValueText:=AMOUNT$ WordBasic.TableFormula Formula:="=AMOUNT+0", NumFormat:="###,##0.00" WordBasic.nextCell TAX_$ = Str(TAX) WordBasic.MailMergeInsertSet Name:="AMOUNT", ValueText:=AMOUNT$ WordBasic.MailMergeInsertSet Name:="TAX", ValueText:=TAX_$ WordBasic.TableFormula Formula:="=AMOUNT*TAX", NumFormat:="###,##0.00" WordBasic.nextCell WordBasic.TableFormula Formula:="=SUM(left)", NumFormat:=" ###,##0.00 " WordBasic.nextCell Rem Insert BLANK$ WordBasic.TableFormula Formula:="=0", NumFormat:="###,##0.00" WordBasic.WW7_EditGoTo "AMOUNT_TOTALS" WordBasic.LineUp WordBasic.TableFormula Formula:="=C4+C3", NumFormat:="###,##0.00" WordBasic.LineDown WordBasic.SelectCurWord WordBasic.EditCut WordBasic.TableFormula Formula:="=C2", NumFormat:="###,##0.00" WordBasic.LineUp WordBasic.SelectCurWord WordBasic.EditCut WordBasic.LineDown Rem TableFormula .Formula = "=SUM(BELOW)", .NumFormat = " $##,##0.00 " WordBasic.nextCell WordBasic.LineUp WordBasic.TableFormula Formula:="=D4+D3", NumFormat:="###,##0.00" WordBasic.LineDown WordBasic.SelectCurWord WordBasic.EditCut WordBasic.TableFormula Formula:="=D2", NumFormat:="###,##0.00" WordBasic.LineUp WordBasic.SelectCurWord WordBasic.EditCut WordBasic.LineDown Rem TableFormula .Formula = "=SUM(BELOW)", .NumFormat = " $##,##0.00 " WordBasic.nextCell WordBasic.TableFormula Formula:="=(C3+D3)", NumFormat:=" $##,##0.00 " WordBasic.nextCell WordBasic.LineUp WordBasic.TableFormula Formula:="=F4+F3", NumFormat:="###,##0.00" WordBasic.LineDown WordBasic.SelectCurWord WordBasic.EditCut WordBasic.TableFormula Formula:="=F2", NumFormat:="###,##0.00" WordBasic.LineUp WordBasic.SelectCurWord WordBasic.EditCut WordBasic.LineDown Rem TableFormula .Formula = "=SUM(BELOW)", .NumFormat = " $##,##0.00 " WordBasic.nextCell WordBasic.TableFormula Formula:="=(E3+F3)", NumFormat:=" $##,##0.00 " BUTTON = WordBasic.MsgBox("DO YOU WANT TO STOP?", " MONTHLY SALES TAX", 260) If BUTTON = 0 Then GoTo NEWROW GoTo ERNIE FOUND: WordBasic.MsgBox " THIS INVOICE IS A DUPLICATE" GoTo START3 EXEMPT: WordBasic.Insert INVOICE$ WordBasic.nextCell WordBasic.nextCell WordBasic.Insert BLANK_$ WordBasic.nextCell WordBasic.Insert BLANK_$ WordBasic.nextCell WordBasic.Insert BLANK_$ WordBasic.WW7_EditGoTo "EXEM" WordBasic.LineDown WordBasic.LineDown WordBasic.MailMergeInsertSet Name:="AMOUNT", ValueText:=AMOUNT$ WordBasic.TableFormula Formula:="=AMOUNT+0", NumFormat:="###,##0.00" WordBasic.LineUp WordBasic.LineUp WordBasic.TableFormula Formula:="=F4+F3", NumFormat:="###,##0.00" WordBasic.LineDown WordBasic.SelectCurWord WordBasic.EditCut WordBasic.TableFormula Formula:="=F2", NumFormat:="###,##0.00" WordBasic.LineUp WordBasic.SelectCurWord WordBasic.EditCut WordBasic.LineDown Rem TableFormula .Formula = "=SUM(BELOW)", .NumFormat = " $##,##0.00 " WordBasic.nextCell WordBasic.TableFormula Formula:="=(E3+F3)", NumFormat:=" $##,##0.00 " BUTTON = WordBasic.MsgBox("DO YOU WANT TO STOP?", " MONTHLY SALES TAX", 260) If BUTTON = 0 Then GoTo NEWROW GoTo ERNIE BYE: Set DLG = WordBasic.DialogRecord.DocumentStatistics(False) WordBasic.CurValues.DocumentStatistics DLG PATH$ = DLG.Directory NAME_$ = DLG.FileName WORD1$ = WordBasic.[Left$](NAME_$, 3) If WORD1$ = WORD$ Then GoTo CONT: GoTo WRONG CONT: WordBasic.WW7_EditGoTo "INVOICE" WordBasic.LineDown WordBasic.StartOfLine If Asc(WordBasic.[SELECTION$]()) = 13 Then GoTo START WordBasic.LineUp WordBasic.EndOfRow WordBasic.nextCell WordBasic.TableInsertRow GoTo CHECK CHECK: If Asc(WordBasic.[SELECTION$]()) = 13 Then GoTo START WordBasic.LineUp GoTo CHECK WordBasic.TableInsertRow GoTo START AGAIN: WordBasic.MsgBox "THE NAME IS NOT A 3 LETTER WORD" GoTo ENDING Line: WordBasic.LineDown return_ AGAINII: WordBasic.MsgBox " THERE IS ALREADY INVOICE NUMBER THERE, CHECK IT " GoTo ENDING ERNIE: Rem BUTTON = MsgBox("DO YOU WANT TO PRINT THIS DOCUMENT?", " MONTHLY SALES TAX", 260) WordBasic.WW7_EditGoTo "INVOICE" WordBasic.TableSelectColumn WordBasic.TableSort DontSortHdr:=0, FieldNum:="Column 1", Type:=1, Order:=0, FieldNum2:="", Type2:=0, Order2:=0, FieldNum3:="", Type3:=0, Order3:=0, Separator:=0, SortColumn:=0, CaseSensitive:=0 Rem If BUTTON = 0 Then Goto ADIOS Rem FilePrint .AppendPrFile = 0, .Range = "0", .PrToFileName = "", .From = "", .To = "", .Type = 0, .NumCopies = "1", .Pages = "", .Order = 0, .PrintToFile = 0, .Collate = 1, .FileName = "" GoTo ADIOS Rem ADD A NEW ROW NEWROW: WordBasic.nextCell WordBasic.TABLESELECTROW WordBasic.TableInsertRow GoTo START ADIOS: Rem SAVING FILE YEARS = WordBasic.Year(WordBasic.Now()) YEAR_$ = Str(YEARS) FILE$ = WORD$ + " REA Sales Taxes - Dade" WordBasic.ChDefaultDir "M:\READOC", 0 WordBasic.FileSaveAs Name:=FILE$, Format:=0, LockAnnot:=0, Password:="", AddToMru:=1, WritePassword:="", RecommendReadOnly:=0, EmbedFonts:=0, NativePictureFormat:=0, FormsData:=0, SaveAsAOCELetter:=0 WordBasic.StartOfDocument GoTo ENDING WRONG: WordBasic.MsgBox " YOU ARE WORKING IN THE WRONG MONTH, CHECK IT " GoTo ENDING ISNOT: WordBasic.MsgBox " YOU ARE WORKING IN THE WRONG DOCUMENT, CHECK IT " GoTo ENDING ENDING: End If End Sub Tag: Define a custom RGB Colour using VBA Tag: 97821
  - 9
    - Steps to write and activate macro in Word 2003 Folks, Any step by step for adding a macro into a word 2003 document? I want to read one Bookmark A and based on this value show in another field a default value for Bookmark B or text field. Example: The dropdown value selected is equal to text "NYC", the default value sould be text "SOHO". How do I get SoHo to show up in Bookmark B or text field? Then if the dropdown value is changed to "Boise" the default value in the other field would be default to "Idaho". thx. Tag: Define a custom RGB Colour using VBA Tag: 97820
  - 10
    - Need a Command Button in a Word Template Reference Word 2003 I am trying another approach to a template problem I have been working on. I have an online work order form that our voice consultants need to fill out for each customer. The form has a section for customer ID info and the rest of the form has 11 columns where the customer requests is completed. Each line represents one telephone. If the customer has 1 or a 1000 phones, each phone will have a line entry. This is the part where I start to have problems. By the time I get all the customer id info, there is only enough space for 12 line entries. I have created another form (continuation page) to go to if the consultant requires it. I have tried using an on exit macro and it works but I need to have the option of NOT using it. Right now, when you get to the last field, on the last line, it tabs to a field that is labeled Additional Page. Of course, when I come off it, it opens the page as it is suppose to do. But I want to be able to make that a yes I do or no I don't want to open that page. So I figured a command button would be the solution. Click on it to open the Additional Page, otherwise, go tab on by it and go back to the top of the form. I have gone to the control toolbox and inserted a command button but I can't program it and it seems to keep the template from locking down. The padlock icon grays out as soon as you insert the button. I am not a programmer in VB and need help. I hope this all makes sense, it is little hard to explain. Thanks for any help anyone can give me. Tag: Define a custom RGB Colour using VBA Tag: 97817
  - 11
    - Cleaning up a document programmatically? I get so much great info from this forum; I thought I'd give this a shot: is there a way to programmatically clean up a poorly formatted document? It 80 pages of normal style, tab-tab-tab-paragraph, manually numbering and has sporadic, incorrect manual TOC markings. I was planning on clearing all manual formatting, using search & replace to get rid of tabs & manual markings and apply numbered styles throughout for the TOC. Is there a better way? (Sorry if my search skills failed me & this is a standard question!) --Sandi P.S., I'm Helpdesk/Trainer who offers a Styles class regularly, screams Styles often, and now this document has become the Help Desk responsibility because it won't behave for a user who refuses to learn Styles. I'm very beginner-level VBA. Tag: Define a custom RGB Colour using VBA Tag: 97806
  - 12
    - Macro to detect doctype and change? I need help creating a macro to do the following: When any file is opened (I'm thinking this will be an autoopen macro), the macro will read the document's extension, and if it's a particular extension will automatically save it to the C drive with the same name but in another format. So it's not just giving the file a different extension, it's actually changing it from one format (such as RTF or TXT) to Word 2003 format (.doc). Is it possible to write such a macro? Tag: Define a custom RGB Colour using VBA Tag: 97805
  - 13
    - Formatting while using Insert File Hi all, In an article http://word.mvps.org/FAQS/Formatting/WorkWithSections.htm it is described how things work using Insert File. Is there a difference in functionality between Word2003 compared to Word2000? I want the scenario that, if I have a blank document and insert a second document, with different page formatting, into the blank one, the first document should adopt the formatting of the inserted document. But in my 2003-version the formatting in the document remains intact after inserting the second document. TIA, Peeter Tag: Define a custom RGB Colour using VBA Tag: 97801
  - 14
    - get data of cell out of an excel file and copy in word Hey, I want to insert in my word doc the data of an open xls doc, ex cell A1. Is is possible to create a macro in word that maximelise the open XLS file, copies Cell A1, then minimalizes the xls file and than paste it into my word doc ? Thanks in advance ! Tom Tag: Define a custom RGB Colour using VBA Tag: 97799
  - 15
    - Get e-mail address Hi, If I know a name from the global address book, can I get the e-mail address? If Jon Smith is an entry in the global Address book, can I in some way retrieve "Smith, Jon" e-mail address? Using GetAddress does not seem to work. I use Office XP. // Ulf Tag: Define a custom RGB Colour using VBA Tag: 97798
  - 16
    - Fields.Update does not work correctly in Word 2007 Hi, I am looking for a VBA-Code to update all fields in a document. The command "ActiveDocument.Fields.Update" does not update fields in headers and footers and in text-fields. In Word 2003 the following code does the job perfectly: ------------------------------------------------------------- For Each Teil In ActiveDocument.StoryRanges Teil.Fields.Update While Not (Teil.NextStoryRange Is Nothing) Set Teil = Teil.NextStoryRange Teil.Fields.Update Wend Next --------------------------------------------------------------- But in Word 2007 this code does not work. Fields in headers, footers an text-fields will not update. What happens here? Does anybody have an idear how to consequently update all fields? Regards Karl. Tag: Define a custom RGB Colour using VBA Tag: 97790
  - 17
    - dialog box help I have been working with Perry (See My original post under Dialog Box) and he gave me the following macro to try. I thought it had worked and stated that it did on my reply to Perry. I was wrong. It does not write the formfields data to (and saved in) the textfile. I need some help with this. Dim tempFile Dim fd As FileDialog Dim oFF as formfields Dim i as integer set oFF = activedocument.formfields i = FreeFile() Set fd = Application.FileDialog(3) fd.Filters.Add "Text Files", "*.txt" fd.FilterIndex = 0 fd.InitialFileName = "U:\History" fd.AllowMultiSelect = False If fd.Show Then tempFile = fd.SelectedItems(i) Open tempfile For Output As #i Write #i, oFF(5).Result, oFF(6).Result, _ oFF(7).Result, oFF(8).Result, _ oFF(9).Result, oFF(10).Result Close #i End If Tag: Define a custom RGB Colour using VBA Tag: 97787
  - 18
    - How can I know current insert position? I'm programing character count addin. It count from document start to current insert position (cursor position) not document end. Does it exist api - get current insert/cursor position? Tag: Define a custom RGB Colour using VBA Tag: 97786
  - 19
    - ActiveDocument.Add with passing parameter issue Hi All, I have two word templates (A1, A2) and what i am trying to do using VB code is that create a new document base on A2 template when A1 is creating. So i write ActiveDocument.Add(Path of A2) code inside the new() in A1. Now i have issue that how to pass a parameter to A2 when creating document , so that A2 code behind knows that this is creating from A1 . as the behavior are different if A2 create by itself. I tried using ActiveDocument.Add(path of A2, ,, false) code in A1, and using if (not activedocument.windows(1).visiable ) then it's calling from A1 , but it does't seem work as activedocument.windows(1).visiable is always return true. am i on right track to achieve this or is that any other ways can do? any helps are appreciated.. Thanks nick Tag: Define a custom RGB Colour using VBA Tag: 97783
  - 20
    - Combing half-page documents into one large document Hi, I have hundreds of half-page documents (each of them has only a few lines) and I would like to combine them, one immediately after another, so that I can print the combined document out without a lot of white space. I have searched and found this VBA code: http://word.mvps.org/FAQs/MacrosVBA/PrintAllDocsInFldr.htm However it prints each document individually and the result is a waste of paper because each file only has a few lines in it. Thanks! Alex Tag: Define a custom RGB Colour using VBA Tag: 97780
  - 21
    - Word Frequency Is there a way to list and sort the frequency of all words in a Word document (without buying other software)? Tag: Define a custom RGB Colour using VBA Tag: 97779
  - 22
    - Insert text - Footer - all Sections Hi, I'm in Word 2003, I am trying to insert text in to all sections including first page header. I don't want to just remove what is already there. I need to see if a doc number appears if so then delete just that. I have the guts figured out. My problem it's not moving to the next header if it exists and it's inserting my text three times in the first page. I got this code from another help file. The code below has been modified and is my trimed down version. Any help would be greatly appreciated. Sub HDFtrSections() Dim i As Long Dim ftr As HeaderFooter Dim sec As Section Dim rng As Range WordBasic.ViewFooter 'I know I should update this but it still works. With ActiveDocument For i = 1 To .Sections.Count 'loop through each section in doc For Each ftr In .Sections(i).Footers 'Don't remove existing text 'Don't add a hard return if the range is "" 'If bkmk exists then delete text 'if Find.found = True then delete text 'Create new bookmark and insert doc name. Selection.Range.Text = "blah blah blah" 'It stays in the same footer repeating the steps. 'The first footer is First Page footer. 'Or it inserts the text three times. For the number of sections. Next ftr Next i End With End Sub Thank you for your time. Kerri Tag: Define a custom RGB Colour using VBA Tag: 97771
  - 23
    - Opening Find dialog in Excel Dear all, I would like to open the find dialog in Excel with VBA from word. How can I do that? At this moment I do this with Sendkeys, but that only works with the same languages. Can someone help me please? Tag: Define a custom RGB Colour using VBA Tag: 97732
  - 24
    - How to get page number with VBA in Word ? It could be simple, but I can not find how to do it: I need a code to get the page number of some range object, let me say, I have a paragraph, and I want to know his location (page number) when printed. Thanks, yours, Daniel from Brazil Tag: Define a custom RGB Colour using VBA Tag: 97725
  - 25
    - VBA code to get page numbers and print multi section documents! I have a nice word 2000 VBA code to get a single simple document, in one unique section, and print it as a book (double faced paper, 2 pages per paper face, page number scheme 4-1, 2-3, 8-5, 6-7). But when the document has more than 1 section, there is a terrible mistake at printing pages. If the document: - 1st section has 4 pages (numbered 1-4) - 2nd section more 10 pages (numbered 1-10) When printing something like "4,1", it result in some pages, equal to section 1 pages 1 to 4, section 2 page 4 (sort of random like :o) What a hell this kind of stupid feature called "section print" (have a look at "help printing sections") !!! What I asked is: 1) in a single section document, is it possible to make an Index at document 5th page, but showing there "page number = 1" ??? 2) what is the correct / better way to handle/print multi section documents ? Thanks, yours, Daniel, from Brazil Tag: Define a custom RGB Colour using VBA Tag: 97723
- Next
  - 1
    - Preventing Word from displaying the list of macros I use a ton of short text macros in my work. I really don't need Word to display the list each time I call a macro. Is it posible to prvent Word from doing this? Tag: Define a custom RGB Colour using VBA Tag: 97722
  - 2
    - Is it possible to create a protected form which includes an unprot I want to create a form which has an introduction section with some general and protected form fields. Then an unprotected table, which can grow by using the tab function when in the last cell of the table. Finally I want a closing and protected section with room for some standard information. I have tried to introduce section breaks before and after my table. But protecting the form takes effect on the whole form. Any good ideas?? Jorgen Tag: Define a custom RGB Colour using VBA Tag: 97717
  - 3
    - Word 2007 and FproSet Hi, I've been using FpropSet.dll to access properties from closed documents, but I lost it and can't find a copy anywhere. Having just upgraded to Word 2007, do I still need FpropSet or can VBA handle this now? And If I do still need FpropSet.dll, where can I get a copy? -- Stephenc Tag: Define a custom RGB Colour using VBA Tag: 97715
  - 4
    - Changes in Word2007 object model (Explanation of performance changes (read "degraded") This is a multi-part message in MIME format. ------=_NextPart_000_0011_01C76419.80883A80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Fellow MVP Helmut Weber and I where comparing efficiencies of our macros for deleting duplicate paragraphs from a document. In this discussion (and tests) I have learned that: 1) my macro is considerably faster that his using Word2003. 2) Helmut's is considerably faster than mine using Word2007. 3) Both are considerably faster using Word2003. Assuming Word2007 is a better product than its predecessor, its seems that at the very least both would be faster in Word2007! I am interested if anyone knows of the changes to the object model that would account for degrade in performance using both methods and the flip-flop in the result with my method in Word2003 compared to Word2007. Jezebel or Steve Hudson, I don't remember which, once explained to me how using Do ... Loop Until x Is Nothing was faster than a For Each ... Next x. The results in our tests bare that out in Word2003, but it seems the Do ... Until x Is Nothing method has taken the slow road in Word2007. Here is a sample of results observed using 201 and 801 paragraphs. The first 200/800 paragraphs are unique. The last paragraph (201/801) is a duplicate of the 200/800th paragraph. Word 2003 200 800 My Method 4.375 sec 68.68 sec Helmut's Method 7.48 sec 120.81 sec Word 2007 200 800 My Method 14.42 sec 9.98 sec Helmut's Method 229.56 sec 158.44 sec If you are interested running your own comparisons, here is code for generating the test paragraphs, my code, and Helmut's code. Sub BuildTestParagraphs() Dim oRng As Word.Range Dim i As Long Set oRng = ActiveDocument.Range oRng.Delete For i = 1 To 200 If i = 1 Then oRng.InsertAfter "The quick brown fox jumped over the lazy dog." & vbCr Else oRng.InsertAfter "The quick and extremely agile brown fox" _ & " jumped over " & i & " the lazy dogs." & vbCr End If Next i oRng.InsertAfter "The quick and extremely agile brown fox" _ & " jumped over " & i - 1 & " the lazy dogs." End Sub Sub GregsKillDuplicates() Dim eTime As Single Dim oParRef As Paragraph Dim oParChk As Paragraph eTime = Timer Set oParRef = ActiveDocument.Range.Paragraphs(1) Set oParChk = ActiveDocument.Range.Paragraphs(2) Do Do 'An empty last paragraph may throw an error on the last loop. On Error GoTo Err_Exit If oParRef.Range = oParChk.Range Then oParChk.Range.Delete Else Set oParChk = oParChk.Next End If Loop Until oParChk Is Nothing Set oParRef = oParRef.Next On Error Resume Next Set oParChk = oParRef.Next On Error GoTo 0 Loop Until oParRef Is Nothing Err_Exit: MsgBox Timer - eTime End Sub Sub HelmutsKillParagraphs() 'AKA Makro6x Dim t As Single t = Timer Dim prg1 As Paragraph Dim prg2 As Paragraph For Each prg1 In ActiveDocument.Range.Paragraphs For Each prg2 In ActiveDocument.Range.Paragraphs If prg1.Range.Text = prg2.Range.Text Then If prg1.Range.Start <> prg2.Range.Start Then prg2.Range.Delete End If End If Next Next MsgBox Timer - t End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0011_01C76419.80883A80 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.6000.16414" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>Fellow MVP Helmut Weber and I where comparing efficiencies of our = macros=20 for deleting duplicate paragraphs from a document.</DIV> <DIV> </DIV> <DIV>In this discussion (and tests) I have learned that:  1) my = macro is=20 considerably faster that his using Word2003.  2) Helmut's is = considerably=20 faster than mine using Word2007.  3) Both are considerably faster = using=20 Word2003.</DIV> <DIV> </DIV> <DIV>Assuming Word2007 is a better product than its predecessor, its = seems that=20 at the very least both would be faster in Word2007!  I am = interested if anyone knows of the changes to the object model that = would=20 account for degrade in performance using both methods and=20 the flip-flop in the result with my method in = Word2003 compared=20 to Word2007.</DIV> <DIV> </DIV> <DIV>Jezebel or Steve Hudson, I don't remember which, once explained to = me how=20 using Do ... Loop Until x Is Nothing was faster than a For Each ... Next = x.  The results in our tests bare that out in Word2003, but  = it seems=20 the Do ... Until x Is Nothing method has taken the slow road in = Word2007.</DIV> <DIV> </DIV> <DIV>Here is a sample of results observed using 201 and 801=20 paragraphs.  The first 200/800 paragraphs are = unique.  The=20 last paragraph (201/801) is a duplicate of the 200/800th = paragraph.</DIV> <DIV> </DIV> <DIV>Word = 2003          =20 200           &nbs= p;  =20  800</DIV> <DIV>My = Method          =20 4.375 sec       68.68  = sec  =20 </DIV> <DIV>Helmut's Method   7.48=20 sec         120.81 sec</DIV> <DIV> <DIV>Word = 2007          =20 200           &nbs= p;  =20  800</DIV> <DIV>My = Method          =20 14.42 sec       9.98  = sec  =20 </DIV> <DIV>Helmut's Method   229.56 sec    158.44 = sec</DIV> <DIV> </DIV> <DIV>If you are interested running your own comparisons, here is code = for=20 generating the test paragraphs, my code, and Helmut's code.</DIV> <DIV> </DIV> <DIV>Sub BuildTestParagraphs()<BR>Dim oRng As Word.Range<BR>Dim i As = Long<BR>Set=20 oRng =3D ActiveDocument.Range<BR>oRng.Delete<BR>For i =3D 1 To = 200<BR>  If i =3D=20 1 Then<BR>    oRng.InsertAfter "The quick brown fox = jumped over=20 the lazy dog." & vbCr<BR>  Else<BR>    = oRng.InsertAfter=20 "The quick and extremely agile brown  fox"=20 _<BR>      & " jumped over " & i & = " the=20 lazy dogs." & vbCr<BR>  End If<BR>Next i<BR>oRng.InsertAfter = "The quick=20 and extremely agile brown  fox" _<BR>      = & "=20 jumped over " & i - 1 & " the lazy dogs."<BR>End Sub</DIV> <DIV> </DIV> <DIV>Sub GregsKillDuplicates()<BR>Dim eTime As Single<BR>Dim oParRef As=20 Paragraph<BR>Dim oParChk As Paragraph<BR>eTime =3D Timer<BR>Set oParRef = =3D=20 ActiveDocument.Range.Paragraphs(1)<BR>Set oParChk =3D=20 ActiveDocument.Range.Paragraphs(2)<BR>Do<BR>  =20 Do<BR>      'An empty last paragraph may throw = an error=20 on the last loop.<BR>      On Error GoTo=20 Err_Exit<BR>      If oParRef.Range =3D = oParChk.Range=20 Then<BR>        =20 oParChk.Range.Delete<BR>     =20 Else<BR>         Set oParChk =3D = oParChk.Next<BR>      End If<BR>   = Loop Until=20 oParChk Is Nothing<BR>   Set oParRef =3D = oParRef.Next<BR>   On=20 Error Resume Next<BR>   Set oParChk =3D = oParRef.Next<BR>   On=20 Error GoTo 0<BR>Loop Until oParRef Is Nothing<BR>Err_Exit:<BR>MsgBox = Timer -=20 eTime<BR>End Sub<BR></DIV> <DIV>Sub HelmutsKillParagraphs()<BR>'AKA Makro6x<BR>Dim t As Single<BR>t = =3D=20 Timer<BR>Dim prg1 As Paragraph<BR>Dim prg2 As Paragraph<BR>For Each prg1 = In=20 ActiveDocument.Range.Paragraphs<BR>   For Each prg2 In=20 ActiveDocument.Range.Paragraphs<BR>      If=20 prg1.Range.Text =3D prg2.Range.Text=20 Then<BR>         If = prg1.Range.Start=20 <> prg2.Range.Start=20 Then<BR>          &nbsp= ;=20 prg2.Range.Delete<BR>         = End=20 If<BR>      End If<BR>  =20 Next<BR>Next<BR>MsgBox Timer - t<BR>End Sub</DIV><BR>-- <BR>Greg = Maxey/Word=20 MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0011_01C76419.80883A80-- Tag: Define a custom RGB Colour using VBA Tag: 97713
  - 5
    - How can I use "Find (and replace)" to locate an xml tag? Trying to write a macro in Word 2007 to edit .xml files. How can I use "Find" to search for a specific xml tag name? It appears that "Find" ignores the tag names in an xml file when searching. Tag: Define a custom RGB Colour using VBA Tag: 97709
  - 6
    - dialog box I have the following macro that when Iâ??m run it I want to save the formfileds as plan text. The problem is when I open the word document from the mainframe application the SaveAs dialog box defaults the file type to â??Docâ?? and I want it to default to â??txtâ??. How can I do this? Dim tempfile Dim oFF As FormFields Set oFF = ActiveDocument.FormFields With Dialogs(wdDialogFileSaveAs) Options.DefaultFilePath(wdDocumentsPath) = "U:\History" .Name = "" If .Display = -1 Then tempfile = .Name Open tempfile For Output As #1 Write #1, oFF(5).Result, oFF(6).Result, oFF(7).Result, _ oFF(8).Result, oFF(9).Result, oFF(10).Result Close #1 End If End With Set oFF = Nothing Tag: Define a custom RGB Colour using VBA Tag: 97698
  - 7
    - Delete smart tags automatically Hello, Can someone please provide me a macro I can use for.. If there is a smart tags in the document, to automatically removed them prior to closing or exiting. I'd appreciate any help! Thank you! -- Smile...it is good for you! :) Tag: Define a custom RGB Colour using VBA Tag: 97697
  - 8
    - How to autopopulate a word from just 1 letter ? Example: Program the Microsoft Word 2003 to recognize "H" as meaning "Hello" and having it autopopulating "Hello" when writing "H". Very useful when writing very fast whilst listening. Thanks in advance. Tag: Define a custom RGB Colour using VBA Tag: 97694
  - 9
    - Closing current instance of Word 2003 Hi, I'm trying to close the current instance of Word 03 without affecting any other open instances. So far I've got ActiveDocument.Close savechanges:=wdSaveChanges but that only closes the document, leaving the application window still open. Obviously I have Word set to the (more or less) equivalent of classic MDI, each instance in its own window. Any help would be appreciated. Thanks and BW, p. Tag: Define a custom RGB Colour using VBA Tag: 97690
  - 10
    - How to PUT BACK "Getting Started" I use Microsoft Small Business 2000, I know most people want to get ride of the Task Pane "Getting Started", but I would like to restore this, as I find it useful to mail-merge with an old Microsoft Works database. Can you help? Tag: Define a custom RGB Colour using VBA Tag: 97687
  - 11
    - possible to extract doc variable without opening document? hello, i did some search in this group and google, seems with Dsofile.dll the document properties and custom document properties can be accessed without opening the word document, how about doc variables? thanks. - kelie Tag: Define a custom RGB Colour using VBA Tag: 97680
  - 12
    - Print PDF from VBA A long shot, maybe: Is there way, maybe using Shell, to print a PDF file from VBA code? Goal: To print all PDFs in a folder *in order* (alpha by filename), in a way that doesn't require opening each one or combining them into a large file(s). Selecting multiple PDF files from an Explorer window and clicking File-> Print does in fact send them to printer, but the print in some bizarre order I can't discover! Can I use VBA's FileSearch property to collect the filenames & then call another macro within that loop that sends each file to the printer, with a DoEvents line (or some equivalent to Background:=False) after each one, so they'll print one at a time? Is this clear? Is there an easier way somewhere? Word 2003, WinXP, Acrobat 6.0 standard. Thanks in advance Mark Tangard Tag: Define a custom RGB Colour using VBA Tag: 97679
  - 13
    - How to get the current page number? Hello, friends, Probably this is a trivial question: How to get the current page number of an open document using Microsoft.Office.Interop.Word? I looked up all methods/properties and could not find one that looked like. Thanks a lot. Tag: Define a custom RGB Colour using VBA Tag: 97675
  - 14
    - Default formatting for pictures I am sick to death of pasting a screen shot into a Word document, right-clicking on it, selecting format picture, change the size to 3" and aligning it tight to the right. Does anyone have code for applying these changes to the currently selected picture? Thanks in advance! -- Sandi Tag: Define a custom RGB Colour using VBA Tag: 97673
  - 15
    - Colour OptionButtons on initialize and change I have a form which is designed to examine data line by line, and reformats the data after a user double checks it for correctness. I want to make it a bit easier for the user to quickly see which options are selected. Is there a universal way to have any change in the form which relates to OptionButtons state being either 'true' or 'false' to trigger a change to .Background for that OptionButton. I've started with a series of _Click() commands and _Initialize(), however I'd like to avoid having to name each function individually. Thanks. Tag: Define a custom RGB Colour using VBA Tag: 97671
  - 16
    - Tables/Equations Fields Differences in French and English We have a custom template but seem to be running into issues when it is used on French Windows. It appears that the field added for tables and equations is not the same and is language specific for each SEQ it seems to create. Does anyone know anything about this and how to make it work for both properly? Tag: Define a custom RGB Colour using VBA Tag: 97668
  - 17
    - Like to save a Word doc and reattach to application on the fly I am hoping to provide users with a Word doc (attached to a form that is part of a Lotos Notes application) that simply lets people add hyperlink references to files. Once you open the file and make your additions, is there an elegant way to save it and keep the updated information attached to the form? Thank you in advance, Trouver Tag: Define a custom RGB Colour using VBA Tag: 97667
  - 18
    - KillDuplicateParas I came across an old post in Google groups for deleted duplicated lines of text in a document. It used a For x = Count method to go through and check the range of one paragraph to the the range of every other paragraph and delete any duplicates. It had two If ... End If blocks. The first check the para range length. If = then the second performed a text comparison. I assume the author thought that it would save time by doing a text comparison only on paras of equal length. The procedure worked as advertised, however with a longer document it took a long time. I created about 800 paragraphs and determined that it was actually much quicker to bypass the the first length check and just do a range comparison on every paragraph. Down from 200 seconds to 75 seconds! Next I remembered an method that Jezebel showed me for stepping through items using the .Next (property or method I am never sure which). I adapted the code as follows and the time taken was down to 3 seconds! Anyway, I just wanted to share this with the group: Sub KillDuplicateParagraphs() Dim SBar As Boolean Dim TrkStatus As Boolean Dim eTime As Single Dim oParRef As Paragraph Dim oParChk As Paragraph eTime = Timer With ActiveDocument TrkStatus = .TrackRevisions .TrackRevisions = False End With With Application SBar = .DisplayStatusBar .DisplayStatusBar = True .ScreenUpdating = False End With Set oParRef = ActiveDocument.Range.Paragraphs(1) Set oParChk = oParRef.Next Do '*** Stet out first if block to delete duplicated empty paragraphs. If Len(oParRef.Range.Text) > 1 Then Do 'An empty last paragraph may throw an error on the last loop. On Error GoTo Err_Exit If oParRef.Range = oParChk.Range Then oParChk.Range.Delete Else Set oParChk = oParChk.Next End If Loop Until oParChk Is Nothing End If '*** Set oParRef = oParRef.Next 'Skip errors. On Error Resume Next Set oParChk = oParRef.Next On Error GoTo 0 Loop Until oParRef Is Nothing Err_Exit: With Application .StatusBar = False .DisplayStatusBar = SBar .ScreenUpdating = True End With ActiveDocument.TrackRevisions = TrkStatus MsgBox "Finished. Elapsed time: " & (Timer - eTime + 86400) Mod 86400 & " seconds." End Sub Tag: Define a custom RGB Colour using VBA Tag: 97661
  - 19
    - creation/destruction of our custom command bars for the office ma Hi, I have a problem with creation/destruction of our custom command bars for the office macros ( MS Word) on various combination of OS & Office. Our Solution is based on suggestions from Microsoft support (http://support.microsoft.com/kb/245765) issued for MS Word 2000. Construction of the menu bars isnâ??t the problem though, but proper destruction is. What MS basically suggests is to reopen Normal.dot template (which is where the global menu bars configuration is stored) on AutoExit() then remove our custom menu bars and then save it. Unfortunately this solution does not always work and whatâ??s worst on some combination of OS & Office (ex. Japanese XP + Japanese Office XP) it leads to a crash. This solution from MS was offered for Word 2000, and it does not work on all possible OS and Office combinations. I wish to find a safe way of saving normal.dot template after removing our custom command bars and icons , so that it works on all supported combinations of OS & MS Office. I have implemented the following code during AutoExit() which gives me a crash on Japanese XP SP2 and Office XP combination, as well as on Vista 2007 while exiting word application. AutoExit.bas:- Sub main() On Error Resume Next NormalTemplate.OpenAsDocument Common.RemoveToolbarIcon Common.RemoveMenuItem Documents.Save NoPrompt:=True End Sub Another crash that we find due to the above exit routine , is that the Word 2007 , when opened in Thumbnail view, crashes with our macro. The above crash can also be reproduced by using the code written in mentioned link(http://support.microsoft.com/kb/245765) and made a sample macro (sample.dot) and it also crashed when exiting MS word 2007 in thumbnail view with my sample macro only. Suggestions/Solutions/Sample code is requested ASAP Regards Mangesh Tag: Define a custom RGB Colour using VBA Tag: 97659
  - 20
    - Macro shortcut keys? Hi, Does anyone know of any known problems with assigning a shortcut key to a button (macro)? I have tried unsuccessfully to do this, but have done it many times in the past with no problem. I changed the shortcut key several times to no avail. When I return to the menu, it shows the assignment in the 'current keys' listbox. I have removed and reassigned several times to no avail. I'm using Word 2000. Any ideas? Tag: Define a custom RGB Colour using VBA Tag: 97658
  - 21
    - Replace strings with hyperlinks I have about 400 word/excel documents and a set of strings that occur in them. Each string needs to be replaced with itself but hyperlinked to a specific URL. The list of strings and their corresponding URLs are available. Is there an easy way to do this programatically? Do I need seperate programs for Word and Excel? Any help is much appreciated. VN Tag: Define a custom RGB Colour using VBA Tag: 97655
  - 22
    - Table Macro This may be asking too much but here goes I need a macro to insert a Paragraph Mark at the end of each table cell I have tried looking for examples of code but so far no luck Thanks Al Tag: Define a custom RGB Colour using VBA Tag: 97652
  - 23
    - Can't sort data from mailmerge-file before merging Hello, Searching all through the internet, I am out of ideas to how to sort the data in my mailmerge-file. The file is obtained from another program, which outputs a tabulator seperated file for merging. The problem is that it is sorted by the wrong column. The SQL would be something like "SELECT * FROM <filename.doc> (?) ORDER BY deltfnavn ASC", but SQL is not allowed, when the datasource is tabulator seperated. Regards, Tue Tag: Define a custom RGB Colour using VBA Tag: 97647
  - 24
    - Clear Style and Formatting In MS word, U clear formatting for the selected text by clicking the "Clear Formatting" from the "Styles and Formatting" box How can I achieve this in VBA activedocument.paragraphs(1). ?? I cant find .clearFormatting Thanks Tag: Define a custom RGB Colour using VBA Tag: 97643
  - 25
    - vba fucntion that valid isbn Hi, Is there any1 who have written function that check if ISBN is valid or not?? Thank you Tag: Define a custom RGB Colour using VBA Tag: 97639

I recently wrote below (simple) macro which changes the row colour of
a table from blue to yellow. Is it possible to define a custom colour
such as RGB (17, 33, 55). And if this is possible, how do I have to
rewrite this macro.

Help is appreciated. Thank you very much in advance.

Regards,

Andreas

Sub ChangeShading()

Dim oRw As Row

For Each oRw In ActiveDocument.Tables(1).Rows
If oRw.Cells.Shading.BackgroundPatternColor = wdColorBlue Then
oRw.Cells.Shading.BackgroundPatternColorIndex = wdColorLightYellow
End If
Next
End Sub

Top

RE: Define a custom RGB Colour using VBA by HelmutWeber

HelmutWeber
Wed Mar 14 08:59:26 CDT 2007

Hi Andreas,

BackgroundPatternColor = RGB (17, 33, 55)

HTH

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000 (german versions)

Top

Re: Define a custom RGB Colour using VBA by andreas

andreas
Thu Mar 15 01:00:30 CDT 2007

On 14 Mrz., 14:59, Helmut Weber
<HelmutWe...@discussions.microsoft.com> wrote:
> Hi Andreas,
>
> BackgroundPatternColor = RGB (17, 33, 55)
>
> HTH
>
> --
> Greetings from Bavaria, Germany
> Helmut Weber, MVP WordVBA
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000 (german versions)

Hey Helmut,
Thank you.

Top