How To goto End of Word doc

fishpoem has asked for the wisdom of the Perl Monks concerning the following question:

Question: how do I go to the END of a Word doc before CLOSE?

The code below simply appends one document to another. I would like to go to the very end of the destination document AFTER the text has been appended but BEFORE closing the destination document.

$Word->Documents->open( $source_doc )
      or die "Unable to open $source_doc ", Win32::OLE->LastError();
my $text = $Word->ActiveDocument->Content->Text;
$Word->ActiveDocument->Close;
    
$Word->Documents->open( $dest_doc )
      or die "Unable to open $dest_doc ", Win32::OLE->LastError();
$Word->ActiveDocument->Content->InsertAfter({ Text => $text });
$Word->ActiveDocument->Close;
[download]

Comment on How To goto End of Word doc Download Code

Replies are listed 'Best First'.
Re: How To goto End of Word doc by poj (Abbot) on Feb 02, 2017 at 07:37 UTC
`$Word->Selection->EndKey( { Unit => 6 } ); # wdStory = 6 $Word->ActiveDocument->Close;` [download] poj	[reply] [d/l]
Re^2: How To goto End of Word doc by pryrt (Abbot) on Feb 02, 2017 at 14:59 UTC
Here are some MSDN documentation links (assume Word ≥2013 unless noted) to the various objects and methods and enumerations mentioned in ++poj's post: Object Model = start here for documentation on the objects in the Word OLE Selection Object = all the methods and properties for `$Word->Selection` Selection.EndKey Method = shows that you need to pass EndKey a `Unit => WdUnits` value WdUnits Enumeration = the values of each of the enumerations in WdUnits Enumerations = "Table of Contents" for all the ≥2013 Enumeration Types Enumerated Constants = Word2003 Version, with all the enums on one page (quick reference, but possibly out of date)	[reply] [d/l] [select]
Re^3: How To goto End of Word doc by fishpoem (Initiate) on Feb 02, 2017 at 17:51 UTC
Thank you for taking the time and trouble to provide such a bounty of useful information. And quickly, too! The replies people have given totally amaze me. I just joined up and didn't know if I'd get ANY responses. This has been great.	[reply]
Re^2: How To goto End of Word doc by fishpoem (Initiate) on Feb 02, 2017 at 17:44 UTC
Thank you for responding so quickly! Quite amazing, actually. Really appreciate the code snippet. I'd tried EndKey previously, but hadn't formatted it properly. I'll try again.	[reply]
Re: How To goto End of Word doc by GotToBTru (Prior) on Feb 02, 2017 at 06:42 UTC
Please use code tags, it is very hard to read your post. Do you know how to go to the end using OLE? I believe that is the material question here. An OLE site might be more useful to you than a Perl site to answer that. But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)	[reply]
Re^2: How To goto End of Word doc by fishpoem (Initiate) on Feb 02, 2017 at 17:41 UTC
Thank you for responding so quickly! I need to find out what "code tags" are.	[reply]
Re^3: How To goto End of Word doc by GotToBTru (Prior) on Feb 03, 2017 at 04:31 UTC
Reply to this node. Look immediately above the text box. It describes two kinds of tags, paragraph and code. Use the preview button below to experiment with their effects. Repeat until it looks right, then click on the create button. You can edit previously created posts, but there is no preview mode, you must have to keep re-submitting. You'll get it eventually, and you will find well formatted posts get quicker answers. But God demonstrates His own love toward us, in that while we were yet sinners, Christ died for us. Romans 5:8 (NASB)	[reply]
Re: How To goto End of Word doc by Anonymous Monk on Feb 02, 2017 at 07:27 UTC
I dont know the answer but I have hints :) ole insert, site:perlmonks.org OLE INSERT END If you look at the nodes the search above finds, the API calls you need to lookup are related to "Selection" and "Range"	[reply]

Back to Seekers of Perl Wisdom