find matching format

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Field validation Hi; Appreciate if someone could help me with the following: I've 2 text fields called "Bank Name" & "Bank Account Number" in my form now. Can anyone guide me on how to add the the following validation checking into my form? a) When Bank A is being selected, in the Bank Name field, check whether the user has key in 10 digits into the Bank Account Number field. If the user has key in something > or < than 10 digits, prompt out an error message that ask them to key in the correct bank account number b) When Bank B is being selected, check whether the user has key in 12 digits into the Bank Account Number field. and etc Tag: find matching format Tag: 109602
  - 2
    - Replace footer text I need my code to be able to search a footer section for the text "<Project #>" in a multiple page, single section document and replace it with the value of a variable (ProjNum) provided from a user form. Can someone help me out? Thanks! -- Steve C Tag: find matching format Tag: 109600
  - 3
    - Word VBA Copying Document Content from other documents issue I am trying to code around a copy and paste issue with Word. In that if you copy and paste the contents of a document that has multiple sections into an existing document, it brings with it header and footer information. I know if I manually select the content of each section in turn and past that, headers and footers remain unaffected. I need to recreate this in code. Currently I use: Sub InsertTextFromBoilerPlate() Dim dlgOpen As FileDialog Dim strFileLoc As String Dim vrtSelectedItemFields As Variant On Error Resume Next Dim ChkResults As Variant If IsMissing(ActiveDocument.CustomDocumentProperties("ValidTemplate")) Then MsgBox "This toolbar is restricted to Valid Corporate templates only..." Exit Sub End If Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker) With dlgOpen .Filters.Add "Word Document Format", "*.doc", 1 If .Show = -1 Then .AllowMultiSelect = False For Each vrtSelectedItemFields In .SelectedItems strFileLoc = vrtSelectedItemFields Next vrtSelectedItemFields Else End If End With Set dlgOpen = Nothing If strFileLoc = "" Then Else Documents.Open FileName:=strFileLoc, ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="" Selection.WholeStory Selection.Expand (wdMainTextStory) Selection.Copy ActiveDocument.Close Selection.PasteAndFormat (wdPasteDefault) 'Selection.InsertFile FileName:=strFileLoc, Range:="", _ 'ConfirmConversions:=False, Link:=False, Attachment:=False End If End Sub I have experimented with selecting sections, but it always brings the Header and Footer. Does anyone know how to select the text within a section, meaning section(1) line 1 to last line of section? Or another way of solving this problem? Your assistance is appreciated, Mark Tag: find matching format Tag: 109599
  - 4
    - Access Word through a database I tried posting this yesterday but for some reason was unsuccessful so am trying again. I'm not sure this can be answered in this discussion group but need to start somewhere. We have an internal database that we use for recruitment. We would like to be able to plug in a Word document name and have the database search for that document (there are many) and retrieve certain info within that Word document. Is this possible? Has anyone heard or done this? If so, any direction would be greatly appreciated. Thanks for your help. Tag: find matching format Tag: 109597
  - 5
    - Validate Form Field Results In Word 2003, I have created an evaluation form which has several separate tables for each area being evaluated. The score of each area is entered into a form field. There are 13 fields, each having its own bookmark name; score1, score2, score3, etc. The user is to enter a score between 1 and 3 or leave it blank. To validate the fields are blank or not greater than 3, I have written this code; If ActiveDocument.FormFields("score1").Result > 3 Then MsgBox "The score must be between 0 and 3.", vbCritical, "Score Check" ActiveDocument.Bookmarks("score1").Range.Fields(1).Result.Select End If It has two problems; 1. It gets a type mismatch error if the field is blank. I am having trouble figuring out how to checking for NULL fields. 2. Rather than repeat the code 13 times, I would like the code to loop through all the score fields. Any help on this would be greatly appreciated. -- Charlie Tag: find matching format Tag: 109595
  - 6
    - Application.UserName retrieves wrong username / where does it get its data? Hi, Does anyone know where Application.UserName retrieves its data? When I entered the firm my Windows UserID was ABC Later they changed it to XYZ Everywhere in Windows I can see my user-ID is XYZ (eg in documents and settings and of course when logging on/off) However, when I run "?Application.UserName" in the immediate window, VBA retrieves my old user-ID ABC instead of XYZ. Also, when I create a new file and lok at properties. The user-ID ABC is shown. Where should I look to fix this? Thanks! -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200801/1 Tag: find matching format Tag: 109581
  - 7
    - Delays in Word We are networked through a VPN tunnel to a server located in a different city. Early in the day, Word works great. As the day goes on and especially at the end of the day, our system slows way down, and Word becomes almost non-responsive. It only happens when we are using Word. Internet, Outlook, everything else seems to be okay. It's almost as if there is a temporary file somewhere that is full and bogging everything down. The delays are excruciating! Any help would be greatly appreciated. Tag: find matching format Tag: 109569
  - 8
    - Save As .doc from a .txt Is there a way to save a word document that is currently a .txt to a .doc in VBA? We need it to not specify a filename so that the code can be repeated no matter what the filename is. Is there a way to do this? Tag: find matching format Tag: 109568
  - 9
    - Macros in Global Templates Hi, I want to create some macros that will be available to every document in Word whether it is a new document or an existing one. I have followed the article below, but my macros are only available by opening the template. The only way to make the macros available is to import them into the normal.dot template. http://office.microsoft.com/en-us/word/HA010872941033.aspx Does anyone have any help for this? Chris. Tag: find matching format Tag: 109565
  - 10
    - Convert Word Tables to Excel Hi, I am trying to write a macro to convert some of my word table to excel. The code I am using is below. Could anyone suggest how to convert to excel? Also, the code is picking up from a single table. I want it to pick up from consequent tables as well. How do I do that? Sub MergeTables() ' ' MergeTables Macro ' Macro created 1/18/2008 by PENNDOT ' Dim aDoc As Document 'Dim aDoc As Excel Dim SrcDoc As Document 'Dim SrcDoc As Excel.Application Dim tbl1 As Table Dim tbl2 As Table Dim Tbl1Rng As Range Dim Tbl2Rng As Range Dim A As Integer Dim B As Integer Dim C As Integer Dim D As Integer Dim MyText$ Set aDoc = ActiveDocument Set SrcDoc = ActiveDocument 'Set SrcDoc = GetObject(, "Excel.Application") Set tbl1 = aDoc.Tables(1) Set tbl2 = aDoc.Tables(2) Set SrcDoc = Documents.Add SrcDoc.Range.InsertAfter _ "Scenario,Description,Step,Action,Results" & vbCr 'First Row For A = 1 To 2 Set Tbl1Rng = tbl1.Cell(A, 2).Range 'Remove end of cell marker Tbl1Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl1Rng Next 'Remove first comma MyText$ = Mid(MyText$, 2, Len(MyText$)) For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(1, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next SrcDoc.Range.InsertAfter MyText$ & vbCr ' Row 1 'Subsequent rows For B = 2 To 4 MyText$ = "," For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(B, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next MyText$ = Mid(MyText$, 2, Len(MyText$)) SrcDoc.Range.InsertAfter "," & MyText$ & vbCr Next Set aDoc = Nothing Set Tbl1Rng = Nothing Set Tbl2Rng = Nothing With SrcDoc.Range .ConvertToTable "," End With End Sub Tag: find matching format Tag: 109564
  - 11
    - Macros in Global Template Hi, I am trying to make some macros available to all documents created or opened in Word. I have followed the article below, but when I open a new document the macros are not present. In order to get the macros to run I have to import them into the normal.dot template. http://office.microsoft.com/en-us/word/HA010872941033.aspx Does anyone have any help for this. Chris. Tag: find matching format Tag: 109563
  - 12
    - VBA; Create document based on template in Word2007 Previously versions(Word 2003), i developed VBA solutions for HTMLTables that were transferred to word documents based on specific templates. Now, in the docx-format of Word 2007 i don't get this to work. Anyone have expericence to this? Tag: find matching format Tag: 109562
  - 13
    - =?Utf-8?B?a3VsbGFuxLFjxLEgZXJpxZ9pbSBheXLEsWNhbMSxa2xhcsSx?= bazÄ± dosyarÄ±m bilgisayarÄ±ma format atÄ±ldÄ±ktan sonra aÃ§Ä±lmÄ±yor kullanÄ±cÄ± eriÅ?im ayrÄ±calÄ±klarÄ±na sahip deÄ?il diye (fakat Ã¶nceden dosyanÄ±n Ã¼zerine saÄ? tÄ±klatÄ±p Ã¶zelliklerden geliÅ?miÅ? ordanda veriyi korumak iÃ§in Å?ifrele iÅ?aretlenmiÅ?ti) Tag: find matching format Tag: 109561
  - 14
    - Word to Excel Table Conversion Hi, Below is the code to convert word tables to word. But I am trying to convert them into Excel. I have not been successful so far. Can somebody tell me where I am goign wrong or how to do it. Sub MergeTables() ' ' MergeTables Macro ' Macro created 1/18/2008 by PENNDOT ' Dim aDoc As Document Dim SrcDoc As Document Dim tbl1 As Table Dim tbl2 As Table Dim Tbl1Rng As Range Dim Tbl2Rng As Range Dim A As Integer Dim B As Integer Dim C As Integer Dim MyText$ Set aDoc = ActiveDocument Set SrcDoc = ActiveDocument Set tbl1 = aDoc.Tables(1) Set tbl2 = aDoc.Tables(2) Set SrcDoc = Documents.Add SrcDoc.Range.InsertAfter _ "HD2,HD2,HD2,HD2,HD2" & vbCr 'First Row For A = 2 To 3 Set Tbl1Rng = tbl1.Cell(A, 2).Range 'Remove end of cell marker Tbl1Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl1Rng Next 'Remove first comma MyText$ = Mid(MyText$, 2, Len(MyText$)) For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(1, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next SrcDoc.Range.InsertAfter MyText$ & vbCr ' Row 1 'Subsequent rows For B = 2 To 4 MyText$ = "," For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(B, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next MyText$ = Mid(MyText$, 2, Len(MyText$)) SrcDoc.Range.InsertAfter "," & MyText$ & vbCr Next Set aDoc = Nothing Set Tbl1Rng = Nothing Set Tbl2Rng = Nothing With SrcDoc.Range .ConvertToTable "," End With End Sub Thank You Tag: find matching format Tag: 109556
  - 15
    - Convert Word tables to Excel Hi, Below is the code to convert word tables to word. But I am trying to convert them into Excel. I have not been successful so far. Can somebody tell me where I am goign wrong or how to do it. Sub MergeTables() ' ' MergeTables Macro ' Macro created 1/18/2008 by PENNDOT ' Dim aDoc As Document Dim SrcDoc As Document Dim tbl1 As Table Dim tbl2 As Table Dim Tbl1Rng As Range Dim Tbl2Rng As Range Dim A As Integer Dim B As Integer Dim C As Integer Dim MyText$ Set aDoc = ActiveDocument Set SrcDoc = ActiveDocument Set tbl1 = aDoc.Tables(1) Set tbl2 = aDoc.Tables(2) Set SrcDoc = Documents.Add SrcDoc.Range.InsertAfter _ "HD2,HD2,HD2,HD2,HD2" & vbCr 'First Row For A = 2 To 3 Set Tbl1Rng = tbl1.Cell(A, 2).Range 'Remove end of cell marker Tbl1Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl1Rng Next 'Remove first comma MyText$ = Mid(MyText$, 2, Len(MyText$)) For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(1, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next SrcDoc.Range.InsertAfter MyText$ & vbCr ' Row 1 'Subsequent rows For B = 2 To 4 MyText$ = "," For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(B, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next MyText$ = Mid(MyText$, 2, Len(MyText$)) SrcDoc.Range.InsertAfter "," & MyText$ & vbCr Next Set aDoc = Nothing Set Tbl1Rng = Nothing Set Tbl2Rng = Nothing With SrcDoc.Range .ConvertToTable "," End With End Sub Thank You Tag: find matching format Tag: 109555
  - 16
    - Word to Excel Table conversion Hi, I am trying this document to convert my tables from Word to Excel. But I am not able to do it so far. I have the code to convert from word to word given below. Can anyone help me with the conversion of this from word to excel. i have given the code below. Sub MergeTables() ' ' MergeTables Macro ' Macro created 1/18/2008 by PENNDOT ' Dim aDoc As Document Dim SrcDoc As Document Dim tbl1 As Table Dim tbl2 As Table Dim Tbl1Rng As Range Dim Tbl2Rng As Range Dim A As Integer Dim B As Integer Dim C As Integer Dim MyText$ Set aDoc = ActiveDocument Set SrcDoc = ActiveDocument Set tbl1 = aDoc.Tables(1) Set tbl2 = aDoc.Tables(2) Set SrcDoc = Documents.Add SrcDoc.Range.InsertAfter _ "HD2,HD2,HD2,HD2,HD2" & vbCr 'First Row For A = 2 To 3 Set Tbl1Rng = tbl1.Cell(A, 2).Range 'Remove end of cell marker Tbl1Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl1Rng Next 'Remove first comma MyText$ = Mid(MyText$, 2, Len(MyText$)) For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(1, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next SrcDoc.Range.InsertAfter MyText$ & vbCr ' Row 1 'Subsequent rows For B = 2 To 4 MyText$ = "," For C = 1 To 3 Set Tbl2Rng = tbl2.Cell(B, C).Range Tbl2Rng.MoveEnd wdCharacter, -1 MyText$ = MyText$ & "," & Tbl2Rng Next MyText$ = Mid(MyText$, 2, Len(MyText$)) SrcDoc.Range.InsertAfter "," & MyText$ & vbCr Next Set aDoc = Nothing Set Tbl1Rng = Nothing Set Tbl2Rng = Nothing With SrcDoc.Range .ConvertToTable "," End With End Sub Tag: find matching format Tag: 109554
  - 17
    - Need help, please, moving text from one table range to another I am trying to move the contents of a table in one document into the cells of a larger table in a second document. The line doc2.Range(Start:=tbl3.Cell(13, 1), End:=tbl3.Cell(18, 4)) = tbl2.Range gives me a "Type Mismatch" error. How can I make this happen? Ed Tag: find matching format Tag: 109553
  - 18
    - Problem modifying document with two similar styles: "1.1.1 Heading3" The document has two styles: "1.1.1 Heading3" and "1.1.1 Heading3 + Auto" When I modify the font color of Heading 3 Style using vba, only one of the Heading3 styles viz. "1.1.1 Heading3" ie. the one without the "+Auto" gets modified. The "1.1.1 Heading3 + Auto" remains unchanged. I tried to replace "1.1.1 Heading3 + Auto" with "1.1.1 Heading3" using Find and Replace Dialog Box. But the "Find in Style" box does not list the "1.1.1 Heading3 + Auto" style. Also, when I try Format-->Style--> Modify-->, the "1.1.1 Heading3 + Auto" does not appear in the "Pick Formatting to apply" box where all styles are listed: only the "1.1.1 Heading3" is listed. Basically, I have to get rid of the "+Auto" in the style. (How did the +Auto come in the first place? : when I hold the mouse over the style, it says Font Color: Auto). I am working on a fairly long document and need to automate the task with vba Please help. Thanks in Advance, Raj Tag: find matching format Tag: 109546
  - 19
    - Get Word Window Handle? I have some useful code (incl declarations into user32) for checking keyboard events but it needs Word's Window Handle (Word 2002) - Excel 2002 has Application.hWnd but there's nothing like that for Word alas. Anyone know how to do this in VBA? (example would be apreciated) Thanks Julian -- Julian I-Do-Stuff Some Vista stuff, but mostly just Stuff at http://berossus,blogspot.com Tag: find matching format Tag: 109537
  - 20
    - Oddity with Field Update in a protected form Table To see this issue create a single row two column table and insert text formfield in the first cell and and a REF to that formfield in the second cell. Protect the document and add some text to the formfield. Run this code: Sub DumbfoundedI() Dim oTbl As Table Set oTbl = ActiveDocument.Tables(1) MsgBox oTbl.Range.Fields.Count MsgBox ActiveDocument.Fields.Count oTbl.Range.Fields.Update The message box proves that there are two fields in the table and in the activedocument yet the REF field doesn't update. Does anyone know why? However, if I run either of the following procedures the REF field does update: Sub DumbfoundedII() ActiveDocument.Fields.Update End Sub or Sub DumbfoundedII() Dim oTbl As Table Dim oFld As Field Set oTbl = ActiveDocument.Tables(1) For Each oFld In oTbl.Range.Fields oFld.Update Next oFld End Sub or: Sub DumbfoundedIV() Dim oTbl As Table Dim oRng As Range Set oTbl = ActiveDocument.Tables(1) Set oRng = oTbl.Range oRng.Start = oRng.Start + 1 oRng.End = oRng.End + 1 oRng.Fields.Update End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: find matching format Tag: 109533
  - 21
    - Easy way to remove commas Hi, I have a macro that calculates differenct columns and rows. The results have commas in the values such as 4,555. I don't want the comma in the values. Is there an way to remove the commas from values in a range of columns and rows? Thanks Tag: find matching format Tag: 109530
  - 22
    - Split Long Macro Hi, I have a macro which will not run because it is to large. How do I split the macro into two macros so that after the first macro the second automatically runs. Could you please help me with the code. My macros are simply named Macro 1 and Macro 2. Thank you Tag: find matching format Tag: 109528
  - 23
    - How to replace words on the hyperlinks Hello. I have one document where there is many words as hyperlinks. I need to replace these words on the direct links (e.g., instead of Google must be the link http://google.com). How I can do it? Thanks. Tag: find matching format Tag: 109519
  - 24
    - mailmerge macro Hi everybody! I want to create a macro for mail merge that will allow me to open the databace and peek the people I wan't to mail to, and only then - continue to execute the mailed letters. I've tried to record a macro by doing it step by step in word itself but this macro saves the people I chose and does not allow me to change my selection the next time I run this macro... I hope someone will be able to help me do that... Tag: find matching format Tag: 109518
  - 25
    - Moving location of document's attached template In our organisation we load a global template. This has a lot of code and User Forms in it. We also have 1000's of documents on our intranet based on a template which users download to review and update which uses code in the document template. All documents are in this path C:\Program Files\Microsoft Office\Templates\COS - General For operational reasons (moving to AD from Novell), we need to now load these templates into C:\Documents and Settings\senglish\Application Data\Microsoft\Templates\COS - General This means that a toolbar button specific to that template, is not available nor is any code. We can overcome it by giving them a button on the menu bar on the global template (called Check Template) but it would be nice to do it more automatically. Is there anywhere I can put code in the global template that runs every time a document is opened please? ...or any other suggestions to address this problem. Thanks Stephen Tag: find matching format Tag: 109517
- Next
  - 1
    - Form Validation I need to create a Word form that will restrict text fields to allow letters only; and numeric fields to allow numbers only. I'm using Word 2003. Thanks. Tag: find matching format Tag: 109515
  - 2
    - hyperlinks I have a large docx file that has hyperlinks in it. They link to a doc file. How can I change all the existing links to have them connect to a html file? Richard Tag: find matching format Tag: 109512
  - 3
    - VBA Equivelent of CalculateOnExit Does anyone know a VBA equivalent command for the actions that take place when the FormField Options Dialog "CalculateOnExit" is checked? I am working on a fairly lengthy piece of code that involves several formfields using "CalculateOnExit" and a fairly complex OnExit macro. The problem I am having is that calculation fields are not being updated due to the actions of the OnExit macro. The calculations remain static after the OnExit macro completes. The only way the static calculations will update is when I exit a subsequent field that has CalculateOnExit and no OnExit routine. I am looking for a command to run at the end of my OnExit macro that will command the formfields to calculate like the CalculateOnExit option does. Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: find matching format Tag: 109507
  - 4
    - Reverse the order in a ListBox I have the following macro that loads my ListBox1. When it initializes it looks like this: 0 \John Smith \01/01/08 \ and so on 1 \Jane Doe \01/10/08 \ and so on 2 \Bob Jones \01/12/08 \ and so on My question is can the order be reversed so it looks like this: 2 \Bob Jones \01/12/08 \ and so on 1 \Jane Doe \01/10/08 \ and so on 0 \John Smith \01/01/08 \ and so on If it canâ??t be done can you tell it to highlight the last one in the list instead of the first one when the form opens? Private Sub UserForm_Initialize() On Error GoTo Err_Handler Dim myArray Dim pValue As String pValue = ActiveDocument.Variables("varC") myArray = Split(pValue, "|") With ListBox1 .List = myArray .ListIndex = 0 End With Exit Sub Err_Handler: If Err.Number = 5825 Then MsgBox "File does not exists Yet" Unload Me End Sub Tag: find matching format Tag: 109506
  - 5
    - Populate Html Form with Excel or DB file - Is this possible? I am trying to populate a 3rd party html form with data from an Excel file or a Database file. The form has several text input forms that I manually populate. Is it possible to automate this process with VBA etc.? I am a Beginner in VBA! Any code, examples, links, suggestions is greatly appreciated. TIA Jman -- --------------------------------- --- -- - Posted with NewsLeecher v3.7 Final Web @ http://www.newsleecher.com/?usenet ------------------- ----- ---- -- - Tag: find matching format Tag: 109502
  - 6
    - microsoftofficecalander2007 I try and make a foot note on my calendar and a sign pops up and says could not save I'm stumpted? Tag: find matching format Tag: 109501
  - 7
    - Word has stopped working correctly Message When I open my word 2007 program this error comes up. Microsoft Office Word has stopped working. A problem caused the program to stop working correctly. Windows will close the program and notify you if a solution is available. Does anyone have a solution? Tag: find matching format Tag: 109499
  - 8
    - Document map zoom n Word 2007, I can zoom the document map by pressing SHIFT-F6 and then using the zoom bar at the bottom of the Word window. However, the macro recorder will not record this action. How can the action be done programmatically, i.e. in VBA ? Tag: find matching format Tag: 109498
  - 9
    - macro to copy clipboard to autocorrect entry, Word 2003 I type out medical reports on a lot of different patients, some of whom have odd spellings for their names. I have been putting the name for each report into an autocorrect entry. For example, if the patient's name is "Throckmorton," I might assign that to "uu." Then instead of typing "Throckmorton" and maybe forgetting the spelling, I just type "uu." I do this for each report, always using the same autocorrect shortcut "uu." What I would like to do is to be able to highlight or select the name when it first appears and then run a macro which automatically assign it to "uu." I have experimented with the macro recorder by highlighting the name, hitting <ctrl><C>, and then opening up the autocorrect dialog box and substituting the old patient name with the new one, but Word seems to put in the literal. There has to be some way of getting Word to paste the clipboard contents into autocorrect, perhaps via some kind of variable assignment. Regards, Alan Tag: find matching format Tag: 109492
  - 10
    - DropDown Field 25 Item Limit I have been meaning to post a Tips page on this subject on my web page for quite a while and so I dusted it off and finished it up today. I departed somewhat from the Microsoft KB Article 19856 suggestion to use a ComboBox and I used a ListBox instead because a formfield dropdown doesn't function like a combobox. The method lets you use one userform and on entry macro for as many textbox fields you want to use as for dropdown entry. It also sets the value in the dropdown to match the current value in the textfield. As always, I appreciate in constructive comments or suggestions for improvement. http://gregmaxey.mvps.org/FormField_UserForm_ListBox.htm -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: find matching format Tag: 109487
  - 11
    - calendar in word I have created a calendar for my form, however it works well in a new document and not in my form. I belive it has something to do wtih the fact that my form has several protected areas - the areaas where the date is to go gives me a VB system error message &H80004005 (-2147467259) Unspecified error. I think this is realted to the areas or sections that are protected although none of the sections where the calendar is to populate is protected. How can I get this to work properly? I want the to place the macro where all the dates are to go on this form. -- Thanks,, Kim Tag: find matching format Tag: 109486
  - 12
    - Textboxes and their influence on the behaviour of ranges Hi, I want to be able to parse the contents of a document, and possibly change a single word in the text. Unfortunately inserting textboxes seem to have strange effects on the document. If I have a document that has this content: "Hello world" I get this: ActiveDocument.Range.Text is "Hello world" ActiveDocument.Range(7, 12).Text is "world" However, if I add a Text box in front of "Hello world", so the document looks like this: --- BOX Goodbye world BOX_END Hello world --- I get this: ActiveDocument.Range.Text is "\x01\x15Hello world" ActiveDocument.Range(7, 12).Text is " \\* " ActiveDocument.Range(9, 14).Text is "\\* ME" What gives? Sincerely, Anders S. Johansen Tag: find matching format Tag: 109477
  - 13
    - Help with 'Save' command in VBA Hello, I am trying to create a macro that saves a file after the file has been printed to avoid the prompt which typically appears onscreen which asks the user if they want to save the current open file. As you know, Word will prompt you to save a file that you had already saved if you attempt to close the file after it has been printed. Printing the file seems to store printer data into the file which of course would technically count as a changed file, subsequently prompting the user to save changes. I try to avoid this message prompt with the â??ActiveDocument.Saveâ?? command at the last line of the subroutine below. The problem is that it does not seem to work. I am still prompted to save anyway even when saving after programmatically invoking the print command. Can someone shed some light on this? Thanks! If ActiveDocument.Saved = True Then Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 ActiveDocument.Save End If Ellen Tag: find matching format Tag: 109475
  - 14
    - Bullets and Numbering disabled in Section? Hi, My name is Anthony, and I'm currently using Windows XP Service Pack 2. I'm also using Word 2003. I created a document with Text form fields in section 1. I created a continuous section break to create section 2, and I also clicked Tools|Protect Document|Check marked, "Allow only this type of editing in the document:"| Chose "Filling in forms" from the pull down menu| Clicked "Select sections"|and unchecked Section 2 regarding Protection. Afterwards, I clicked "Yes, Start Enforcing Protection". Now section 1 is uneditable, and users can only enter fields in the text form fields. I also see Formatting options such as Bullets and Numbering grayed out which I expect. But when I got to section 2, I don't get all the formatting options from the command menu (File|Edit|View|Insert|Format|etc.) which I expected. However, Bullets and Numbering is available from the Standard toolbar and it works fine on Section 2. What's causing this issue, and how can I get back the formatting items that are grayed in Section 2? Thanks again, Anthony Catbagan Tag: find matching format Tag: 109474
  - 15
    - Going to specific cells in a table I would like to know how I can program into a macro the ability for the cursor to goto a specifc cell in a table. For example cell F5. Thank you Tag: find matching format Tag: 109469
  - 16
    - SetMyTemplate problem I have a some autotexts stored in a template which is currently saved in c:\word startup\firm.dot. Some of the currently language is: If frmreplacepi.txtattyinitials = "agq" Then Set MyTemplate = Templates("c:\word startup\firm.dot") MyTemplate.AutoTextEntries("/agqpi").Insert _ Where:=Selection.Range, RichText:=True I need to change the location of the firm.dot to C:\Documents and Settings\USERNAME\Application Data\Microsoft\Word\startup, and then adjust the language to read: If frmreplacepi.txtattyinitials = "agq" Then Set MyTemplate = Templates("C:\Documents and Settings\USERNAME\Application Data\Microsoft\Word\startup\firm.dot") MyTemplate.AutoTextEntries("/agqpi").Insert _ Where:=Selection.Range, RichText:=True What do I use instead of "username" in this path so the macro works on every pc, WITHOUT having to add the name of each person to this path? I've tried %username%, etc, but no luck so far. THANKS SO MUCH! Kurt Tag: find matching format Tag: 109467
  - 17
    - Accessing Global Template Objects Hi, how can i access classes, autotext entries, etc. of a global template (like normal.dot) within a macro. public methods are accessible through the Application.Run "MyGlobalTemplate.MyMethod" command. Is it necessary to add a method for each class, autotext, etc. that return the object? thanks, Matthias Tag: find matching format Tag: 109461
  - 18
    - Macros for All users in a lab I have a macro that will automatically change the settings in the envelope wizard for our current setup of printers. the printer with envelops is different than the default printer used in the lab. Anyway, How can i set it up so when a users logs into the computer and uses word, it automatically puts this macro into action? I created a template with the macro in it so it also changes the font automatically but when i put it in the startup folder, the security settings don't allow the macro to run. How can i get around this? I can change security on the computers for macros, but then need to know how to change it for every user on the computer and new users to who sign in as well. Thanks Tag: find matching format Tag: 109450
  - 19
    - Script Editor Disabled in particular Word document Word 2003 SP2, Windows XP. I have a user who is able to open Microsoft Script Editor in any but one document. In this document the functionality is not there. She added a button to her toolbar to launch it and you can see that it is dimmed. Naturally she NEEDS to use it with this document, as it contains protection she wants to remove. I have tested this on my own PCs and have verified that it is supposed to work. Why is this not working in this particular document, and what can we do to get it working for her? Tag: find matching format Tag: 109447
  - 20
    - copying and pasting whilst preserving formatting i have microsoft 2002 i was trying to copy a blog article whilst preserving its formatting, into word. instead of showing the blog article as is, with its coloured text and its template, word simply copies the text and the pictures from the article without formatting. are there any options to allow word to allow the formatting to show? or am i just using an old version which doesnt support the preservation of formatting? thanks Tag: find matching format Tag: 109445
  - 21
    - form in if i'd like to do the following: { IF (bookmark1}="OTHER" "{FORMTEXT}" "{FORMDROPDOWN}"} i know the condition is being evaluated but in fill in mode the cursor skips the location. do i have a syntax problem Tag: find matching format Tag: 109442
  - 22
    - If not found ignore Hello from Steved Please how can I tell the below code that if "L [0-9 ]" is not found ignore and goto "R [0-9 ]" Thankyou. Selection.Find.ClearFormatting With Selection.Find .Text = "L [0-9 ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=2 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=", " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Selection.Find.ClearFormatting With Selection.Find .Text = "R [0-9 ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=2 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=", " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Tag: find matching format Tag: 109441
  - 23
    - Tables Selective Merge Hi I am trying to write a macro for a word problem. I have 2 tables like below: Heading 1 Heading 1 Name Abcdef abcdef abcdef abcdef Data Data Data Data 1 Xyz Juhdfjjknb 2 Def Dijwhcjco 3 Hgt Jascnjxnksjnx 4 Wxy Osuhchc ciwjqsdioj I have to take the first 2 rows of the first table and merge it with the first 3 columns of the second table in a new table with 5 columns. This is tobe repeated 400 times with tables with similar data. The final table should be like below: Heading 2 Heading 2 Heading 2 Heading 2 Heading 2 Name Abcdef abcdef abcdef abcdef 1 Xyz Juhdfjjknb 2 Def Dijwhcjco 3 Hgt Jascnjxnksjnx 4 Wxy Osuhchc Any ideas about how this could be done? Giri Tag: find matching format Tag: 109439
  - 24
    - One ComboBox for several Bookmarks In my form (table style) I keep re-creating my dropdown list for each bookmark how can I use the same drop down list for each different bookmark Tag: find matching format Tag: 109437
  - 25
    - Formfields in Tables (VBA) I am trying to find out the required VBA commands to establish whether specific formfields are present in specific table cells or any command that identifies whether any cell contains a formfield. Any help please? Tag: find matching format Tag: 109432

I am trying to use the find object to find text matching format of
other text.

I thought I could do that just by (for example)

selection.find.font = activedocument.range(12,13).font

This does not find anything. It does not find the characters I used as
a basis for identifying the font to search for.

With Selection.Find
.ClearFormatting
.Font = ActiveDocument.Range(12, 13).Font
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
.Execute
If Not .Found Then
MsgBox "Find fails"
End If
End With

On the other hand, if I set selection.find.font.bold = true, or
something of the kind, it will find bolded text.

Is it possible to just set a font on the find object from some other
font object, and then search for matching formats?

Cheers -- Chris

Top

RE: find matching format by HelmutWeber

HelmutWeber
Thu Jan 24 04:52:01 PST 2008

Hi Duas,

IMHO, you can only search for specific font.properties,
not for something that matches a font.object in all details.

However, the following might help:

Sub Macro33ab()
Dim rTmp As Range
Set rTmp = Selection.Range
Dim oFnt As Font
Set oFnt = Selection.Range.Font
rTmp.Collapse direction:=wdCollapseEnd
With rTmp.Find
.Font.Bold = oFnt.Bold
.Font.Name = oFnt.Name
.Font.Color = oFnt.Color
If .Execute Then
rTmp.Select
End If
End With
End Sub

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

Top

Re: find matching format by Duas

Duas
Mon Jan 28 00:08:15 PST 2008

Thanks very much! -- Chris

Top