Clearing a manually created indent for a paragraph

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Excel Macro running slower in 2003 vs. 2002 I am trying to figure out why a macro runs slower in Excel 2003 vs. 2002 and narrowed it down to a function that deletes rows. This function is used numerous times and before this function is called a varying row is selected, then is processed in this function. I think the Selection.Delete command is causing the slowed performance but not sure why it is. Does anyone have a suggestion Up to 100 rows can be selected based upon the criteria. CellCount = 0 For Each Cell In Selection If Cell.Value = 0 Then CellCount = CellCount + 1 Next Cell If CellCount = 0 Then Exit Sub CellCount = CellCount - 1 ReDim DRows(CellCount) As Single TicCounter = 0 For Each Cell In Selection If Cell.Value = 0 Then DRows(TicCounter) = Cell.Row If Cell.Value = 0 Then TicCounter = TicCounter + 1 Next Cell Set DeleteRange = Rows(DRows(0)) DeleteRange.Select For NCTS = 1 To CellCount Set DeleteRange = Union(DeleteRange, Rows(DRows(NCTS))) DeleteRange.Select Next NCTS DeleteRange.Select Selection.Delete Shift:=xlUp Tag: Clearing a manually created indent for a paragraph
  - 2
    - ReportFault() vs. WerReportCreate/WerReportSubmit() on Vista For sample code and details about my findings on how ReportFault() on Vista behaves, check out my blog entry at http://www.clausbrod.de/Blog/DefinePrivatePublic20070616 Hope this clarifies some of my earlier notes on ReportFault(). Cheers, Claus Tag: Clearing a manually created indent for a paragraph
  - 3
    - height of a field in word Dear Shasur, Thank you for all the responses. The fields that I am talking about contain mathematical expressions of the sort {EQ \F(2.3)*\R(3,8)}. Yes the code you sent above helps me with any inline shapes. I figured this sometime back. The only place I got stuck is the height of these fields. There seems no straight-forward way to get the height. Probably I will have to resort to some empirical methods if the theoretical ways dont work. :-) Regards, Syam. Tag: Clearing a manually created indent for a paragraph
  - 4
    - Problen reading Cell Im from Brazil, and my regional seeting are "," to separete decimal places But when i use VBA to read a cell value, if it is 0,93 he only reads 0, but if it is 0.93, he reads correctly this is a sample of the code that i'm using Code Snippet Dim Proj(500, 500) As Double Proj(3, L) = Val(Cells(21 + L, "N").Value) My regional settings are ok Tag: Clearing a manually created indent for a paragraph
  - 5
    - Bloomberg + Execel = True? Ok my situation is like this: I have a computer that runs Windows XP Professional. On the computer I have a Bloomberg subscription i.e. I have an ordinary monitor, but a Bloomberg keyboard and it is "true" Bloomberg subscription (it is not the Bloomberg website I am referring to). I have an Excel spreadsheet that is connected to Bloomberg and updated once every day using a DDE connection. Now will this work even if the Bloomberg program is closed If not so is there any other way of creating a link that works even if the Bloomberg program is closed The connection works through a macro that runs on a prespecified time every day. The code for opening the Bloomberg link is: channelNumber = Application.DDEInitiate(app:="BLP", topic:="S") (the code for the macro is not written by me) Please if you know anything about this help me out. I have contacted the Bloomberg helpdesk by they never seem to give a staright answer. Thank you! Tag: Clearing a manually created indent for a paragraph
  - 6
    - ApplyCustomType question I'm running Office XP with current updates, and I'm observing some peculiar behavior when I try to use ActiveChart.ApplyCustomType in Visual Basic. The FIRST time I run my Macro after opening Excel, none of the code after: ActiveChart.ApplyCustomType xlUserDefined, "name" executes. After the first time I run the macro, the VBA Project (XLUSRGAL.XLS) appears in the "Project" window of the Editor, though none of the custom charts I've placed in that file are listed. After this the macro runs perfectly every time, until the next time I close and open Excel. The macro also runs correctly the first time if I open XLUSRGALS.XLS in another window BEFORE I run the macro. I see identical behavior when I use xlAnyGallery and xlBuiltIn (replacing XLUSRGALS.XLS with XL8GALRY.XLS). It doesn't make any difference which of the user-defined or built-in custom charts I call. Does anybody know what's going on I want my code to work the FIRST time! Thanks, Alexander Tag: Clearing a manually created indent for a paragraph
  - 7
    - opc Hi Eric, Sounds like you know what you're talking about ... Can I also butter you up and find out if you know anything about using an OPC interface in VB.NET that was designed for VB6. The problem is the RSiOPCAuto.dll that Rockwell use to interface to their OPC server (RSlinx). It only accepts Arrays with lower bounds of 1 which is not possible in VB.NET. (see refs below) 1) http://www.control.com/1026218609/index_html 2) http://www.control.com/1026222355/index_html I only dimly understand the article on http://www.codeproject.com/dotnet/opcdotnet.asp . It seems to be saying that if I was using VC++ I could write some kind of code which would make be able to use the OPC interface which was COM and written for VB6. If I was using C++ I'd be laughing. I'm not. :-)... and while the C++ is interesting and gives me hope, I'm working with VB.NET and I'm still trying to figure out how I can use the OPC interface designed for VB6 with VB.NET. Why do I even need RSiOPCAuto.dll If OPC is a standard, can I not just use any OPC interface and hope that RSLinx (the Rockwell OPC server) answers with the right data Is there not a "General" OPC interface dll Puzzled from Leicester Andrew Smith andrew.w.smith|at|severntrent.co.uk Tag: Clearing a manually created indent for a paragraph
  - 8
    - Issue with Selection.TypeText and Chinese Characters. Hello Everyone, I'm having trouble getting chinese characters to work with TypeText. When I use English, everything works great. For example, the following statement shows up as " " in my word document. exec sp_OAMethod @objword, 'Selection.TypeText("ГА‡шї‚Ѕy")' While I'm using T-SQL and not VBA, I figured that the people here would probably know the answer. I've been finding VBA documentation or recording word macros and translating it to work with T-SQL as there is hardly anything on intergrating Word and SQL Server. So, my appologies in advance if this is the wrong forum. If anyone knows the answer or could point me in the right direction, it'd be greatly appreciated. Thanks! Tag: Clearing a manually created indent for a paragraph
  - 9
    - DoCmd.OpenReport passinh param to underlying query in MSAccess Hi all, - I have in Access (2003) a report who's datasource is a saved query. - This query needs a param How can pass the param to the query using the DoCmd.OpenReport method Any help is highly appreciated. TIA Dan Tag: Clearing a manually created indent for a paragraph
  - 10
    - "Cabs requested" icon Hi, a number of the crash reports we're seeing is marked with the "Cabs requested" icon (cab icon with a little clock in it). The documentation says that this icon means that ".cab data has been requested and is not yet ready for download". I'm not quite sure how I should read this. My current interpretation is as follows: For some crash reports, the .cab file is not transmitted to the Winqual site by default. Only a short notification about the crash is recorded. Crash reports without .cab data are marked with a .cab icon with a red "x" in it. On the Winqual site, we can request more data for such crash reports. The docs say: "When end-users experience the event, Microsoft will ask to collect minidump data." I guess this means that if another crash of the same type (same bucket) occurs on a customer system, the Winqual server will request the .cab data immediately from them. However, if the same crash never occurs again, we will never see any .cab data. Is this an adequate interpretation Apparently, some crash reports have .cab files by default, i.e. without us explicitly requesting those files. What are the criteria for the Winqual server to request .cab data even for the first crash of a new event type Thanks! Claus http://www.clausbrod.de/Blog Tag: Clearing a manually created indent for a paragraph
  - 11
    - Save As event not firing in Office 2007 I wrote an event for Save As menu , it works fine for Office 2003, but its not working for Office 2007 (1 line of code below) If evtFileSaveAs Is Nothing Then Set evtFileSaveAs = 'Application.CommandBars("Menu Bar").FindControl(, 748, , True, True) I am expecting doubt like Save As Menu Id is not 748. Is there any solution for this Thanks in advance and help appriciated. Tag: Clearing a manually created indent for a paragraph
  - 12
    - Exporting the access resultset to excel programmatically Dear all, I would know how can I export the access resultset to excel. Can I get the query from Access which I have done and saved in access directly, so that I do not need to rewrite the SQL statement in the VB, if yet, then how I think I need to use something like Set rs = db.OpenRecordset("Query name") or such but I don't know how. Can anyone of you can help me in this issue Thanks in advance. Regards, Alex Tag: Clearing a manually created indent for a paragraph
  - 13
    - Excel 'Freeze panes' from Access VBA (Off2000) Hi, I'm searching for a way to freeze the upper part of my Excel sheet (with headers and such, like the 'freeze panes' menu option in Excel), from my Access VBA code. I've been searching for a while but didn't come up with something usefull. Anyone any suggestions Thanks in advance, I'd be really glad if someone knows this! Tag: Clearing a manually created indent for a paragraph
  - 14
    - Message for display during macro execution I have a macro that takes a long time to execute. While it is running I would like to put an object on screen to inform the user that the macro is running and they should just wait. Otherwise they may think something is wrong. It would also be good if this object had a button on it the user could click to end the macro if they run out of patience. I thought about a message box, but when it is displayed it halts execution until the user clicks it, then it dissapears anyway so this will not do the job. Is there another object I could place on screen that has say "display" and "close" functions that I could use as follows; Sub theMacro() SignalBox.display "Just wait, the macro is running" 'lots of code 'lots of code SignalBox.close UserForm1.show ' shows macro results End Sub Maybe another userform could do this, but it would have to be able to stop the macro via a command button (not sure if possible) and/or close itself. Tag: Clearing a manually created indent for a paragraph
  - 15
    - Upgrade problem Access 97 and Access 2003 on same machine Hi We have finally started to upgrade to Office 2003, I still have a copy of Access 97 on my machine to maintain databases which cannot be upgraded until the roll out is finished. However, when I run my code now I am getting a problem. Access 97 now will not use the Trim$ function is an SQL statement, I get a message that the function is not available. Trim$ will work outside of an SQL statement e.g. Debug.print Trim$(" some text ") Any ideas where my problem stems from Tag: Clearing a manually created indent for a paragraph
  - 16
    - How to check if a date exists Awesome, that works perfectly. Tag: Clearing a manually created indent for a paragraph
