Assigning a macro to a right-click menu item in Word

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Can you change the size of a userForm using Code? I'm just getting fancy here in the project I'm working on, but what I have is up to 4 owners you can add to a company, and each time you click a check box to add an owner, a frame appears with information in it to add the owner. The result of this is the initial form looks WAAAAAY longer than it should (since only one owner Frame is visible initially). Question is: is it possible to adjust the size of the user form so that I can make it small enough for just the one frame and then when the user clicks the check box to add another owner, the second fame appears and the form gets bigger to accomodate it? Tag: Assigning a macro to a right-click menu item in Word Tag: 93287
  - 2
    - Inserting text from a text file into Word Please would someone know how to enter text from a text file (the whole file contents) into Word. I have seen some code on the forums, but don't understand how it works. Found this simple code, but it will only input the last set of characters in the file. Dim MyString Open "C:\files\test.txt" For Input As #1 Do While Not EOF(1) Input #1, MyString Loop Close #1 ActiveDocument.Bookmarks("Test").Range.Text = MyString Thanks in advance, Net Tag: Assigning a macro to a right-click menu item in Word Tag: 93285
  - 3
    - Excel not closing Hello, I'm running the following code from excel Sub RunWordMacro_Automation() Dim WordApp As Word.Application Dim WordDoc As Word.Document 'MsgBox ("The Active Row is " & ActiveCell.Row) Set WordApp = CreateObject("Word.Application") Set WordDoc = WordApp.Documents.Open _ ("\path\ word.doc") WordApp.Visible = True WordApp.Run "infofiller_echannels" ' Uncomment the next line of code to print the document. ' WordDoc.PrintOut Background:=False ' Uncomment the next line of code to save the modified document. ' WordDoc.Save WordApp.Quit SaveChanges:=wdDoNotSaveChanges Set WordApp = Nothing End Sub The infofiller_echannels macro called from excel is: Sub Infofiller_echannels() 'Both Excel, Word and Outlook must be early bound. No idea what this actually means but it must be done for each one. 'e.g. on vba editor go to tools --> References --> select Microsoft Word object library for MS word 'Msg = "Enter Excel Active Row Number" ' Get the row number from the spreadsheet 'ans = InputBox(Msg) Dim filepath Dim ans As Long Dim oExcel As Excel.Application Dim osheet As Excel.Worksheet filepath = "\path\test_echannels.xls" Set oExcel = CreateObject("Excel.Application") 'opens excel oExcel.Workbooks.Open (filepath) 'opens document refered to in filepath Set osheet = oExcel.ActiveWorkbook.Worksheets(1) 'sets sheet 1 as activeworkbook With osheet ans = .Cells(.Rows.Count, "A").End(xlUp).Row ' Checks for first nonempty cell on column A starting from last row End With oExcel.DisplayAlerts = False oExcel.ActiveWorkbook.Close ' Closes active workbook oExcel.Quit ' Closes excel Set osheet = Nothing Set oExcel = Nothing 'subroutines used to populate the fields in the Request to Apply build Document 'Note the _e at the end refers to echannels excel template 'ans is the rownumber and filepath is the excel spreadsheet file path Call notimportant Call Dept_e(ans, filepath) end sub Sub Dept_e(rownumber, filepath) Selection.GoTo What:=wdGoToBookmark, Name:="Dept" Dim oExcel, osheet Set oExcel = CreateObject("Excel.Application") oExcel.Workbooks.Open (filepath) Set osheet = oExcel.ActiveWorkbook.Worksheets(1) Selection = osheet.Range("I" & rownumber) If IsEmpty(osheet.Range("I" & rownumber)) Then ' If cell is empty the sub will end and ' send control back to main sub oExcel.DisplayAlerts = False oExcel.ActiveWorkbook.Close oExcel.Quit 'This closes the excel worksheet opened msg = MsgBox("Missing Critical Information" & vbNewLine & "Fill in Column I on the Excel Worksheet" & vbNewLine & _ "Save the Worksheet" & vbNewLine & "Then Hit Sendout Again", vbCritical) Set oExcel = Nothing End Else Selection.Copy End If oExcel.DisplayAlerts = False oExcel.ActiveWorkbook.Close oExcel.Quit Set osheet = Nothing Set oExcel = Nothing end sub The dept_e sub looks at column I and if there is data in that column it puts it on the word document, if there isn't it gives a message and then stops. The thing is that for some reason there is an instance of excel running, that does not seem to close. The odd thing is that if I run the infofiller_echannels macro from word it closes all instances of excel. However, if I running it from excel, it seems to leave the two instances of excel running ( It should leave one running) Any ideas why this might be? TIA Tag: Assigning a macro to a right-click menu item in Word Tag: 93284
  - 4
    - Repeating Section Footer formatting We have a line in our footers that can be one of a preset number of colours, which are picked from a combobox. At the moment that following code works, but is broken if the user uses a Section break. Private Sub SetColour(r, g, b) ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes("Line 3").Select Selection.ShapeRange.Line.ForeColor.RGB = RGB(176, 209, 55) Selection.ShapeRange.Line.ForeColor.RGB = RGB(r, g, b) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub I need to be able to apply the above code (or at least the Selection formatting) to every Footer in the document. Any pointers? Tag: Assigning a macro to a right-click menu item in Word Tag: 93283
  - 5
    - Inserting text at a bookmark without deleting the bookmark I have a User form with a document that is only ever printed, never saved. Multiple documents are printed with different information inserted via the User form. I wanted to be able to use the User form over again without opening a new document. I thought I had found the answer on Microsoft MVP under Inserting text at a bookmark without deleting the bookmark using this: Dim bmkAd1 As Range Set bmkAd1 = ActiveDocument.Bookmarks("bmkAd1").Range bmkAd1.Text = TxtAd1.Value ActiveDocument.Bookmarks.Add "bmkAd1", bmkAd1 This works with one bookmark but if repeated, only the last bookmark is updated. How do I do repetitive updates? By the way, I tried to use the optional subroutine but do not have the knowledge or skills for this. Tag: Assigning a macro to a right-click menu item in Word Tag: 93282
  - 6
    - Changing macro using macro Hi, I have lots of files that contain macros that need to be changed. The changes are: - changing a textbox Lock from False to True - search and replace text in the macro - delete some text How can I loop through all these files and do the changes? The macro is protected with password. I know how to loop through the templates and do changes in the document itself, but not how to change the macros. / Ulf Tag: Assigning a macro to a right-click menu item in Word Tag: 93281
  - 7
    - Clearing Bookmarks after a User Form I have created a User Form that completes a Word document and prints the document when the OK Print button is pressed; a copy of the document is never saved after printing. There is also a button that clears the User Form. How do I get the Clear button to also clear the bookmarks on the document so a fresh document can created and printed? Tag: Assigning a macro to a right-click menu item in Word Tag: 93277
  - 8
    - VB project being modified implicitly I have a signed VB project which is somehow being modified and thus the signature is being discarded. I know the users aren't modifying the code through the VBIDE and my project doesn't use VBE to modify itself, so what other actions could mark a VB project as 'dirty'? I know with excel removing worksheets has this affect but is there anything similar in Word? Not that I think I'm doing like that. My best guess is it's something to do with one of my forms but all you can really do with forms is set properties, so again I can't think where the problem might be occurring. TIA Craig Tag: Assigning a macro to a right-click menu item in Word Tag: 93271
  - 9
    - Modifying built in document properties using an excel macro I am having an interesting problem while trying to set the built in document properties of a word file using an excel macro. I am picking the values from an excel sheet and trying to set the values for each .doc file in a folder one by one. The following code runs perfect the first time and sets the new values for all built in properties for all the word files in the "C:\Test" folder. But when i run the code a second time with new values, it executes without any error but doesn't set the new values (the doc files have the old values itself). Can someone help please? Urgent.... Sub Macro2() Dim i As Integer Dim wordApp As Word.Application Dim wordDoc As Word.Document Set wordApp = CreateObject("Word.Application") With Application.FileSearch .NewSearch .LookIn = "C:\Test" .SearchSubFolders = False .Filename = "*.doc" .Execute For i = 1 To .FoundFiles.count ThisFile1 = Range("B" & i + 1).Value ThisFile2 = Range("C" & i + 1).Value ThisFile3 = Range("D" & i + 1).Value Set wordDoc = wordApp.Documents.Open(Filename:=.FoundFiles(i)) wordApp.ActiveDocument.BuiltinDocumentProperties("Title") = ThisFile2 wordApp.ActiveDocument.BuiltinDocumentProperties("Subject") = ThisFile3 wordApp.ActiveDocument.BuiltinDocumentProperties("Author") = ThisFile4 wordDoc.Save wordDoc.Close Next i End With End Sub Tag: Assigning a macro to a right-click menu item in Word Tag: 93270
  - 10
    - Formfields vs. Userform Controls embedded in document? Still learning ... What are the relative advantages and disadvantages of embedding MS-Word Formfields into the document or 'regular' MS-Forms controls? I had successfully used Radiobuttons in a Word document, even tried a DateTimePicker 8didn'tr look nice on printed paper...), which are Userform controls, and now -- thru the hint by Doug Robbins to the "Fill out that form" articles by Dian D. Chapman -- learned of the Formfield objects. I just note that -- at least in Office 2000 -- there are no Radiobuttons available as Formfields. What do the experts and lay people here prefer, what do they recommend? For which reasons? Yours, Tag: Assigning a macro to a right-click menu item in Word Tag: 93268
  - 11
    - Copying an Excel ChartObject into a Word Template - how to? I have a VB6 application that creates a Word document by pasting text from a database into different places in the document by means of bookmarks in a template. My newest challenge is to insert 2 Graphs from Excel into the end of the Word document. Here are my problems: 1) Is there a paste option to make the graph be scaled to the size of the printed sheet? Currently, when I paste it, the graph is huge and I have to manually resize it in the Excel file before copy/pasting it into Word. This leads to my next challenge 2) Simply setting the .Width and .Height attribute of the chart object for the graph doesn't appear to cut it. That appears to just control the space the graph has to draw in. The bars get cramped and the legend doesn't scale at all, getting cut off in the smaller graph. What is the best way to resize a Graph in Excel? 3) When I paste the graph into the Word document, the graph always gets inserted at the top of the document, even though I'm using bookmarks located at the end of the document when I paste. What is the best way to control the location of a graph inserted into a Word Document? Here is the code that I currently use to perform the resize/copy/paste. I use locally-scoped constants for the width and height of the target graph size. 'Resize the First Graph wkbNarrMetric.Worksheets(1).ChartObjects(1).Width = cintGraphWidth wkbNarrMetric.Worksheets(1).ChartObjects(1).Height = cintGraphHeight 'Copy the First Graph to the Clipboard wkbNarrMetric.Worksheets(1).ChartObjects(1).Copy 'Paste the First Graph into the Narrative docNarr.Bookmarks(16).Select docNarr.Bookmarks(16).Range.Paste 'Resize the Second Graph wkbNarrMetric.Worksheets(2).ChartObjects(1).ScaleWidth 0.7, , msoFalse wkbNarrMetric.Worksheets(2).ChartObjects(1).Height = cintGraphHeight 'Copy the Second Graph to the Clipboard wkbNarrMetric.Worksheets(2).ChartObjects(1).Copy 'Paste the Second Graph into the Narrative docNarr.Bookmarks(17).Select docNarr.Bookmarks(17).Range.Paste Thanks for the help. I realize I've snuck an Excel question into the Word group, and for that I do apologize. Paul Tag: Assigning a macro to a right-click menu item in Word Tag: 93261
  - 12
    - Microsoft Word Form: Save Form, Not Controls or Macros Hello, I have a Word template that consists of a 2 pages worth of form fields, and 1 page that has the controls used to fill in the form. The arrangement works well enough, and allows the user to edit the form manually if the source data is incorrect. I've even figured out how to save the last 2 pages of the document to a file without the controls. However, I'm having a problem saving the form without the VBA code being included. I don't want my users getting confused by the "Macros anybody?" dialog popping up everytime a completed form is open. So, my question is how do I save the document without the VBA code being included in the resulting file? Tag: Assigning a macro to a right-click menu item in Word Tag: 93260
  - 13
    - How can I build a template based on a selection of choices ans'd Essentially this is what I am trying to do: I have multiple documents that I use based upon requirements. If I have multiple requirements I need to combine parts of different documents together. Cut and Paste. How can I present a wizzard or dialog box that asks which conditions are present so there can automatically be a document generated without having to cut and paste? Tag: Assigning a macro to a right-click menu item in Word Tag: 93258
  - 14
    - Select Table window interrupts macro Hi, I am automating a mailmerge from a datasheet in excel to a word document. The user enters data into the excel spreadsheet and then uses a userform to activate the mailmerge process. my code is interrupted when the Word main document is opened and the datasource is being defined. Word pops up a window called "Select Table" which (surprise surprise) allows you to select which worksheet the data is on in the excel workbook. I can't figure out how to automate this selection... I want to be selecting "sheet1"... and it's the only sheet in the workbook so I don't understand why it doesn't just select it automatically. I won't post all the code at the moment cause I don't think it's entirely relevant to the problem, but if anyone wants it then I would be happy to. Here is the part that seems to be relevant. With appWD.ActiveDocument.MailMerge .OpenDataSource Name:=(Workbooks("whatson data").Path & "\Guts - do_ not tamper\Data Source.xls") .DataSource.FirstRecord = 1 .DataSource.LastRecord = r - 3 .Destination = wdSendToNewDocument .Execute End With I have searched the message board here and at mrexcel but can find no-one who has had a similar problem... which leads me to suspect I'm doing something wrong. However, time (and your responses) will tell. Thanks SO much to anyone who can help me with this one. Straws. Tag: Assigning a macro to a right-click menu item in Word Tag: 93254
  - 15
    - Macro to change linked object source file I have an word document with 84 inline linked objects from an excel file. I need to be able to run a macro that will change the source file of all the linked objects. My solution was as follows but has two issues. Sub test() Dim i As Integer With ThisDocument For i = 0 To .InlineShapes.Count If .InlineShapes(i).Type = 2 Then .InlineShapes(i).LinkFormat.SourceFullName = "C:\test.xls" End If Next i End With End Sub Issues: 1. If the object i linked to is an excel chart, it incorporates the original excel file name in the item section of the linked object. (if you go to edit...links... its the item column). Changing the source name does not change the item section, so charts give an error. 2. Four of my linked items are in a header. I have no idea how to access those objects. when i do a ?thisdocument.inlineshapes.count, in the immediate window, it returns 80.... but i have 84 linked objects. I also tried the above code using fields instead of inlineshapes.. no luck. I'm using Word 2002 and excel 2003 Any help would be gretaly appreciated. Thanks Tag: Assigning a macro to a right-click menu item in Word Tag: 93252
  - 16
    - Automating Mail Merge in Word I am trying to automate a mail merge in Word. I am using Office 2003. My source document is a Microsoft Excel file. My target document is a Word mail merge document. I have done the steps manually and recorded the following macro: Option Explicit Sub Fennessey1() ' ' Fennessey1 Macro ' Macro recorded 10/31/2006 by Ralph K ' Documents.Open FileName:="""1 Project Engagement Description.doc""", _ ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto, XMLTransform:="" With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With ActiveDocument.SaveAs FileName:="Test1.doc", FileFormat:=wdFormatDocument, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=True, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False End Sub When I play back the macro, it chokes on the following line: .Destination = wdSendToNewDocument with runtime error 5852. Requested object is not available. Can anyone tell me what is wrong. RalphK Tag: Assigning a macro to a right-click menu item in Word Tag: 93244
  - 17
    - data validation Hello, I'm designing a questionnaire for a friend as was wondering if you can help me. It is an electronic questionnaire. I was wondering if i could have general tips about data validation i.e. how to make the software robust so that people cannot mess it up. for example, i ask someones age in years and i dont want them entering text, what is the validation for that? How do i validate 'checkboxes', i have about 5 checkboxes within a question and if any of them are not ticked i would like an error message of some kind. The thing is i'm new to programming so you'l need to simplify everything for me. Another thing is that the results need to be sent to a Word document and also to an excel document, i was wondering what code i will need for both. Thank you before hand. cheers, Tony. Tag: Assigning a macro to a right-click menu item in Word Tag: 93242
  - 18
    - Change Bookmarked Text - Keep Bookmark? As a complete VBA novice, I want to overwrite some Bookmarked text with specific AutoText and retain the Bookmark (so I can repeat this Macro if/when rqrd). I have manged so far to generate the following simple code: Sub CHOOSE_TEXT() ' ' SLT Macro ' Selection.GoTo What:=wdGoToBookmark, Name:="LTXT" Selection.Find.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With With ActiveDocument If .FormFields("Dropdown1").Result = "Specification No." Then Application.DisplayAutoCompleteTips = True NormalTemplate.AutoTextEntries("SLT").Insert Where:=Selection.Range, _ RichText:=True Else Application.DisplayAutoCompleteTips = True NormalTemplate.AutoTextEntries("QLT").Insert Where:=Selection.Range, _ RichText:=True End If End With End Sub The above Macro is run on exit from a dropdown box in a form within an earlier protected section of the document. UNFORTUNATELY if the Bookmark "LTXT" is text then the macro only works once as it obliterates the Bookmark along with the text. IF the bookmark "LTXT" is just a position within the document then the macro will happily re-run - BUT it doesn't replace text (it just pushes it down the document, which is not acceptable). CAN ANYONE HELP, PLEASE? Rgds, RPJ Tag: Assigning a macro to a right-click menu item in Word Tag: 93240
  - 19
    - Reading formfields without automation Is it possible to read data from word formfields without using automation? Is there an alternative (free) library to use? Tag: Assigning a macro to a right-click menu item in Word Tag: 93236
  - 20
    - Closing File Speed up Word 03 Version open and closing routines ---------------- 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=ab174da0-b1ad-46dd-8d65-52edfa4154e0&dg=microsoft.public.word.vba.general Tag: Assigning a macro to a right-click menu item in Word Tag: 93235
  - 21
    - disabling close button Hi there, Can someone tell me how to disable close button of my word application. Also, can someone tell me what is the difference (of EVENT SEQUENCE) when I close document and when I close application !!(small and big red X) ?? Tag: Assigning a macro to a right-click menu item in Word Tag: 93230
  - 22
    - Excel 2003 VBA: Import Numerical Data from .rtf File into .xlS Fi I have been able to do this, using both late and early binding, when my machine is "logged-on" to our network. However, I also need to do this when my machine is "logged-off"; neither early nor late binding is working -- the primary data file becomes "locked for editing" by the network. (The VBA code is in a .xlA file stored on my hard drive; a Scheduled Task opens this file at a specified time each day.) The Scheduled Task fires, but becomes locked in "Running" mode. We are running Office 2003 and Windows XP Pro. Below is my early binding code procedure: Public Sub Import_From_WORD_Tables() Dim objWord As Word.Application Dim objDoc As Word.Document Dim wordvalue As Variant Dim j As Integer Dim lngErrNo As Long Dim strErrSrc As String Dim strErrDesc As String On Error GoTo PROC_ERR Application.DisplayAlerts = False PrimaryDataWB.Activate '<<== this is my primary data file; stored on my hard drive Set objWord = New Word.Application objWord.Visible = False Set objDoc = Documents.Open(myPathBATCH & "T and A.rtf") 'the above file is stored on my hard drive objDoc.Activate 'For "Rows" 1 - 8 in Table 1 For j = 1 To 8 wordvalue = objDoc.Tables(1).Columns(4).Cells(j + 2) ActiveWorkbook.Sheets(3).Cells(j + 17, 11) = Application.WorksheetFunction.Clean(wordvalue) Next j objDoc.Close objWord.Quit Set objDoc = Nothing Set objWord = Nothing Exit Sub PROC_ERR: lngErrNo = Err.Number strErrSrc = "->ADJUSTMENT_TEST()->" & Err.Source strErrDesc = Err.Description 'Disable error handling On Error GoTo 0 Err.Raise lngErrNo, strErrSrc, strErrDesc End Sub I have been able to determine that the macro crashes at the 'Set objWord = ...' statement above. Since I am running this logged-off, the above error trapping is doing nothing for me. Any ideas? TIA, I appreciate your help. Tag: Assigning a macro to a right-click menu item in Word Tag: 93226
  - 23
    - Macro/VBA to generate and save filenames I would like to generate and save filenames in a unique way something like: Prefix_datetimestamp. Can I do this be recording a macro or would VBA be necessary? Would really appreciate a pointer in the right direction. Thanks, Trouvera P.S. I will be doing this in Word and Excel. Tag: Assigning a macro to a right-click menu item in Word Tag: 93224
  - 24
    - How to disable macro after saved so it doesn't run when reopened? How do I disable the auto open macro after the document has been executed and saved in a different location so that when that document is opened to view the infomration or make changes, the macro doesn't run? Tag: Assigning a macro to a right-click menu item in Word Tag: 93223
  - 25
    - Troubleshooting Excel in Word I've created a couple of documents with Excel spreasheets inserted in either/or Word Table Cells or in Text Boxes. On several occassions in the past several weeks since I've created these documents/forms, several of the Excel Spreadsheets have appeared to have changed, on their own, to a picture. The reason I've inserted the Excel spreadsheets into the Word Docs instead of doing it all in Tables is because of the various formulas that can come into play. But I need the versatility of spacing around on the page that I can get with Word that is not available in Excel, on it's own. First, is there a way to get these 'pictures' back to an Excel Spreadsheet. Then, is there a way to keep this problem from continuing to happen? Thanks. Tag: Assigning a macro to a right-click menu item in Word Tag: 93222
