VBA Merge question Hi
I've never done this myself, but I had a quick look at the Help on OpenDataSource ...
Attaches a data source to the specified document, which becomes a main document if it's not one already.
Syntax
expression .OpenDataSource( Name , Format , ConfirmConversions , ReadOnly , LinkToSource , AddToRecentFiles , PasswordDocument , PasswordTemplate , Revert , WritePasswordDocument , WritePasswordTemplate , Connection , SQLStatement , SQLStatement1 )
Does the Format parameter give you what you want
Format Optional Variant. The file converter used to open the document. Can be one of the following WdOpenFormat constants: wdOpenFormatAllWord, wdOpenFormatAuto, wdOpenFormatDocument, wdOpenFormatEncodedText, wdOpenFormatRTF, wdOpenFormatTemplate, wdOpenFormatText, wdOpenFormatUnicodeText, or wdOpenFormatWebPages. The default value is wdOpenFormatAuto.
Regards
Peter Mo. Tag: SeriesCollection(i).Delete

How to create a menu & submenu ? It looks like your trying to use the VB within Access which is in fact something called VB for Applications and very different from VB.NET which is what these forums are about.
If this is correct then you will want to ask the questions within the VBA forum.
http://forums.microsoft.com/MSDN/ShowForum.aspx ForumID=74&SiteID=1 Tag: SeriesCollection(i).Delete

Create Link to a Folder in the body of a Task Hello -
In Outlook, I can drag a folder into the body of a task, and Outlook creates a link to the folder in the task body. Then, anytime I open the task, I can then get to the folder by clicking on the link.
How can I mimic this behavior in VBA I have tried just creating a string that is the folder's path and putting that in the body of the task, but it is just a text string and is not recognized as a link (i.e., it is not underlined and one cannot click on it to get to the folder). I experimented with replacing the spaces in the folder path with "%20" but that had no effect.
thanks
George. Tag: SeriesCollection(i).Delete

How do I call for all installed printers.... I don't think it is possible to find out all installed printers:(.
You can get only the active printer using Application.ActivePrinter property.
To add items to a ListBox in Excel, you do something like this:
Sub addlistbox() Dim lb As ListBox Set lb = Sheet1.ListBoxes.Add(10, 10, 100, 100) lb.AddItem (Application.ActivePrinter) lb.AddItem ("more text") lb.AddItem ("more text2") End Sub Tag: SeriesCollection(i).Delete

How to determine the cursor position to Excel range Hi Perry
Not sure what you are asking, but the below moves the selection to A1 and prints the active cell address in A3.
Range("A1").Select Worksheets("Sheet1").Cells(3, 1).Value = ActiveCell.Address Tag: SeriesCollection(i).Delete

Excel: SaveAs dialog won't accept a Web path I'm bemused why something so basic works in Word but not in Excel. I have a custom version of Workbook_BeforeSave, one that assists the user to specify a SharePoint path, should that be their wish. The full file name (path + name) is then provided to the SaveAs dialog, thus:
Code Snippet
Application.Dialogs(xlDialogSaveAs).Show sFullName ' sFullName is both path and name If no path is specified, the SaveAs dialog shows my derived file name (as expected). If the path is an ordinary file system path, such as C:\Temp, then the Save As uses that as the selected folder and still presents the file name for user modification. All this is as it should be, but if the path is a Web address (e.g. http://My%20Web%20Site/Files/) then the dialog gives up and doesn't default the folder, nor show the file name. As I said at the beginning of this post, the frustrating thing is that similar code in Word's SaveAs dialog works perfectly. Is there another way to do this Jeff. Tag: SeriesCollection(i).Delete

a question about iterative loop to print a sequence of number I'm not sure what you mean by VBS (guessing VB script ).
For VB.net, try these forums: http://forums.microsoft.com/MSDN/default.aspx ForumGroupID=10&SiteID=1 For VB6 & earlier, try these newsgroups: http://msdn.microsoft.com/newsgroups/default.aspx dg=microsoft.public.vb.syntax&lang=en&cr=US http://msdn.microsoft.com/newsgroups/default.aspx dg=microsoft.public.vb.general.discussion&lang=en&cr=US Tag: SeriesCollection(i).Delete

MS Word Macro Help Hi Spphat,
Move this thread from VB language forum. This forum supports Visual Basic.NET (7, 7.1, 8, ...) issues only, so your VBA question is an off-topic here and this isn't the best place to ask it.You can visit VBA support forum to get an answer about your question.
Thanks for your question Tag: SeriesCollection(i).Delete

