Mac

Nina · #1 08-13-2018, 01:27 AM

Hello,

I'm looking for a macro that insert multiple pictures I've selected in an dialog into a tabel with 3 columns. Rows are automatically added based on the number of pictures.

I've had a macro that works in Windows, but I can't get it to work on a Macbook.

Can someone please help me?

Thanks,
Nina

macropod · #2 08-13-2018, 01:37 AM

A possible Word for Windows candidate is: https://www.msofficeforums.com/word-...html#post47919. I don't know whether that would work on a Mac, however.

Nina · #3 08-13-2018, 02:20 AM

Hello,

Thanks for the reply. I think I've used the code you are refering to on my windows pc. But it doesn't work on Mac. :-(

macropod · #4 08-13-2018, 03:41 AM

For the necessary Mac modifications, see: https://answers.microsoft.com/en-us/...2-fc62e569fe5a

Nina · #5 08-14-2018, 04:33 AM

Hello,

thank you for the link. I now get it to open the window to select the images. However I am not able to select any...

The thing I want to achieve is the following:
Insert multiple pictures at once. They already have the same size. But when I insert them they stick together. There should be some whitespace in between. Maybe there is an other simpler way to align them all at once?

Nina · #6 08-14-2018, 05:12 AM

I was now playing around with find-replace
The best result is when I search for ^g and replace it with ^&^t^&^t^&^p^p this is more or less the look that I want. the only problem here is that now my images are added 2 more times.

When I replace by ^&^t the tab is added but the images still stick together in heigt. also starting from the second line the tab is added in the front. So not really what I want...

macropod · #7 08-14-2018, 03:16 PM

You should be able to use a wildcard Find/Replace with:
Find = (^g)(^g)
Replace = \1^t\2^l^l

Nina · #8 08-16-2018, 04:13 AM

When I try this I get a message that ^g isn't a valid special character when using wild cards...

I tried to translate from Dutch, so I'm sorry if the words I used above aren't the correct ones.

macropod · #9 08-16-2018, 06:04 AM

Hmm, according to the Find/Replace dialogue, ^g is valid with wildcards. No matter, try two ordinary Find/Replaces, with:
Find = ^g^g
Replace = ^&^l^l
and:
Find = ^g^l
Replace = ^t^&

Nina · #10 08-17-2018, 05:08 AM

Hello,

Getting close! now the images are with two on a row in stead of 3.

Is 3 possible? I have been playing around without any luck

thanks

macropod · #11 08-17-2018, 05:14 AM

Try:
Find = ^g^g^g
Replace = ^&^l^l
then:
Find = ^g^l
Replace = ^t^&
then:
Find = ^g^t
Replace = ^t^&

Nina · #12 08-17-2018, 05:43 AM

got it! THANKS!!!
what I did is:
First: ^g^g^g replace by ^&^l

second: ^g replace by ^&^t

couldn't have done it without your help!

Is there a way to put this in a macro? so the user just has to push one button? (on a mac of course) I tried to record it, but nothing got recorded.

macropod · #13 08-17-2018, 05:49 AM

Your approach will insert unnecessary tabs before the line breaks - and in some situations that could affect the overall layout.

For a macro, try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Text = "^g^g^g"
    .Replacement.Text = "^&^l^l"
    .Execute Replace:=wdReplaceAll
    .Text = "^g^l"
    .Replacement.Text = "^t^&"
    .Execute Replace:=wdReplaceAll
    .Text = "^g^t"
    .Replacement.Text = "^t^&"
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Nina · #14 08-17-2018, 06:03 AM

Hello,

I used your macro and it works! :-)
The only problem is that when I have a line with only 2 images, no tab is added between them. That is why I used the other code I made.

macropod · #15 08-17-2018, 06:07 AM

In that case, you could use:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Text = "^g^g^g"
    .Replacement.Text = "^&^l^l"
    .Execute Replace:=wdReplaceAll
    .Text = "^g"
    .Replacement.Text = "^&^t"
    .Execute Replace:=wdReplaceAll
    .Text = "^t^l"
    .Replacement.Text = "^l"
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Insert Pictures - Via MACRO	sahrens1	Word VBA	1	07-02-2017 07:16 AM
How do I insert pictures directly into picture boxes by clicking the box instead of using INSERT>PIC	Bree	Word	1	06-24-2016 10:32 PM
Macro to insert multiple pictures with adjustable column size	nando88	Word VBA	6	05-09-2016 11:56 PM
Insert an article with pictures into a table cell	skatiemcb	Word Tables	2	01-24-2015 08:18 AM
Macro to insert multiple pictures to word to a specific size and text wrap	mescaL	Word VBA	3	11-03-2014 10:51 PM