Page 3 of 4 FirstFirst 1234 LastLast
Results 21 to 30 of 36

Thread: 40$ Word Macro Highlight Keywords And Maps Checklisted Words In A Listbox

  1. #21
    Member littleiitin's Avatar
    Join Date
    Aug 2011
    Posts
    90
    Rep Power
    13
    Sri,

    Please check if macros are enable .

    Second at my end every short cut key is working fine..

    However if it is not working please assign shortcut keys as described in attached word doc.

    Third: Please make the names ListBox1, Listbox11 and ListBox12 without spaces.

    Let me know for any other issue.

    Thanks
    Rahul Singh
    Attached Files Attached Files

  2. #22
    Member littleiitin's Avatar
    Join Date
    Aug 2011
    Posts
    90
    Rep Power
    13
    if you want to change the name of list box just click disign mode in developer tab--> select the list box-->Press Alt+F11 -->Press F4

    you can see a property window in the left pane.. in this window top property is name.. you can change its name...to desired one..

  3. #23
    Junior Member
    Join Date
    Jul 2012
    Posts
    18
    Rep Power
    0
    I got the shortcut keys to work but the macro works only for that word document. When i try it on a different document after inserting listBox1,listBox12,listBox11 it cannot execute and gives the following error.Compile error "Method or data member not found" and highlights listbox11 in the code in line 64. If i try copy the new content of the word file into the existing sample word document then too the it cannot execute it shows an error on line 259.How do i fix it


    One more issue i have is that some document where this macro needs to run are pretty long maybe 20 pages or more so can i have the listbox displayed in the page where the keyword is highlighted. Suppose its page 11 then lisbox appears in page 11. Page 6 then listbox appears in page 6
    Last edited by Sri; 07-22-2012 at 11:23 PM.

  4. #24
    Member littleiitin's Avatar
    Join Date
    Aug 2011
    Posts
    90
    Rep Power
    13
    Hi Sri,

    Its Very Easy to incorporate this in other file:

    Follow below steps:---

    1: Open Both the File The Current File and the file where you want this macros to run.

    2: Useing Developer Tab add three ListBoxes in your New File.

    3: Press Alt+F11 and then F4.
    You can see a "Properties-ThisDocument" window in left hand Side
    In this you can see a dropdown on the top- Select First ListBox and check if its Name is ListBox1 in the Same way Second List box Name would Be ListBox12, and Third one ListBox11

    4: Double Click ThisDocument of New File and Paste Below Code :

    Code:
    Private Sub ListBox1_Change()
        
        Dim lngcnt      As Long
        
        For lngcnt = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(lngcnt) Then
                Call RemoveAll
                Call FillListBox(ListBox1.List(lngcnt))
                Call SelectKeyword(ListBox1.List(lngcnt))
            End If
        Next
    End Sub
    5: Then from Previous file Drag and drop below modules in new File:
    (i):-modFilePicker
    (ii):-modFillListBox
    (ii):-NewMacros

    Note: Don't Change Any Name

    6: Then Assign shortcut Keys: to
    Crtl+7 to SelectAllKeywords
    Crtl+8 to SelectonSelection
    Crtl+9 to RemoveAll

    7: Save your file as macro enabled file.



    Rest Placing Listbox at fist find location has some issues and also it was not the part of specification.


    Thanks
    Rahul Kumar Singh
    Last edited by littleiitin; 07-23-2012 at 10:03 AM.

  5. #25
    Junior Member
    Join Date
    Jul 2012
    Posts
    18
    Rep Power
    0
    Hi Rahul,

    Will try it and get back to you in half hour.

  6. #26
    Junior Member
    Join Date
    Jul 2012
    Posts
    18
    Rep Power
    0
    Hello Rahul

    I was able to get the macro to execute but when i input the excel file and run Cntrl+7, I am getting an error in line 95 "Selection.Font.Color = wdColorGreen". It shows "Run time error 4605 this method or property is not available because the current selection is locked for format change". What should I do to get it working. Please let me know.

  7. #27
    Junior Member
    Join Date
    Jul 2012
    Posts
    18
    Rep Power
    0
    Hello Rahul ,

    I tried it for another document and it worked. I don't know why it din't execute for the other document and showed an error as mentioned in the previous post. I have a few issues though.

    Firstly there are many occurrences of the same keyword in the document so I have to be able to navigate from occurrence to the other on a keypress I had mentioned it before too but this has been overlooked.For example if the macro executes for the keyword "country" then the keyword occurs in so many places within the document. Say it occurs twice in page 1 five times in page 2 and so on. I have to be able to navigate through each occurrence on a hotkey press. Please look into this


    Secondly can I have the display of the listbox12 in each page depending on the number of pages of the document. Or is it easier to move listbox12 to whichever keyword location I am in. Suppose I am navigating for the keyword country and I am in page 10 of the document then the listbox12 is also displayed in page 10. Next on hotkey press it spots the next occurrence of the keyword country and moves to page 12 then the listbox12 also is moved to page 12.

    Please let me know Thank you for your time and effort.

    Regards,
    Sri

  8. #28
    Member littleiitin's Avatar
    Join Date
    Aug 2011
    Posts
    90
    Rep Power
    13
    Sri,

    Place Below Codes in NewMacros Module at the bottom...

    and Assign Shortcut Key to Macro "SelectKeywordOneInstrance" ( I assigned Crtl+-)
    Code:
    Sub SelectNextInstanceofSameKeyword()
        
        Dim strString       As String
        
        strString = Trim(Selection.Text)
        Application.ScreenUpdating = False
        Call FillListBox(strString)
        Call SelectKeywordOneInstrance(strString)
        Application.ScreenUpdating = True
    End Sub
    Code:
    Sub SelectKeywordOneInstrance(strKey As String)
        Dim objExcel        As Object
        Dim wbkExcel        As Object
        Dim wksAct          As Object
        Dim rngWhole        As Object
        Dim rngCell         As Object
        Dim strSearch       As String
        Dim rngRange        As Range
        Dim lngRowN         As Long
        Dim lngcolN         As Long
        Dim rngVar          As Range
        Dim lngCheck        As Long
        Dim tblTable        As Table
        Dim lngTblID        As Long
        Dim lngRow_1         As Long
        Dim lngcol_1         As Long
        Dim lngTableCre_1     As Double
        Dim lngTableFlag_1    As Long
        
        Set rngRange = ActiveDocument.Range
        For Each tblTable In ActiveDocument.Tables
            lngTblID = lngTblID + 1
            tblTable.ID = lngTblID
        Next
        If strKey = "" Then
            MsgBox "No Keyword Selected.", vbInformation, "Exit:"
            Exit Sub
        End If
        Do
            Selection.Find.ClearFormatting
            Selection.Find.Text = strKey
            strSearch = strKey
            lngcol_1 = Selection.Tables.Parent.Cells(1).ColumnIndex
            lngRow_1 = Selection.Tables.Parent.Cells(1).RowIndex
            lngTableCre_1 = Selection.Tables(1).ID
            Selection.Find.Execute
            
            If Selection.Information(wdWithInTable) = True Then
                If Selection.Tables(1).ID <> lngTableCre_1 Or (Selection.Tables.Parent.Cells(1).ColumnIndex <> lngcol_1 Or Selection.Tables.Parent.Cells(1).RowIndex <> lngRow_1) Then
                    Exit Sub
                End If
            End If
    
        Loop While Selection.Find.Found
    
    End Sub
    And For List box to move: I Suggest to Place ListBox12 into Header Section.

    Thanks
    Rahul Kumar Singh
    Last edited by littleiitin; 07-24-2012 at 09:51 AM.

  9. #29
    Member littleiitin's Avatar
    Join Date
    Aug 2011
    Posts
    90
    Rep Power
    13
    Sri,

    Please find the attached file. With All your Requirements...

    Please Drag n drop all the modules and forms and also copy the code from thisdocument to your files thisdocument.

    I have assigned Hot keys
    Crtl+7 to "SelectAllKeywords" procedure which will provide you option to select mapping file and then it will highlight all the Keywords (one instance for one cell) present in mapping file.

    Crtl+0 to "ShowCheckListForm" which will show you related Checklist Items of selected keyword.

    Crtl+= to "SelectNextKeyword" this will select Next keyword. Let say you have selected "Country" keyword and if in list "Animal" is the next keyword then it will select the next occurrence of Animal.

    Crtl+- to "SelectNextInstanceofSameKeyword" this will select Next occurrence of same keyword. Let say you have selected "Country" keyword then it will select next occurance of "Country" keyword.

    Crtl+9 to "SelectonSelection" procedure which will remove all the selection and select only occurrence of selected keyword. Like if you selected "Country" then it will remove all selection and will show you all occurances of country.

    Crtl+8 to "Remove All" this will remove all Highlighted keywords.


    I believe this serves all your requirement.


    Thanks
    Rahul Singh
    Attached Files Attached Files

  10. #30
    Member littleiitin's Avatar
    Join Date
    Aug 2011
    Posts
    90
    Rep Power
    13
    Please don't delete the listboxes...

    You will not be able to see because I am making their size small but they are used in code so keep them as it is.


    Thanks
    Rahul Kumar Singh

Similar Threads

  1. Replies: 7
    Last Post: 08-24-2015, 10:58 PM
  2. Highlight Active Cell’s Row and Column
    By Transformer in forum Tips, Tricks & Downloads (No Questions)
    Replies: 0
    Last Post: 05-17-2013, 12:32 AM
  3. Replies: 1
    Last Post: 10-16-2012, 01:53 PM
  4. Replies: 4
    Last Post: 08-14-2012, 03:17 AM
  5. Replies: 7
    Last Post: 06-23-2012, 07:56 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •