VBA script

Post Author: sreenivas
CA Forum: Deployment
Hi, When I was running the abc Control report I found that itu2019s always picking the reports from one work sheet only itself instead of picking it from the other worksheets as per requirement. While going through some investigation I found that in macro it has been set by default to run one worksheet only. Actually I have Control report in this control report have different different tabs and each tab shows different information. My Question is I need VBA script like i want pick up only particular tab in the Control report. present I am using script Sub main() Application.Interactive = False Application.ExchangeMode = boRepositoryMode Application.ExchangeDomain = "Document" Set bdoc1 = Application.Documents.Open("abc control.rep") Set bdp = bdoc1.DataProviders.Item(2) bdp.Refresh Set mycolumns = bdp.Columns Set myCol = mycolumns.Item("aaa") Set myCol2 = mycolumns.Item("bbb") nmaxline = myCol.Count ReDim lva_report(nmaxline) ReDim lva_report2(nmaxline) For i = 1 To nmaxline Let lva_report(i) = myCol.Item(i) Let lva_report2(i) = myCol2.Item(i) Next bdoc1.Close

Post Author: pawan
CA Forum: Deployment
Hey Srinivas,
Did you get a solution for your problem, we ended up in an runtime error once it reads Application.ExchangeMode = boRepositoryMode, do you have any thought on this.
Thanks