- Next
  - 1
    - BSM 2005 Server Installation Failed Hi All We are trying to install Business Scorecard Manager 2005 Single Server Installation. We are getting error "Failed Microsoft Sharepoint Extended Site". We can able to create a new website and extend another web site from Central Administration. Please help me how to fix this error Tag: Clearing a manually created indent for a paragraph
  - 2
    - Internet Explorer 7 jpeg and gif blurry after tools/internet options/advance/reset There are two solutions to this problem. 1. Adjust the DPI back to the standard settings. --> Right-click your desktop and go to Properties --> Click on the settings tab --> Click on advanced --> Change the DPI setting back to "Normal" 2. Edit the registry. --> Go to Start, Run --> Type regedit and click OK --> search for "UseHR" --> Adjust the value from 1 to 0 Depending upon whether or not you want to use the High Res DPI scaling or not do one of the two options. This link descibes it in a little more detail. Tag: Clearing a manually created indent for a paragraph
  - 3
    - API and OpenGL in VBA for Excel Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Until tomorrow.. JR Tag: Clearing a manually created indent for a paragraph
  - 4
    - Referencing objects from different reports Hi, I have 2 Access Forms, Frm1 & Frm2. In Frm1 I have a cmd button which when clicked should open Frm2 and refresh a combo box in Frm2. How can this be done as the below is not working. Private Sub cmd_cmp_Click() DoCmd.OpenForm "frm2" Me.frm2.Form.cbo_1.Refresh End Sub Tag: Clearing a manually created indent for a paragraph
  - 5
    - Saving a pic I think you have pasted ALL the code into the userform code module. The first part goes in a standard code module. The code after the line in the userform module: goes in the userform code module. Sorry I should have made that more clear. Tag: Clearing a manually created indent for a paragraph
  - 6
    - Error with Excel Application Object Hello ladies and gentlmen, this is a very specific error I'm dealing with, and one of the stranger ones I've run across. First of all, I am attempting to open an excel file from MS Access using an Excel Application Object. If Excel is not open, the file will open fine. If Excel is open and there is no workbook open, the file will open fine. If Excel is open and there is a workbook open, then the file will not open. Here is the code I'm using. Set appExcel = GetObject(strFilePath & strFolder & "\" & strFileName) appExcel.Application.Visible = True If blnIsWorkbookOpen(strFileName) = True Then appExcel.Application.Workbooks.Open strFilePath & strFolder & "\" & strFileName Else appExcel.Parent.Windows(1).Visible = True End If Set appExcel = Nothing The thing of it is, when the database is not locked against user modification, the code works fine. The other sticky bit is that it works fine in a database that is even more heavily locked than this database. The question is then, how do I get the code to work correctly when the DB is locked Tag: Clearing a manually created indent for a paragraph
  - 7
    - Obtain Unique Work Units via SQL Just Add: GROUP BY WorkUnitsFaultsMainTBL.WorkUnit HAVING COUNT(WorkUnitsFaultsMainTBL.WorkUnit) = 1 Adamus Tag: Clearing a manually created indent for a paragraph
  - 8
    - Copying Named Ranges I have a worksheet with a number of named cells (so that I can put data in them or retrieve data from them with VBA and not have to change anything should rows / columns be added or removed). I have a sort of template file from which I copy and paste the spreadsheet with all the named ranges to create a series of new files. The problem is, the cell names do not copy, so they do not appear in any of my new files. I also notice that on my original file, the range names are defined locally, like with ="Sheet1!$U$33". I imagine that if the sheet was to be renamed something other than Sheet1, I would have a problem. So I guess my question is, a) How can I name ranges in such a way that the name will stick even when I copy and paste the sheet to other workbooks. b) How can I go about naming ranges relative to the active spreadsheet, such that calling Range("my Range name") will always work no matter what spreadsheet I am in, so long as there is such a named range in the worksheet. Thanks! Tag: Clearing a manually created indent for a paragraph
  - 9
    - how to code an EDI transation with VBA Hi, I am looking for some documentation and advise on how to handle EDI within an Access2002 (VBA) app. Thanks if anyone can provide feedback, Jay Tag: Clearing a manually created indent for a paragraph
  - 10
    - Date set and iteration I want to create a spreadsheet to go to the first day of the current month and set a date if the day is a weekday and not a weekend(or holiday if that is possible). I will also want to check against the sheets in the spreadsheet as I have sheets numbered 1 through 31 and will be hiding each day that is not a regular business day. I basically just need to know how to find the current day in the month and iterate through it as well as set the format for the date in excel. Tag: Clearing a manually created indent for a paragraph
  - 11
    - System.Web.UI.WebControls not serializible in Web Parts (MOSS 2007) I create System.web.ui.webcontrols in CreateChildControls and I get error messages that they cannot be serialized. Scott Hillier's book shows examples of this yet I cannot get them to work. Thanks Tag: Clearing a manually created indent for a paragraph
  - 12
    - encrypting and decrypting passwords for application (two-way encryption) Hello there. I have an application that needs to store a password used to connect to SQL. The problem is that I want to be able to encrypt it and decrypt it. One of the things I noticed while googling is that when you are going to decypher something you need a key. so basically where can I store this key so I can decypher the encyption. And which encryption techniques should I use I know encrypting doesn't solve all problems but hey, at least it will buy me some time. Tag: Clearing a manually created indent for a paragraph
  - 13
    - Dusting up on VBA - Excel/Powerpoint I have a few projects requirying knowledge of VBA for PPT and XLS - can anyone recommend any online guides to get me updated and back into VBA ...... tis been so long since I have touched this language! Cheers Tag: Clearing a manually created indent for a paragraph
  - 14
    - ActiveWindow, Macros, and Outlook 2007 So for the past couple of days I have been working on updating my companies outlook auto-responce macros for Outlook 2007. I am almost done but I have hit one hurtle. So far, it is doing everty thing I want it to do, but the last part, which is paste of information in to the original window I executed the Macro from. What this Macro does is it opens a word doc, copies it's content and ads it to the Email I have open. Only thing is, when it get to selection.paste I get a runtime 91 error. Only thing I can assume is that when it gets to TargetDoc.activate it doesnt understand what TargetDoc is, even though the first line in the macro is set TargetDoc = ActiveWindow. I am guessing, the new Outlook does not understand what ActiveWindow means. Any clues on how to fix this Tag: Clearing a manually created indent for a paragraph
  - 15
    - How to write code for dynamically (programatically) generated combo boxes (excel-shape object) in excel? Make a ClassModule and name it "clsCtrlArr". Write in it Code Snippet Public WithEvents ctl As ComboBox Private Sub ctl_Change() Cancel = True MsgBox ctl.Name End Sub Make a Module and write in it Code Snippet Public cmbArea() As New clsCtrlArr Sub InsertMyComboBox() Dim MyRange As String MyRange = ActiveCell.Address(0, 0) 'Cells(3, 3).Address(0, 0) Set MyComboBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Left:=Range(MyRange).Left, Top:=Range(MyRange).Top, _ Width:=Range(MyRange).Width + 2, Height:=Range(MyRange).Height + 2).Object ActiveSheet.Shapes("ComboBox1").Name = "cmb" & MyRange Range(MyRange).Offset(2).Activate Application.OnTime Now + TimeValue("00:00:1"), "AreaShape" End Sub Private Sub AreaShape() Dim sh As Shape, i As Long i = 0 For Each sh In ActiveSheet.Shapes If Left(sh.Name, 3) = "cmb" Then ReDim Preserve cmbArea(i) Set cmbArea(i).ctl = sh.OLEFormat.Object.Object i = i + 1 End If Next cmbFill End Sub Private Sub cmbFill() For Each sp In cmbArea() With sp.ctl .Clear .FontSize = 8 .AddItem "First" .AddItem "Second" .AddItem "Third" End With Next End Sub Tag: Clearing a manually created indent for a paragraph
  - 16
    - WER wish list for developers 8-) Many support contracts with customers promise a reaction within 24 hours - that would be the upper limit for the processing delay which makes the Winqual portal a viable tool for customer support in crash situations. However, it is very desirable to have turnaround times even significantly lower than that (less than an hour). I realize this is asking a lot of the Watson/Winqual servers; after all, they probably have to process huge amounts of data each day. This is why I would love to see an option for ISVs to set up their own local "Watson servers" to which customers could send crash data when the WER dialog appears. For instance, an application could use a WER API configuration function to specify an alternate WER server. In our case, this could be something like watson.cocreate.com. When a crash occurs in one of our apps, WER would display its usual dialogs. Instead of presenting the simple choice between "Don't Send" and "Send", the user would be informed that he can send the crash data both to Microsoft (default), or to us, or both. From a WER API point of view, this is probably a simple feat. However, it means that we would have to set up a publicly accessibly CER/AEM-like server - which could be a little challenging, for example from a security point of view. Also, since the WER API needs to change, it would mean we wouldn't see any improvement at all before at least Vista SP1 or SP2, probably even later. But alternatively, what if we could tell the Winqual portal that crashes reported for our applications should be routed immediately to one of our servers This way, the WER API wouldn't need to change at all, and since only Microsoft would know about the whereabouts and details of our server connection, secure operation would be easier to achieve. So once we'd register our own Watson-like server with Microsoft, here's a typical sequence of events: Application crashes at customer site WER dialog is displayed, customer chooses to send crash data Watson server at Microsoft checks if there is an ISV registration for the crashing app, and whether the ISV has also registered an ISV-local Watson server If so, the crash report is immediately forwarded to the ISV's server. Process the crash reports as usual, and make them available through Winqual. In this scenario, Winqual delays of 3-4 days or even a week wouldn't be a big issue anymore for an ISV. Claus http://www.clausbrod.de/Blog Tag: Clearing a manually created indent for a paragraph

