This is a multi-part message in MIME format.

------=_NextPart_000_00B4_01C8E86C.D07F6120
Content-Type: text/plain;
charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

Hello,

Using macros in Microsoft Word, how is it possible to:

1) Set the number of rows and columns for Microsoft Excel WorkSheet?
2) Put the values into the cells of Microsoft Excel WorkSheet?

Recording macros in Microsoft Word gives the following code:


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/17/2008 by
'
Selection.InlineShapes.AddOLEObject ClassType:=3D"Excel.Sheet.8", =
LinkToFile _
:=3DFalse, DisplayAsIcon:=3DFalse
End Sub

Sincerely,
Aleksander
------=_NextPart_000_00B4_01C8E86C.D07F6120
Content-Type: text/html;
charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1251">
<META content=3D"MSHTML 6.00.2900.2912" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD><FONT face=3DArial><FONT size=3D2>
<BODY>
<DIV><FONT size=3D2>
<DIV>
<DIV>Hello,</DIV>
<DIV>&nbsp;</DIV>
<DIV>
<DIV class=3Dpostcolor>Using macros in&nbsp;Microsoft Word, how is it =
possible=20
to:<BR><BR>1)&nbsp;Set&nbsp;the number of rows and columns =
for&nbsp;Microsoft=20
Excel WorkSheet?<BR>2)&nbsp;Put the values into&nbsp;the cells =
of&nbsp;Microsoft=20
Excel WorkSheet?<BR><BR>Recording macros in&nbsp;Microsoft Word gives =
the=20
following code:<BR><BR>
<DIV>
<DIV id=3DCODE=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =
=D4=EE=F0=F3=EC=E0.">Sub&nbsp;Macro1()<BR>'<BR>'&nbsp;Macro1&nbsp;Macro<B=
R>'&nbsp;Macro&nbsp;recorded&nbsp;7/17/2008&nbsp;by<BR>'<BR>&nbsp;&nbsp;&=
nbsp;&nbsp;Selection.InlineShapes.AddOLEObject&nbsp;ClassType:=3D"Excel.S=
heet.8",&nbsp;LinkToFile&nbsp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;:=3DFalse,&nbsp;DisplayAsIcon:=3DFalse<BR>End&nbsp;Sub</DIV>
<DIV=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =D4=EE=F0=F3=EC=E0.">&nbsp;</DIV>
<DIV=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =D4=EE=F0=F3=EC=E0.">Sincerely,</DIV>
<DIV=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =
=D4=EE=F0=F3=EC=E0.">Aleksander</DIV></DIV></DIV></DIV></DIV></FONT></DIV=
></BODY></HTML></FONT></FONT>

------=_NextPart_000_00B4_01C8E86C.D07F6120--

Re: Macros for Microsoft Excel Worksheet in Microsoft Word Document by Doug

Doug
Thu Jul 17 16:49:42 PDT 2008

This is a multi-part message in MIME format.

------=_NextPart_000_005C_01C8E8BB.9A15D6B0
Content-Type: text/plain;
charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

Already answered elsewhere. Please do not post the same question to =
multiple newsgroups.



See the article "Control Excel from Word=94 at:

http://www.word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm


--=20
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Aleksander" <avpetrov@online.ru> wrote in message =
news:eVYeOtE6IHA.4852@TK2MSFTNGP03.phx.gbl...
Hello,

Using macros in Microsoft Word, how is it possible to:

1) Set the number of rows and columns for Microsoft Excel WorkSheet?
2) Put the values into the cells of Microsoft Excel WorkSheet?

Recording macros in Microsoft Word gives the following code:


Sub Macro1()
'
' Macro1 Macro
' Macro recorded 7/17/2008 by
'
Selection.InlineShapes.AddOLEObject ClassType:=3D"Excel.Sheet.8", =
LinkToFile _
:=3DFalse, DisplayAsIcon:=3DFalse
End Sub