Similar Messages

  • HELP!! Using a vba script in Outlook to copy attachments to c:\temp folders automatically

    Hi
    I'm brand new to Visual Basic really - you will be able to tell that I am a complete beginner. I wouldn't be posting here but I had tried asking other Forums but have not got any responses.
    This is the problem:- I've found a basic VB script to copy attachments within Outlook 2000 Inbox to the c:temp folder when a new email arrives in. When I debug the script in Outlook > Tools > Macros , it just seems to loop round and round within the
    top function called Application_Startup () and never attempts the objInbox_ItemAdd() function which is the important part. Please can anyone say what is wrong.
    I'm putting all this code within Project1 > Microsoft Outlook Objects > This OutlookSession - I bet I'm putting all this code in the wrong place aren't I? Please help anyone.
    Dim WithEvents objInbox As Outlook.Items
    Private Sub Application_Startup()
    Set objInbox = Session.GetDefaultFolder(olFolderInbox).Items
    End Sub
    Private Sub objInbox_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
    If Item.Attachments.Count > 0 Then
    Dim objAttachments As Outlook.Attachments
    Set objAttachments = Item.Attachments
    For Each objAttach In objAttachments
    ' Does not handle duplicate filename scenarios
    objAttach.SaveAsFile "C:\temp" & objAttach.FileName
    Next
    Set objAttachments = Nothing
    End If
    End If
    End Sub
    Also, I've set the Security to Low within Outlook > Tools> Macros > Security and a bit baffled why this won't run.
    Just for info, I got this VBScript solution from:-
    Outlook Visual Basic for Applications Rules
    Kind Regards
    Matt
    p.s I'm stuck with Outlook 2000 due to a limitation with some Legacy software that my company is still using.

    Thanks jrv.
    At the moment - I don't have the time to learn VBA better along with learning the other things I have an intested in already (e.g. PowerScript) - My customer has an outstanding fault which need fixing urgently. I've spent about 5 hours so fa trying to get
    a VBA script to work withing Outlook but to no avail. I might ask around my company to see if any one else can help or post this on a non-Microsoft forum I think.
    Cheers all the same
    Matt
    So you sold a job to do something you do not knowhow to do.  You are getting paid.  It is your job to learn or to hire someone with the skills you have sold.  We cannot produce custom scripts for an obsolete version of Outlook 2000.. 
    O2000 is almost 15 years old. It is not secure as no security patches have been released for it for almost 10 years.  It is old technology which none of us care to remember unless you want to pay us for the assistance.
    Here is the link to the instructions in th KB that you completely ignored:
    http://support.microsoft.com/kb/235852/EN-US
    It shows you exactly how to do this in Outlook 2000.  You must read all of the instructions carefully.  YOu must try all example code and be sure you understand how it works.  Post all issues with how to use VBA in the Outlook VBA developers
    forum AFTER you have tried that code and have a specific question and not just a requirement for someone to fix this for you.
    The code in the article is explicit to Outlook 2000.  The code you are using is only usable in Outlook 2002 and later.,  You must follow the examples for Outlook 2000 as outlined in your original article.
    If you want to be a technician you need to learn all of these things.  Just knowing how to install a PC is not sufficient if you are going to be a contractor.
    VBA is VBA.  Posting here will not change that.  This is an Admin scarping forum and not an office VBA forum.  VBA is NOT VBScript.  No matter how much it looks like VBScript it is not.
    You cannot just copy VBScript into a VBA module and expect it to work. 
    You have sold the job of a programmer and Outlook developer with no skills in that area.  Is that fair to your customer?
    There are hundreds of skilled developers who have spent good money and time learning to do these things. You cannot just past some things you found on the Internet into a file and ask someone to fix it for you. 
    Start by learning the difference between script and VB.  Next you need to learn what an event is and how it is generated.  The code you posted does nothing in Outlook because it is not Outlook code.
    No.  I am not picking on you.  I am trying to get you to wake up and spend time learning your profession.  It is a lot of fun and actually pretty easy but only if you do your homework.
    ¯\_(ツ)_/¯

  • VBA script for custom Outlook 2010 calendar "first day of week"

    I need Outlook 2010 to use "week starting with the Saturday before Jan 1" as "first week of year" to match our company payroll calendar. (For example, Saturday 12/26/2015-Sunday 1/3/2016 would be "first week of 2016".) Is there
    a way to do this in a VBA script?
    -Thanks, zogg

    Hello zogg,
    The settings are stored in the registry at
    HKCU\Software\Microsoft\Office\15.0\Outlook\Options\Calendar
    where 15.0 stands for Outlook
    2013.
    Make changes in
    the Outlook settings and see which registry values change and in what way depending
    on the settings you change. 
    Also take a look at the How
    can I get the work week and day number in VBA (outlook 2010)? page which states the following:
    WW = Format(Now, "ww") & "." & Weekday(Now, vbMonday)
    The "Format" function returns an expression from a string formatted with the provided "format" argument (ww in
    this case, which returns the week of the year) and the Weekday() function
    returns the numbered day of the week where the first day is a VBDayOfWeek enumeration
    provided as the second argument (vbMonday in
    this case).

  • Error in Excel VBA script while using sharepoint web service

    Hi Can you please help me out  in this ?
    nain1987

    Hi Nain,
    According to your description, my understanding is that the error occurred in the Excel VBA scripts which was used to update SharePoint list.
    I recommend to check if the URL of the web service is in the right scope. If the list is in a subsite, the URL should be: http://servername/site/ _vti_bin/Lists.asmx.
    To update SharePoint list using Excel VBA script, you can refer to the link below:
    http://sharepoint.stackexchange.com/questions/34433/update-sharepoint-list-using-excel
    Best regards.
    Thanks
    Victoria Xia
    TechNet Community Support

  • VBA script for automatically indexing topics

    A big disadvantage with InDesign's indexing system is that you cannot automatically index all occurences of topics currently in the index.
    Instead, you have to find an occurence of each topic in the document itself and go to the Index menus and then click New Page Reference...Add All, for each index topic individually.
    To get around this, I have been trying to produce a VBA script to automatically index all occurrences in a document of the topics currently in the document index.
    I have been using the MS Excel VBA development environment but find the definitions of the object model in the Excel VBA browser rather inadequate and ambiguous .
    Is there a more thorough reference work for these?
    The plan was to start by taking each individual topic in the index which I tried to access with something along the lines of:
    MyDocument.Index.Topic(1)
    This hasn't worked.
    The plan then was to take each index topic and use it to find an occurence in the document of that topic and then use that occurence to invoke the New Page Reference...Add All option to index all occcurences of that selected term, using something like:
    MyDocument.PageReferences.Add
    Again, without success.
    Any guidance or suggestions would be appreciated.

    Dear Peter,
    Many thanks for your posting, that was very helpful.
    This is the state of the script so far (I have added a large number of MsgBox entries - these aren't needed, they are just for debugging purposes during development):
    'VBA script which tries to work through all of the topics in the index and automatically index each occurence of them in the current text frame:
    main
    Function main()
    Set MyInDesign = CreateObject("InDesign.Application.CS4")
    If MyInDesign.Documents.Count > 0 Then
        Set MyDocument = MyInDesign.ActiveDocument
        Set MyPage = MyDocument.Pages.Item(1)
        Set MyTextFrame = MyPage.TextFrames.Item(1)
        Set MyStory = MyTextFrame.ParentStory
        Set MyIndex = MyDocument.Indexes(1)
        Set MyTopics = MyIndex.AllTopics
        MyIndexesCount = MyDocument.Indexes.Count
        MsgBox "Current indexes Count: " & MyIndexesCount
        MyIndexTopicsCount = MyTopics.Count
        MsgBox "Current index topics Count: " & MyIndexTopicsCount
        For i = 1 To MyTopics.Count Step 1 'work through the topics
    MyIndexTerm=MyTopics(i)
    MsgBox "Current indexes Topic: " & MyIndexTerm
    'search for MyIndexTerm :
            'Clear Find preferences:
            MyInDesign.FindTextPreferences = idNothingEnum.idNothing
            'Set up search paramaters:
            If MyIndexTerm <> "" Then
                MyInDesign.FindTextPreferences.FindWhat = MyIndexTerm
                'Set search options:
                MyInDesign.FindChangeTextOptions.CaseSensitive = False
                MyInDesign.FindChangeTextOptions.IncludeFootnotes = False
                MyInDesign.FindChangeTextOptions.IncludeHiddenLayers = False
                MyInDesign.FindChangeTextOptions.IncludeLockedLayersForFind = False
                MyInDesign.FindChangeTextOptions.IncludeLockedStoriesForFind = False
                MyInDesign.FindChangeTextOptions.IncludeMasterPages = False
                MyInDesign.FindChangeTextOptions.WholeWord = False
                'Search for the string:
                Set MyFoundItems = MyDocument.FindText 'this ought to be limited to the Story, not the Document eg MyStory
             MsgBox "Found index terms:" & MyFoundItems.Count
                For j = MyFoundItems.Count To 1 Step -1
                   MyTopics(i).PageReferences.Add MyFoundItems(j)
                Next
               'Clear preference:
                MyInDesign.FindTextPreferences = idNothingEnum.idNothing
                'Having found it, add page reference:
             'MyDocument.PageReferences.Add
            Else
                MsgBox "No search term specified"
            End If
    Response=MsgBox ("Continue?", vbYesNo)
    If Response = vbNo then
      Exit For
    End If
       Next
    'Set up Index options:
    MyIndex.IndexOptions.Title = "Index"
    MyIndex.IndexOptions(1).TitleStyle="Chapter Head"
    MyIndex.IndexOptions(1).ReplaceExistingIndex = True
    'Generate the index:
    MyIndex.Generate
    Else
        MsgBox ("Please open a document, select an object, and try again.")
    End If
    End Function
    There are a couple of problem areas still:
    1. Index terms appear to be added irrespective of whether or not that particular page reference already exists in the index.
    This can result in duplicate page references under each topic - especially if the script is run several times.
    Is there any way of avoiding these duplicate references?
    2. I haven't yet suceeded in getting the script to generate the index - so far I've had to do it manually after the script has run.
    The problem lies somewhere in the code to set up the index options and then generate the index.
    3. It might be useful to be able to limit the indexing to the curent story rather than the whole document - but I haven't yet got it to do that.
    Best wishes.

  • CS2 VBA Scripts in CS5

    Hi everyone, I am using VBA via MS Excel to import data into InDesign CS2 templates. I am considering upgrading to CS5. Should my VBA scripts work in CS5, or do you suspect there would be a problem?
    Thanks everyone,
    Mike

    Mike,
    I split your question off to a new thread. Please don't tag questions onto other threads.
    The answer to your question depends on what's in your script, but there's quite a few changes to the object model from CS2 to CS5. You can try putting it into a version folder (i.e. "Version 4.0 Scripts").
    Harbs

  • Macro/VBA script to merge rows with same values in another column

    Hi.
    I'm developing a dance competition application, using Excel 2010, and have so far managed to put judges' marked scores into a worksheet through a userform.
    Now I would like to make the worksheet more presentable as a scoreboard, as you would manually, but via VBA scripts.
    Exhibit Numbers (Column G) are unique identifiers (per competition) for contestants and each contestant is typically judged by three judges.  The scores in three separate categories from one judge would spread in one row so each contestant would have three
    rows.
    I would like to merge rows of columns where the totals from the judges go (Columns P to U) for each contestant.
    I've considered using some kind of loop but I don't have enough experience in vba scripting, it gets overcomplicated. Could someone please help?
    Many thanks.
    Maki Koyama (Canberra, AUS)

    Hi,
    You cannot add a static "Y" inside a when looping over "i". You need to ensure that "Y" changes along with X. Try the modified code below.
    List elements = new ArrayList();
    for (int i=0; i<XXX; i++) {
    IZZZ.IVisibilityElement el = wdContext.createVisibilityElement();
    el.setVisAttr(i); // Change Y to i
    elements.add(el);
    wdContext.nodeVisibility().bind(elements);
    That should give you an idea of what is erroneous in the code.
    Thanks.
    HTH.
    p256960

  • Programmin​g VBA script for AWR

    Hello everyone, i'd like to make some VBA scripts to run automatically models for AWR.
    CAn anyone tell me how to do this ? or where i can find it ? 
    THank you very much.

    Hello,
        The AWR API is very powerful and can do many things.   It is hard to tell what you are trying to accomplish with this request. Please provide more details.  Additionally, you can find many example scrips here:  https://awrcorp.com/download/faq/english/scripts/s​cripts.aspx
    We also have another page that has resources for scripting here:   https://oldwiki.awrcorp.com/public/scripting/doku.​php
    AWR Support

  • VBA Script Errors on Excel Cell containing a Formula

    I'm writing a VBA script.  When running the script I have a varible being set from a Excel cell containing a formula.  The script errors on this staement.  See below
            Range("O10").Select
            BlockSize = ActiveCell.FormulaR1C1 ' DID Block Size
    Cell O10 contains "=VLOOKUP(A1,SP_DID_Range!A:Q,10,FALSE)"
    The above formula produces the value 20
    What I receive is the formula instead of value the formula produces.
    I am trying retrieve the value and use it in another formula.  So "BlockSize" should equal 20 not "=VLOOKUP(A1,SP_DID_Range!A:Q,10,FALSE)"

    If you want the A1-style formula, use the Formula property.
    If you want the R1C1-style formula, use the FormulaR1C1 property.
    If you want the value, use the Value property:
        BlockSize = Range("O10").Value
    Note that it isn't necessary to select the cell.
    Regards, Hans Vogelaar (http://www.eileenslounge.com)

  • Upgrade to Vista/Office 2007 blew my CS2 VBA script to heck...

    I am scripting a conversion program in Excel 2007. I cannot get the CreateObject to work. Period. The code worked fine under Office 2003 under XP, but now I get "Type Mismatch" at the
    Set MyInDesign = CreateObject("InDesign.Application.CS2")
    line of code. I have checked the references, and they are on for the InDesign CS2 type library. I have run this as both a standard user and as administrator. No joy.
    I did, however, go into Office 2007 macro settings and change the security settings to enable all macros and trust access to vba project object model. Once I did this, the above line of code generates an "Out of Memory" error.
    Yes, I shouldn't have gambled with changing a Microsoft product, but I figured we would eventually all be using Vista whether we wanted to or not, as Microsoft is dropping support and development of XP soon...
    But regardless, we are dead in the water... any ideas???
    Thanks!!!
    jdb

    Hi,
    Which type of email account are you using? If you are using Exchange or IMAP account, your items are usually delivered to and saved on the mail server. You can also view your items if you configure your email account in another PC.
    If it's only a pst-file in the local disk of your work pc, it's not possible to view the items unless you can go back to your work pc and copy the pst-file to your home pc. I'd like to let you know that a Personal Folders file (.pst) is an Outlook data file
    that stores your messages and other items on your computer. It won't sync to the mail server. See:
    http://office.microsoft.com/en-in/outlook-help/introduction-to-outlook-data-files-pst-and-ost-HA010354876.aspx
    Regards,
    Steve Fan
    TechNet Community Support
    It's recommended to download and install
    Configuration Analyzer Tool (OffCAT), which is developed by Microsoft Support teams. Once the tool is installed, you can run it at any time to scan for hundreds of known issues in Office
    programs.

  • VBA-script not working in InDesign

    Goal: To have text placed from Word formatted in the paragraph styles I like. I receive the text from other authors and they are formatted with standard Word paragraph style formatting.
    Two solutions:
    Format the text in Word (change paragraph styles) using VBA, place/import it and somehow make sure that InDesign uses the styles I already defined in InDesign, not the way that style is defined in Word. I can't figure out how to do this.
    Do the formatting in InDesign, using script. But the VBA-macro does not work in InDesign.
    How may I change the code in order to work in InDesign? The code should look for specific paragraph styles and change them or the style of the next paragraph.
    Sub stilSkifte()
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1"
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs 'søk gjennom hvert enkelt avsnitt i dokumentet
       On Error Resume Next
        'INGEN MELLOMROM og overskriftene
        If para.Range.Style = "Ingen mellomrom" Then
            para.Style = "Normal"
            GoTo SisteLinje 'Gå til linja i koden som heter SisteLinje, = gå til neste avsnitt
        End If
        If para.Range.Style = "Overskrift 1" Then
            para.Style = "Tittel-små"
            GoTo SisteLinje 'Gå til linja i koden som heter SisteLinje, = gå til neste avsnitt
        End If
        If para.Range.Style = "Overskrift 2" Then
            para.Style = "Ingress"
            GoTo SisteLinje 'Gå til linja i koden som heter SisteLinje, = gå til neste avsnitt
        End If
        If para.Range.Style = "Overskrift 3" Then
            para.Style = "mellomtittel"
            GoTo SisteLinje 'Gå til linja i koden som heter SisteLinje, = gå til neste avsnitt
        End If
        'NORMAL til BYLINE
        If para.Range.Style = "Ingress" Then
            If para.Next.Style = "Normal" Then
                para.Next.Style = "byline1"
            End If
               GoTo SisteLinje
        End If
        If para.Range.Style = "byline1" Then
            If para.Next.Style = "Normal" Then
                para.Next.Style = "byline2"
            End If
               GoTo SisteLinje
        End If
       'Hvis avsnittet er i NORMAL og det neste er...
        If para.Range.Style = "Normal" Then
            '...i NORMAL endres dette til NORMAL M INNRYKK
            If para.Next.Style = "Normal" Then
                para.Next.Style = "Normal med innrykk"
            End If
            GoTo SisteLinje
        End If
    SisteLinje: Next
    End Sub
    I apriciate any suggestions!

    Thank you Kasyan, but it doesn't work as I expected it to. The InDesign style are somtimes overridden, sometimes not. It seems to have something to do with wether the Word-style is based on another Word-style or not. In addition I have my InDesign styles grouped, and when InDesign upon placing a text doesn't find the style on the top level, it imports the Word-style.
    My solution:
    Change Word-styles so they are not based upon another style
    Running the VBA-code in Word
    Placing the text using "Use InDesign style definition" for paragraph and character styles conflicts.
    Editing the imported InDesign styles so that they are based upon and equals the original InDesign style in the respective group

  • Illustrator VBA scripting 101 - via Excel

    This post will attempt to introduce newcomers to Illustrator Visual Basic Scripting (well, not actually vbs, but rather tru VBA, Visual Basic for Applications). I personally prefer vba over bvs for a number of reasons. First, I always have Excel and Illustrator open, so it makes sense for me use it to drive Ai. Second, I usually need to transfer data between the two programs. Third...I love the Excel IDE...ok, let's get right into it.
    - Open Excel
    - hit Alt+F11, to bring up the editor
    - in the Tools menu, click on References...
    - add a reference to "Adobe Illustrator CS5 Type Library"
    - in the Personal.xls (or in any other book) add a Module. Personal is a global workbook that is always available. If you don't see it, go back to Excel and record a macro, anything will do. That will create the Personal file.
    - and type the following in that module
    - we have to continue the tradition and do the "HelloWorld" script
    Sub helloWorld()
        Dim iapp As New Illustrator.Application
        Dim idoc As Illustrator.Document
        Dim iframe As Illustrator.TextFrame
        Set idoc = iapp.ActiveDocument
        Set iframe = idoc.TextFrames.Add
        iframe.Contents = "Hello World from Excel VBA!!"
        Set iframe = Nothing
        Set idoc = Nothing
        Set iapp = Nothing
    End Sub
    - save Personal book
    - open Illustrator and create a new document first
    - to run, move the cursor anywhere inside the Sub...End Sub and hit F5
    that's it for now...in the following posts we'll move the text to the middle of the page, create new documents, get data from an Excel Range to Illustrator, get data from Illustrator text frame to an Excel Range...and more, hopefully.
    questions? comments?

    Lesson 4: Creating Shapes, Working with Selections, writing data to Excel
    In the Illustrator world a shape is a....well, I'm not going to bore you with technical terms only rocket scientists would understand....let's just say a Circle is a shape, as well as a Rectangle or a Star, there much better than the actual definition. Then in the scripting lingo all shapes are pathItems.
    There are a number of ways of creating shapes, in this exercise well focus on using the various Methods of the PathItem Object.
    to create a Circle we'll use the Ellipse Method, all arguments are optional, if we don't supply any, the method uses default values.
    Ellipse
    ([top as Double]
    [, left as Double]
    [, width as Double]
    [, height as Double]
    [, reversed as Boolean]
    [, inscribed as Boolean])
    Dim icircle As Illustrator.PathItem
    Set icircle = idoc.PathItems.Ellipse(300, 300, 100, 100)
    similarly, to create a square, we use the Rectangle Method
    Dim isquare As Illustrator.PathItem
    Set isquare = idoc.PathItems.Rectangle(200, 200, 100, 100)
    and to make a star we use the...hum...the Star Method
    Dim istar As Illustrator.PathItem
    Set istar = idoc.PathItems.Star(400, 400, 100, 50, 5)
    now lets select the square and read some of its properties and write them down to Excel
    isquare.Selected = True
    get properties of the top most selection, in case we have many items selected, for now it should only be the square
        w = idoc.Selection(0).Width
        h = idoc.Selection(0).Height
        y = idoc.Selection(0).top
        x = idoc.Selection(0).left
    and lets write those values to Excel, using the Cells object this time. Make sure you have a blank Excel book open, it will write data to the first 4 rows, 2 first columns
        Cells(1, 1) = "width: "
        Cells(1, 2) = w
        Cells(2, 1) = "height: "
        Cells(2, 2) = h
        Cells(3, 1) = "top: "
        Cells(3, 2) = y
        Cells(4, 1) = "left: "
        Cells(4, 2) = x
    here's the complete code, from now on, we'll start every exercise with a blank Excel book and a blank Illustrator document, so please do that before runing.
    Sub lesson4shapes()
        Dim iapp As New Illustrator.Application
        Dim idoc As Illustrator.Document
        Dim icircle As Illustrator.PathItem
        Dim isquare As Illustrator.PathItem
        Dim istar As Illustrator.PathItem
        Set idoc = iapp.ActiveDocument
        Set icircle = idoc.PathItems.Ellipse(300, 300, 100, 100)
        Set isquare = idoc.PathItems.Rectangle(200, 200, 100, 100)
        Set istar = idoc.PathItems.Star(400, 400, 100, 50, 5)
        isquare.Selected = True
        w = idoc.Selection(0).Width
        h = idoc.Selection(0).Height
        y = idoc.Selection(0).top
        x = idoc.Selection(0).left
        Cells(1, 1) = "width: "
        Cells(1, 2) = w
        Cells(2, 1) = "height: "
        Cells(2, 2) = h
        Cells(3, 1) = "top: "
        Cells(3, 2) = y
        Cells(4, 1) = "left: "
        Cells(4, 2) = x
        Set istar = Nothing
        Set isquare = Nothing
        Set icircle = Nothing
        Set idoc = Nothing
        Set iapp = Nothing
    End Sub
    Note that the code we just wrote is not the most efficient way of doing things, we don't have to select an object in order to work on it (get the properties for instance). We did it for illustration purposes, we could also use a loop to write data to Excel. We'll do that in the next lesson.
    also, note that the top/left values don't match exactly with the values we entered (200, 200), homework, can you tell why?

  • Applying Style Effects with vba script

    Hello,
    I've been doing a lot of scripting with VBA to create data driven graphics with good results so far.
    Now I want to try and fancy things up a bit. For example I'm trying to add an Effect to an object.
    As example, I create a simple filled rectangle with the following:
    Set objRectangle = docRef.PathItems.Rectangle(x, y, w, h)
    objRectangle.FillColor = rgbColorRef
    objRectangle.Stroked = False
    objRectangle.Filled = True
    After I want to apply an effect equivalent to selecting Effect > Stylize > Scribble... from the menus in Illustrator.
    I found PathItem.ApplyEffect (LiveEffectXML As String) but not sure this is correct approach. Can't find any documentation or examples on this or reference for the LiveEffectXML string.
    Sure would appreciate some help if anyone has done this.
    Thanks
    Paul
    PS I'm using CS6

    Thank you Kasyan, but it doesn't work as I expected it to. The InDesign style are somtimes overridden, sometimes not. It seems to have something to do with wether the Word-style is based on another Word-style or not. In addition I have my InDesign styles grouped, and when InDesign upon placing a text doesn't find the style on the top level, it imports the Word-style.
    My solution:
    Change Word-styles so they are not based upon another style
    Running the VBA-code in Word
    Placing the text using "Use InDesign style definition" for paragraph and character styles conflicts.
    Editing the imported InDesign styles so that they are based upon and equals the original InDesign style in the respective group

  • Can't find links to VBA Scripting on Adiobe site.

    Hi there,
    This is not the most appropriate place to post this but I expect it is the place I am most likely to find someone who knows. I have just bought InDesign 5.5 and am starting the steep climb up the learning curve. I want to do script stuff in VBA and I bought the “InDesign Bible” which mentions that the product disk for InDesign includes a PDF file containing 2,000 pages on VBScript and VBA. I had to buy mine direct from Adobe as a download so no PDF files. I looked around their site and found a couple of VBA tutorial files but they were only small introductions. There was a development scripting area for InDesign but all the links were scrambled and it was a no no.
    I have tried to contact Adobe but, unsurprisingly, it is a bit of a effort so I gave up.
    My question is, does anybody know if any other sites have this stuff for downloads or, if not, does anybody know if and when Adobe are going to sort themselves out in this respect.
    Regards

    Try going to the bottom of the Featured tab in the App Store app on your iPod and tap on your account id, tap on 'View Apple ID' on the popup and log into your account, and then select the Country/Region section.

  • POWER PIVOT : VBA SCRIPT ON SLICER TO HIDE VALUES

    Hi,
    Can someone help in vba coding to assign to slicer in power pivot report.I have a slicer with blank values coming. i have to hide those blank values.  My Model is SSAS tabular model . Since the tabular model wont support outer join these blank
    values are coming in the slicer.
    ie, i have a column called "fact.measures " in fact table and have   two dimension tables  called dim.measures1 and dim.measures2( measures2 is a subset  of measures1) . The measures2.measures column have
    only 4 members  : budget,cost, revenue, margin where as measures1.measures have more values in addition to above 4 members.
    Iam joining two dimensions to the fact table. Since measures2.measures  have only 4 members in the column and fact have more members iam getting blank values in the measures2.measures  . Since i cannot have any other logic in the model only option
    is to hide those blank values in the slicer created on the measures2.measures.
    can someone help me with a vba code to hide this blank value. "Hide items with no values " in the slicer property will not work since these blank sell have values in the fact table.
    IAM USING 2013 EXCEL
    Hope you got an idea of the issue
    looking forward for suggestions and tips
    thank you

    Thank you for trying but it's not what I am after.  I understand how to use Slicers with pivot tables.   My question relates to Pivot Tables created using PowerPivot.   Directly under the Pivot Fields list on the right is a section where
    you choose what you want to pivot  i.e  Filters, Values, Rows, Columns.   These are standard with any pivot table.  When I watch videos on PowerPivot there are 2 additional options in the section.  Slicer Vertical, Slicers Horizontal.
     The video comments  they only show in when creating a pivot table using PowerPivot.  These 2 options are not there for me.  I don't know why. It maybe the version of office I am using which is Microsoft Office Plus 2013. I'd like them
    included.  Appreciate you taking the time to help.  

Maybe you are looking for

  • Duplicate invoice, partial payment, residual payment

    Hi every body I am facing some problems in AP 1. I post a invoice in AP I see that there are two document number 190000006 Please tell me why? 2. I pay a invoice with amount of 200000 in two times firstly, I post a partial payment with amount 100000

  • SOA Suite 10.1.3.1 - email nofitication fails

    I am using the SOA Suite preview version (10.1.3.1). I have a BPEL process with an email notification. This is failing with the following errors. Any ideas ? Exception not handled by the Collaxa Cube system. An unhandled exception has been thrown in

  • Par file exception in production server

    Hi All, I had customized logon page for portal. It is working fine in Development and Quality system, but when i upload the same par to Production System i am getting the following error. I am uploading through the Pdk Archieve Deployer and Remover a

  • Starting and stoping SAP J2EE engine without using SAPMMC

    Hi All, How can we start SAP J2EE engine without using SAPMMC. My SAP J2EE version is 6.40. Kindly, help. Regards, Devender V

  • COA Numbers invalid - read this for more news

    hello all, I've got news for everyone having problems with the vista upgrade,today (tuesday 6th feb 07) I finally got through to moduslink and the reason for coa numbers is because preinstalled software coa numbers will not be verified by microsoft.