Change Width of Objects

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Change Width of Objects Tag: 97843
  - 2
    - 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: Change Width of Objects Tag: 97832
  - 3
    - 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: Change Width of Objects Tag: 97821
  - 4
    - 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: Change Width of Objects Tag: 97820
  - 5
    - 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: Change Width of Objects Tag: 97817
  - 6
    - 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: Change Width of Objects Tag: 97806
  - 7
    - 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: Change Width of Objects Tag: 97805
  - 8
    - 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: Change Width of Objects Tag: 97801
  - 9
    - 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: Change Width of Objects Tag: 97799
  - 10
    - 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: Change Width of Objects Tag: 97798
  - 11
    - 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: Change Width of Objects Tag: 97790
  - 12
    - 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: Change Width of Objects Tag: 97787
  - 13
    - 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: Change Width of Objects Tag: 97786
  - 14
    - 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: Change Width of Objects Tag: 97783
  - 15
    - 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: Change Width of Objects Tag: 97780
  - 16
    - Word Frequency Is there a way to list and sort the frequency of all words in a Word document (without buying other software)? Tag: Change Width of Objects Tag: 97779
  - 17
    - 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: Change Width of Objects Tag: 97771
  - 18
    - 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: Change Width of Objects Tag: 97732
  - 19
    - 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: Change Width of Objects Tag: 97725
  - 20
    - 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: Change Width of Objects Tag: 97723
  - 21
    - 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: Change Width of Objects Tag: 97722
  - 22
    - 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: Change Width of Objects Tag: 97717
  - 23
    - 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: Change Width of Objects Tag: 97715
  - 24
    - 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: Change Width of Objects Tag: 97713
  - 25
    - 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: Change Width of Objects Tag: 97709
- Next
  - 1
    - 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: Change Width of Objects Tag: 97698
  - 2
    - 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: Change Width of Objects Tag: 97697
  - 3
    - 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: Change Width of Objects Tag: 97694
  - 4
    - 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: Change Width of Objects Tag: 97690
  - 5
    - 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: Change Width of Objects Tag: 97687
  - 6
    - 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: Change Width of Objects Tag: 97680
  - 7
    - 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: Change Width of Objects Tag: 97679
  - 8
    - 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: Change Width of Objects Tag: 97675
  - 9
    - 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: Change Width of Objects Tag: 97673
  - 10
    - 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: Change Width of Objects Tag: 97671
  - 11
    - 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: Change Width of Objects Tag: 97668
  - 12
    - 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: Change Width of Objects Tag: 97667
  - 13
    - 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: Change Width of Objects Tag: 97661
  - 14
    - 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: Change Width of Objects Tag: 97659
  - 15
    - 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: Change Width of Objects Tag: 97658
  - 16
    - 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: Change Width of Objects Tag: 97655
  - 17
    - 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: Change Width of Objects Tag: 97652
  - 18
    - 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: Change Width of Objects Tag: 97647
  - 19
    - 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: Change Width of Objects Tag: 97643
  - 20
    - vba fucntion that valid isbn Hi, Is there any1 who have written function that check if ISBN is valid or not?? Thank you Tag: Change Width of Objects Tag: 97639
  - 21
    - scan a text document and be able to modify it in MS word. You should be able to scan a text document, and have it come up in word as if you had just typed it. This way you could modify it or save it to your computer. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=65df7555-11b7-4971-b608-4ec09f771e45&dg=microsoft.public.word.vba.general Tag: Change Width of Objects Tag: 97638
  - 22
    - Hide or collapse section Hello, I have a form with about 8 sections. Not all section may be used at once so in order not to see it or print it, could I hide it or collapse it until it needs to be used then have the user click on it to open? Example: Thee are three (3) setions for Collateral. Section one is for the main collateral and sections two and three are for additional collateral. If there is only the main and one additional collateral, I do not want the third section of additional collateral to show or print. This will make the form smaller and more user friendly I think. Please let me know if there is an possiblitiy to make this happen. Thanks!! Tag: Change Width of Objects Tag: 97619
  - 23
    - Making a Word doc unprintable There doesn't seem to be a non-programmable way of making a Word doc unprintable. Does anyone know an easy solution? Making a Word doc unprintable? I would appreciate an comments. Thanks! Tag: Change Width of Objects Tag: 97616
  - 24
    - AutoText entries macro Hi. I have 100 words I need to enter in the AutoText database in Word 2003. Can I create a macro instead of entering one by one in the database. I have a macro that i'm using for AutoCorrect (see code below). Can I do something like this for the AutoText? AutoCorrect.Entries.Add Name:= "AL", Value:="Alabama (AL)" ------------------------------------------ Smile...it is good for you! :) Tag: Change Width of Objects Tag: 97613
  - 25
    - macro to send email I have created a form in word that has a button that when you click on it pulls data from the form and puts it in a new email. When you click the button, the word doc jumps around and flashes. Is there any way to stop this? Tag: Change Width of Objects Tag: 97612

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

Top

Re: Change Width of Objects by Jezebel

Jezebel
Tue Mar 13 22:31:23 CDT 2007

With ActiveDocument.Shapes(n)
.Width = 100
.Height = 100
End with

You'll need your own logic to work out what n should be.

"willr" <williamreigle@gmail.com> wrote in message
news:1173841603.796406.105680@y80g2000hsf.googlegroups.com...
>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
>

Top