Vba Excel 2003 - Prompt Message Box with timer Hey,
I think you have to create your own message box with a label on it.
In the userform code module put the following code and the userform (message box) will stay displayed for just three seconds and then automatically disappear.
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:03")
Unload Me
End Sub
Best Regards
Cathrine Tag: SeriesCollection(i).Delete

Disabling the X (close) button on a UserForm I don't know the answer, but I like the X since this is good for developer. I can press X and add more code. Usually my cancel button close the whole workbook, so, I can't use that button myself. Tag: SeriesCollection(i).Delete

How to track changes Muhammad Essa wrote:
Hi
Can any one tell me how to track the changes brought by other admin users in ISA server or any option modified by them. Any log or ....
So far no one has answered this question
any one Tag: SeriesCollection(i).Delete

iexplore.exe - Application Error (EVERY TIME I CLOSE IE7) :( I wish I could help you, but I'm having the exact same problem - I've wasted more hours on this. I just downloaded Norton 360 and thought that was causing the problem as my computer is running extremely slow now. If anyone has any answers to either of these problems - please help us! Thanks! Tag: SeriesCollection(i).Delete

Cannot Uninstall or Install Internet Explorer Version 7.0.5730.11 I have trouble with my Internet Explorer 7. When I try to access the Internet Options it shows up and disappears within a second. I tried to uninstall Internet Explorer 7 a series of errors pop up. I've uploaded one of the errors onto this site http://tinypic.com/view.php pic=530d1ll can anyone help me out Tag: SeriesCollection(i).Delete

Excel Inserted Image Files - Compress Hi, The compress method is not exposed via the Excel OM. It is possible to use PowerPoint, via automation, to compress the image. Or at a push, although I do not recommend, use SendKeys once the Compress dialog is displayed. Tag: SeriesCollection(i).Delete

Cells Hi
Your code should work, I got an error when I ran it on my machine (probably my typo). I changed the syntax slightly and it works fine. The selected cell always goes to the cell in column A of the current row. My routine is below:
Public Sub test() Dim x As Long
x = ActiveCell.Row Range("A" & Trim$(Str$(x))).Select
End Sub
Are you sure that your code does not change the value of x before the range select statement Tag: SeriesCollection(i).Delete

Determine if and where the .NET Framework is installed using VBA You can use the Registry "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \ Uninstall" to determine existent soft. You need to use the API-functions RegQueryValueExString, RegOpenKeyEx and others I have made this function, tomorrow I will test it (I will use PC without the FrameWork) Do you still need in it Tag: SeriesCollection(i).Delete

Future of VBA (and VBScript)? Hi! I read somewhere that VBA will be raplaced by VB.NET and the VBScript too (in ASP.NET). There will be new scripting host but I don't know if it will replace the cmd.exe or the WSH. Can anybody give us more info on this Tag: SeriesCollection(i).Delete

Obtain formula value in VBA Hi, I assume you problem is that the changing of cells outside the range M,N and O is not being processed even though it impacts on the formula in column M. If so try this revision to the code. Private Sub Worksheet_Change(ByVal Target As Range) Dim lngRow As Long Dim blnProcess As Boolean On Error GoTo ErrDependents If Not Intersect(Range("M "), Target.Dependents) Is Nothing Then blnProcess = True End If ErrDependents: If Not Intersect(Range("M "), Target) Is Nothing Then blnProcess = True End If If blnProcess Then Application.EnableEvents = False lngRow = Target.Row If Range("M" & lngRow).Value < Range("O" & lngRow).Value Then Range("C" & lngRow) = "Display Date" Range("B" & lngRow) = "Display Amnt" MsgBox "Please order this brochure ASAP", vbInformation, "MVC Brochure Stores" Else Range("C" & lngRow) = "" Range("B" & lngRow) = "" End If Application.EnableEvents = True End If End Sub Tag: SeriesCollection(i).Delete

run an exe file in excel using VB What do you mean by - "run an exe file in excel"
Do you want to open an excel file or do something else
Are you using vb.net (VB express) or are you using VBA in excel Tag: SeriesCollection(i).Delete

Question about VBA and Office 2007 Logan -
I don't know of any specific issues in Word. In Excel the vast majority of legacy code works as expected in 2007. The notable exception of course is anything that affects the menu/commandbar interface of Office 97-2003. In addition, chart and shape related code in Excel may not work as intended. You would have to test everything, of course.
You do not need to convert any existing working routines from VBA to VSTO/VSTA/dot-net, despite all the noise from Microsoft. - Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______ Tag: SeriesCollection(i).Delete

Gantt in Acess I do not have enough expertise to use workspaces in the manner you wish to, but I wanted to suggest the solution we use: Have a form with a number of generic-named controls on it. Then you dynamically set the control source and position properties of the various controls in the On_Open event. Would this also work for your purposes Tag: SeriesCollection(i).Delete

Planning first deployment of new .Net application suite with SQL server... What are the preferred tool for managing installation for end users. I have Wise & Install Shield on my preferences list, but I would be happy for any input from experiences that ISV's have had. Pros and cons...
Application is a Win Forms 2.0 database application, but also in the suite is MFC & windows mobile solutions.
Thanks
Harald Stensrud Tag: SeriesCollection(i).Delete

Table not uniform Hi All,
I wrote a macro that formats the cell text of all the tables in the Word document, if the tables are uniform. Since the macro accesses each cell for formatting, I wanted to avoid formatting non-uniform tables. This works quite well for Word docs generated from databases.
I converted a pdf document to Word using Acrobat 7. The generated Word document has many tables and all of them appear to be uniform i.e no merged cells. When I run the above macro, I get the message that the tables are not uniform, and hence not formatted. When I manually select the table, the entire table gets selected i.e there are no split tables.
I ran the following macro on a 13-row table to find out whether the cells are different from appearance.
Sub TestMacroOne() Dim oTable As Table Dim oRow As Row Dim x As Integer Dim msg As String Set oTable = ActiveDocument.Tables(1) x = 1 If (oTable.Uniform = False) Then msg = "" For Each oRow In oTable.Rows msg = msg & "Row " & x & " : Cells: " & (oRow.Cells.Count) & Chr(13) x = x + 1 Next oRow End If MsgBox msg MsgBox "All Done" End Sub
The message box shows that each of the 13 rows has 6 cells. I cannot understand why the table is not uniform.
Will someone please help me
Thanks in advance Tag: SeriesCollection(i).Delete

Microsoft Office Document Imaging no longer in Printers Folder, Using XP and Office XP Professional I know these didn't work for you, but I thought I'd repost them so they were at the beginning of a relevant thread, rather than at the end of an overly-hijacked thread...
Solution 1. Type the following into a command prompt window: (unsure if you have to be admin or not) cscript c:\windows\system32\prnmngr.vbs -a -p "Microsoft Office Document Image Writer" -m "Microsoft Office Document Image Writer Driver" -r "Microsoft Document Imaging Writer Port:"
Solution 2. (Not mine, borrowed from somewhere else.) 1. Close all running applications. If you have any Office application running, the driver will not be installed properly. 2. Go to the "Control Panel" and "Add or Remove Programs". 3. Click on"Microsoft Office 2003" and then click on "Change". 4. Check "Add or Remove Features" and click "Next". 5. On the bottom of the page check "Choose advanced customization of applications." and click "Next". 6. Under Microsoft Office click on the + sign in front of "Office Tools" 7. Locate "Microsoft Office Document Imaging", click the icon and select "Not Available". 8. Click on "Update". This will uninstall the MODI driver. 9. Repeat steps 1 to 6 to go back to the same location you were before. 10. Locate the object "Microsoft Office Document Imaging", click the icon and select "Run from My Computer". 11. Click on "Update".
Solution 3. (Also not mine) 1. Go to Control panel - Printer and fax 2. Add Printer - select local printer attached (Unselect detect Plug N Play) 3. In the port option select Microsoft Document Image Printer Writer Port 4. Select and install a generic manufacturer and use text only printer.
5. Right-click on the generic text/only printer driver and select properties. 6. Click on ports and select "Microsoft Office Document Imaging Driver Port". 7. Click on the advanced tab and change the driver to Microsoft Office Document Image Writer. 8. Click on apply and OK. Tag: SeriesCollection(i).Delete

chrisger

Hi,I added some series to a chart and .seriescollection.count results = 6. That's OK.Now, series(6) references to empty cells. I want to delete the series but that's not possible. Err. 1004. Series with data can be deleted without problems.How can I access the series 6. Chris

Re: SeriesCollection(i).Delete

Andy Pope

Hi,

Empty cells certainly cause problems when dealing with charts via the object model.A way around the problem is to change the chart type. Column charts are quite happy of empty data series to be deleted.

With ActiveSheet.ChartObjects(1).Chart

With .SeriesCollection(6) .ChartType = xlColumnClustered .Delete End With