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
