摘要： 一、旋转图片 Dim blnIsInlineShape As Boolean
If Selection.Type = wdSelectionInlineShape Then
blnIsInlineShape = True
Selection.InlineShapes(1).ConvertToShape
End If
Dim intTurn As Integer
intTurn = InputBox(...
一、旋转图片
Dim blnIsInlineShape As Boolean
If Selection.Type = wdSelectionInlineShape Then
blnIsInlineShape = True
Selection.InlineShapes(1).ConvertToShape
End If
Dim intTurn As Integer
intTurn = InputBox("请输入图形要旋转的角度值" & vbCrLf & "正数表示顺时针，负数表示逆时针。", "图形旋转", 30)
Selection.ShapeRange.IncrementRotation intTurn
End Sub
二、将文档中的每张图片的版式转换为嵌入式图形
For Each s In Documents("MyDoc.doc").Shapes
If s.Type = msoPicture Then
s.ConvertToInlineShape
End If
Next s
三、设置图片的高度宽度
Mywidth=10'10为图片宽度(厘米)
Myheigth=10'10为图片高度(厘米)
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Word插入脚注后分节符自动变成分页符解决办法
Word插入脚注后分节符自动变成分页符解决办法 Word插入脚注后分节符自动变成分页符解决办法 问题描述： 首页上一部分是单栏，一部分是双栏的话，如果在单栏部分加上一个页面底部的脚注，那么双栏部分立即会跑到下一页去，造成第一页一大片空白。如何 把后面分栏的部分合并到第一页??? 解决方案： 要解决此问题在 Microsoft Office Word 2003 或 Microsoft Word 2002 中，请执行下列步骤： 打开文档。 在 工具 菜单中上， 单击 选项 . 在 兼容性 选项卡上单击以选中
Next iShape
四、得到图片的像素
Sub 获取嵌入型图片的像素()
On Error Resume Next
With Selection.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findtext:="^g", MatchWildcards:=False, Wrap:=wdFindStop
MsgBox "该图片的像素为：" & Selection.InlineShapes(1).Width _
& " * " & Selection.InlineShapes(1).Height
End With
End Sub
五、复制图片到word文档中
Dim objWordApp As Word.Application
Dim objWord As Word.Document
Range(Cells(3, 2), Cells(11, 11)).Select
Selection.CopyPicture
Set objWordApp = CreateObject("Word.Application")
Set objWord = objWordApp.Documents.Add
objWord.Application.Visible = True
objWord.Application.Selection.Paste
Set objWord = Nothing
Set objWordApp = Nothing
删除WORD的很多个重复段落
删除WORD的很多个重复段落 一、删除连续的重复段落 菜单操作：编辑→替换，在对话框中勾选通配符。 查找内容为：(?{1,}^13)1 替换为：1 点击“全部替换”按钮 重复几次，直到替换处数为0。 二、删除不连续的重复段落 菜单操作：编辑-替换，在对话框中勾选通配符 查找内容为：^13(?{1,}^13)(*)1 替换为：^1312 点击“全部替换”按钮 重复几次，只到替换处数为0。 三、注意事项 1、最好先清除多余空行; 2、替换之前，一定把光标放在文章开始处(
