[word] NIET zwevend

[Galois]

In de help van Word staat het volgende:

Figuren worden door Word standaard geïmporteerd als zwevende figuren. Dit betekent dat de figuren op de tekenlaag worden ingevoegd, zodat u ze exact op de pagina kunt plaatsen of voor of achter tekst of andere objecten kunt plaatsen. Als u een zwevende figuur wilt wijzigen in een in line figuur (een figuur die rechtstreeks in de tekst wordt geplaatst op de plaats van de invoegpositie), selecteert u de figuur en klikt u vervolgens op Figuur in het menu Opmaak. Schakel op het tabblad Positie het selectievakje Zwevend boven tekst uit.

Ik wil dus plaatjes invoegen in éénzelfde document en dus niet telkens dat vakje 'zwevend boven tekst' uit te moeten vinken. Ik wil dus automatisch niet zwevend boven tekst hebben. HOE?

[KingRichard]

Dit lijkt onder andere van je Word-versie af te hangen. Een aantal linkjes naar MSDN:

170564	WD97: Pictures and Objects Inserted as Inline by Default in SR-1
155802	WD97: Word Doesn't Find Float Over Text Objects
161692	WD97: Problems with Float Over Text Objects
163808	WD97: Picture Is Pasted as Float Over Text Not as Inline
155804	WD97: Inserted Picture or Drawing Object Moves Down Page
157773	WD97: Macro to Disable Float Over Text in Insert Picture Dialog
157667	WD97: Float Over Text Objects Cut Off in Online Layout View
157119	WD97: WD97: Pictures Visible Even When Picture Placeholders Check Box Selected

Google!

[Rataplan]

Goeie vraag. In word zelf kan je dit niet aangeven, dus we hebben VB nodig. Uit de VB(A)-help bij PictureWrapTypeProperty:

Remarks
This is a default option setting and affects all pictures inserted unless picture wrapping is individually defined for a picture.

Dus voegen we dit stukje code aan normal.dot toe, zodat 'ie altijd wordt uitgevoerd als je Word start:

Visual Basic .NET:

Sub AutoExec()
    Application.Options.PictureWrapType = wdWrapMergeSquare
End Sub

(Als er al een AutoExec bestaat voeg je daar de Application...-regel aan toe.)

*leest*
*concludeert dat KingRichard goed kan googelen*

Als je de pictures allemaal handmatig invoegt helpt een oplossing als

Visual Basic .NET:

   Sub InsertPicture()
      With Dialogs(wdDialogInsertPicture)
         .FloatOverText = False
         .Show
      End With
   End Sub

in normal.dot natuurlijk ook