kkrishna

I am testing the process of removing indents from headings. I created a manual tab indent (pressed Tab and created an indent for the heading text). Now I want to remove this indent by code. I tried the following:

oPara.Outdent

oPara.TabIndent(-1)

oPara.TabStops.ClearAll

The above codes were tried individually and collectively. I was not able to clear the indent created.

Howeve, if I create an indent by pressing the 'Indent' icon on the menu bar, I could clear it by oPara.Outdent.

If I create an indent by code e.g. oPara.TabIndent(1), I could clear it by the code oPara.TabIndent(-1).

Can anyone suggest how best I can remove a manually created Tab indent by code

Thanks in advance.

Re: Clearing a manually created indent for a paragraph

Andy Pope

Hi,

if it is just a typed character would you not need to remove that character.

What do you get if you turn the macro recorder on whilst applying the manual tab

Re: Clearing a manually created indent for a paragraph

kkrishna

I think that I have not explained the situation regarding this query.

Yes, if I applied the tab indent manually, I do not want to remove it. But I am finding similar indents in the generated documents from Acrobat. The generated tab indent could only be removed by manually applying the Backspace. This appears mostly in heading text. In a 60-page document, if I have many tab indents, I would like to remove them by writing a code while formatting the document.

Re: Clearing a manually created indent for a paragraph

Andy Pope

If they are just tabs can you not use find/replace. Although I not sure how you would determine your tabs from the acrobat ones