以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]Word问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70026)
--  作者：pcxjxjhkw
--  发布时间：2015/6/14 21:32:00
--  [求助]Word问题
如何用Dim app As New MSWord.Application实现：
1.控制插入图片的水平对齐方式
2.页眉页脚
3.水印

谢谢

[此贴子已经被作者于2015/6/14 22:18:44编辑过]
--  作者：大红袍
--  发布时间：2015/6/15 9:07:00
--  

 1、你可以录制宏，参考vba的代码，然后改成foxtable的代码

 

 插入图片，参考

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    app.Documents.Open(fileName)
    app.Documents(fileName).Range(Start:=0, End:=0).InlineShapes.AddPicture(FileName:= _
        "C:\\Documents and Settings\\Administrator\\My Documents\\My Pictures\\02.bmp" _
        , LinkToFile:=False, SaveWithDocument:=True)
    app.Documents.save
catch ex As exception
    msgbox(ex.message)
finally
    app.Quit
End try

 

-----------------

 

页眉 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59069&skin=0

 

-------------------

 

水印 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=69160&skin=0

 
--  作者：pcxjxjhkw
--  发布时间：2015/6/15 9:44:00
--  
再请教一问题：
在word中如何先插入一文字，再插入图片，再插入文字？

即是如何定义Range
[此贴子已经被作者于2015/6/15 9:45:40编辑过]
--  作者：大红袍
--  发布时间：2015/6/15 9:57:00
--  

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:="123456")

   
    app.ActiveWindow.Selection.InlineShapes.AddPicture(FileName:= _
        "d:\\test.jpg" _
        , LinkToFile:=False, SaveWithDocument:=True)

    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:="789")

    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try

--  作者：pcxjxjhkw
--  发布时间：2015/6/15 10:03:00
--  
谢谢
--  作者：pcxjxjhkw
--  发布时间：2015/6/15 10:11:00
--  
                  \'  App.Selection.ParagraphFormat.Alignment =  app.WdParagraphAlignment.wdAlignParagraphCenter   \'\'居中对齐
                    \' App.Selection.Font.Color = app.Color.red       \'\'wdColorRed      \'\'字体颜色

上面两句代码报错。

另请教老师：1.如何设置字体样式？如加粗、下划线等
2.颜色问题。如何由颜色编辑器中的颜色返回到word可识别的颜色。
[此贴子已经被作者于2015/6/15 10:16:53编辑过]
--  作者：大红袍
--  发布时间：2015/6/15 10:59:00
--  

app.ActiveWindow.Selection.ParagraphFormat.Alignment = 1

app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,10,10,10).ToARGB
--  作者：pcxjxjhkw
--  发布时间：2015/6/15 11:19:00
--  
老师，字体样式呢，如何写代码
--  作者：大红袍
--  发布时间：2015/6/15 12:00:00
--  
以下是引用pcxjxjhkw在2015/6/15 11:19:00的发言：
老师，字体样式呢，如何写代码

 

你自食其力吧，我也是通过录制宏才知道代码是怎样的。