Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Document to fill
Message
 
 
To
20/07/2010 16:03:28
General information
Forum:
Microsoft Office
Category:
Word
Environment versions
Microsoft Office:
Office 2007
Miscellaneous
Thread ID:
01473122
Message ID:
01473187
Views:
26
Thanks, this comes handy for other times. For now she already sent me another file and in that file I was able to insert the signature without a problem.

>I have a document with the fields pre-set. I can fill all the information OK. However, there is a place for a signature. I have my signature scanned and saved in another document.
>
>Unfortunately, I don't seem to be able to insert (paste) my signature at the place for the signature in this document.
>
>I also seem to unable to insert new pages or find a spot to try inserting signature.

>
>
>#DEFINE wdLine  5  
>LOCAL lcGifName, lcLogIn
>lcGifName = []
>*** Find the Manager's login name in the users table
>lcLogIn = GETWORDNUM( gcManager, GETWORDCOUNT( gcManager ), [ ] )
>IF SEEK( UPPER( ALLTRIM( lcLogIn ) ), [Users], [User] )
>  lcGifName = ADDBS( gcSysExe ) + [graphics\] + ALLTRIM( Users.user ) + [.gif]
>  IF FILE( lcGifName )
>    *** we are good to go
>  ELSE 
>    lcGifName = []
>  ENDIF && FILE( lcGifName )  
>ENDIF && SEEK( UPPER( ALLTRIM( gcManager ) ), [Users], [User]
>IF EMPTY( lcGifName )
>  lcGifName = ADDBS( gcSysExe ) + [graphics\Blank.gif]
>ENDIF && EMPTY( lcGifName )
>
>*** Now we have to find the word sincerely, so that we know where to insert the gif
>WITH ThisForm.oWord.Selection
>  WITH .Find
>    .Text = "Sincerely"
>    .Replacement.Text = ""
>    .Forward = .T.
>    .MatchCase = .F.
>    .MatchWholeWord = .F.
>    .MatchWildcards = .F.
>    .MatchSoundsLike = .F.
>    .MatchAllWordForms = .F.
>    .Execute
>  ENDWITH
>  .EndKey( wdLine )
>  .TypeParagraph()
>   *** Now insert the gif
>  .InlineShapes.AddPicture( lcGifName, .F., .T. )  
>  .HomeKey( wdLine )
>ENDWITH 
>
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform