回覆列表
-
1 # 使用者2827557293532343
-
2 # 使用者3139852025991471
1、開啟一個新建的Word文件,點選“插入”——“圖片”——“來自檔案”,選擇一張圖片插入到文件中。
2、然後需要在圖片上任意位置,點選滑鼠右鍵,選擇“設定圖片格式”。
3、設定完成,現在我們可以隨意移動圖片了,比如我把圖片移動到了右下方。
1、開啟一個新建的Word文件,點選“插入”——“圖片”——“來自檔案”,選擇一張圖片插入到文件中。
2、然後需要在圖片上任意位置,點選滑鼠右鍵,選擇“設定圖片格式”。
3、設定完成,現在我們可以隨意移動圖片了,比如我把圖片移動到了右下方。
移動游標至文件開始Selection.HomeKey unit:=wdStory下面的供參考:Sub MoveToCurrentLineStart()'移動游標至當前行首Selection.HomeKey unit:=wdLineEnd SubSub MoveToCurrentLineEnd()'移動游標至當前行尾Selection.EndKey unit:=wdLineEnd SubSub SelectToCurrentLineStart()'選擇從游標至當前行首的內容Selection.HomeKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectToCurrentLineEnd()'選擇從游標至當前行尾的內容Selection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub SelectCurrentLine()'選擇當前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendEnd SubSub MoveToDocStart()'移動游標至文件開始Selection.HomeKey unit:=wdStoryEnd SubSub MoveToDocEnd()'移動游標至文件結尾Selection.EndKey unit:=wdStoryEnd SubSub SelectToDocStart()'選擇從游標至文件開始的內容Selection.HomeKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectToDocEnd()'選擇從游標至文件結尾的內容Selection.EndKey unit:=wdStory, Extend:=wdExtendEnd SubSub SelectDocAll()'選擇文件全部內容(從WholeStory可猜出Story應是當前文件的意思)Selection.WholeStoryEnd SubSub MoveToCurrentParagraphStart()'移動游標至當前段落的開始Selection.MoveUp unit:=wdParagraphEnd SubSub MoveToCurrentParagraphEnd()'移動游標至當前段落的結尾Selection.MoveDown unit:=wdParagraphEnd SubSub SelectToCurrentParagraphStart()'選擇從游標至當前段落開始的內容Selection.MoveUp unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectToCurrentParagraphEnd()'選擇從游標至當前段落結尾的內容Selection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub SelectCurrentParagraph()'選擇游標所在段落的內容Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendEnd SubSub DisplaySelectionStartAndEnd()'顯示選擇區的開始與結束的位置,注意:文件第1個字元的位置是0MsgBox ("第" & Selection.Start & "個字元至第" & Selection.End & "個字元")End SubSub DeleteCurrentLine()'刪除當前行Selection.HomeKey unit:=wdLineSelection.EndKey unit:=wdLine, Extend:=wdExtendSelection.DeleteEnd SubSub DeleteCurrentParagraph()'刪除當前段落Selection.MoveUp unit:=wdParagraphSelection.MoveDown unit:=wdParagraph, Extend:=wdExtendSelection.DeleteEnd Sub