Friday, April 15, 2016

RegExr: Learn, Build, - LOVE THIS SITE! CSI search

regexp to find CSI numbers...
strSearch = "(\d{2}[^0-9]{0,1}){3}(\.\d{2}){1,}" ''matches ##?##?##(##.){N times}

RegExr: Learn, Build,:

'via Blog this'

Wednesday, April 13, 2016

http://labs.blogs.com/its_alive_in_the_lab/2016/04/why-does-autodesk-have-a-labs.html

Tuesday, April 12, 2016

Tuesday, March 1, 2016

Wednesday, February 24, 2016

TABLE FORMAT v2.0

Table Format V2.0



Option Explicit

Sub Table_Format_bottom_right()
    Dim objTable As Table
    Dim I As Integer
    
    Set objTable = Selection.Tables(1)
    
    With objTable
        ''format colors
        For I = objTable.Columns.Count To 1 Step -1
            ''Shading
            ShadeMod .Columns(I), I
            ShadeMod .Rows(I), I
            
            ''borders
            BDR_NONE objTable.Columns(I).Borders(wdBorderHorizontal)

            BDR_NONE objTable.Rows(I).Borders(wdBorderVertical)

            BDR_Single objTable.Columns(I).Borders(wdBorderLeft)

            BDR_Single objTable.Rows(I).Borders(wdBorderTop)

        Next I
        

        I = objTable.Rows.Count
        'objTable.Columns(I).Borders(wdBorderVertical).LineStyle = wdLineStyleDashSmallGap
        BDR_Dash objTable.Rows(objTable.Rows.Count).Borders(wdBorderVertical)
        
        BDR_Double objTable.Rows(objTable.Rows.Count).Borders(wdBorderTop)
        
        BDR_Thin objTable.Columns(objTable.Columns.Count).Borders(wdBorderLeft)
        
        For I = -4 To -1
            BDR_Thick objTable.Borders(I)
        Next I
        
        With objTable
            With .Rows(objTable.Rows.Count)   ''last row
                ''''.Alignment = wdAlignRowCenter ''screws up table row centering it in the page- shifting it from the rest of table.
                With .Range
                    .ParagraphFormat.Alignment = wdAlignParagraphCenter
                    .Cells.VerticalAlignment = wdCellAlignVerticalTop
                    .Font.Bold = True
                End With
            End With
            objTable.Cell(.Rows.Count, .Columns.Count).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft
        End With
        TableInsertCaption
    End With
End Sub
Sub ShadeMod(ObjVar As Variant, I As Integer)
    ObjVar.Shading.BackgroundPatternColor = ModColor(I)
End Sub

Public Sub TableInsertCaption(Optional objTable As Table)
    On Error Resume Next
    
    If objTable Is Nothing Then Set objTable = Selection.Tables(1)
    If objTable Is Nothing Then
        MsgBox "Please select a table first.", vbExclamation, "Error"
        Exit Sub
     End If
            
        
        objTable.Range.InsertCaption _
            Label:=wdCaptionTable, _
            Position:=wdCaptionPositionAbove
End Sub

Sub BDR_NONE(Bdr As Border) ''clear borders
    With Bdr
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth100pt
        .LineStyle = wdLineStyleNone
    End With
End Sub

Sub BDR_Single(Bdr As Border)
    With Bdr
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth100pt
    End With
End Sub

Sub BDR_Thin(Bdr As Border)
    With Bdr
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth025pt
    End With
End Sub

Sub BDR_Dash(Bdr As Border)
    With Bdr
        .LineStyle = wdLineStyleDashLargeGap
        .LineWidth = wdLineWidth025pt
    End With
End Sub

Sub BDR_Thick(Bdr As Border)
    With Bdr
        .LineStyle = wdLineStyleSingle
        .LineWidth = wdLineWidth150pt
    End With
End Sub
Sub BDR_Double(Bdr As Border)
    With Bdr
        .LineStyle = wdLineStyleDouble
        ''.LineWidth = wdLineWidth100pt  '' no line width for complex line styles
    End With
End Sub

Function ModColor(I As Integer) As Long
Dim Colors As New Collection
    ''add colors for order of rotation
        Colors.Add -603914241   ''white
        Colors.Add -603923969   ''gray
        Colors.Add -721354957   ''light purple

ModColor = Colors.Item((I Mod Colors.Count) + 1)

End Function

Monday, February 22, 2016

Re: FALSE Advertising & Deceptive practices - Comcast Help and Support Forums

And how did this turn out - 2012- Sounds exactly like my issue:

Comcast Can't Nix Suit Over Allegedly Undisclosed Fees

Law360, New York (May 31, 2012, 5:36 PM ET) -- A California federal judge rejected a bid from Comcast Corp. on Thursday to throw out a putative class action brought by a customer who said he was charged additional, unexpected fees after signing up for the company's "Triple Play" bundled services package.
U.S. District Judge Saundra Brown Armstrong denied Comcast's motion to dismiss Athanassios Diacakis' lawsuit, disagreeing with the company's assertion that Diacakis hadn't rectified the deficiencies that lead to the dismissal of an earlier incarnation of his complaint in January.

Comcast sought to dismiss Diacakis' second amended complaint for failure to allege fraud with particularity, and also claimed that its service agreement disclosed the equipment fees Diacakis took issue with. The court said, however, that there were specific allegations in the latest complaint for the case to move forward.

"In particular, plaintiff allegedly was led to believe by Comcast representatives that the Triple Play monthly fee was all inclusive —

Re: FALSE Advertising & Deceptive practices - Comcast Help and Support Forums

Re: FALSE Advertising & Deceptive practices

Choose this solution
APSIS0215 -- It states very clearly in Pricing & Other Info: "Any equipment not included with offer, installation, taxes and fees, including Broadcast TV Fee" 

False advertising would not have that included. 

Along with the package offered, you elected to add equipment, a premium channel, and a speed boost. 

APSIS0215
Posted by
Visitor
Member Since: ‎02-12-2016
Posts: 3
Message 3 of 4 (5 Views)

Re: FALSE Advertising & Deceptive practices

Choose this solution
That still doesn't explain why we were offered the QUAD PACKAGE over the phone for an all-in of $159/month- only to go through everything else to find what was stated on the phone was a lie.

"Technically correct" will not get you out of the court of public opinion when you obviously know this is an issue.

Complaint TypeTotal Closed Complaints
Advertising/Sales Issues4166
Billing/Collection Issues12413

As for your ad- According to the FTC:

What makes an advertisement deceptive?

According to the FTC's Deception Policy Statement, an ad is deceptive if it contains a statement - or omits information - that:
  • Is likely to mislead consumers acting reasonably under the circumstances; and
  • Is "material" - that is, important to a consumer's decision to buy or use the product.

So when you create a ad- that states a price and intentionally LEAVES OUT REQUIRED EQUIPMENT COSTS TO OPERATE- leaving that to fine print at the farthest point from the price at the bottom, pages down from the top- that is a deceptive practice. 

If your web page looked like below - THEN your customers would likely NOT find it to be deceptive- this is at least clear the price you are quoting is only for service and additional charges are required- still deceptive but not blatently so.

The total home experience has arrived.
Introducing the XFINITY® Quad Play from Comcast.

For a limited time, bundle the best in entertainment, the fastest in-home WiFi, unlimited nationwide talk and text, plus a total home security and automation solution. All for an amazing value – and get up to $200 back!

Prices starting at

$12900
per month
+ Equipment (Required - cost not included)
+
Pricing & Other Info.

Call 1-877-639-9207 to order

And realistically- if you were 100% Truthful in your advertising your ad would look like this:

The total home experience has arrived.
Introducing the XFINITY® Quad Play from Comcast.

For a limited time, bundle the best in entertainment, the fastest in-home WiFi, unlimited nationwide talk and text, plus a total home security and automation solution. 

Prices starting at

$195/month & $10/Month(first 6 months) for installation
+Taxes which Vary by location
No fine print- everythign is ON THE SAME PAGE WITH THE PRICE (No scrolling is not truly the same pace)