I don't know ASP.Net syntax, so I probably can't help much. But in VBA, the Set
keyword is required when you try to assign a value to a Range object (or any
object), so the line third from the end should be
Set rgDst = wrdOut.Selection.Range
On Wed, 16 Jul 2008 12:29:01 -0700, HenryM679
wrote:
Thanks for your help but I still get a type mismatch error. I modified it
some to fit my app. It runs in ASP.net.
Here is what I have now.
Dim rgSrc As Word.Range = wrdIn.ActiveDocument.Tables(7).Range
wrdOut.Selection.MoveStart()
wrdOut.Selection.Find.ClearFormatting()
With wrdOut.Selection.Find
.Text = "__ASSUMPTIONS__"
.Replacement.Text = ""
.Forward = True
.Wrap = Word.WdFindWrap.wdFindStop
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wrdOut.Selection.Find.Execute()
Dim rgDst As Word.Range
rgDst = wrdOut.Selection.Range
rgDst.Collapse(Word.WdCollapseDirection.wdCollapse End)
rgDst.FormattedText = rgSrc.FormattedText
"Jay Freedman" wrote:
HenryM679 wrote:
How can I copy a table from one doc to another doc without using the
clipboard?
I need to make this app run on an website and possibly multiuser.
Thanks for any help
Declare two Range objects. Set the first one to the range of the existing
table, and set the second one to a collapsed point in the other document
where you want the copy. Then assign the .FormattedText property of the
second range to be equal to the .FormattedText property of the first range.
Something like this:
Dim RgSrc As Range, RgDest As Range
Set RgSrc = SrcDoc.Tables(1).Range
Set RgDest = DestDoc.Range
RgDest.Collapse wdCollapseEnd
RgDest.FormattedText = RgSrc.FormattedText
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ:
http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.