Macros in Global Template

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Macros in Global Template Tag: 109562
  - 2
    - =?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: Macros in Global Template Tag: 109561
  - 3
    - 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: Macros in Global Template Tag: 109556
  - 4
    - 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: Macros in Global Template Tag: 109555
  - 5
    - 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: Macros in Global Template Tag: 109554
  - 6
    - 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: Macros in Global Template Tag: 109553
  - 7
    - 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: Macros in Global Template Tag: 109546
  - 8
    - 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: Macros in Global Template Tag: 109537
  - 9
    - 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: Macros in Global Template Tag: 109533
  - 10
    - 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: Macros in Global Template Tag: 109530
  - 11
    - 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: Macros in Global Template Tag: 109528
  - 12
    - 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: Macros in Global Template Tag: 109519
  - 13
    - 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: Macros in Global Template Tag: 109518
  - 14
    - 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: Macros in Global Template Tag: 109517
  - 15
    - 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: Macros in Global Template Tag: 109515
  - 16
    - 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: Macros in Global Template Tag: 109512
  - 17
    - 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: Macros in Global Template Tag: 109507
  - 18
    - 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: Macros in Global Template Tag: 109506
  - 19
    - 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: Macros in Global Template Tag: 109502
  - 20
    - 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: Macros in Global Template Tag: 109501
  - 21
    - 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: Macros in Global Template Tag: 109499
  - 22
    - 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: Macros in Global Template Tag: 109498
  - 23
    - 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: Macros in Global Template Tag: 109492
  - 24
    - 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: Macros in Global Template Tag: 109487
  - 25
    - 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: Macros in Global Template Tag: 109486
