Macro Names

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Making a New Document Active I have this code from an 'OK' button on a form which simply allows the user select to create a New Blank Document, or insert other types of files. The problem area is inserting the new blank document because I need to become the active document. So whatever other documents are open at the time, they need to remain open and go to the background, and the new blank document has to become active. Can anyone help with the correct code I need to use and where to use it? Thanks ======================================= Private Sub btnOK_Click() Dim Today As String, FirstInit As String, Name As String, Dir As String, ChangeDir As String Dim NewDoc As Byte ChangeDir = Me.lbxProfessionals.Value Today = " " FirstInit = ChangeDir Name = Application.UserInitials Order = " " Dir = "G:\" & ChangeDir & "\" MakeFileName Today, FirstInit, Order, Dir Name = Dir & Today & "_" & Name & Order & ".doc" Select Case Choice Case 0 Application.ChangeFileOpenDirectory "F:\TEMPLATES" Documents.Add Template:="Document", NewTemplate:=True Case 1 Case 2 Case Else End Select With Application.Dialogs(wdDialogFileSaveAs) .Format = wdFormatDocument End With If ActiveDocument.SaveFormat = wdFormatTemplate Then ActiveDocument.SaveAs FileFormat:=wdFormatDocument End If ActiveDocument.SaveAs FileName:=Name, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False Call CreateFooter Selection.WholeStory Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove Unload Me End End Sub ======================================= Thanks again Tag: Macro Names Tag: 86244
  - 2
    - Page number of endnote Hi, In Word VBA, how could i find out the page number of a endnote? thank you, Ruslan. Tag: Macro Names Tag: 86241
  - 3
    - Program with Borders in Style object (Word) Hi, I am not sure rather I post in the right newgroup. If not, can anyone tell me where I should post this question. Thanks. I have trying to write a program in C# which extracts all the formatting styles form a word document. However I got a problem with extracting paragpah borders defined for a style. I have defined a style called "Note[Deanger]", for this style, I have set the "Border Setting" to Box. When I run my program, I use the following codes to extract the border style: Word.Style style = wordDoc.Styles.Item("Note[Danger]"); border = style.Borders.Item(Word.WdBorderType.wdBorderTop); the above code does return the correct border object to me, however, the border does not contains any information about LineStyle, Color etc. Does aynone know why it is like this? the Word.WdBorderType.wdBorderRight, Word.WdBorderType.wdBorderLeft, Word.WdBorderType.wdBorderBottom all have the same problem. Tag: Macro Names Tag: 86232
  - 4
    - Stopping AutoClose macro I have put code in the AutoClose macro to check if a bookmark exists. If it doesn't I throw up an error messagebox. However, when they OK the message box, I want to cancel the autoclose so the document stays open. Exit Sub doesn't work. Any ideas please? Stephen Tag: Macro Names Tag: 86230
  - 5
    - replace unknown characters in a variable Hello - I used the following to set a variable equal to a whole document: WholeDocumentString = ActiveDocument.Sections(1).Range That works just fine... but I need to remove all non whitespace and all non-keyboard characters. I use this: WholeDocumentString = Replace(JavaScriptArray, Chr(9), " ") WholeDocumentString = Replace(JavaScriptArray, Chr(10), " ") WholeDocumentString = Replace(JavaScriptArray, Chr(13), " ") That works fine for linefeeds, carriage returns, and tabs. But there are still some unknown characters from a table. These characters occur where the table columns are located. How do I replace those with a space? -- Thanks, Mike Tag: Macro Names Tag: 86225
  - 6
    - Recording Data from a VBA macro Hi, I have a macro with many userforms and have some code that records whether each checkbox or optionbutton was selected. This data is then stored as a string called MIDATA and added to a text file (and then this text file is linked into an Access database) The problem I have is that if 2 people run the code at exactly the same file, the text file is ready-only. Is there a better way to record the data in a file that can be accessed by multiple people. My code at the moment is: ChangeFileOpenDirectory _ "J:\MACRO MI\" Documents.Open FileName:="MacroMI.txt" Documents("MacroMI.txt").Activate Selection.EndKey Unit:=wdStory Selection.TypeParagraph Selection.TypeText Text:=MIDATA If ActiveDocument.ReadOnly = False Then ActiveDocument.Save End If ActiveDocument.Close I have thought about having some 'other' text files that the code can go to if the main one is 'read-only', but this seems messey Thanks for any help or pointers. Tag: Macro Names Tag: 86220
  - 7
    - How do I prevent my anti virus program from deleting my documents Tag: Macro Names Tag: 86219
  - 8
    - Format a date using VBA Can anyone tell me how or point to something that shows me how to indicate the format I wish a date to appear in the document for a date obtained via input into a userform. I have various dates that need to appear in different formats within the document. thanks... -- singeredel (Julie) Tag: Macro Names Tag: 86209
  - 9
    - Inserting text at a specific point via VBA? I am trying to enter a name into set locations in my document. The document has [Insert Name Here] blocking the location out. I want to insert the name there, then have the document adjust the spacing in that area so there is not a large blank space if the name is short. Thanks! Tag: Macro Names Tag: 86205
  - 10
    - Retrieving Page Properties in a Protected Document Is there a way to programatically retrieve the page orientation on a protected document? I have a protected document. I need to obtain it's page orientation ie. portrait or landscape. Then my code changes the zoom to optimize viewing. When I try to programatically retrieve the page properties (to determine the page orientation) I get an error, stating that the page properties are unavailable because the document is protected. I would prefer NOT to unprotect then reprotect the document to resolve this. Thanks for reading. Stuart Sydney, AUSTRALIA Tag: Macro Names Tag: 86197
  - 11
    - Word 2000 Print Events Hi, I am using Visual Studio.net 2003 with Word 2000 to automate the printing of several documents. I have run into a problem where I need to close the current document after it has been printed, but the document is being closed before it has been sent to the printer (see code sample below). I really need some sort of AfterPrint event to clean up after the document has been printed, but the Word object model does not expose an AfterPrint event. Is there another event or property I could use which would be suitable for this? The only alternative I can think of is to introduce a pause of a few seconds to give the document time to spool. Any advice would be much appreciated. Code sample: mobjWord.ActiveDocument.PrintOut() ' Print letter mobjWord.ActiveDocument.Close(WdSaveOptions.wdDoNotSaveChanges) ' Close current document RaiseEvent DocumentClosed(Me, New System.EventArgs()) ' Raise event to client mobjWord.Quit(0,0) ' Close Word RaiseEvent Disposed(Me, New System.EventArgs()) Tag: Macro Names Tag: 86196
  - 12
    - use of "auto-correct" to speed up typing. As a lawyer, I use the auto-correct facility to speed up typing, by putting two or three letter abbreviations for much longer words or phrases, such as "ic" for "Information Commissioner", or "ccc" for the name of the current client I am doing some work for. It would be more useful if particular abbreviations could be confined to particular files or sub-directories, so that, say, the same abbreviation "ccc" could be used to mean something else when I was working on a different case whose documents I store in a different sub-directory. ---------------- 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=f31e5927-1efb-491d-b556-0dbfdc6865ec&dg=microsoft.public.word.vba.general Tag: Macro Names Tag: 86192
  - 13
    - Getting all the text from a set of inline shapes. Hi, I am having trouble finding a way to get the text from a set of inline shapes... I can do this no problem under powerpoint, but word's shape model appears to be different... (ie HasTextFrame is missing etc) When I have tried to use the range option I just get a null back... Has anyone else done this before (word2k3) For Each myPic in appWord.ActiveDocument.InlineShapes shapeText = ..... Next myPic Thanks in advance Simon Tag: Macro Names Tag: 86190
  - 14
    - How to close embedded workbook properly Hello! 1. I create new MS Word 2003 document. 2. Add reference to Excel. 3. Insert embedded Excel object. 4. Run the following code: Function OpenAndCloseExcel() Dim objWorkBook As excel.Workbook Dim objExcel As excel.Application ActiveDocument.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary Set objWorkBook = ActiveDocument.InlineShapes(1).OLEFormat.Object Set objExcel = objWorkBook.Application objWorkBook.Close objExcel.Quit End Function Function fails - error 1004, method 'close' of object '_workbook' failed. 5. I run the same function again, Excel objext already activated on step 4. Function does not fails, Excel removed from task manager. Could you, please, describe 1. Why function fails on step 4? 2. How to close embedded workbook & excel application properly? Thank you very much in advance. Tag: Macro Names Tag: 86187
  - 15
    - CoolBar or MacroX Code for Floating Toolbar? I'm writing utility for Word that needs to have a floating and dockable toolbar. A regular form won't do the trick because the gizmo is pretty much useless unless the user can edit his/her document while this toolbar either floats or is docked at the top. This toolbar will have a few buttons and a combo box from which the user will select what commands to run. I've used the Toolbar together with the ImageList ActiveX control extensively in regular VB 6, but I've never used the Coolbar control. I've skimmed MSDN and O'Reilly's VB Controls in a Nutshell, and it appears that you use the inside of the Coolbar to put whatever buttons you want to onto your floating toolbar, and that the Coolbar is what allows you to make your toolbar floating or docked. I have code from a previous VB project that contains subs that help the user to remove or add buttons to and from a Toolbar. So, is it a slam dunk that the best approach is for me to use the Toolbar, the ImageList, and the Coolbar for my VBA project? That's what I'm unsure about. First, I'd like to know if there are any gotchas when using ActiveX controls in VBA. I've only used them in regular VB. Second, I'm wondering if it's feasible to create this thing without any ActiveX controls. I searched the news group's archives for "floating toolbar" and found some code that creates a floating and dockable toolbar with what is intrinsically available in VBA. (I'm posting it at the end of this message.) I'm intrigued. Is it somehow possible to use this code I've found to programattically instantiate buttons and a ComboBox? If so, what MSDN/archive search/3rd party VBA material do I need to be reading up in so that I can get a solid understanding on how to do this? Or am I better off doing the Toolbar/ImageList/Coolbar thing? I appreciate any help offered. cheers, Tom The Code: Option Explicit Public Sub AutoExit() 'Runs whenever MacroX is unloaded as a global template, or when 'Word exits 'Removes the toolbar On Error Resume Next 'remove the toolbar if it is still there CommandBars("MacroXToolBar").Delete End Sub Public Sub AutoExec() 'Runs whenever MacroX is loaded as a global template 'Creates the MacroX toolbar Dim cbb As CommandBarButton On Error Resume Next 'delete the command bar in case it already exists CommandBars("MacroXToolBar").Delete 'create toolbar and add a button On Error GoTo 0 CommandBars.Add("MacroXToolBar").Visible = True Set cbb = _ CommandBars("MacroXToolBar").Controls.Add _ (Type:=msoControlButton, Before:=1) With cbb .Caption = "MacroX" .FaceId = 630 'a picture for the button, pick any one you like .OnAction = "SetUpMacroX" .Style = msoButtonIconAndCaption 'or choose just to display Caption End With End Sub Public Sub AutoOpen() 'Executes whenever MacroX is opened Call AutoExec End Sub Public Sub AutoClose() Call AutoExit End Sub Tag: Macro Names Tag: 86185
  - 16
    - word.basic Hello I need to modify an old program, which creates a .doc file, using the model "word.basic" (MS Word 95) instead of "word.application" But I can't find the properties or methods of that model. Today, the program is very simple and only inserts text: oWord = CreateObject("Word.Basic") ... ... oWord.Insert("Text......") But what I need is to align that text (Left, Center, Right, Justify) and make some other changes Thanks Tag: Macro Names Tag: 86175
  - 17
    - macro to change to another font I've used vba, but never with word. I usually work with Arial or Times fonts. I do a lot of music theory writing, so I need to use Yo Tomita's bach font for characters. I would like to streamline the process of changing the font and returning to the original font, often with the next character. For instance, if I want to describe and E-flat chord, I would like to type "E" then perhaps [alt-z] which changes the font to bach, @ (which gives me the flat sign) then [alt-x] to return to the orignal font. Seems like two separate keyboard-shortcut macros to me. Should I be looking at this another way? Andy Tag: Macro Names Tag: 86174
  - 18
    - Shared Outlook 2003 Contacts We are updating our letterhead template and now have code to insert names/addresses from the user's Contacts folder. However, we'd like to be able to access shared contacts -- for instance, if an attorney has given his secretary access to his/her Contacts folder. Is this possible, if so please provide sample code. Thank you. Tag: Macro Names Tag: 86173
  - 19
    - Can I do this in a toolbar? Hi -- There are a couple of page set up settings that I would like to be able to see on a toolbar for any document I am in -- the page size (e.g. letter or A4) and the paper tray source for printing. Would be extra cool if I could use the buttons to change the settings as well, like with a drop-down list, similar to changing font size or that kind of thing. Closest thing I can find in the standard buttons is the "page setup" button, but I can't find any standard buttons for the individual settings in the page setup area. Even if the button could just display the current info, and then I'd have to click the page setup button if I needed to change the settings, that would be helpful. Thanks in advance for any ideas anyone can offer! Tag: Macro Names Tag: 86170
  - 20
    - Waiting for Document to load I am creating a word document that basically analyzes other word documents that contain UAT test resuts (versus putting a button and code on hundereds of documents). This should be done in VB.NET or something along those lines, but licensing is an issue. My problem lies when a document is opened up that takes a bit to load but the code does not wait and executes before it is finished loading, giving completely bogus results. Here is the run down: User selects which file to analyze using a dialog box, which unfortunately does nothing else: Application.Dialogs(wdDialogFileOpen).Show <document starts to load> <"freezes" document loading and executes code, giving bogus data> <document finishes loading> <user gets confused> I would like a way to wait for the document to finish loading before the analyzing code is executed. Thanks! Tag: Macro Names Tag: 86168
  - 21
    - excel linking collating data into one workbook Hi I want to know how to link specific cell references of various files residing in different folders in a location onto a new workbook. can someone help by providing a simple solution of just specifying the file name in a particular cell of a new workbook and linking up the specified cells that exist across various files residing in different folders in a location by way of a formula? Tag: Macro Names Tag: 86160
  - 22
    - Using Asc and Chr This is an ongoing issue in the Document Management group and I wanted to bring it up here in hopes of getting the right people engaged. If I insert any one of the ten "arrow" symbols using Insert>Symbol>Symbols>Font Symbol and run the following code with any one of theses symbols selected it returns a value of 40 and inserts a left side paren symbol: Sub Test() Dim pAsc As Long pAsc = Asc(Selection) Selection.Range.InsertAfter Chr(pAsc) End Sub Why does this happen? The question in the Documanagement group is how do you get the correct ASCII code for symbols? Thanks. Tag: Macro Names Tag: 86155
  - 23
    - Row Height in table I have a table in a Word which can have a variable no of rows. As the data in each cell varies the row height can also vary. How can I determine when the table has spilled over onto a new page? I then need to generate a new header for that page. Nirmal Singh Tag: Macro Names Tag: 86150
  - 24
    - Fighting Schroedinbug in Word VBA (Tables, images & cie...) Hi all, For the last few days, I have been trying to debug some VBA code and it is driving me crazy. I'm writting an Excel macro which builds (using CreateObject) a Word document in background. The document is displayed at the end of the generation process. One of the most strange behavior I've noticed is the fact that everything seems right when I run the code step-by-step in the Visual Basic editor, but it is screwed up if I execute the macro normally. For example, I have a sub which insert a table in the document. The table is supposed to be aligned on the right and be 8 centimeter wide. If I execute the code step-by-step, displaying the document to watch the process, the tables will be formatted perfectly. However, if I run the macro and let the document invisible, the tables will be page wide and aligned on the left. The executed code is below: With MeterTable .Rows.WrapAroundText = True .Rows.AllowOverlap = False .Rows.Alignment = wdAlignRowRight .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = Application.CentimetersToPoints(8.26) End With Even better: To tackle this bug, I have tried to add a small loop at the end of the main macro. the code is below: For Each aTable In WordDocument.Tables aTable.Rows.Alignment = wdAlignRowRight aTable.PreferredWidthType = wdPreferredWidthPoints aTable.PreferredWidth = Application.CentimetersToPoints(8.26) Next aTable WordApplication.Visible = True ' End of the macro If I do it, the tables are 8.26 centimeter wide, but they are still aligned on the left ! I have the same kind of problem with images I want to put in the background of the table: when I am debugging the code, the image fits perfectly, while it is put in the top left corner of the page if I run the macro. Can someone help me, please?! These bugs seem supernatural to me. -- Ben Tag: Macro Names Tag: 86149
  - 25
    - Word 2003 (English version) DLLs and Word 2003 (German version) DL Hi, I have created a Word Style Extractor to extract formatting styles from Word document. This application is created using VS 2002 (English version) and used the Microsoft Office 11.0 Object Library (office.dll English version). If the application compiled with the Microsoft Office 11.0 Object Library (office.dll English version) reference, will the application work when it is installed to the machines that has Word 2003 (German version)? Tag: Macro Names Tag: 86142
- Next
  - 1
    - fit drawing to contents I need to use the Fit Drawing to Contents function (availabe in the Drawing Canvas toolbar that I get when I right click a picture and select Edit Picture) in a macro. I tried to record the operation and copy the command from the recorded macro, but the recorded macro was empty. Does it mean that no VBA command is available for this function? Tag: Macro Names Tag: 86132
  - 2
    - Capturing the name of each optionbutton and checkbox in userform Hi I have a userform (called 'ReqsFrm') that contains loads of optionbuttons and checkboxes I would like to create some code that writes the name/caption of each of the elements of the form. Now I can do it by manually producing the code, but I'm sure there must be some sort of looping code that will do it for me. So I'm trying do to something like: Dim OB as OptionButton For each OB in ReqsFrm Type name of OptionButton Type caption of OtionButton Next OB and then the same for the checkboxes Can anyone help. Thanks Tag: Macro Names Tag: 86122
  - 3
    - changing without ending I can write macro which works in this way: 1) choose an image 2) change size and position 3) close UserForm but more useful will be macro working in this way: 1) run macro 2) open UseForm 3) choose an image 4) change size and position 5) choose next image 6) .... Is it possible? Greg Tag: Macro Names Tag: 86115
  - 4
    - I am over mind head This is a multi-part message in MIME format. ------=_NextPart_000_000C_01C67BA7.47B95140 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi Sensei's After many hours of trial and tribulation, I have reached the limit of = my skills and seek your assistance. I am working on a macro to add a = new row to a table in a protected form on exit from the last column/last = row of the field of the table. I am *almost* successful if the cells of = the table only contain one formfield. I am trying to enhance this = general macro to duplicate a row if it contains more that one formfield. = I am close as it the preceeding row contains a text field then a = checkbox I can create a new row with a text field and checkbox but the = problem I am having is the checkbox in the new row is before the text = field. Here is the code so far: Sub Addrow() Dim rownum As Long, i As Long, j As Long, x As Long, y As Long Dim oRng As Word.Range Dim pListArray() As String Dim pType As String Dim pExit As String Dim pEntry As String Dim pEnabled As Boolean Dim pCalcOnExit As Boolean Dim pDefText As String Dim pDefCheck As Boolean Dim pStatusText As String Dim pHelpText As String Dim oRgField As FormField Dim myField As FormField Dim oTbl As Table Set oTbl =3D Selection.Tables(1) ActiveDocument.Unprotect oTbl.Rows.Add rownum =3D oTbl.Rows.Count For i =3D 1 To oTbl.Columns.Count 'Set oRng =3D oTbl.Cell(rownum, i).Range 'oRng.Collapse wdCollapseStart y =3D oTbl.Cell(rownum - 1, i).Range.FormFields.Count For x =3D 1 To y Set oRgField =3D oTbl.Cell(rownum - 1, i).Range.FormFields(x) With oRgField pType =3D .Type pExit =3D .ExitMacro pEntry =3D .EntryMacro pEnabled =3D .Enabled pDefText =3D .TextInput.Default pCalcOnExit =3D .CalculateOnExit If .Type =3D wdFieldFormCheckBox Then pDefCheck =3D .CheckBox.Default End If pStatusText =3D .StatusText pHelpText =3D .HelpText End With Select Case pType Case wdFieldFormDropDown Set oRng =3D oTbl.Cell(rownum, i).Range oRng.Collapse wdCollapseStart Set myField =3D ActiveDocument.FormFields.Add(Range:=3DoRng, _ Type:=3DwdFieldFormDropDown) With myField .ExitMacro =3D pExit .EntryMacro =3D pEntry .Enabled =3D pEnabled .CalculateOnExit =3D pCalcOnExit .StatusText =3D pStatusText .HelpText =3D pHelpText End With For j =3D 1 To oTbl.Cell(rownum - 1, = i).Range.FormFields(1).DropDown.ListEntries.Count ReDim Preserve pListArray(j) pListArray(j) =3D oTbl.Cell(rownum - 1, = i).Range.FormFields(1).DropDown.ListEntries(j).Name Next j For j =3D 1 To UBound(pListArray) myField.DropDown.ListEntries.Add pListArray(j) Next j 'oRng.Collapse wdCollapseStart '************* Case wdFieldFormTextInput Set oRng =3D oTbl.Cell(rownum, i).Range Set myField =3D ActiveDocument.FormFields.Add(Range:=3DoRng, _ Type:=3DwdFieldFormTextInput) With myField .ExitMacro =3D pExit .EntryMacro =3D pEntry .Enabled =3D pEnabled .TextInput.Default =3D pDefText .Result =3D pDefText .CalculateOnExit =3D pCalcOnExit .StatusText =3D pStatusText .HelpText =3D pHelpText End With 'oRng.Collapse wdCollapseStart '************* Case wdFieldFormCheckBox Set oRng =3D oTbl.Cell(rownum, i).Range Set myField =3D ActiveDocument.FormFields.Add(Range:=3DoRng, _ Type:=3DwdFieldFormCheckBox) With myField .ExitMacro =3D pExit .EntryMacro =3D pEntry .Enabled =3D pEnabled .CalculateOnExit =3D pCalcOnExit .CheckBox.Default =3D pDefCheck .StatusText =3D pStatusText .HelpText =3D pHelpText End With 'oRng.Collapse wdCollapseStart '************* End Select Next x Next i oTbl.Cell(oTbl.Rows.Count, 1).Range.FormFields(1).Select ActiveDocument.Protect Type:=3DwdAllowOnlyFormFields, NoReset:=3DTrue End Sub All you have to do is create a one row multicolumn table with fiels and = Addrow set to run on exit from the last field. --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_000C_01C67BA7.47B95140 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.2900.2873" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>Hi Sensei's</DIV> <DIV> </DIV> <DIV>After many hours of trial and tribulation, I have reached the limit = of my=20 skills and seek your assistance.  I am working on a macro to add a = new row=20 to a table in a protected form on exit from the = last column/last=20 row of the field of the table. I am *almost* successful if the cells of = the=20 table only contain one formfield.  I am trying to enhance this = general=20 macro to duplicate a row if it contains more that one formfield. I = am close=20 as it the preceeding row contains a text field then a checkbox I = can create=20 a new row with a text field and checkbox but the = problem I=20 am having is the checkbox in the new row is before the text field.</DIV> <DIV> </DIV> <DIV>Here is the code so far:</DIV> <DIV> </DIV> <DIV>    Sub Addrow()<BR>Dim rownum As Long, i As = Long, j As=20 Long, x As Long, y As Long<BR>Dim oRng As Word.Range<BR>Dim pListArray() = As=20 String<BR>Dim pType As String<BR>Dim pExit As String<BR>Dim pEntry As=20 String<BR>Dim pEnabled As Boolean<BR>Dim pCalcOnExit As Boolean<BR>Dim = pDefText=20 As String<BR>Dim pDefCheck As Boolean<BR>Dim pStatusText As = String<BR>Dim=20 pHelpText As String<BR>Dim oRgField As FormField<BR>Dim myField As=20 FormField<BR>Dim oTbl As Table<BR>Set oTbl =3D=20 Selection.Tables(1)<BR>ActiveDocument.Unprotect<BR>oTbl.Rows.Add<BR>rownu= m =3D=20 oTbl.Rows.Count<BR>For i =3D 1 To oTbl.Columns.Count<BR>  'Set oRng = =3D=20 oTbl.Cell(rownum, i).Range<BR>  'oRng.Collapse = wdCollapseStart<BR>  y=20 =3D oTbl.Cell(rownum - 1, i).Range.FormFields.Count<BR>  For x =3D = 1 To=20 y<BR>    Set oRgField =3D oTbl.Cell(rownum - 1,=20 i).Range.FormFields(x)<BR>    With=20 oRgField<BR>      pType =3D=20 .Type<BR>      pExit =3D=20 .ExitMacro<BR>      pEntry =3D=20 .EntryMacro<BR>      pEnabled =3D=20 .Enabled<BR>      pDefText =3D=20 .TextInput.Default<BR>      pCalcOnExit =3D=20 .CalculateOnExit<BR>      If .Type =3D=20 wdFieldFormCheckBox Then<BR>        = pDefCheck=20 =3D .CheckBox.Default<BR>      End=20 If<BR>      pStatusText =3D=20 .StatusText<BR>      pHelpText =3D=20 .HelpText<BR>    End With<BR>    Select = Case=20 pType<BR>      Case=20 wdFieldFormDropDown<BR>        Set = oRng =3D=20 oTbl.Cell(rownum, i).Range<BR>        = oRng.Collapse = wdCollapseStart<BR>        Set=20 myField =3D ActiveDocument.FormFields.Add(Range:=3DoRng,=20 _<BR>           &n= bsp;         =20 Type:=3DwdFieldFormDropDown)<BR>      &nbsp= ; With=20 myField<BR>          = .ExitMacro =3D=20 pExit<BR>          = .EntryMacro =3D=20 pEntry<BR>          = .Enabled =3D=20 pEnabled<BR>         =20 .CalculateOnExit =3D=20 pCalcOnExit<BR>         =20 .StatusText =3D=20 pStatusText<BR>          = .HelpText=20 =3D pHelpText<BR>        End=20 With<BR>        For j =3D 1 To = oTbl.Cell(rownum=20 - 1,=20 i).Range.FormFields(1).DropDown.ListEntries.Count<BR>   &n= bsp;     =20 ReDim Preserve=20 pListArray(j)<BR>         =20 pListArray(j) =3D oTbl.Cell(rownum - 1,=20 i).Range.FormFields(1).DropDown.ListEntries(j).Name<BR>   =     =20 Next j<BR>        For j =3D 1 To=20 UBound(pListArray)<BR>        &nb= sp;=20 myField.DropDown.ListEntries.Add=20 pListArray(j)<BR>        Next=20 j<BR>        'oRng.Collapse = wdCollapseStart=20 '*************<BR>      Case=20 wdFieldFormTextInput<BR>        Set = oRng =3D=20 oTbl.Cell(rownum, i).Range<BR>        = Set=20 myField =3D ActiveDocument.FormFields.Add(Range:=3DoRng,=20 _<BR>       =20 Type:=3DwdFieldFormTextInput)<BR>      &nbs= p; With=20 myField<BR>          = .ExitMacro =3D=20 pExit<BR>          = .EntryMacro =3D=20 pEntry<BR>          = .Enabled =3D=20 pEnabled<BR>         =20 .TextInput.Default =3D=20 pDefText<BR>          = .Result =3D=20 pDefText<BR>         =20 .CalculateOnExit =3D=20 pCalcOnExit<BR>         =20 .StatusText =3D=20 pStatusText<BR>          = .HelpText=20 =3D pHelpText<BR>        End=20 With<BR>        'oRng.Collapse=20 wdCollapseStart '*************<BR>      Case=20 wdFieldFormCheckBox<BR>        Set = oRng =3D=20 oTbl.Cell(rownum, i).Range<BR>        = Set=20 myField =3D ActiveDocument.FormFields.Add(Range:=3DoRng,=20 _<BR>       =20 Type:=3DwdFieldFormCheckBox)<BR>      &nbsp= ; With=20 myField<BR>          = .ExitMacro =3D=20 pExit<BR>          = .EntryMacro =3D=20 pEntry<BR>          = .Enabled =3D=20 pEnabled<BR>         =20 .CalculateOnExit =3D=20 pCalcOnExit<BR>         =20 .CheckBox.Default =3D=20 pDefCheck<BR>          = .StatusText=20 =3D = pStatusText<BR>         =20 .HelpText =3D pHelpText<BR>        = End=20 With<BR>        'oRng.Collapse=20 wdCollapseStart '*************<BR>      End=20 Select<BR>    Next x<BR>Next = i<BR>oTbl.Cell(oTbl.Rows.Count,=20 1).Range.FormFields(1).Select<BR>ActiveDocument.Protect=20 Type:=3DwdAllowOnlyFormFields, NoReset:=3DTrue<BR>End Sub<BR></DIV> <DIV>All you have to do is create a one row multicolumn table with fiels = and=20 Addrow set to run on exit from the last field.</DIV> <DIV> </DIV> <DIV> </DIV> <DIV><BR>-- <BR>Greg Maxey/Word 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_000C_01C67BA7.47B95140-- Tag: Macro Names Tag: 86113
  - 5
    - name field in template to repeat thru document I would like to create place holders in a template, for client names in reports/documents that I could enter their name once and it would update each placeholder occurance. Tag: Macro Names Tag: 86110
  - 6
    - Combo Box problems again This is my first time creating Combo Boxes in Word 2003. I have about 30 combo boxes created in a document. I am able to select an item in the combo box if I type the first letter of the item. I am not able to select an item by clicking on the item with my mouse. Do I have something set wrong on the properties? Tag: Macro Names Tag: 86095
  - 7
    - UserForm error I am having trouble with an error message: Compile error: method or data not found (followed "How to create a Userform" by Doug Robbins). So, I created a test document following the exact instructions in the same article and I still get the same message. Can you help? Tag: Macro Names Tag: 86094
  - 8
    - Copy Multiple Tables to Clipboard I am currently working on a project where I would like to copy multiple tables from one word document to another word document. The problem appears when in trying to copy multiple tables to the clipboard - I am unsure of how to do this. Using the DataObject, I can copy text (from what I can understand), but I need to keep the actual format of the table. I am able to copy one table from the first document to the next, but when I try to switch back to the first (using ActiveWindow.Next.Activate or ActiveWindow.Previous.Activate), it will not switch back. Therefore, I would like to copy all the tables into the clipboard (if possible). Please advise. Tag: Macro Names Tag: 86091
  - 9
    - How to print a blank page from Word VBA ? Hello dear VBA experts, In a Word macro I need at some point to print a white page, for which I suppose one needs to send to the printer currently active within Word, some code like a page feed...) I explain the purpose of my macro at the end of this post if your are curious to know why. I have tried selecting a paragraph mark and printing the current selection, unfortunately this will printout the eader and footer too, so it does not match my need. I suppose it needs to be done with windows printing API Any advice and/or piece of code will be welcome All the best to you Jean-Marie PS : My macro will printout a word document as a leaflet on any printer, ie a small leaflet which will be finely composed by taking the final bundle of sheets of paper and folding it in the middle. It will need 4 goes, the first go will printout odd pages on the right side of the paper sheets, then I take the bundle of sheets and put them back into the printer and I print another set of odd pages still on the right side of the paper (but on the other side of the sheets), then two more goes will print even page numbers on the left side of the paper. If you get the idea, you may imagine that when reaching the last pages of the booklet, sometimes I must leave the paper blank, but I wish the paper to come out of the printer. Tag: Macro Names Tag: 86089
  - 10
    - Repeating Form Fields in new Table Rows I am using Word 2000 and need to have a new table row containing protected form fields automatically generate when the TAB key is pressed at the end of the last row, so that the new row automatically contains the same form fields. I have reviewed previous questions and found some with references to macros and I have tried the macro below, with no success. Can anyone tell me what I am doing wrong? I am not famliar with macros, and I do not understand the macro below, therefore I am probably making some major mistakes. Sub addrow() ' Macro created 02/02/03 by Doug Robbins ' To add a new row to a table containing formfields in every column ' automatically on exit from the last cell in the present last row of the ' Table Dim rownum As Integer, i As Integer ActiveDocument.Unprotect ActiveDocument.Tables(1).Rows.Add rownum = ActiveDocument.Tables(1).Rows.Count For i = 1 To ActiveDocument.Tables(1).Columns.Count ActiveDocument.FormFields.Add Range:=ActiveDocument.Tables(1).Cell(rownum, i).Range, Type:=wdFieldFormTextInput Next i ActiveDocument.Tables(1).Cell(ActiveDocument.Tables(1).Rows.Count, ActiveDocument.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = "addrow" ActiveDocument.Tables(1).Cell(ActiveDocument.Tables(1).Rows.Count, 1).Range.FormFields(1).Select ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True Thanks for any advise / guidance given, LPS -- LPS Tag: Macro Names Tag: 86080
  - 11
    - how to prevent user from closing User form HI!, I made one template macro using Autonew() Which start UserForm. I need to prevent/block the User from closing the UserForm with close button of Windows from UserForm. Need Disable Windows close button of Window. need help Tag: Macro Names Tag: 86079
  - 12
    - Automate update of screenshots in Word I am looking to create dedicated user manuals in Word for a software product. The only trouble is, is that I also need to produce customised screenshots as well. The manuals could be up to 100+ pages with lots of screenshots. My question is this - is it possible to create some form of 'hotspot' on the screenshots and replace/update the wording according to the name of the customer I am creating the manual for? The screenshots will only differ in the 'blue heading' at the top of the software application. Can anyone recommend the best method to go about this? Tag: Macro Names Tag: 86071
  - 13
    - VBA and Sharepoint Document Workspaces Hi there, I want to get the CheckedOut By and CheckedOut Date information from a document which is saved in a document workspace. With the following code I also can get the Modified By and Modified Date. So is it possible to get the Checkin information? Thx. M. Dim swsWorkspace As Office.SharedWorkspace Dim vlxDoc As SharedWorkspaceFile Set swsWorkspace = ActiveDocument.SharedWorkspace For Each vlxDoc In swsWorkspace.Files MsgBox vlxDoc.ModifiedBy & vbCr & vlxDoc.ModifiedDate Next Tag: Macro Names Tag: 86070
  - 14
    - Importing access data to form Hi there, I have an access query that returns a lost of names given certain criteria. The list of names changes as the criteria is changed. I would like to export this list to a Word form table, with a checkbox next to each name entry. The problem I think I will have is that the length of the list of names will change each time, and I would need the word document to add/remove rows and checkboxes in the table, depending on the list length. The idea is, this word form can be emailed to someone to complete and then sent back to me. Is this possible? Thanks - David Tag: Macro Names Tag: 86068
  - 15
    - Displaying selected Toolbars I am fairly new at VBA, any help is greatly appreciated. I have set up a template - for all documents based on this template ONLY a custom toolbar should be displayed. I can do this the "long way round" by using the following in an AutoNew macro: CommandBars("MyToolbar").Visible = True CommandBars("Task Pane").Visible = False CommandBars("Formatting").Visible = False CommandBars("Standard").Visible = False etc etc. As the template will be used by various users, my problem is, how do I return Word defaults to what they were before using my template. At present I am using the following commands in an AutoClose macro, to restore commonly used toolbars like Standard and Formatting: CommandBars("Formatting").Visible = True CommandBars("Standard").Visible = True but of course different users have different toolbars (Drawing etc.) normally displayed. Can any body help me with this problem? I have tried using the Customization Context command, but I don't seem to get it right. Thanks for your help Tag: Macro Names Tag: 86066
  - 16
    - Word Autofit Table Contants macro Morning Everyone :o) I'm looking for a macro that will search a specified folder, and adjust all tables (coloums mainly) within the word document to Autofit. We have a number of documents that require adjusting (100's), and am hoping that someone here will know of such a macro. For use primarily in Wordd 2000, but also Word 2003 Any ideas? Tag: Macro Names Tag: 86063
  - 17
    - styles Hello list, I have a A range object in which i insert some text. What I need to be able to do is put a portion of that text into italics.. How can I achieve this? For Example i have a line of text "The quick brown fox jumped" so i insert that into the range object, and then I have some more text "over the lazy dog." Now i insert that into the range object as well, but I need that text to be italic.. Im now sure how to achieve this.. ANy help would be great thanks very much Nathan Tag: Macro Names Tag: 86061
  - 18
    - Problem with Combo Box I am using Word 2003 and I have created several Combo Boxes with the following formula: Private Sub ComboBox1_DropButtonClick() ComboBox1.Clear ComboBox1.AddItem "Discuss" ComboBox1.AddItem "Review" ComboBox1.AddItem "Change" ComboBox1.AddItem "N/A" End Sub I can bring up an item in the drop down box by typing the first letter of the item but I am not able to bring up an item in the drop down box by clicking on the item with my mouse. Do have something set wrong in my properties? Please HELP! Tag: Macro Names Tag: 86058
  - 19
    - Runtime created table change rows color Hi, i've developed a VB.NET routine to draw a table in word. (50 columns x 15 rows) after that, i set the shape of alternate colum with a color. but after 15-20 colums the color change! this is the routin to color the colunms Dim Righe As Integer Righe = Selection.Tables(1).Columns.Count - 1 For i = 1 To Righe If i Mod 2 = 0 Then With Selection.Tables(1).Columns(i) .Shading.Texture = Word.WdTextureIndex.wdTexture50Percent .Shading.ForegroundPatternColor = 33023 End With End If Next at this point the color is ok! but now i write text in every cell and after 20-30 columns the color in background start changing.....i don't know why! in a lot of cell the text is Word.WdTextOrientation.wdTextOrientationUpward and in other is Word.WdTextOrientation.wdTextOrientationHorizontal Help please! Ciao Polo Tag: Macro Names Tag: 86047
  - 20
    - Automating a style change within a document Hello, Can someone help me automate the below Marco? I have a 535 page document with over 1,100 â??Justification:â?? paragraph entries within and I need to reformat them all. Note: this document spans multiple WORD versions and authors therefore these â??Justification:â?? paragraph entries have several styles associated throughout the document. This therefore eliminates the option of just modifying the existing styles. It is my hope to reformat these entries to the Paragraph 1 style throughout the document via a macro to save my sanity. Here is an example of one of my â??Justification:â?? entries; Justification: Users need the ability to view all pertinent data for the subscriptions listed in this report. Is it possible to get the macro to find all occurrences of the â??Justification:â??, select the entire paragraph, clear the formatting, implement the Paragraph 1 style, as well as BOLD the text up to the colon (:)? Any help would be greatly appreciated. Mike Sub fix_Paragraph1_Font_Bold() ' Selection.ClearFormatting Selection.ClearFormatting Selection.Style = ActiveDocument.Styles("Paragraph 1") Selection.HomeKey Unit:=wdLine Selection.Find.ClearFormatting With Selection.Find .Text = "*:" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.Font.Bold = wdToggle Selection.HomeKey Unit:=wdLine End Sub Tag: Macro Names Tag: 86044
  - 21
    - How to remove page borders? Would someone please tell me how to get rid of Page Borders outlining every page? The border 1st appeared on every page when I started tracking document changes. It doesn't disappear in Print and it only disapears on screen in Normal View even after turning off the Review Changes feature. Thx, Ted Tag: Macro Names Tag: 86028
  - 22
    - Removing Frames Good Afternoon! I'm trying to create a script in Word 2003 that would remove all of the frames in a document while retaining the text and formatting. The following creates a new document, cycles through all the frame objects in the original document, and is supposed to copy the text and formatting from each frame to the new document. It almost works! it works on most of the frames in the document, but some entire frames are copied instead of just the text. Here's what it looks like: Sub DelFrames() Dim FrameCounter As Integer Documents.Add Documents(2).Activate For FrameCounter = 1 To ActiveDocument.Frames.Count 'ActiveDocument.Frames(FrameCounter).Select ActiveDocument.Frames(FrameCounter).Range.Select Selection.Copy Documents(1).Activate Selection.Paste Documents(2).Activate ActiveDocument.Frames(FrameCounter).Select Selection.CopyFormat Documents(1).Activate Selection.PasteFormat ActiveDocument.Paragraphs.Add Selection.Next(Unit:=wdParagraph, Count:=1).Select Documents(2).Activate Next FrameCounter End Sub Is there an easier way to convert all of the frames in a document to text either programmatically, or with a simple keystroke? Any suggestions will be greatly appreciated. Thanks -- JE Tag: Macro Names Tag: 86023
  - 23
    - twopagesonone I have tried using this in a macro to print to a canon photocopier but it isn't working correctly. It is splitting my first page and putting half on the top, a gap and the other half of the page on the bottom. My code looks like this. Can anyone help Cheers Addy Private Sub CBO2PS_Click() If CBO2PS.Value = True Then ActivePrinter = "\\rother\CanonMF13" With ActiveDocument.PageSetup .PaperSize = wdPaperA4 .Orientation = wdOrientLandscape .TwoPagesOnOne = True End With ActiveDocument.PrintOut Copies:=CBO2PS.Value With ActiveDocument.PageSetup .PaperSize = wdPaperA4 .Orientation = wdOrientPortrait .TwoPagesOnOne = False End With ActivePrinter = "\\rother\lex1340" Else ActivePrinter = "\\rother\lex1435" End If End Sub Tag: Macro Names Tag: 86022
  - 24
    - word tex line how can take an enteire word text line in a string variable? Tag: Macro Names Tag: 86020
  - 25
    - multiple recipient Hello! I am sending email in Word through VB Macro by using the program in this link: http://www.vbaexpress.com/kb/getarticle.php?kb_id=98 The problem is I want to sent the mail to multiple recipients. Tried inserting .Recipients.Add "mailladdress" many times but it won't work. How do I do this? Thanks! Tag: Macro Names Tag: 86014

Is there a way of listing all the macro names in a document?

I have code which loops through opening every document in a given directory,
but how do I list the macros?

Top

Re: Macro Names by Dave

Dave
Wed May 24 12:52:59 CDT 2006

Hi,

Maybe the KB article " How To Use MFC to Retrieve a List of Macro Names in
an Office Document" at http://support.microsoft.com/kb/274680/en-us will
help you get what you want.

HTH,
Dave

"EA" <NOSPAM@twelve.me.uk> wrote in message
news:44743c00$0$10774$ed2619ec@ptn-nntp-reader01.plus.net...
> Is there a way of listing all the macro names in a document?
>
> I have code which loops through opening every document in a given
> directory, but how do I list the macros?
>
>
>

Top