Sincerely,
Aleksander
------=_NextPart_000_005C_01C8E8BB.9A15D6B0
Content-Type: text/html;
charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1251">
<META content=3D"MSHTML 6.00.6000.16674" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 12pt; mso-outline-level: =
1"><SPAN=20
style=3D"FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana','sans-serif'; =
mso-bidi-font-size: 12.0pt; mso-bidi-font-family: Arial; =
mso-ansi-language: EN-US">Already=20
answered elsewhere.&nbsp; Please do not post the same question to =
multiple=20
newsgroups.</SPAN></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 12pt; mso-outline-level: =
1"><SPAN=20
style=3D"FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana','sans-serif'; =
mso-bidi-font-size: 12.0pt; mso-bidi-font-family: Arial; =
mso-ansi-language: EN-US"></SPAN>&nbsp;</P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 12pt; mso-outline-level: =
1"><SPAN=20
style=3D"FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana','sans-serif'; =
mso-bidi-font-size: 12.0pt; mso-bidi-font-family: Arial; =
mso-ansi-language: EN-US">See=20
the article "</SPAN><SPAN=20
style=3D"FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana','sans-serif'; =
mso-bidi-font-family: Arial; mso-ansi-language: EN-US">Control=20
Excel from Word=94 at:<?xml:namespace prefix =3D o ns =3D=20
"urn:schemas-microsoft-com:office:office" /><o:p></o:p></SPAN></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 12pt; mso-outline-level: =
1"><SPAN=20
style=3D"FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana','sans-serif'; =
mso-bidi-font-family: Arial; mso-ansi-language: EN-US"><A=20
href=3D"http://www.word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm">htt=
p<SPAN=20
style=3D"mso-bidi-font-size: =
12.0pt">://www.word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm</SPAN></=
A></SPAN><SPAN=20
style=3D"FONT-SIZE: 9pt; FONT-FAMILY: 'Verdana','sans-serif'; =
mso-bidi-font-size: 12.0pt; mso-bidi-font-family: Arial; =
mso-ansi-language: EN-US"><o:p></o:p></SPAN></P></DIV>
<DIV><BR>-- <BR>Hope this helps.</DIV>
<DIV>&nbsp;</DIV>
<DIV>Please reply to the newsgroup unless you wish to avail yourself of=20
my<BR>services on a paid consulting basis.</DIV>
<DIV>&nbsp;</DIV>
<DIV>Doug Robbins - Word MVP<BR></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Aleksander" &lt;<A=20
href=3D"mailto:avpetrov@online.ru">avpetrov@online.ru</A>&gt; wrote in =
message=20
<A=20
=
href=3D"news:eVYeOtE6IHA.4852@TK2MSFTNGP03.phx.gbl">news:eVYeOtE6IHA.4852=
@TK2MSFTNGP03.phx.gbl</A>...</DIV><FONT=20
face=3DArial><FONT size=3D2>
<DIV><FONT size=3D2>
<DIV>
<DIV>Hello,</DIV>
<DIV>&nbsp;</DIV>
<DIV>
<DIV class=3Dpostcolor>Using macros in&nbsp;Microsoft Word, how is it =
possible=20
to:<BR><BR>1)&nbsp;Set&nbsp;the number of rows and columns =
for&nbsp;Microsoft=20
Excel WorkSheet?<BR>2)&nbsp;Put the values into&nbsp;the cells=20
of&nbsp;Microsoft Excel WorkSheet?<BR><BR>Recording macros =
in&nbsp;Microsoft=20
Word gives the following code:<BR><BR>
<DIV>
<DIV id=3DCODE=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =
=D4=EE=F0=F3=EC=E0.">Sub&nbsp;Macro1()<BR>'<BR>'&nbsp;Macro1&nbsp;Macro<B=
R>'&nbsp;Macro&nbsp;recorded&nbsp;7/17/2008&nbsp;by<BR>'<BR>&nbsp;&nbsp;&=
nbsp;&nbsp;Selection.InlineShapes.AddOLEObject&nbsp;ClassType:=3D"Excel.S=
heet.8",&nbsp;LinkToFile&nbsp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n=
bsp;&nbsp;:=3DFalse,&nbsp;DisplayAsIcon:=3DFalse<BR>End&nbsp;Sub</DIV>
<DIV=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =D4=EE=F0=F3=EC=E0.">&nbsp;</DIV>
<DIV=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =D4=EE=F0=F3=EC=E0.">Sincerely,</DIV>
<DIV=20
title=3D"=CF=EE=E4=F1=E2=E5=F2=EA=E0 =F1=E8=ED=F2=E0=EA=F1=E8=F1=E0 =
=E4=EE=F1=F2=F3=EF=ED=E0 =
=E7=E0=F0=E5=E3=E8=F1=F2=F0=E8=F0=EE=E2=E0=ED=ED=FB=EC =
=F3=F7=E0=F1=F2=ED=E8=EA=E0=EC =
=D4=EE=F0=F3=EC=E0.">Aleksander</DIV></DIV></DIV></DIV></DIV></FONT></DIV=
></BLOCKQUOTE></FONT></FONT></BODY></HTML>

------=_NextPart_000_005C_01C8E8BB.9A15D6B0--