Word对象问题

lovely888

    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes("PowerPlusWaterMarkObject357732486").Select
    Selection.Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveDocument.Sections(1).Range.Select
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.HeaderFooter.Shapes.AddTextEffect( _
        PowerPlusWaterMarkObject7537781, "你好！", "等线", 1, False, False, 0, 0). _
        Select
    Selection.ShapeRange.Name = "PowerPlusWaterMarkObject7537781"
    Selection.ShapeRange.TextEffect.NormalizedHeight = False
    Selection.ShapeRange.Line.Visible = False
    Selection.ShapeRange.Fill.Visible = True
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(192, 192, 192)
    Selection.ShapeRange.Fill.Transparency = 0.5
    Selection.ShapeRange.Rotation = 315
    Selection.ShapeRange.LockAspectRatio = True
    Selection.ShapeRange.Height = CentimetersToPoints(5.16)
    Selection.ShapeRange.Width = CentimetersToPoints(15.49)
    Selection.ShapeRange.WrapFormat.AllowOverlap = True
    Selection.ShapeRange.WrapFormat.Side = wdWrapNone
    Selection.ShapeRange.WrapFormat.Type = 3
    Selection.ShapeRange.RelativeHorizontalPosition = _
        wdRelativeVerticalPositionMargin
    Selection.ShapeRange.RelativeVerticalPosition = _
        wdRelativeVerticalPositionMargin
    Selection.ShapeRange.Left = wdShapeCenter
    Selection.ShapeRange.Top = wdShapeCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

如何将它翻译易语言，谢谢！

赵小赵

走定制吧

lovely888

赵小赵 发表于 2023-8-2 16:52
走定制吧

这问题还定制。想钱想疯了。

csyloveyj

lovely888 发表于 2023-8-2 17:20
这问题还定制。想钱想疯了。

这不就是word的 *************，2号注册，3号得到解决，10年不再上线，当大家保姆啊？

lovely888

csyloveyj 发表于 2023-8-3 17:53
这不就是word的 *************，2号注册，3号得到解决，10年不再上线，当大家保姆啊？ ...

这论坛都是奇奇怪怪的人才

ai12207745

你就是传说中的白嫖哥吧，没人帮助你还各种讽刺。也是奇葩

lovely888

ai12207745 发表于 2023-8-21 08:50
你就是传说中的白嫖哥吧，没人帮助你还各种讽刺。也是奇葩

自己搞定

ai12207745

lovely888 发表于 2023-8-25 14:20
自己搞定

你这么牛，希望你以后别在论坛求助了。  然后多帮助帮助其他人。

ftsoyxb

这是什么 看不懂