- Next
  - 1
    - 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: Macros in Global Template Tag: 109477
  - 2
    - 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: Macros in Global Template Tag: 109475
  - 3
    - 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: Macros in Global Template Tag: 109474
  - 4
    - 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: Macros in Global Template Tag: 109469
  - 5
    - 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: Macros in Global Template Tag: 109467
  - 6
    - 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: Macros in Global Template Tag: 109461
  - 7
    - 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: Macros in Global Template Tag: 109450
  - 8
    - 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: Macros in Global Template Tag: 109447
  - 9
    - 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: Macros in Global Template Tag: 109445
  - 10
    - 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: Macros in Global Template Tag: 109442
  - 11
    - 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: Macros in Global Template Tag: 109441
  - 12
    - 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: Macros in Global Template Tag: 109439
  - 13
    - 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: Macros in Global Template Tag: 109437
  - 14
    - 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: Macros in Global Template Tag: 109432
  - 15
    - Get currently selected item in InsertCrossReference dialog Hi, is it possible to retrieve the reference number of the item that is currently selected in the InsertCrossReference dialog? If I use the macro recorder, the created macro contains the reference number to the item that was selected at the time of the macro creation (e.g. ReferenceItem:="34"). But I need a macro where I can get a reference to the currently selected item in the list. Furthermore is there a method that returns the reference number of an item? The GetCrossReferenceItems method only returns a text string containing the number and description of an item. thanks, iS Tag: Macros in Global Template Tag: 109431
  - 16
    - combobox list I'm a rookie at VBA How do I show the symbol " within a drop down list the symbol is a double quote I'm trying to show it as inches without typing the word inch after each number Tag: Macros in Global Template Tag: 109429
  - 17
    - Form field depencency and documents with equal contents Hi, I've been making a form. I've got three questions. 1. Is it possible to let a form field use a kind of if statement? For instance: there is a checkbox and a drop-down form field. Can the text in a text form field be filled in automatically (from a predescribes set) based on the input of the checkbox and the drop-down field? Lets stay is the checkbox is checked and the drop down says <1000 then the text box displays "A". If the checkbox is checked and the drop-down states 'not interesting', the text field displays "Z". When the Checkbox is unckecked and the drop-down states 'not interesting', the text field displays "10". Or a different example. Thet text field 3 equals the higher number of text1 and text2. i.e. text1=2, text2=10 => text3=10 2. Is it possible to let the form field content depend on input in previous form text fields. For instance if 'form text field 1' is filled in with a number over 1000 the rest of the form (text, fields, contents of dropdown doxes) is different from when a number below 1000 would have been entered. 3. Is it possible insert the data from a form text field into the template of a different document. And to do this repeatedly between different source and destination files by users with only basic skills in using windows (for instance older people who use computers on daily basis, but do not have the flexibility to use advanced functions). For instance: I've got a form 1 with intake information and a form 2 used for further processing. Now I get information about several projects for which I fil in separate form 1's. Once these are filled in I pass them on to a second person who wants to fill out a form 2 per project. Some data is the same, I want the second person to be able to extract the data from form 1 into form 2. It would be great if ou could help me along. I'm a intermediate computer user. I use 'advanced functions' of word and know a little about programming. Currently using Word 2003. Thanks, Maarten Tag: Macros in Global Template Tag: 109428
  - 18
    - Opening a document in SharePoint from Word Hi When Microsoft word 2007 is opened and the Open dialog box is opened, a user can navigate to My Network Places. From there, a SharePoint site can be selected and the appropraite document library can be opened to view files. A file can then be selected and opened. In my document library I have a created a new column. Can I change the view of this document library (seen from Microsoft Words open dialog) to include my custom column? Lucy Tag: Macros in Global Template Tag: 109426
  - 19
    - Dynamic display of data from SQL to excel Hi All, I am very new to VB and macros. I need your help in completing the tasks assigned to me. Please help. I have been reading many webpages and groups in vain. The following are the tasks i need to accomplish 1. In excel open a userform with a combo box that lists the tables in the DB. (If it is not possible I dont mind hardcoding it) 2. When user selects a table, another combo should select a list of columns in the table. 3. The user should be able to multiselect the columns and then the values should populate in excel. If there is anyother way to do this, pls give your inputs. Thanks Priya Tag: Macros in Global Template Tag: 109425
  - 20
    - can I put in a timezone toggle button if I want to toggle all times in a document between eastern and central, can I put in a button at the top of a word document to do that? Tag: Macros in Global Template Tag: 109414
  - 21
    - I open word 2007 document the ribbon will not apear I have Office Home and Student 2007 I open adocument the ribbon is not above to use the document also says non-commerical use Tag: Macros in Global Template Tag: 109413
  - 22
    - How to determine if a .doc file is already open? Hello, friends, This may not belong here, but I could not find the proper group. In c#.net 2005, we use office interop to start different .doc files. The source code are as the follows: object fileName = fullPathFileName; object newTemplate = false; object docType = 0; object isVisible = true; if (wordApp != null && wordApp.Documents != null) { Microsoft.Office.Interop.Word.Document doc = wordApp.Documents.Add(ref fileName, ref newTemplate, ref docType, ref isVisible); wordApp.Visible = true; } The above worked for the first document opening without problem. What we want to do is: We need to check if the next given fullFileName is already open. If yes, we just bring it to front, rather than to open a duplicate one. Otherwise, open it using above code. The source code for this checking are like the follows: if (wordApp != null) { foreach (Microsoft.Office.Interop.Word.Document doc in wordApp.Documents) { if (String.Compare(doc.FullName, fullPathFileName, true) == 0) { doc.Activate(); return; } } } However, we found the doc.FullName had the value Document1 for the first open .doc file, therefore, failed the checking, and always caused a previously given fullFileName being opened again. Any ideas, reference paper or snippet? Thanks a lot! Tag: Macros in Global Template Tag: 109410
  - 23
    - how to add and validate a field in word from an application? Tag: Macros in Global Template Tag: 109406
  - 24
    - UserForm field fill-in issue I have a combobox on a UserForm that I want to use to "push" data to the various fields. The problem I see is that no matter what I use- the AfterUpdate event or the OnChange event, the fields don't get filled until the enduser clicks on the form. How can I get the form to paint itself automatically without this user input? Here's the comboboxx code: Private Sub PTNAME_AfterUpdate() [DOB] = [PTNAME].Column(2) [FNAME] = [PTNAME].Column(1) [ACCT] = [PTNAME].Column(3) [LNAME] = [PTNAME].Column(0) End Sub Any ideas? Tag: Macros in Global Template Tag: 109401
  - 25
    - Reference Template in a UNC location Hi there, i cannot create a reference to a common template stored at a UNC location (\\srv\common\template.dot), instead the reference points to a temporary template on my local disk (...ApplicationData\.... \~w...dot). if i copy the same template to a local folder and reference it afterwards the reference works. is this a bug or a security issue? thanks, matthias Tag: Macros in Global Template Tag: 109400

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.

Top

Re: Macros in Global Template by Stefan

Stefan
Wed Jan 23 06:18:32 PST 2008

If you don't want the macros in normal.dot, put them in a custom template
and place that template in the Startup folder; it will then be loaded into
memory when Word starts. See also
http://word.mvps.org/faqs/customization/WhatTemplatesStore.htm.

Macros in other *.dot files will only be accessible for documents to which
the template is attached.

--
Stefan Blom
Microsoft Word MVP

"Kentucky" wrote in message
news:08615117-939C-4126-8FE3-65F76C1E4E44@microsoft.com...
> 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.

Top