以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]Word问题  (http://foxtable.com/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的发言:
老师,字体样式呢,如何写代码

 

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