Pictures in MSWord Aligned.
CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 6 of 6

Thread: Pictures in MSWord Aligned.

  1. #1
    Join Date
    Apr 2006
    Location
    Kolkata, India
    Posts
    278

    Exclamation Pictures in MSWord Aligned.

    Hello my Friends ,
    After a long visit to hospital with a broken ankle , I am back (although a bit limping) to work.
    I searched my post & found my post was not repled,Anyway let me refresh the entire thing to you all if you could help in this.

    There is an attachment with this please see & give me some insight on this.

    Thank you all in advance

    dsrahul.
    Attached Images Attached Images

  2. #2
    Join Date
    Apr 2006
    Location
    Kolkata, India
    Posts
    278

    Unhappy Re: Pictures in MSWord Aligned.

    Code:
            wrd.Documents.Open filename:=stwr, ConfirmConversions:=False, ReadOnly:= _
            False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
            "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
            Format:=wdOpenFormatAuto
        
        
        'wrd.Selection.PageSetup.Orientation = wdOrientLandscape
        'wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat.Type = wdInLine
        wrd.Selection.Range = wdRelativeHorizontalPositionMargin
        'wrd.Selection.InlineShapes(1).Align.msoAlignleft , True
        wrd.Selection.MoveDown unit:=wdLine, Count:=4
        wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
        wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savt, LinkToFile:=False, SaveWithDocument:=True
        wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
        wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
        wrd.Selection.InlineShapes(1).Height = 142
        wrd.Selection.InlineShapes(1).Width = 142
        wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
        wrd.Selection.MoveDown unit:=wdLine, Count:=1
        wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
        wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savu, LinkToFile:=False, SaveWithDocument:=True
        wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
        wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
        wrd.Selection.InlineShapes(1).Height = 142
        wrd.Selection.InlineShapes(1).Width = 142
        wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat.Type = wdInLine
        wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
        wrd.Selection.MoveDown unit:=wdLine, Count:=1
        wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
        wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savv, LinkToFile:=False, SaveWithDocument:=True
        wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
        wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
        wrd.Selection.InlineShapes(1).Height = 142
        wrd.Selection.InlineShapes(1).Width = 142
        wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat.Type = wdInLine
        wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
        wrd.Selection.MoveDown unit:=wdLine, Count:=1
        wrd.Selection.EndKey unit:=wdLine, Extend:=wdExtend
        wrd.Selection.InlineShapes.AddPicture filename:=MyDir + savw, LinkToFile:=False, SaveWithDocument:=True
        wrd.Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
        wrd.Selection.InlineShapes(1).LockAspectRatio = msoTrue
        wrd.Selection.InlineShapes(1).Height = 142
        wrd.Selection.InlineShapes(1).Width = 142
        'wrd.Selection.InlineShapes(1).ConvertToShape.WrapFormat = wdInLine
        wrd.Selection.MoveRight unit:=wdCharacter, Count:=1
        wrd.Selection.EndKey unit:=wdStory
        If KD = 4 Then GoTo 29
        If KD > 4 Then GoTo 28
    This is the code I failed several times but could not do it. now please focus some light.

  3. #3
    Join Date
    Jul 2001
    Location
    Sunny South Africa
    Posts
    11,101

    Re: Pictures in MSWord Aligned.

    You keep referring to a certain post somewhere on his forum, post the link to that post here, to give us more insight into what exactly you are struggling with. Posting code, and a "How to" attachment make people think twice in helping...

  4. #4
    Join Date
    Apr 2006
    Location
    Kolkata, India
    Posts
    278

    Question Re: Pictures in MSWord Aligned.

    Hannes

    Buddy ,Sorry I did not get you ,What you said in the post.
    I attached the file about what the output would be.
    I did not understand posting link etc.Please clarify.

    Thanks once gain
    Rahul

  5. #5
    Join Date
    Jul 2001
    Location
    Sunny South Africa
    Posts
    11,101

    Re: Pictures in MSWord Aligned.

    Where is this thread :
    Quote Originally Posted by dsrahul
    I searched my post & found my post was not repled
    ¿

  6. #6
    Join Date
    Apr 2006
    Location
    Kolkata, India
    Posts
    278

    Re: Pictures in MSWord Aligned.

    http://www.codeguru.com/forum/showth...and+vertically
    Was not what I expected, anyway please try the new one.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


Windows Mobile Development Center


Click Here to Expand Forum to Full Width

This is a CodeGuru survey question.


Featured


HTML5 Development Center