[求助]word录制宏划线问题？

swo · 发表于 2006-4-27 18:10

我用word录制一个排版的宏，可是录制后的划线（用绘图划的）会在原位置，而不是我按ctrl+end后在文章最后划线，请问怎样解决？

konggs · 发表于 2006-4-27 18:21

放上来看看。

swo · 发表于 2006-4-27 18:48

6Sz9lg3x.rar (364 Bytes, 下载次数: 8) 看看，我只是简单的弄了一下，我试验了，做表格是可以随文字走的

konggs · 发表于 2006-4-27 19:03

我晕，你居然传.bas，信好我知道这是什么东东。

看下面的代码是否能实现你的功能：

Sub Macro5()
'
' Macro5 Macro
' 宏在 2006-4-27 由 SKYLZY 录制
Dim a%, b%, c%
Selection.EndKey Unit:=wdStory
c = ActiveDocument.PageSetup.PageWidth - (ActiveDocument.PageSetup.LeftMargin + ActiveDocument.PageSetup.RightMargin)
a = Selection.Information(wdHorizontalPositionRelativeToPage)
b = Selection.Information(wdVerticalPositionRelativeToPage)
ActiveDocument.Shapes.AddLine(a, b, a + c, b).Select
Selection.EndKey Unit:=wdLine
End Sub

swo · 发表于 2006-4-27 19:11

好像还是有些问题，不是全页居中的

swo · 发表于 2006-4-27 19:12

不过也感谢了，我现在是用表格来处理。我估计可能是划线不能尾随文字，而表格是可以的

konggs · 发表于 2006-4-27 19:20

以下是引用[I]swo[/I]在2006-4-27 19:11:48的发言：
好像还是有些问题，不是全页居中的

我晕，是什么时候说要求全页居中的？全页居中如下： Sub Macro5() ' ' Macro5 Macro ' 宏在 2006-4-27 由 SKYLZY 录制 Dim a%, b%, c% Selection.EndKey Unit:=wdStory 'c = ActiveDocument.PageSetup.PageWidth - (ActiveDocument.PageSetup.LeftMargin + ActiveDocument.PageSetup.RightMargin) c = ActiveDocument.PageSetup.PageWidth - ActiveDocument.PageSetup.LeftMargin * 2 a = Selection.Information(wdHorizontalPositionRelativeToPage) b = Selection.Information(wdVerticalPositionRelativeToPage) ActiveDocument.Shapes.AddLine(a, b, a + c, b).Select Selection.EndKey Unit:=wdLine End Sub

[此贴子已经被作者于2006-4-27 19:24:50编辑过]

		自动登录	找回密码
密码			免费注册