Word: How to you determine the current cursor position

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Licensing the NTFS sepcifcation Hi, We're writing an embedded application that reads and writes data to removable media via USB. I have successfully implemented a FAT driver for our arhcitecture and now we would like to support NTFS. We understand that the specification for NTFS is privatly held within MS. So I'm wondering how to start the process of licensing the specification. Where do we start Who is the best person to contact initially Thanks, Ben Tag: Word: How to you determine the current cursor position
  - 2
    - SpeedUp a Macro in Excel - Disable Functions Nope sorry, that only stops the Functions in the Worksheet, but no the Functions I've created in my module This is a pice of my colde: Code Block Application.ScreenUpdating = False Application.EnableEvents = False ActiveSheet.EnableCalculation = False Range("N6").Select While (ActiveCell.Value <> "FIN") If ActiveCell.Value = 0 Then Selection.EntireRow.Hidden = True End If ActiveCell.Offset(1, 0).Select Wend Application.EnableEvents = True ActiveSheet.EnableCalculation = True ActiveSheet.Calculate Application.ScreenUpdating = True Every time the line "Selection.EntireRow.Hidden = True" is executed, all my Funcions (created in another module) are also executed, I want to temporary disable them. Tag: Word: How to you determine the current cursor position
  - 3
    - Ex 2002 VBA, Activate First Available Cell in "A" Shasur-San, Almost perfect my friend, I put some of mine in with yours. I had to name it ZzSetup to put it at the end of a listing of active macros that I use everyday. Sub ZzSetup() ' ' ZzSetup Macro ' Macro recorded 6/1/2007 by Duane ' Application.CommandBars("Web").Visible = False Range(ActiveCell, ActiveCell.End(xlDown)).Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Dim rBlank On Error Resume Next Set rBlank = Range("A:A").cells.SpecialCells(xlCellTypeBlanks) If Not rBlank Is Nothing Then ActiveWindow.ScrollRow = rBlank.Row End If Sheets("Zion").Select End Sub I first get rid of the (View) Web Toolbar, this thing did not show itself by default some months ago, it must have been a MS update of some sort I have three hyperlink cells in "A" column visible in the top left corner of the sheet when I first open up the workbook, this is due to long time macro necessity from history. I make the third (last) hyperlink the active cell when I close the workbook everyday, my code then .Select this hyperlink to open it in IE7. Your code takes over to locate and position the first open cell in the upper left corner of the active sheet. You did this BUT, from the last hyperlink (that is just up out of site, my last active cell) to the very end of "A" column is now highlighted in entirety. If I code in an Enter or a down arrow to activate the cell of choice, the macro recorder records the number of the first empty cell made active (A8730), so I am please asking how to make just that upper left cell active, not the one above it just out of site. At the end of my code, I select another sheet where yet another very large macro takes over, thanks for your help. Tag: Word: How to you determine the current cursor position
  - 4
    - Using VB in MS Access Hi elitts, Can you post the SQL attached to that form please Tag: Word: How to you determine the current cursor position
  - 5
    - Why is it so ? Thanks Jason, for your help. Already sent the mapped file to wer@microsoft.com In the file mapping list 7.31 version is shown - not 7.21. Regards, Dhon Tag: Word: How to you determine the current cursor position
  - 6
    - vlookup Hi As an alternative if you like WorksheetFunctions you could try With Range("CPARSdata") DestCity = WorksheetFunction.VLookup("Line#1 CITY", .Range(.Cells( _ WorksheetFunction.Match( _ "Line#1 CITY", .Range(.Cells(1, 1), .Cells(.Rows.Count, 1)), 0) + 1, _ 1), .Cells.SpecialCells(xlCellTypeLastCell)), 2, False) End With Regards Peter Mo. Tag: Word: How to you determine the current cursor position
  - 7
    - Error when adding axModi to Windows Form. I added the COM Component for MODI (V.12.0) Using Office 2007 version and Visual Studio 2005 When i try to add the control to the form. I get an error: "Failed to import the ActiveX control. Please ensure it is properly registered." How can I add this control Is there a patch for this problem Also I try with MODI (v.11.0) Office 2003 and VS2005, and the same problem. Thanks a lot. Tag: Word: How to you determine the current cursor position
  - 8
    - Blue Star Infotech Offering on SharePoint for ISV and End User Organization Hi All, As a quick introduction I represent Blue Star Infotech, part of Blue star limited a $300 Mil group. We are based in USA & Europe. We are Microsoft Gold Certified Partner. I wanted to discuss and offers our expertise in building products around SharePoint to ISV community. My Company can help ISV's using SharePoint Build products on SharePoint technology faster and more efficiently. For end user organization my company can offer customization, support and independent testing and audit of application on SharePoint. Our service offerings cover the entire gamut starting from consulting, BI, data recognition, customization, and integration. We have an expertise to map the desired functionality to OOB feature list. We can manage site and content security, capacity planning, and storage management. I am wondering if the members of this group would be interested in looking at this service offering. May i request the group to visit my company website at http://www.bsil.com,in case anyone has any query please direct it to me and I will be happy to get it resolved regards Siddhartha Tripathi Tag: Word: How to you determine the current cursor position
  - 9
    - Autoexecuting macros How do you make a macro run as soon as the Excel file it is attached to is opened The version is Excel 2000. I have searched the help files and some forums already. Does anyone have any advice Tag: Word: How to you determine the current cursor position
  - 10
    - Making an array in Excel with the file names of a particular folder I apologize for the mixup. Thank you for your input. Tag: Word: How to you determine the current cursor position
  - 11
    - error message when closing ie7 I was having this same error message every time I exited Explorer. One of the formums mentioned the optional Expr add-ons might be a problem. So I went back in and deleted/removed all of the Explorer add-ons I had downloaded through MS Update. That did the trick. My question: why is it listed on MS Update as an option if it causes additional issues Thanks! AContinuallyFrustratedMsCustomerWhoThinksIfHisCompanyProducedProductThatWorkedAsInconsistantlyAsMs'sHisCompanyWouldBeLongGone Tag: Word: How to you determine the current cursor position
  - 12
    - Newbee - Insert previous cross-ref from the dialog box I would like to have a template that users can work on, and then later go through and select a paragraph or a word to be designated as a cross-reference. I would then like to create a macro that would pop open the cross-reference dialog box (type set to "numbered items", and type set to "paragraph text" as defaults), and have the items list already highlighted so the user pretty much launches the macro, scrolls to the cross reference item they want to insert and hit enter to insert and close the box. I don't want them to have to select the ReferenceType, ReferenceKind, etc. I know that this has got to be something simple and I'm overlooking it. I tried to record a macro to do it, I was having to put things like vbTab & "%m" to select stuff because I didn't know how to stop the macro have the user interact with the dialog box. Now thinking about it, I'd really like to just have a Dialog box that only displays the cross-references I've created show up without using the standard Microsoft box Is that possible Please, steer me in the right direction if I am off here. The application here is for a user to type a "Heading" and give it a cross-reference (can I set a style that automatically assigns a cross reference to the name (e.g. if the user applies the "heading" style to the text ). Then the user, later in the document presses the "macro button", a dialog box of previous references pops up, the scroll to the one they want, hit enter and it inserts it. Sorry, I don't know the proper language to use here; and maybe that is part of my problem. I just got "knighted" to this. I appreciate any input, even if it is "go read..." Thanks. Ferrell Tag: Word: How to you determine the current cursor position
  - 13
    - Need Help on how to use library file (Win32 API) Hi All, Can any one help me on how to use Library files in Excel VBA. I have pasted here some sample. If possible which website can i refer to know about more about this. How to declare and use the constants Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long Thanks in advance. Bye Tag: Word: How to you determine the current cursor position
  - 14
    - Easy msgbox Query Moved to VBA forum Please ask questions related to VBA in this forum rather than the VB ones which are intended for VB.NET questions. Tag: Word: How to you determine the current cursor position
  - 15
    - Cannot read Office 2007 DVD Hi I'm having same problem too, I recently installed using LG drive. I've now got a Lite-On drive and having no luck reading the disk, every other disk works fine on my drive. Tag: Word: How to you determine the current cursor position
  - 16
    - iexplore.exe - Application Error (EVERY TIME I CLOSE IE7) :( I experience the same irritating problem when closing IE7. It only happens on one of my computers. I look forward to a solution. Thank you Tag: Word: How to you determine the current cursor position
- Next
  - 1
    - duplicating VBA objects Hi, well that is a great code thanks for that. i'm having a trouble to remove a Object.... a few strange errors occurs.... i'll be happy if you could help me with that... thanks gilad. Tag: Word: How to you determine the current cursor position
  - 2
    - Copying and Deleting the duplicate records in an excel sheet and Copying the same Deleted records into another sheet Hi bharat baradia, Move the thread from Visual Basic Express Edition in order to get better answers. Thanks for your understanding! Tag: Word: How to you determine the current cursor position
  - 3
    - Using C# Events over COm-Interop in VBA Hi, i am trying to write a DLL with Code writen in .NET / C# that can be acces in VBA Applications via COM-Interop. Everything seems to work so far, but: I have an Event in my C# Class that i want to acces in the VBA code: --- Public Class VBATest { public event EventHandler OnLogin; public void Test() { ... if (this.OnLogin != null) { this.OnLogin(this, EventArgs.Empty); } } } ---- Now i want to add an event Listener in my VBA Code to the OnLoginEvent. Is there a way to do this or are C# like Events are not Supported to be use over Com-Interop in VBA BTW: If someone knows any tutorials about C#/.Net -> Com-Interop -> VBA (Excel), let me know Thank you very much for any Help! Tag: Word: How to you determine the current cursor position
  - 4
    - Excel VBA - Best way to SQL Insert if SQL Update fails I found what I needed...it's On Error instead of Try/Catch. Tag: Word: How to you determine the current cursor position
  - 5
    - Using DCount function in a Report group footer Hi, thanks but that's not the case. The report field name is "Task ID". The third argument references a query that simply renames "Task ID" to "TaskID" because the syntax wouldn't accept further quotes within the 'IN' statement. So, my question remains - how do I reference the current report group as the domain I've tried just using the table that the field comes from, but that doesn't work either - plus I can't see how that would give the correct answer. Thanks Tag: Word: How to you determine the current cursor position
  - 6
    - Error 380: Invalid property value:Help Me Please Im working on some coding for an assignment i was given and i neede help as fast as possible. I have been recieving an error message that reads as follows: Run-time error: "380" Could not set the Value property: Invalid property value Ive used F8 in attempt to locate the problem and i have highlighted where i believe the problem is in the coding below: Dim Row As Integer Dim nop As Integer Dim cellc As Integer Dim nosuppliers As Integer Private Sub countchange_Change() countchange.Max = txtnop + 1 txtcount.Text = countchange Sheets("magazine").Select Row = Val(txtcount) + 6 Range("A" & Row).Select ctitle.Text = ActiveCell.FormulaR1C1 Range("B" & Row).Select cissue.Text = ActiveCell.FormulaR1C1 Range("C" & Row).Select cisbn.Text = ActiveCell.FormulaR1C1 Range("D" & Row).Select cbuyprice.Text = ActiveCell.FormulaR1C1 Range("E" & Row).Select csellprice.Text = ActiveCell.FormulaR1C1 Range("F" & Row).Select cstockb.Text = ActiveCell.FormulaR1C1 Range("G" & Row).Select cstocks.Text = ActiveCell.FormulaR1C1 Range("H" & Row).Select cstockr.Text = ActiveCell.FormulaR1C1 Range("I" & Row).Select csupplierno.Text = ActiveCell.FormulaR1C1 Range("J" & Row).Select cinterval.Text = ActiveCell.FormulaR1C1 Range("K" & Row).Select creleasedate.Text = ActiveCell.FormulaR1C1 Range("L" & Row).Select cnreleasedate.Text = ActiveCell.FormulaR1C1 Range("M" & Row).Select cgenre.Text = ActiveCell.FormulaR1C1 Range("N" & Row).Select ccprofit.Text = ActiveCell.FormulaR1C1 Sheets("suppliers").Select Row = Val(csupplierno) + 6 Range("c" & Row).Select csupplierc = ActiveCell.FormulaR1C1 If txtcount > txtnop Then csuppliername.ListIndex = 0 Else Range("B" & Row).Select csuppliername = ActiveCell.FormulaR1C1 End If End Sub Private Sub csuppliername_Change() csupplierno = Val(csuppliername.ListIndex) + 1 Sheets("suppliers").Select Row = Val(csupplierno) + 6 Range("c" & Row).Select csupplierc = ActiveCell.FormulaR1C1 End Sub Private Sub submit_Click() Sheets("magazine").Select Row = Val(txtcount) + 6 Range("A" & Row).Select ActiveCell.FormulaR1C1 = ctitle.Text ctitle.Text = "" Range("B" & Row).Select ActiveCell.FormulaR1C1 = cissue.Text cissue.Text = "" Range("C" & Row).Select ActiveCell.FormulaR1C1 = cisbn.Text cisbn.Text = "" Range("D" & Row).Select ActiveCell.FormulaR1C1 = cbuyprice.Text cbuyprice.Text = "" Range("E" & Row).Select ActiveCell.FormulaR1C1 = csellprice.Text csellprice.Text = "" Range("F" & Row).Select ActiveCell.FormulaR1C1 = cstockb.Text cstockb.Text = "" Range("G" & Row).Select ActiveCell.FormulaR1C1 = cstocks.Text cstocks.Text = "" Range("H" & Row).Select ActiveCell.FormulaR1C1 = cstockr.Text cstockr.Text = "" Range("I" & Row).Select ActiveCell.FormulaR1C1 = csupplierno.Text csupplierno.Text = "" Range("J" & Row).Select ActiveCell.FormulaR1C1 = cinterval.Text cinterval.Text = "" Range("K" & Row).Select ActiveCell.FormulaR1C1 = creleasedate.Text creleasedate.Text = "" Range("L" & Row).Select ActiveCell.FormulaR1C1 = cnreleasedate.Text cnreleasedate.Text = "" Range("M" & Row).Select ActiveCell.FormulaR1C1 = cgenre.Text cgenre.Text = "" Range("N" & Row).Select ActiveCell.FormulaR1C1 = ccprofit.Text ccprofit.Text = "" Range("O" & Row).Select ActiveCell.FormulaR1C1 = txtcount.Text txtcount = Val(txtcount) + 1 Row = Val(txtcount) + 6 Range("A" & Row).Select countchange.Value = txtcount + 1 txtcount = countchange.Value Range("C" & "2").Select txtnop = ActiveCell.Value End Sub Private Sub UserForm_Initialize() Sheets("magazine").Select Row = 7 Range("A" & Row).Select ctitle.Text = ActiveCell.FormulaR1C1 Range("B" & Row).Select cissue.Text = ActiveCell.FormulaR1C1 Range("C" & Row).Select cisbn.Text = ActiveCell.FormulaR1C1 Range("D" & Row).Select cbuyprice.Text = ActiveCell.FormulaR1C1 Range("E" & Row).Select csellprice.Text = ActiveCell.FormulaR1C1 Range("F" & Row).Select cstockb.Text = ActiveCell.FormulaR1C1 Range("G" & Row).Select cstocks.Text = ActiveCell.FormulaR1C1 Range("H" & Row).Select cstockr.Text = ActiveCell.FormulaR1C1 Range("I" & Row).Select csupplierno.Text = ActiveCell.FormulaR1C1 Range("J" & Row).Select cinterval.Text = ActiveCell.FormulaR1C1 Range("K" & Row).Select creleasedate.Text = ActiveCell.FormulaR1C1 Range("L" & Row).Select cnreleasedate.Text = ActiveCell.FormulaR1C1 Range("M" & Row).Select cgenre.Text = ActiveCell.FormulaR1C1 Range("N" & Row).Select ccprofit.Text = ActiveCell.FormulaR1C1 Range("C" & "2").Select txtnop = ActiveCell.Value Sheets("suppliers").Select Row = 7 Range("C" & "2").Select nosuppliers = ActiveCell.Value Range("B" & Row).Select cellc = 0 Do While cellc <= nosuppliers csuppliername.AddItem (ActiveCell.FormulaR1C1) cellc = cellc + 1 Row = Row + cellc Range("B" & Row).Select Loop Sheets("suppliers").Select Row = Val(csupplierno) + 6 Range("c" & Row).Select csupplierc = ActiveCell.FormulaR1C1 Range("B" & Row).Select csuppliername = ActiveCell.FormulaR1C1 countchange.Max = Val(txtnop) + 1 End Sub If you need any more info on the program dont hesitate to ask. Please try to help me. Tag: Word: How to you determine the current cursor position
  - 7
    - Windows Error Reporting - handling unanticipated errors Thanks for your comments, Claus. The question was primarily about the legality of handling such errors in the context of Vista certification. However, I'd agree that we would always need to consider the potential negative consequences of doing so. John Tag: Word: How to you determine the current cursor position
  - 8
    - Is there a better way to debug. The VBE also has functionality to allow you to Watch variables or conditions. Another useful command is Debug.Assert Tag: Word: How to you determine the current cursor position
  - 9
    - Display a value in a looping status Hello. I am working on a program that requires me to generate a status of the program I am writing. Up to now I can display every string values out onto the txtDisplayText box but except that last one which the value was generated from the serial port Code Snippet Dim sRx_Buffer As String Dim sRx_Msg As String commSerial.Output = stringValue sRx_Buffer = commSerial.Input sRx_Msg = Conversion(sRx_Buffer) *Conversion function* txtDisplayStatus.Text = txtDisplayStatus.Text & _ "From Serial device: " & generatedValue & vbcrlf & vbcrlf I let it run in a loop function. Everything shows up except the last one. I set a breakpoint to check what's in the commSerial.Input. I did see some values but the variable could not capture the string of data that is from the serialComm.Input. Any help on this Thank you very much. Tag: Word: How to you determine the current cursor position
  - 10
    - Excel Macro Help needed for the code in excel Marro... I have a backend excel file in LAN server, which acts as main database... and n numbers of fronend excel file with n numbers of users...... I have written a code where data will be submitted from frontend to backend in a click of a button.... I want to check if the backend excel file is open somewhere/anywhere before executing the code further.... Tag: Word: How to you determine the current cursor position
  - 11
    - Subscript out of range with a simple sql :-( [newbie to VBA] THANK YOU! Tag: Word: How to you determine the current cursor position
  - 12
    - VB code in Access forms Hi, i'm a beginner in the VB code world but enjoy making things happen in the rare instances that they do! I'd really like some VB code / help for the following: I 'm designing a database with user input forms and am stuck on how to use VB code to make it do the things i want it to... I want code to do the following: For each new record i only want the parent form to be accessible for data entry, after all its fields are in then the subforms which appear on the same form can then be made accessible for data entry. Problem is i don't know how to refer to the NewRecord property via VB and then turn on / off the data entry properties of the subforms. I would also like to know how to use the value of the current record (automatically incremented with every new record), ideally i'd like to sync this in with a reference number on the actual parent form. Any help much appreciated. Catherine Tag: Word: How to you determine the current cursor position
  - 13
    - Run-time error '13': Type Mismatch hi Andy, thank you for replying, you can ignore my post since now i use a different method to do this project, sorry to trouble you thanx a lot ^^! Tag: Word: How to you determine the current cursor position
  - 14
    - ReportFault() vs. WerReportCreate/WerReportSubmit() on Vista Jason, thanks a lot for your help! I haven't looked into the details of the recovery/restart APIs yet, but I was told that they impose an upper time limit for saving the state of the application. Is that true If so, that might be an issue for us, as our customers often work with data consuming several GB in memory, and saving those data can take an almost arbitrary amount of time. Anyway, the immediate problem I'm trying to solve is to use the WER API to inform the user about the crash, create a crash report, attach minidump data, and send the whole package off to the Winqual site. The core of our WER code looks approximately like this: Code Snippet // Set up parameters for WerReportCreate() WER_REPORT_INFORMATION werReportInfo; memset(&werReportInfo, 0, sizeof(werReportInfo)); werReportInfo.dwSize = sizeof(werReportInfo); wcscpy_s(werReportInfo.wzFriendlyEventName, _countof(werReportInfo.wzFriendlyEventName), L"Friendly event name"); wcscpy_s(werReportInfo.wzDescription, _countof(werReportInfo.wzDescription), L"Critical runtime problem"); werReportInfo.hwndParent = AfxGetMainWnd()->m_hWnd; PCWSTR eventType = L"MyApp"; HREPORT hReportHandle; if (SUCCEEDED(pWerReportCreate(eventType, WerReportCritical, &werReportInfo, &hReportHandle)) && hReportHandle) { WER_EXCEPTION_INFORMATION werExceptionInformation; werExceptionInformation.bClientPointers = FALSE; werExceptionInformation.pExceptionPointers = inExceptionPointer; bool dumpAdded = SUCCEEDED(pWerReportAddDump(hReportHandle, ::GetCurrentProcess(), ::GetCurrentThread(), WerDumpTypeMiniDump, &werExceptionInformation, NULL, 0)); WER_SUBMIT_RESULT submitResult; DWORD submitOptions = WER_SUBMIT_ADD_REGISTERED_DATA | WER_SUBMIT_OUTOFPROCESS; if (SUCCEEDED(pWerReportSubmit(hReportHandle, WerConsentNotAsked, submitOptions, &submitResult))) { // handle submitResult // ... } } All the return values are OK and as expected, and yet, according to wercon.exe, the minidump information is always missing in the crash report - and so far, none of our crash reports (which were triggered from Vista systems) even made it the Winqual site. It's probably an obvious and simple mistake on my part, which I'm just not seeing after staring at this code for several days now 8-) Thanks! Claus http://www.clausbrod.de/Blog Tag: Word: How to you determine the current cursor position
  - 15
    - Access Data Project, form bound to Sproc, need to update, etc If the stored procedure has parameters you must add them to the Form's input parameters. For instance, if the form has two input boxes (combo, text) that are used to filter data on the form you would have to include those parameters. Input the parameters on the data tab of the form properties (including type and size) along with the fully qualified name of the parameter. Ex. @Update_EIDs_EID varchar(12) = Forms!Update_Eids!EID, @Update_EIDs_Hull varchar(4) = Forms!Update_EIDs!Hull where @Update_EIDs_EID varchar(12) is the parameter from the stored procedure and Forms!Update_Eids!EID = Forms! (name of form) ! (name of control) Hope this helps. Tag: Word: How to you determine the current cursor position
  - 16
    - Conditional Formatting Problem/Bug? Cringing Dragon, Thank you for your prompt reply. Yes, what you suggested does not solve the underlying problem but you have given me an alternative solution to my problem. I couldn't think of others ways to give me the same result and the COUNTIF function did that for me so thank you so very much. It is really appreciated. I am still curious why the SUM function didn't work the way from VBA but does when you do it manually. Thanks again. Tag: Word: How to you determine the current cursor position

KatKen

For one of my macros to run, I have to ensure that the cursor position is not in a table or in a frame when the user activates the macro.

How can I find our the current cursor position Once I can determine that the cursor is positioned in a table or a frame, I can then code a message box to instruct the user where to put their cursor to run a certain routine.

Top

Re: Word: How to you determine the current cursor position

Andy Pope

Hi,

Cursor position
Selection.Range.End

This will check whether currently in a table or frame.

Dim lngTableCount As Long
Dim lngFrameCount As Long

For lngTableCount = 1 To ActiveDocument.Tables.Count
If Selection.Range.InRange(ActiveDocument.Tables(lngTableCount).Range) Then
MsgBox "In Table"
Exit For
End If
Next

For lngFrameCount = 1 To ActiveDocument.Frames.Count
If Selection.Range.InRange(ActiveDocument.Frames(lngFrameCount).Range) Then
MsgBox "In Frame"
Exit For
End If
Next

Top

Re: Word: How to you determine the current cursor position

KatKen

Thanks for that! Will try it straight away!

Top