在 Google Chat 訊息中傳送及分享檔案
https://support.google.com/chat/answer/7651457?hl=zh-Hant&co=GENIE.Platform%3DDesktop
你可以直接從電腦、行動裝置或 Google 雲端硬碟,將檔案附加至 Google Chat 訊息中 (檔案大小上限為 200 MB)。
吾乃天涯一書蟲也。
在 Google Chat 訊息中傳送及分享檔案
https://support.google.com/chat/answer/7651457?hl=zh-Hant&co=GENIE.Platform%3DDesktop
你可以直接從電腦、行動裝置或 Google 雲端硬碟,將檔案附加至 Google Chat 訊息中 (檔案大小上限為 200 MB)。
可視為寫論文操作 `入門以上`
用WORD寫論文,你不知道的密技
https://www.youtube.com/live/gQ7K2hSHqcg?feature=share
@harry_5689, 1 年前 (已編輯)
只是大略標一下而已,希望能幫助各位快速找到自己想聽的內容~
成(U+6210)
6210(hex)→25104(十進位)
^u25104→可找到「成」
在尋找目標輸入「^u0034」
可只找到 "(U+0022),而不會同時找到「“」、「”」。
"(U+0022)
→尋找^u0034(ASCII(十進位)34, u小寫)
'(U+0027)
→尋找^u0039(ASCII(十進位)39, u小寫)
H(U+0048)
→^u0072 才找到 H(16進位 48=十進位 72)。
×(00D7), 乘號
^u00d7 找不到→不是十進位數字
^u00215, ^u0215, ^u215, 都可以找到「乘號」
「乘號」單獨混在一堆 "拉丁文-1 補充" 中
ÐÑÒÓÔÕÖרÙÚÛÜÝÞß (U+00D0~00DF)
nnnn 是由0~9組成的十進位數字
→只能找到 0255?→可找到全部
^u0255 找到 ÿ(U+00FF)
^u0256 找到 Ā(U+0100), ā(U+0101)
^u0257 找到 Ā(U+0100), ā(U+0101)
ĀāĂ㥹ĆćĈ, (U+0100)~(U+0108)
Unicode 字元 ^unnnn; 全形空格(U+3000, 12288) ^u8195/u12288 vs 膕(U+8195); 半形空格 (U+0020, 32) ^32 or ^u8194 vs 膔(U+8194);
→8195, 8194找不到空格! 「^32/^u0032」可找到半形空格
8195 hex2003, em space; 8194 hex2002, en space
十六進位轉換為十進位
00d7(hex) = 215(dec)
4EB(16) = 1259(10) | (4 * 162) + (14 * 161) + (11 * 160) = 1259(10) |
Raph Levien’s blog
Apr 4, 2019
4 無處不在的回落
5 網頁設計的字体回落機制
6 表情符號與各種應用的回落機制
#Windows #MS Word
Sub 列出所有樣式的敘述文字_1A()
'作用:找出每一個styles, 將其description寫到文件最後
'ver
' 摘自 《WORD排版藝術》 VBA10-23
' 自訂樣式不論是否有使用皆會列出;預設樣式則會列出部份未使用
' 1A 增加說明
' 好像是列出可用樣式清單,不論有顯示或沒有顯示?可先刪不要者。
' styles數目是什麼?空白文件也顯示100多?
ActiveDocument.Paragraphs.Last.Range.InsertAfter (Chr(10) + "styles description: ") '將資料標題寫到作用中文件最後
'MsgBox Application.Styles.Count '原書程式
'application下面沒有styles,改成Application.ActiveDocument. Application可省略
MsgBox ActiveDocument.Styles.Count '顯示styles數目.
Dim nowStyle As Style
For Each nowStyle In ActiveDocument.Styles
If nowStyle.InUse = True Then '使用中才成立,結果全部跑出來? InUse沒有作用
ActiveDocument.Paragraphs.Last.Range.InsertAfter (Chr(10) + nowStyle.NameLocal) '顯示結果在文件最後
ActiveDocument.Paragraphs.Last.Range.InsertAfter (vbCr + " " + nowStyle.Description)
End If 'vbCr=Chr(10)
Next
End Sub
#VBA #MS Word
Sub 以未格式化貼上文字()
'
' 以未格式化文字貼上 巨集
' 巨集錄製於 2012/11/28,錄製者 SMC
'
'
'作用
' 以「未格式化文字」及「inline」方式貼上
' 選擇性貼上_未格式化文字
'
'
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub
#VBA #MS Word