- Next
  - 1
    - Radio button to Check Box in Active Document? I guess this is a two part question. 1. Is it possible to send a radio button value (true/false) to a checkbox in the active document? If so....How? I've got a field of radio buttons (which will become check boxes if this simply isn't possible, but I'd rather use radio buttons) in my user form and I've got matching check boxes in the active document. I"m trying to get the code to work so that if a radio button is checked, the check box in the active document is also checked. So far I have this, but it's doing nothing at all: With ActiveDocument If radLLC.Value = True Then .FormFields("chkLLC").Value = True Else End If End With Tag: Assigning a macro to a right-click menu item in Word Tag: 93221
  - 2
    - Formatting special characters within a module for a Word Mail merge. All, I am having problems with a field that I am exporting to a Microsoft Word Mail merge. Basically the gist of the module is it loops through a database table and finds all residents who live at a specific address and then exports each name, that it encounters to a string ie: [name] vbCrLf [Name] vbCrLf {etc}, (you can find the code below). So far so good . However I am encountering a problem once the field is formatted in Word using align center, the first name in the spring is justified right, and each successive names in the string are justified center. I?ve tried adding vbCrLf prior to the first name, however, I am still getting the same formatting problem. I was hoping that someone might be able to help me with this problem. Thanks in advance. - CES Do While Not .EOF If strTmp = .Fields("aStreetNum") & .Fields("aStreetName") & .Fields("aAptNum") & .Fields("aZip") Then If x > 0 Then strToReturn = strToReturn & vbCrLf End If If .Fields("cFName") <> "" Then name = .Fields("cFName") & " " End If If .Fields("cMName") <> "" Then name = name & .Fields("cMName") & " " End If If .Fields("cLName") <> "" Then name = name & .Fields("cLName") & " " End If strToReturn = strToReturn & name x = x + 1 End If .MoveNext Loop Tag: Assigning a macro to a right-click menu item in Word Tag: 93218
  - 3
    - customers to fill out data I am new at this, and am looking for a way to send a form for my clients to fill out the necessary lines be able to secure the rest of the form. Please Help JArzt Tag: Assigning a macro to a right-click menu item in Word Tag: 93214
  - 4
    - Insert String Based on Combo Box Result Newbie alert! I've got 2 form fields: Dropdown1 & Text1. I want to populate Text1 based on what the user selects in the Dropdown1 field. The text is loaded in 8 strings, myText1, myText2... myText8. So if the user selects "1" from the dropdown, Text1 is populated by the value of the myText1 string, if the user selects "2", populate Text1 with the value of myText2 string, etc. I'm trying to avoid using 8 different If...Then statementrs by using a For...Next loop. The problem I'm having is identifying each string. How can I use the For...Next counter to use the corresponding string? (i.e. If I use "For i = 1 to 8", when i=3 how do use myText3) Here's my macro: Public Sub Text1Update() Dim myText1, myText2, myText3, myText4, myText5, myText6, myText7, myText8 As String myText1 = "Your request did not include a signed and dated form." myText2 = "Your request did not include the date." myText3 = "The additional information requested has not been received, therefore we must close our files. If submitted we will reconsider the request." myText4 = "Reads the same as E3 there is obviously a problemâ?¦" myText5 = "The request did not include an ID number, please include this on form." myText6 = "The receipt(s) submitted were less than the amount requested on your form." myText7 = "An itemized bill from your service provider showing the name and address, customer name, itemized charges, type of service, service code and date of service." myText8 = "Incomplete statement received. Please resend." For i = 1 To 8 If ActiveDocument.FormFields("Dropdown1").Result = i Then ActiveDocument.FormFields("Text1").Result = myText & i 'My problem is here End If Next i End Sub Tag: Assigning a macro to a right-click menu item in Word Tag: 93209
  - 5
    - Posting from word to exchange ? Is it possible to post automaticly a word document to a exchange public folder with VBA. ? NB : with Activedocument.post I've a prompt dialog box to specify the folder. Thanks ( code please ) Tag: Assigning a macro to a right-click menu item in Word Tag: 93208
  - 6
    - Problem getting exit code returned by DOS command Hi folks, When I try to invoke MS-DOS programm from VB, the exit code return is aways 0. My code is: Option Explicit Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetExitCodeProcess Lib "kernel32" _ (ByVal hProcess As Long, lpExitCode As Long) As Long Public Function ExecCmd(cmdline$) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim procId As Long start.cb = Len(start) procId = Shell(cmdline$, vbNormalFocus) proc.hProcess = OpenProcess(ACCESS_TYPE, False, procId) Call WaitForSingleObject(proc.hProcess, INFINITE) Call GetExitCodeProcess(proc.hProcess, procId) ExecCmd = procId End Function Private Sub CommandButton1_Click() Dim retval As Long retval = ExecCmd("java -jar Test.jar abc") MsgBox "Process Finished, Exit Code " & retval End Sub When I run this command (java -jar Test.jar abc) the exit codes are between 3 and -6. Any help and/or ideas? Plamen. Tag: Assigning a macro to a right-click menu item in Word Tag: 93203
  - 7
    - Excel Chart after paste to MS Word 2000 (URGENT) Hi, I wrote the following code to paste a resized Excel chart into an MS Word table. In Office 2003, it pastes in Word with the size that I made it in Excel. In Office 2000 however, it does not. It seems to revert to the orginal size. In Excel 2000 it is respecting my resize of the charts. Here is the paste code.....any suggestions please to make it look the same in Office 2000 Word.Application.ActiveWindow.ActivePane.Document.Tables.Item(1).Cell(1, jjj + 1).Range.PasteSpecial(Link:=False, DataType:=3, _ Placement:=0, DisplayAsIcon:=False) Tag: Assigning a macro to a right-click menu item in Word Tag: 93201
  - 8
    - Using VBA to SUM 3 columns in a Word Table I have a Word Table in my Active Document that I'd like to SUM using a cmdCalculateTotal button on a form. Can somone please tell me how to approach this -- for example -- how would I write the VBA code to calculate Cells C3:C16 of the table? The Range of the calculated area is subject to change (depending on the choices the user makes (selecting checkboxes and radio buttons), so it seems that I would need to calculate the range of the column (after all selections have been made, and ADD a Summary Row to the table to calculate the values. I'm just not sure the easiest way to approach this NOTE: I'm trying to approach this project in blocks -- I'm still working on the issue of getting the table values (selected by the user) to populate in the Active Document -- I'm close, but not there yet -- Summing the values would be the next step. Any help will be greatly appreciated. Thanks in advance Shane Tag: Assigning a macro to a right-click menu item in Word Tag: 93190
  - 9
    - autofill a variable How do I autofill multiple places? Eg. I type over "name1" and "name2" at the begining of a doc with Jack and Jill and it autofills every "name1" with Jack and "name2" with Jill in all other places in the doc. Tag: Assigning a macro to a right-click menu item in Word Tag: 93189
  - 10
    - Print table without color automatically I've got a word forms with a nubmer of tables on different pages, the tables was color in different colors to highlight fields which have to be filled in by client, but i don't want the tables to have any color when it was printed - how can i set it so that the all table colors will be reset to white automatically when user print the form? sin Tag: Assigning a macro to a right-click menu item in Word Tag: 93179
  - 11
    - Identify and mark numbers at the beginning of paragraphs - but not headings Hi group, my problem (Word 2003): I have to identify all numbers that are at the beginning of a paragraph in a word document but are *not* headings and put a marker (like "xyzxyz") in front of the number (to prevent that any numeric character that does not belong to a heading will ever stand at the beginning of a paragraph; this is important for further scripting/conversion in this case). Headings (which shall *not* get a marker) are numbered 1., 1.1, 1.2, 2., 3., 3.1, 3.2, 3.2.1, 3.2.2, 3.3, 4. etc. There are probably no numbers >99 in Headings (so no three-digit numbers between periods in heading numbering), but at the beginning of paragraphs there may be numbers that have (a) periods as thousands separators, as these are German documents and (b) dates, which are written "xx.xx.xxxx" here, with or without spaces. both kinds of numbers should be treated like all other non-heading numbers (put a marker before the first digit at the beginning of the paragraph). I can't use paragraph styles for identification, because they're not reliably there. All this should be done by a macro. Actually, I don't have a clue about VBA, but I can copy/paste, and I have to solve this - fast! Can someone help? TIA Alex Tag: Assigning a macro to a right-click menu item in Word Tag: 93172
  - 12
    - Problem with msgbox and chr(10) I get an error: The project or library could not be found; Note that I have about 10 library references loaded inc.: office 11 objects, forms 2, cdo, dao, activex, outlook, vbscript, vba extensibility. Even odder, this template worked in the past, did it break as a result of an office update? TIA Tag: Assigning a macro to a right-click menu item in Word Tag: 93168
  - 13
    - Exit "Here" From Print Preview One thing I really miss like crazy from my last job was what we called an "Exit Here" Macro If you were in Print Preview viewing page x and you closed Print Preview you wound up on page x This was extremely helpful when working on very long docs If anyone wants to share with me I would really appreciate it Thanks Tag: Assigning a macro to a right-click menu item in Word Tag: 93167
  - 14
    - how do i export macros from one computer to another computer? Tag: Assigning a macro to a right-click menu item in Word Tag: 93163
  - 15
    - Find and Replace missing font (font substitution problem) I am trying to programmatically convert all references in a document of one fontname to another, in order to replace a missing font. This code works fine ... but only if the 'missing' font ("SuperHebrew") is in fact installed. For Each rngStory In ActiveDocument.StoryRanges With rngStory.Find .ClearFormatting .Font.Name = "SuperHebrew" Do While .Execute(FindText:="", Forward:=True) = True With .Parent HebrewString = .Text HebrewString = ConvertSupHebToCCAT(HebrewString) HebrewString = ConvertCCATToUnicode(HebrewString, "Vowels") If HebrewString <> "" Then .Text = HebrewString .Font.Name = "Ezra SIL" .Move Unit:=wdWord, Count:=1 End With Loop End With Next rngStory However, if SuperHebrew is NOT installed (which is the situation I am trying to handle <grin>) , then MSWord Font Substitution kicks in, and remaps the font to a different font (in this case "Default"). The side effect of this is that I can no longer reference the missing font by its orginal name, and I cannot work out what name I should use the code does not find anything to change. I have tried changing to ... font.name = "Arial" 'Ariel is my Default font font.name = "(Default)" font.name = "(Default) SuperHebrew" ' this is how is displays in manual Search & Replace None of these work. Any ideas? Cheers revstead Tag: Assigning a macro to a right-click menu item in Word Tag: 93153
  - 16
    - Bold selected text generated in a userform I have a userform with 6 text boxes. I use a single bookmark to insert the information into the active document. I'd like to be able to format (bold) one of the entries as it is inserted in the document. I've tried tbNAME.font.bold=true and it accepts the statement but it has no effect on the output. I just don't have the familiarity with OOP and with Word's internals to know how to proceed. Any light you could shed would be appreciated. Thanks in advance! --Ken Davis VB code is as follows: Private Sub CommandButton1_Click() With ActiveDocument For varCounter1 = 1 To 12 ' varCounter1 increments the inserted text to cycle through each cell ' Set increment for the number of fields (bookmarks) in the main document 'VarCellNumber passes a string to append to "bkCELL" which is the base mnemonic for the cell bookmarks 'this assumes fewer than 20 cells If varCounter1 < 10 Then varCellNumber = Chr(48 + varCounter1) If varCounter1 > 9 Then varCellNumber = "1" + Chr(48 + (varCounter1 - 10)) 'Actually inserts UserForm2 text into fields. Note that fields are inserted in reverse order (like pushing onto a stack) 'If statements ignore and/or properly format lines with blank entries If (tbFACEBOOK) <> "" Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbFACEBOOK) If (tbMYSPACE) <> "" Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbMYSPACE) If (tbIM <> "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbIM) If (tbPHONE <> "") And (tbEMAIL <> "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore (tbEMAIL) .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbPHONE) + Chr(9) ElseIf (tbPHONE <> "") And (tbEMAIL = "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbPHONE) ElseIf (tbEMAIL <> "") And (tbPHONE = "") Then .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore Chr(10) + (tbEMAIL) End If If (tbNAME <> "") Then tbNAME.Font.Bold = True .Bookmarks("bkCELL" + varCellNumber).Range.InsertBefore (tbNAME) 'Chr(10) + (tbNAME) End If Next varCounter1 End With UserForm2.Hide End Sub Tag: Assigning a macro to a right-click menu item in Word Tag: 93148
  - 17
    - reciept for credit card use I need to issue a reciept for people who give me there credit card numbers over the internet. Tag: Assigning a macro to a right-click menu item in Word Tag: 93139
  - 18
    - picture in the footer hi how can i determain if there is a picture in the first page footer and in the primary page footer with VBA code in word document ? how can i delete the picture ? what is the best way to insert a picture to the footer ? (with VBA) thanks in advanced Tag: Assigning a macro to a right-click menu item in Word Tag: 93134
  - 19
    - problem with showing shortcut in tooltip on custom toolbar Hi! I have a custom toolbar with buttons for different styles like heading 1, normal, and a number of custom styles. The name for the button is set to the stylename + the shortcut, like "heading 1, Alt+1". I want the tooltiptext to be like the name for the button and so it is for some off the buttons but for some others it shows the button name and the shortcut aligned to the right. The tooltip for the heading 1 is for example "heading 1, Alt+1 (Alt+1)" Even if I via VBA changes the tooltiptext the extra shortcut shows. It would be ok if it was the same for all buttons but it is not. If I customize the toolbars to not show shortcust for buttons the extra added shortcut does not show. But I can not have this setting for many other reasons. And yes, the name of the button must include the shortcut.... What am I missing here? I thought that it had something to do with the built in styles but IÂ´m not shure it seams to be different on differnt computers. Tag: Assigning a macro to a right-click menu item in Word Tag: 93133
  - 20
    - Intellisense This is a multi-part message in MIME format. ------=_NextPart_000_001E_01C6FA6C.BFEC8A80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Does Intellisense work for: ActiveDocument.BuiltInDocumentProperties ActiveDocument.CustomBuiltInDocumentProperties It doesn't for me. I get the intellisense prompt after typing ActiveDocument. and can = choose one of the two properties above, but intellisense does not work = for either. --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_001E_01C6FA6C.BFEC8A80 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.2963" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV><SPAN class=3Dq0>Does Intellisense work=20 for:<BR>ActiveDocument.BuiltInDocumentProperties<BR>ActiveDocument.Custom= BuiltInDocumentProperties<BR><BR>It=20 doesn't for me.<BR><BR>I get the intellisense prompt after typing=20 ActiveDocument. and can choose one of the two properties above, but = intellisense=20 does not work for either.<BR><BR></SPAN></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_001E_01C6FA6C.BFEC8A80-- Tag: Assigning a macro to a right-click menu item in Word Tag: 93123
  - 21
    - Catalog Merge Document? We have written a small program to perform merges between a database and Microsoft Word merge documents that our customers create. Recently, one of our customers was trying to perform a merge, but it kept failing. I traced the problem to the type of Word document. Apparently, you cannot merge a catalog merge document directly to a printer. It must be merged to a new document. My question is, what exactly is a catalog merge document? I could discern no difference between it and a regular merge document. Is there a way to make a catalog merge document not be a catalog merge document? Thanks for your help. -Vincent Tag: Assigning a macro to a right-click menu item in Word Tag: 93112
  - 22
    - VBA Word: How to customize a right click menu bar(shortcut menu)? I am new in VBA word. In MS word, I want to customize right click menu bar(shortcut menu bar) on a Hyperlink. I want to change the menu bar(adding new menu item or delete menu item) dynamically based on different text of a hyperlink. How do I do it? For example, the right click menu bar on a hyperlink with text "a" is different than the right click menu bar on a hyperlink with text "b". I already know how to add or delete menu item from the right click menu bar on a hyperlink. What about displaying it diffrently based on different text? Can anyone help? Thanks. Tag: Assigning a macro to a right-click menu item in Word Tag: 93105
  - 23
    - Create Mailmerge Envelope with VBA I am baffled as to how to create a envelope mailmerge document automatically (without user interaction) using VBA. I have recorded how word does it and the recorded macro apparently takes a "behind the scenes" step in the creation of an autotext entry that it subsequently uses when creating the mergedocument. Each time I record the process, Word creates a new autotext entry and then uses that entry as the parameter for the .Envelope.Insert AutoText:= command: Activedocument.Envelope.Insert ExtractAddress:=False, OmitReturnAddress:= _ False, PrintBarCode:=False, PrintFIMA:=False, Height:=InchesToPoints(4.13 _ ), Width:=InchesToPoints(9.5), Address:="", AutoText:= "ToolsCreateEnvelope2" In this example, an unrecorded command created the autotext entry ToolsCreateEnvelope2. When I examine the autotext entry ToolsCreateEnvelope2, I find that it contains the mergefields that I added via the set up envelope command when I recorded the above command in Word. Because I am calling this VBA routine from Access and want the system to automatically create the merge envelope document without user intervention, I have to somehow figure out how to do this automatically. As I see it my options are: - Somehow programmatically create an autotext entries containing my mergefields. or - Somehow enter a string for the Autotext entry that includes the mergefields I want to show in the address box or - Programmatically select the address text box and then insert mergefield using the standard ActiveDocument.Mergefield.Add command. I don't have any idea how to do any of these. Any one have any experience with this problem? Tag: Assigning a macro to a right-click menu item in Word Tag: 93103
  - 24
    - check if specific picture exist in footer i need to check if specific picture by pic name or something else is exist in the first page footer or in the primary footer. i need to check it with VBA code from macro in word thanks Tag: Assigning a macro to a right-click menu item in Word Tag: 93102
  - 25
    - I no longer have the cd for xp and word won't do certain function I have windows xp but, I no longer have the cd and I am not able to use certain functions on microsoft word and other programs ( such as in microsoft word I can't use the dictionary or look up a word. Please help. ~Thanks~ Tag: Assigning a macro to a right-click menu item in Word Tag: 93098

Hello there. Is it possible to change what a right-click menu item does
(i.e. assign a macro to it). When I right-click on a misspelt word, select
â??autocorrectâ??, and choose the correct spelling, I would like to write the
incorrect and correct spellings to a text file. I can create the macro to do
this, but it is just getting it to run when the spelling is clicked on.

Thanks in advance for your help,

Daorc

Top

Re: Assigning a macro to a right-click menu item in Word by Astrid

Astrid
Sun Nov 05 18:33:21 CST 2006

Hi Daorc,

Yes you can. Choose View - Commandbars - Customize, select the Shortcut
menus toolbar, select the approriate one and add your macro there.

Also see:
http://word.mvps.org/faqs/customization/AsgnCmdOrMacroToToolbar.htm

Hope this helps,
kind regards,
Astrid

"daorc" <daorc@discussions.microsoft.com> schreef in bericht
news:DA0E7F3C-7BEC-44D4-904E-964B4CE4679A@microsoft.com...
> Hello there. Is it possible to change what a right-click menu item does
> (i.e. assign a macro to it). When I right-click on a misspelt word,
> select
> "autocorrect", and choose the correct spelling, I would like to write the
> incorrect and correct spellings to a text file. I can create the macro to
> do
> this, but it is just getting it to run when the spelling is clicked on.
>
> Thanks in advance for your help,
>
> Daorc

Top