Sub InsertMultipleImagesWithFilename()
Dim fd As FileDialog
Dim oTable As Table
Dim iRow As Integer
Dim iCol As Integer
Dim oCell As Range
Dim i As Long
Dim sNoDoc As String
Dim picName As String
Dim scaleFactor As Long
Dim max_height As Single
'define resize constraints
max_height = 275

If Documents.Count = 0 Then
    sNoDoc = MsgBox(" " & _
    "No document open!" & vbCr & vbCr & _
    "Do you wish to create a new document to hold the images?", _
    vbYesNo, "Insert Images")
    If sNoDoc = vbYes Then
        Documents.Add
    Else
        Exit Sub
    End If
End If

'add a 1 row 2 column table to take the images
Set oTable = Selection.Tables.Add(Selection.Range, 1, 2)
'+++++++++++++++++++++++++++++++++++++++++++++
'oTable.AutoFitBehavior (wdAutoFitFixed)
oTable.Rows.Height = CentimetersToPoints(4)
oTable.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
'++++++++++++++++++++++++++++++++++++++++++++++

Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .Title = "Select image files and click OK"
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.png"
    .FilterIndex = 2
    If .Show = -1 Then
        For i = 1 To .SelectedItems.Count
            'find col,row #s
            If i Mod 2 = 0 Then 'even number right column
                iRow = i / 2
                iCol = 2
            Else 'odd number left column new row
                iRow = (i + 1) / 2
                iCol = 1
            End If

            'get filename
            picName = Right(.SelectedItems(1), Len(.SelectedItems(1)) - InStrRev(.SelectedItems(1), "\"))
            'remove extension from filename ****
            picName = Left(picName, InStrRev(picName, ".") - 1)

            'select cell
            Set oCell = oTable.Cell(iRow, iCol).Range

            'insert image
            oCell.InlineShapes.AddPicture FileName:= _
                .SelectedItems(i), LinkToFile:=False, _
                SaveWithDocument:=True, Range:=oCell

            'resize image
            If oCell.InlineShapes(1).Height > max_height Then
                scale_factor = oCell.InlineShapes(1).ScaleHeight * (max_height / oCell.InlineShapes(1).Height)
                oCell.InlineShapes(1).ScaleHeight = scale_factor
                oCell.InlineShapes(1).ScaleWidth = scale_factor
            End If

            'center content
            oCell.ParagraphFormat.Alignment = wdAlignParagraphCenter

            'insert caption below image
            oCell.InlineShapes(1).Range.InsertCaption Label:="Figure", TitleAutoText:="", _
                Title:=": " & picName, Position:=wdCaptionPositionBelow, ExcludeLabel:=True

            If i < .SelectedItems.Count And i Mod 2 = 0 Then 'add another row, more to go
                oTable.Rows.Add
            End If
        Next i
    End If
End With

Set fd = Nothing
End Sub

When girls don’t put out!!

I never quite figured out why the sexual urge of men and women differ so much. And I never have figured out the whole Venus and Mars thing. I have never figured out why men think with their head and women with their heart.

FOR EXAMPLE:

One evening last week, my girlfriend and I were getting into bed. Well, the passion starts to heat up, and she eventually says, ‘I don’t feel like it, I just want you to hold me.’

I said, ‘WHAT??!! What was that?!’

So she says the words that every boyfriend on the planet dreads to hear..

‘You’re just not in touch with my emotional needs as a woman enough for me to satisfy your physical needs as a man.’

She responded to my puzzled look by saying, ‘Can’t you just love me for who I am and not what I do for you in the bedroom?’

Realizing that nothing was going to happen that night, I went to sleep.

The very next day I opted to take the day off of work to spend time with her. We went out to a nice lunch and then went shopping at a big, big unnamed department store. I walked around with her while she tried on several different very expensive outfits. She couldn’t decide which one to take, so I told her we’d just buy them all. She wanted new shoes to compliment her new clothes, so I said, ‘Lets get a pair for each outfit.’

We went on to the jewelry department where she picked out a pair of diamond earrings. Let me tell you… She was so excited. She must have thought I was one wave short of a shipwreck. I started to think she was testing me because she asked for a tennis bracelet when she doesn’t even know how to play tennis

I think I threw her for a loop when I said, ‘That’s fine, honey.’ She was almost nearing sexual satisfaction from all of the excitement. Smiling with excited anticipation, she finally said, ‘I think this is all
Dear, let’s go to the cashier.’

I could hardly contain myself when I blurted out, ‘No honey, I don’t feel like it.’

Her face just went completely blank as her jaw dropped with a baffled, ‘WHAT?’

I then said, ‘Honey! I just want you to HOLD this stuff for a while. You’re just not in touch with my financial needs as a man enough for me to satisfy your shopping needs as a woman.’

And just when she had this look like she was going to kill me, I added, ‘Why can’t you just love me for who I am and not for the things I buy you?’

Apparently I’m not having sex tonight either…….but at least that bitch knows I’m smarter than her.

HEY PRINCESS

Yeah

yeah you

Give you more again Yeay

Knew I would love you like a fat kid love food
Knew I would score like Shaq did in school
Knew I was stupid, Knew I looked like a big fool
I must of had the flu, I thought the shit was cool
Knew you would fall in love with me and the shit I do
But never knew you would murder me, what did I do
Knew you was right for me, knew I was right for you
Knew I would help you sell, knew I would write for you

Well you done done me and you bet I felt it
I tried to be chill but you’re so hot that I melted
I fell right through the cracks
Now I’m trying to get back
Before the cool done run out
I’ll be giving it my bestest
And nothing’s going to stop me but divine intervention
I reckon it’s again my turn to win some or learn some

I won’t hesitate no more, no more
It cannot wait, I’m yours

i dont need no time and i dont need no reason
im yours whenever whenever whenever ill be there
til every season
without you in my life
there would be no meaning
baby im yours forever
seasons come seasons go
love you so much baby i don’t know
i love you i love you i love you
yeahhhhhhh

So I won’t hesitate no more, no more
It cannot wait I’m sure
There’s no need to complicate
Our time is short
This is our fate, I’m yours

Knew I would keep you well, knew I would fight for you
Knew I would pull out my heart and bring it right to you
You knew all about me baby, but you wasn’t about me baby
Young Wayne, prepare for change
Because it seem like girly don’t care the same
You had my chain, you beared my name, then we had champagne

I’ve been spending way too long checking my tongue in the mirror
And bending over backwards just to try to see it clearer
But my breath fogged up the glass
And so I drew a face and laughed
I guess what I’m be saying is there ain’t no better reason
To rid yourself of vanity and just go with the seasons
It’s what we aim to do
Our name is our virtue

I won’t hesitate no more, no more
It cannot wait I’m sure

……………………………………………

The first fix is to find an alternative to lock the phone as you don’t want to use the battery like crazy or pocket dial a random person. I installed activator on my phone and set a downward swipe from the status bar to lock the phone. It is very intuitive and easier than pressing the button itself and can be done with one hand smoothly.

Step 1: Activator Home Screen > Anywhere

Step 2: Use the Status Bar > Swipe Down Event

Step 3: Assign This action to Sleep

The other functions missing without the button are screenshots and powering off the device. The screenshots problem was solved with a hold status bar action in activator and power off/reboot are easily handled with sbsettings with minimal effort. I hope this helps someone else with a similar problem.

Dancing with my daughter makes everthing more clear.

His will.